Разработка и эксплуатация автоматизированных информационных систем

   Showmessage('Вы ввели неверно логин или пароль. Либо забыли ввести ФИО');

   end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label8.Caption:=TimeToStr(Time) ;// Отображение даты и времени

Label7.Caption:=DateTostr(Date);

end;

end.

procedure TForm2.Button4Click(Sender: TObject);

var

price,num,a:real;

m,s,x: string;

f,i,d,k:integer;

t:integer;

begin

datamodule5.adotable1.Edit;  //добавление строки

price:=datamodule5.adotable2.Fieldbyname('Price_per_unit').AsFloat  ;

num:=datamodule5.adotable1.Fieldbyname('Amount').AsFloat  ;

a:=price*num;

datamodule5.adotable1.Fieldbyname('Sum').Asfloat:=a;  //выдача суммы

DataModule5. ADOTable1.Post ; //сохранить

 

  DataModule5.Adotable9.open;

DataModule5.Adotable9.edit;

DataModule5.adotable9.insert;

 DataModule5.adotable9.fieldbyname('doctor').asstring:=DataModule5.adotable1.fieldbyname('Doctor').asstring; DataModule5.adotable9.fieldbyname('patient').asstring:=DataModule5.adotable1.fieldbyname('Patient').asstring; DataModule5.adotable9.fieldbyname('Data').asstring:=DataModule5.adotable1.fieldbyname('Date').asstring; DataModule5.adotable9.fieldbyname('Time_of_receipt').asstring:=DataModule5.adotable1.fieldbyname('Time_of_receipt').asstring;

DataModule5.adotable9.post;

 end;

//работа с таблицей (работа с MS Word)

AppProgID:='Word.Application';

ServerIsRunning:=false;

Result:= GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);

if(Result=MK_E_UNAVAILABLE)then App:=CreateOleObject(AppProgID)

else

begin

App:=GetActiveOleObject(AppProgID);

ServerIsRunning:=true;

end;

App.Visible:=true;

App.documents.open('C:\Program Files\Program Registry(installation)\Blank');

//внесение данных в шаблон

App.ActiveDocument.Tables.Item(1).Cell(1,2).Range.Text:=datamodule5.ADOTable1.FieldByName('Code_order').AsString;

App.ActiveDocument.Tables.Item(1).Cell(1,4).Range.Text:=Label8.Caption;

App.ActiveDocument.Tables.Item(1).Cell(3,2).Range.Text:=datamodule5.ADOTable1.FieldByName('Patient').AsString;

App.ActiveDocument.Tables.Item(1).Cell(5,2).Range.Text:=datamodule5.ADOTable1.FieldByName('Doctor').AsString;

App.ActiveDocument.Tables.Item(1).Cell(8,2).Range.Text:=datamodule5.ADOTable1.FieldByName('Service').AsString;

App.ActiveDocument.Tables.Item(1).Cell(8,3).Range.Text:=datamodule5.ADOTable1.FieldByName('Date').AsString;

App.ActiveDocument.Tables.Item(1).Cell(8,4).Range.Text:=datamodule5.ADOTable1.FieldByName('Time_of_receipt').AsString;

App.ActiveDocument.Tables.Item(1).Cell(8,5).Range.Text:=datamodule5.ADOTable2.FieldByName('Price_per_unit').AsString;

App.ActiveDocument.Tables.Item(1).Cell(8,6).Range.Text:=datamodule5.ADOTable1.FieldByName('Amount').AsString;

App.ActiveDocument.Tables.Item(1).Cell(8,7).Range.Text:=datamodule5.ADOTable1.FieldByName('Sum').AsString;

App.ActiveDocument.Tables.Item(1).Cell(10,3).Range.Text:=datamodule5.ADOTable1.FieldByName('Sum').AsString;

App.ActiveDocument.Tables.Item(1).Cell(12,4).Range.Text:=Form1.Edit3.Text;

end;

 

procedure TForm8.Button1Click(Sender: TObject);

 var filtr, // формируемая строка фильтра

add: string;

qw:Tdate;

qr:string;

begin

//работа с фильтром

Datamodule5.ADOTable9.filtered:=false;

qw:=datetimepicker1.date;

qr:=DateToStr(qw);

 filtr:='';

if length(qr) > 0 then

filtr:='Data=#'+qr+'#' ;

if length(dblookupcombobox1.text) > 0 then

begin

if length(filtr) > 0 then add:= ' and ' else add:='';

filtr:=filtr + add +'Doctor=#'+DBLookupComboBox1.text+'#' ;

end;

if length(filtr) > 0 then

begin

Datamodule5.ADOTable9.Filter:= filtr;

Datamodule5.ADOTable9.filtered:=true;

end

else Showmessage('Все поля пусты!'); 
ЗАКЛЮЧЕНИЕ

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

Программа выполняет все  необходимые функции:

1.Обеспечивает вход сотрудника поликлиники по имени пользователя и паролю.

2.Обеспечивает поддержку следующих справочников:

• врачи ;
• диагнозы ;
• медицинские услуги ;
• сведения об учреждении.

3. Обеспечивает поддержку базы данных пациентов.

4. Обеспечивает формирование базы данных заказов .

5. Обеспечивает возможность печати бланка заказа платных услуг.

6. Обеспечивает возможность печати списка заказов по каждому врачу за выбранный пери-од .

