Курсовой проект - Системний аналіз процесу обліку пацієнтів в медучному закладі

Подождите немного. Документ загружается.

Рис. 5.3. Додаткова інформація про діагноз.

На головній формі, де розташована таблиця, працівник реєстратури може

додавати (реєструвати) новий запис, а саме нового пацієнта.

Програма має зручний інтерфейс системи, що дає змогу легко працювати в її

середовищі. Основним користувачем системи є працівник відділу реєстратури.

ВИСНОВКИ

Системний аналіз це методологія, що дозволяє створювати й удосконалювати

складні системи і вирішувати складні проблеми.

Інформаційний процес, спрямований на одержання науково-технічної,

планової, контрольної, облікової й аналітичної інформації, в інформаційних

системах комерційного призначення уніфікований і базується на використанні

електронно-обчислювальної техніки.

В результаті роботи над даним завданням курсового проекту була

розроблена методологія побудови програми на основі якої реалізована прикладна

програма зі зручним інтуїтивно зрозумілим інтерфейсом, розрахованим на роботу

користувачів без особливої попередньої підготовки. Програма реалізує всі

зазначені при постановці задачі функції і разом з тим, завдяки відкритій технології,

є можливість доповнення її функціональних можливостей та вдосконалення

програми в цілому.

Після проведення тестування програми та її впровадження можна

стверджувати, що в загальному випадку розроблена програма ефективно виконує

поставлені перед нею завдання, тобто забезпечує можливість обліку пацієнтів і

адекватно реагувати на можливі проблемні ситуації.

Програма має зручний інтерфейс системи, що дає змогу легко працювати в її

середовищі. Основним користувачем системи є працівник відділу реєстратури.

ЛІТЕРАТУРА

1. Turbo Pascal I Delphi. 4-те видання. – Львів: Деол, СПД Глинський, 2003. –

144с.

2. Глинський Я.М. Паскаль. Київ: Освіта, 2004.

3. Обєктно-орієнтовне програмування в Delphi 7. Васьковець П.С., Київ

„Веселка”, 2005.

4. Гофман В.Є., Хомоненко А.Д. „Робота з базами даних в Delphi.”-СПб.

5. С. Боровський., Delphi 6 . Учений курс. – СПб.: Питер, 2003. 640с.

6. Сван, Том. Delphi 4.Библия разработчика: Пер. с англ. – К.; М.; СПб.:

Диалектика, 1998. – 672 с.: ил. – Парал. тит. англ.

7. Р. Баас, М. Фервай, Х. Гюнтер. Delphi 4: полное руководство: пер. с нем. –

К.: Издательская группа BHV, 1999. – 800 с.:

8. Культин Н.Б. Программирование на Object Pascal в Delphi 5. СПб.: БХВ –

Санкт-Петербург, 1999. –464 с.,

9. Архангельский А.Я. Delphi 5. Справочное пособие – М.: ЗАО “Издательство

БИНОМ”, 2001 г. – 768 с.:

ДОДАТОК Б

Текст програмних модулів

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, jpeg, ExtCtrls, SUIProgressBar;

type

TForm1 = class(TForm)

Image1: TImage;

Timer1: TTimer;

suiProgressBar1: TsuiProgressBar;

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var S: TStringList;

Num: Integer;

begin

Randomize;

S:=TStringList.Create;

try

S.Add('1.jpg');

S.Add('2.jpg');

Num:=Random(S.Count);

Image1.Picture.LoadFromFile(S[Num]);

finally

S.Free;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin SuiProgressBar1.Position:=SuiProgressBar1.Position+1;

if SuiProgressbar1.Position=100 then

begin

Form2.Show;

Form1.Hide;

Form1.Timer1.Enabled:=false;

end;

unit Unit2;

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Menus, jpeg, ExtCtrls, ADOConEd,

ComObj, ImgList, ComCtrls, Buttons, ToolWin;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

GroupBox1: TGroupBox;

FindEdit1: TEdit;

DBGrid2: TDBGrid;

Image1: TImage;

Image2: TImage;

PopupMenu1: TPopupMenu;

N13: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

Excel1: TMenuItem;

