Розробка інформаційно-пошукової системи реєстратури поліклініки «реєстратура»

Останній етап створення проекту - зв'язування компонента сітки з компонентом відображення таблиці. Для цього у властивості DataSuorce компонента DBGrid потрібно вказати створений нами компонент DataSource1.

 

 

 

 

 

 

 

 

 

 

 

 

 ВИСНОВКИ

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

Інформатизація діяльності установ охорони здоров'я дозволяє акумулювати інформацію про стан здоров'я населення в тому або іншому регіоні та розвивати діагностичну і лікувальну базу. Крім цього, інформатизація звільняє медичних працівників від паперових операцій і дозволяє їм більше часу приділяти пацієнтам.

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

В дипломній роботі повністю виконано поставлені завдання. А саме:

• проаналізувано роботу оператора реєстратури ТОВ «Віта»;
• проведено аналіз існуючих розробок і обґрунтувано вибір технології проектування;
• вибрано мову програмування, що найбільш задовольняє реалізації мети роботи;
• розроблено програмне забезпечення для автоматизації роботи оператора реєстратури ТОВ «Віта».

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

 

 

 

Список використаних джерел

1. Архангельский А.Я. Delphi 7 Справочное пособие. – М., Бином-Пресс. -2007. -1024 с.

2. Архангельский А.Я. Программирование в Delphi 7 + дискета, – М.: Бином, 2005.  – 987 с.

3. Бондаренко Е.А. Технические средства обучения в современной школе, – М.: Юверс, 2008. – 416 с.

4. Вигерс Карл. Разработка требований к программному обеспечению. /Пер, с англ. – М.: Издательско-торговый дом «Русская Редакция», 2006. - 576 с.

5. Гаврилова Т.А., Хорошевский В.Ф. Базы знаний интеллектуальных систем. – СПб.: Питер, 2010. – 384 с.: ил.

6. Глушаков С.В., Клевцов А.Л., Программирование в среде Delphi 7.0, – М.: Фолио 2008. – 528 с.

7.  Гофман В.Э., Хомоненко А.Д. Delphi 5. – СПб.: БХВ – Санкт Петербург, 2010. – 800 с.

8. Дьяконов В.П. Новые информационные технологии. - М.: Изд-во "СОЛОН-Пресс", 2005. - 640 с.

9.  Епанешников А., Епанешников В. Программирование в среде Delphi: Учебное пособие: В 4-х ч. Ч. 4. Работа с базами данных. Организация справочной системы – М.: ДИАЛОГ – МИФИ, 2008. – 400 с.

10. Земсков А.И., Шрайберг Я.Л. Электронные библиотеки, - М.: Либерея, 2003. - 352 с.

11.  Зубков Сергей Владимирович Assembler для Dos, Windows, Unix. – М.: ДМКПресс, 2007. – 652 с.

12. Клименко Р.Н. Оптимизация и автоматизация работы на ПК на 100% (+CD), – М.: Питер Пресс, 2007. – 608 с.

13. Колин К.К. Фундаментальные основы информатики: социальная информатика / Учебное пособие для вузов. – М.: Академический проект, 2008 –350 с.

14. Кондратьев Г.Г. Осваиваем Windows XP,– М.: Питер, 2009.–512 с.

15. Красильникова В.А. Становление и развитие компьютерных технологий обучения: Монография. – М.: ИИО РАО, 2009. – 168 с.

16. Круглински Д., Уингоу С, Шеферд Дж. Программирование на Microsoft Visual C++ 6.0 для профессионалов. /Пер, с англ. – СПб: Питер; М.: Издательско-торговый дом «Русская Редакция», 2010. – 861 с.

17.  Кудрявцев, Е. М. Оформление дипломных проектов на 

компьютере : учеб. пособие / Е.М.Кудрявцев. – М.: Москва : АСВ, 2010. — 416 с.

18.    Кэнту Марко Delphi 5.0 для профессионалов. – СПб.: Питер, 2010. – 1064 с.

19. Леонтьев Б.К., Мультимедия Microsoft Windows без страха, – М.: Новый издательский дом, 2007. – 176 с.

20. Мандел Т. Дизайн интерфейсов, – М.: ДМК Пресс, 2008. – 412 с.

21. Музыченко Е.В., Фролов И.Б., Мультимедия для Windows, – М.: Майор, 2007. – 192 c.

22. Пирогов В.Ю. Assembler учебный курс. – М.: «Нолидж», 2010. – 926 с.

23. Рейнхардт Р., Ленц Д.У. Flash 5. Библия пользователя. – М.: «Вильямс», 2010. – 1164 с.

24. Фигурнов В.Э. IBM PC для пользователя. Изд. 7-е, перераб. и доп. – М.: ИНФРА – М, 2008. – 640 с.

 

 

 

 

ДОДАТКИ

Додаток А

Блок схема

 

Додаток Б.

Організаційна структура поліклініки "Віта"

 

 

Додаток В.

Приклади звітів

 

 

 

 

 

 

Додаток Г.

Вихідні коди програми

 

unit zapisRW;

procedure TForm12.Button1Click(Sender: TObject);

begin

   datamodule1.ADObolnoy.Locate('Fam',form12.Edit1.Text,[]);