7. Обеспечивает возможность слежения за рабочим временем врачей с помощью шахматки.

Достоинства:

• простота установки;
• простота пользования;
• необходим маленький объем дискового пространства для установки программного модуля.

Недостатки:

• если программа находится не на том диске, который указан в коде программы, невозможна печать бланка и списка;
• в шахматке, как и в других таблицах, отображается только код пациента, а не фамилия, что усложняет процесс общения с пациентом;.

 

 

СПИСОК ЛИТЕРАТУРЫ

 

1.  Глава2. Федеральный закон Российской Федерации №152 от 27 июля 2006 г. // http://www.rg.ru/2006/07/29/personaljnye-dannye-dok.html
2. Гофман В., Хомоненко А., Работа с базами данных в Delphi/ Санкт-Петербург «БХВ-Петербург 2003;
3. Батлер Э.,  Microsoft Office Access 2007: профессиональное программирование / Вильямс 2009;
4. Дарахвелидзе П., Марков Е. Программирование в Delphi 7/Санкт-Петербург «БХВ-Петербург 2003;
5. Белышев А. Г., Гулиев Я. И., Морозов В. Ю., Построение медицинских систем с использованием объектных технологий. — Москва: Физматлит, 1999.
6. Коннолли Т., Бегг К., Базы данных. Проектирование, реализация и сопровождение. М: BHV, 2003.
7. Основные клинические понятия. Диагноз, виды диагноза. //http://doctor-v.ru/med/diagnosis
8. Программирование баз данныз в Delphi. // http://basicsprog.ucoz.ru/publ/3-1-0-3 (16.06.2011)
9. Фаронов В. Delphi 7. Программирование баз данных. — М., 2007.
10. Филонович С.Р., Использование моделей жизненного цикла в организации и диагностике /Москва 2005;

 

Приложение А

(Инструкция по применению и  установке программы)

 

Программа применима в  области медицины, а именно для  автоматизации рабочего места регистратора поликлиники.

Установка происходит в несколько  коротких и не сложных этапа:

1. Вставить диск в дисковод и дождаться, пока компьютер обнаружит диск.
2. Открыть диск и копировать папку Program Registry (installation) на диск C:\Program Files.
3. Открыть скопированную папку
4. В папке найти приложение Registry.exe и создать ярлык
5. Созданный ярлык поместить на рабочий стол персонального компьютера работника регистратуры, где были проделаны предыдущие этапы установки.

Для того, чтобы начать работу с программой необходимо дважды кликнуть про ярлыку программы Registry, который лежит на рабочем столе вашего компьютера.

После запуститься программа  и вы можете начать работу.

 

Приложение В

(Инструкция пользователя  АРМ)

 

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

Рисунок 10. Пример ввода логина и пароля

 

Нажав «Вход в систему», вы попадете на главную форму программы, где отображены все заказы по каждому  профилю и определенной услуге (рисунок 11).

Рисунок 11. Главная форма

Как показано на рисунке 11, для  добавления нового заказа необходимо выбрать Профиль – Услуги и их цены и нажать кнопку «Добавить». В таблице «Заказанные услуги» появится пустое поле для ввода данных. Введите данные и нажмите «Сохранить».

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

Если пользователю необходимо проследить за рабочим временем врачей, то можно воспользоваться шахматкой (рисунок 12).

Вызвав шахматку, выберите фамилию врача и дату приема и нажмите «Поиск». В таблице отобразиться занятое время и регистратор с легкостью сможет сказать, когда врач в необходимый пациенту день сможет произвести прием.

Для дальнейшего удобства работы с шахматкой необходимо произвести отмету фильтрации, нажав «Отмена»

 

Рисунок 12. Шахматка

Чтобы посмотреть список всех пациентов выберите в меню главной форма Данные – Пациенты. Перед вами откроется форма с данными пациентов (рисунок 13). По таком же принципу можно осуществлять переход и на другие формы.

Для добавления нового пациента нажмите «Добавить». В таблице добавиться строка и теперь можете начать заполнять все необходимые данные

  *Код пациента вводится по следующему правилу:

     - первые три  цифры означают окончание года  рождения пациента

     - последние  две - какой пациент по счету  среди посетителей с такими  же первыми цифрами

Нажмите «Сохранить». Для удаления пациента нажмите «Удалить».

 

Рисунок 12. Переход к форме  пациентов

 

 

Рисунок 13. Форма «Врачи»

 

Так же в программе присутствуют такие функции, как:

• печать бланка заказов;
• печать списка заказов по каждому врачу.

Печать бланка заказа осуществляется как при нажатии кнопки «Сохранить», когда сохраняете созданный заказ, так и при выборе печати из меню Операции – Печать бланка заказа.

Печать списка заказов  осуществляется при выборе из меню Операции - Печать списка заказов. Выбрав данную функцию на экране появляется форма, в которой необходимо указать списки какого врача вы хотите распечатать и в какой период его работы. Форма представлена на рисунке 14.

Рисунок 14. Печать бланка заказов

Как только все критерии выбраны, нажмите «Печать». И не забудьте потом нажать «Отмена выбора» для отменяя фильтрации данных по заказанным услугам.

Для выхода из программы  закройте все формы, либо перейдите  на основную форму (где происходил ввод логина и пароля) и нажмите «Выход».