ImageList1: TImageList;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

Panel1: TPanel;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Label2: TLabel;

Edit1: TEdit;

ComboBox1: TComboBox;

ScrenSaver1: TMenuItem;

Label3: TLabel;

N26: TMenuItem;

N28: TMenuItem;

N29: TMenuItem;

N30: TMenuItem;

N31: TMenuItem;

N32: TMenuItem;

N33: TMenuItem;

N34: TMenuItem;

N35: TMenuItem;

N36: TMenuItem;

WebBrowser1: TMenuItem;

StatusBar1: TStatusBar;

ComboBox2: TComboBox;

N40: TMenuItem;

ToolBar1: TToolBar;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

Timer1: TTimer;

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure FindEdit1Change(Sender: TObject);

// procedure FindButton1Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;

Field: TField; State: TGridDrawState);

procedure N20Click(Sender: TObject);

procedure Excel1Click(Sender: TObject);

procedure N41Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure ScrenSaver1Click(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label3MouseLeave(Sender: TObject);

// procedure dxButton1MouseUp(Sender: TObject; Button: TMouseButton;

// Shift: TShiftState; X, Y: Integer);

procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure DBGrid1DblClick(Sender: TObject);

procedure WebBrowser1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure N40Click(Sender: TObject);

// procedure N37Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

// procedure DBGrid1DblClick(Sender: TObject);

// procedure N25Click(Sender: TObject);

// procedure Image5Click(Sender: TObject);

// procedure Image4Click(Sender: TObject);

// procedure Image3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

q:string;

implementation

uses DataModuleUnit, CountryBookTable, Unit3, Unit4, Unit5, Unit6, Unit7,

Unit9;

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);

Begin

Form2.ShowModal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

DataModule4.TovaruTable.Insert;

Form3.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Ви справді хочеш видалити '

+DataModule4.TovaruTableDSDesigner.AsString), 'Попередження',

MB_OKCANCEL)=id_OK then

DataModule4.TovaruTable.Delete;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.FindEdit1Change(Sender: TObject);

begin

if Length(FindEdit1.Text)>0 then

DataModule4.TovaruTable.Filtered:=true

else

DataModule4.TovaruTable.Filtered:=false;

DataModule4.TovaruTable.Filter:='Назва_виробу>'''+FindEdit1.Text+'''';

end;

procedure TForm1.N18Click(Sender: TObject);

const

MenuColors: array[0..5] of TColor =(clBlack, clRed,

clGreen, clYellow, clBlue, clPurple);

begin

//Перейти в режим редактирования поля

DataModule4.TovaruTable.Edit;

//Заношу в поле Color выбранный цвет

DataModule4.TovaruTableColor.AsString:=

ColorToString(MenuColors[5]);

//Запомнить изменения

DataModule4.TovaruTable.Post;

end;

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;

Field: TField; State: TGridDrawState);

begin

try

DBGrid1.Canvas.Font.Style:=[];

if (gdSelected in State) or (gdFocused in State)then

begin

DBGrid1.Canvas.Brush.Color:=clHighLight;

DBGrid1.Canvas.Font.Color:=clWhite;

end

else

begin

DBGrid1.Canvas.Brush.Color:=clWhite;

DBGrid1.Canvas.Font.Color:=clBlack;

//Если поле цвета не пустое то использовать цвет из поля

if DataModule4.TovaruTableColor.AsString<>'' then

DBGrid1.Canvas.Font.Color:=

StringToColor(DataModule4.TovaruTableColor.AsString);

end;

//Очищаю ячейку

DBGrid1.Canvas.FillRect(Rect);

//Вывожу текст ячейки

DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, Field.AsString);

except

DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, Field.AsString);

end;

procedure TForm1.N20Click(Sender: TObject);

begin

DataModule4.ADOConnection1.Close;

if EditConnectionString(DataModule4.ADOConnection1) then

begin

DataModule4.ADOConnection1.Connected:=true;

DataModule4.TovaruTable.Active:=true;

end;

procedure TForm1.Excel1Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Звіт';

Colum:=XLApp.Workbooks[1].WorkSheets['Звіт'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;