Заключение

Разработанный программный продукт позволяет автоматизировать работу отдела приема пациентов и отдела медицинского секретариата. Разработанная система облегчает работу с документацией для сотрудников больницы.

В процессе создания системы в соответствии с заданием были разработаны: модель вариантов использования, концептуальная модель предметной области, диаграммы деятельности, реляционная модель данных, диаграмма состояний интерфейса, формы интерфейса, диаграмма компонентов и диаграмма развертывания. Была выполнена частично проверка и отладка системы.

Система позволяет:

- специалисту отдела приема пациентов создавать, редактировать, просматривать необходимые для работы документы: регистрационные карточки, информацию о пациентах, сведения о приеме пациентов;

- врачу за работой специалиста и секретариата.

В данной курсовой работе было проведено программирование на языке Delphi. Программный продукт содержит форму авторизации пользователей, которая открывается после запуска приложения. Данная форма содержит поля для ввода пользователем своего логина и пароля.

Таким образом, в курсовой работе удалось реализовать информационную систему отдела больницы, которая удовлетворяет заданным требованиям.

Список литературы

1. Архангельский А. Я. Программирование в Delphi. Учебник по классическим версиям Delphi. - М.: Бином, 2006.

2. Буч Г., Рамбо Д., Джекобсон А. Язык UML. Руководство пользователя. - М.: ДМК Пресс, 2001.

3. Леоненков А.В. Самоучитель UML. - СПб.: БХВ-Петербург, 2001.

4. Мандел Т. Разработка пользовательского интерфейса. - М: ДМК Пресс, 2001.

Приложение

Текст программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit6;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form6.ShowModal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Close;

end;

end.

unit DM1;

interface

uses

SysUtils, Classes, IBDatabase, DB;

type

TDataModule3 = class(TDataModule)

IBDatabase1: TIBDatabase;

IBTransaction1: TIBTransaction;

procedure DataModuleCreate(Sender: TObject);

procedure DataModuleDestroy(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule3: TDataModule3;

implementation

{$R *.dfm}

procedure TDataModule3.DataModuleCreate(Sender: TObject);

begin

IBDatabase1.Connected:=True;

end;

procedure TDataModule3.DataModuleDestroy(Sender: TObject);

begin

IBDatabase1.Connected:=False;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

procedure DBGrid1TitleClick(Column: TColumn);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses DMPats, DM1, Unit4;

{$R *.dfm}

procedure TForm3.DBGrid1TitleClick(Column: TColumn);

var cn: string;

begin

cn:=Column.FieldName;

DataModule4.IBQuery1.Transaction.Commit;

DataModule4.IBQuery1.SQL.Clear;

DataModule4.IBQuery1.SQL.Add(SELECT * FROM PATSIENT ORDER BY +cn);

DataModule4.IBQuery1.Active:=True;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

if Edit1.Text<> then

with DataModule4.IBQuery1 do

begin

Close;

SQL.Clear;

SQL.Add(SELECT * FROM PATSIENT where FAMILIA like :"FAMILIA%");

Params[0].AsString:=Edit1.Text+%;

Open;

end;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form4.QuickRep1.Preview;

end;

end.

unit DMPats;

interface

uses

SysUtils, Classes, DB, IBCustomDataSet, IBUpdateSQL, IBQuery;

type

TDataModule4 = class(TDataModule)

IBQuery1: TIBQuery;

IBUpdateSQL1: TIBUpdateSQL;

DataSource1: TDataSource;

IBQuery1ID: TIntegerField;

IBQuery1FAMILIA: TIBStringField;

IBQuery1IMYA: TIBStringField;

IBQuery1OTCHESTVO: TIBStringField;

IBQuery1ADRES: TIBStringField;

IBQuery1DATA_ROZHDENIA: TDateField;

IBQuery1MESTO_RABOTI: TIBStringField;

IBQuery1TELEPHONE: TIntegerField;

IBQuery1GRUPPA_KROVI: TIBStringField;

IBQuery1SRTAX_KOMPANIA: TIBStringField;

IBQuery1NOMER_STRAXOVKI: TIntegerField;

procedure DataModuleCreate(Sender: TObject);

procedure IBQuery1AfterPost(DataSet: TDataSet);

procedure IBQuery1AfterDelete(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule4: TDataModule4;

implementation

uses DM1;

{$R *.dfm}

procedure TDataModule4.DataModuleCreate(Sender: TObject);

begin

IBQuery1.Active:=True;

end;

procedure TDataModule4.IBQuery1AfterPost(DataSet: TDataSet);

begin

IBQuery1.Transaction.CommitRetaining;

end;

procedure TDataModule4.IBQuery1AfterDelete(DataSet: TDataSet);

begin

IBQuery1.Transaction.CommitRetaining;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm6 = class(TForm)

Image1: TImage;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit7, Unit8;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

Form7.ShowModal;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

Form8.ShowModal;

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

Form6.Close;

end;

end.