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

Створивши новий проект, використаємо ADOConnection із закладки ADO палітри компонентів, та налаштуємо з'єднання з сервером, яке є у властивості ConnectionString. Для цього треба двічі натиснути по рядку ConnectionString і перед нами відкривається вікно (рис. 3.12).



Рис. 3.12 Вікно створення підєднання до БД

Тут ми вибираємо пункт «Використовувати рядок підключення (Use Connection String) та тиснимо кнопку Build і перед нами відкривається ще одне вікно.

В закладці Provider перераховані всі ADO драйвери доступу до баз даних. В даному випадку, для доступу до баз даних MS Access використовується драйвер «Microsoft Jet OLE DB Provider». Такий драйвер обов'язково встановлюється на машину разом з MS Office, а в останніх версіях Windows він встановлюється за умовчанням. Після цього натискаємо кнопку Next, або переходимо на закладку «Connection» (рис. 3.13).

Рис. 3.13. Закладка Connection

Насамперед, у цьому вікні треба ввести ім'я бази даних у рядок «Select or enter a database name». Наша база даних буде розташовуватися в тій же директорії, що і файл запуску, отже повний шлях вказувати не треба.

Щоб легше було вибрати файл необхідно натиснути кнопку з крапками праворуч від рядка введення. Крім цього нам треба заповнити наступні поля:

1. Ім'я користувача (User name), можна залишити за умовчанням, якщо не задано інше при створенні бази в MS Access;

2. Пароль (Password) - якщо база має пароль, то його необхідно вказати;

3. Порожній пароль (Blank password) - якщо пароль не потрібен, то тут бажано поставити галочку;

4. Дозволяти зберігати пароль (Allow saving password). Якщо тут поставити галочку, то пароль може бути збережений.

Як тільки виберемо базу даних, натиснемо кнопку Test Connection, щоб протестувати з'єднання. Якщо все вказано правильно, то побачимо повідомлення «Test connection succeeded» і після чого можна натиснути ОК, щоб закрити вікно створення рядка під'єднання і ще раз та вікно редактора.

Тепер у властивостях компонента ADOConnection відключимо властивість LoginPrompt, виставивши його в False. Це потрібно для того, щоб при кожному зверненні до бази не з`являлос вікно введення пароля. Тепер виставимо властивість Connected в True, щоб відбулося з'єднання з базою і на цьому з'єднання можна вважати завершеним. Тепер нам потрібно отримати доступ до створеної нами таблиці «doc». Для цього використаємо ADOTable з закладки ADO палітри компонентів. Відразу змінивши його властивість Name на ADOTable_doc та вкажемо у властивості Connection, компонент з'єднання з базою даних і виберемо єдиний пункт ADOConnection1. Далі у властивості ADOTable_doc потрібно вибрати ім'я таблиці «doc». Щоб підключити таблицю і вказані з`єднання виставляємо властивість Active в true.

Для відображення даних з таблиці потрібно встановити DataSource із закладки Data Access палітри компонентів і у властивості DataSet з випадаючого списку вибрати нашу таблицю ADOTable_doc.

Найпростіший спосіб відобразити таблицю - встановити компонент DBGrid. Це компонент-сітка, вона може показувати дані у вигляді таблиці. У цьому ж компоненті можна додавати, видаляти і редагувати рядки нашої таблиці.

Останній етап створення проекту - зв'язування компонента сітки з компонентом відображення таблиці. Для цього у властивості 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;

Размещено на Allbest.ru