end;

 

procedure TForm12.CheckBox1Click(Sender: TObject);

begin

if form12.CheckBox1.Checked=true then

    form12.GroupBox1.Visible:=true

else

    form12.GroupBox1.Visible:=false;

end;

 

 

procedure TForm12.Button2Click(Sender: TObject);

begin

  datamodule1.ADObolnoy.Locate('Fam;data_roj',VarArrayOf([form12.Edit1.Text,form12.Edit2.Text]),[]);

end;

 

procedure TForm12.CheckBox2Click(Sender: TObject);

begin

   datamodule1.ADOzapis_analiz.Append;

   form12.DBEdit2.Text:=form12.DBGrid1.Fields[0].Text;

   form12.DBEdit3.Text:='Кровь RW';

end;

 

procedure TForm12.Button4Click(Sender: TObject);

begin

form12.Close;

end;

 

procedure TForm12.Button3Click(Sender: TObject);

begin

datamodule1.ADOzapis_analiz.Post;

datamodule1.ADOConnection1.Connected:=false;

datamodule1.ADOConnection1.Connected:=true;

datamodule1.ADObolnoy.Active:=true;

datamodule1.ADOraspisanie.Active:=true;

datamodule1.ADOvrachi.Active:=true;

datamodule1.ADOvyzov.Active:=true;

datamodule1.ADOzapis_analiz.Active:=true;

datamodule1.ADOzapis_pr.Active:=true;

datamodule1.ADOQuery1.Active:=true;

datamodule1.ADOQuery2.Active:=true;

datamodule1.ADOQuery3.Active:=true;

datamodule1.ADOQuery4.Active:=true;

datamodule1.ADOQuery5.Active:=true;

datamodule1.profil.Active:=true;

form12.Close;

end;

 

procedure TForm12.Button5Click(Sender: TObject);

begin

form13.show;

end;

 

 

 

 

 

 

 

 

 

unit new_kart;

procedure TForm2.Button1Click(Sender: TObject);

begin

datamodule1.DataSource1.DataSet.Post;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form2.Close;

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

   if form2.CheckBox1.Checked=true then

       begin

           form2.DBobl.Text:=form2.DBoblP.Text;

           form2.DBraion.Text:=form2.DBraionP.Text;

           form2.DBcity.Text:=form2.DBcityP.Text;

           form2.DBstreet.Text:=form2.DBStreetP.Text;

           form2.DBhom.Text:=form2.DBhomP.Text;

           form2.DBkorp.Text:=form2.DBhomP.Text;

           form2.DBkv.Text:=form2.DBkvP.Text;

       end

    else

      begin

           form2.DBobl.Text:='';

           form2.DBraion.Text:='';

           form2.DBcity.Text:='';

           form2.DBstreet.Text:='';

           form2.DBhom.Text:='';

           form2.DBkorp.Text:='';

           form2.DBkv.Text:='';

      end;

end;

 

 

 

unit zapis_vr;

procedure TForm9.Button6Click(Sender: TObject);

begin

form9.Close;

end;

procedure TForm9.Button1Click(Sender: TObject);

begin

   datamodule1.ADObolnoy.Locate('Fam',form9.Edit1.Text,[]);

end;

procedure TForm9.CheckBox1Click(Sender: TObject);

begin

if form9.CheckBox1.Checked=true then

    form9.GroupBox1.Visible:=true

else

    form9.GroupBox1.Visible:=false;

end;

procedure TForm9.Button2Click(Sender: TObject);

begin

   datamodule1.ADObolnoy.Locate('Fam;data_roj',VarArrayOf([form9.Edit1.Text,form9.Edit2.Text]),[]);

end;

procedure TForm9.CheckBox2Click(Sender: TObject);

begin

datamodule1.ADOzapis_pr.Append;

form9.DBEdit1.Text:=form9.DBGrid1.Fields[0].Text;

end;

procedure TForm9.Button5Click(Sender: TObject);

begin

  datamodule1.ADOvrachi.Locate('Fam;profil',VarArrayOf([form9.Edit4.Text,form9.Edit3.Text]),[]);

end;

procedure TForm9.Button3Click(Sender: TObject);

begin

form9.DBEdit5.Text:=form9.DBGrid2.Fields[2].Text;

end;

procedure TForm9.Button4Click(Sender: TObject);

begin

datamodule1.ADOzapis_pr.Post;

datamodule1.ADOConnection1.Connected:=false;

datamodule1.ADOConnection1.Connected:=true;

datamodule1.ADObolnoy.Active:=true;

datamodule1.ADOraspisanie.Active:=true;

datamodule1.ADOvrachi.Active:=true;

datamodule1.ADOvyzov.Active:=true;

datamodule1.ADOzapis_analiz.Active:=true;

datamodule1.ADOzapis_pr.Active:=true;

datamodule1.ADOQuery1.Active:=true;

datamodule1.ADOQuery2.Active:=true;

datamodule1.ADOQuery3.Active:=true;

datamodule1.ADOQuery4.Active:=true;

datamodule1.ADOQuery5.Active:=true;

datamodule1.profil.Active:=true;

end;

 

procedure TForm9.Button7Click(Sender: TObject);

begin

form10.Show;

end;