Описание программы. 
Информационные технологии в медицине

Общие сведения

В данной работе разрабатывается информационная система «Медицинский центр». Программа предназначена автоматизаций рабочего места регистратора, врача и лаборанта. Программа разрабатывалась в среде Delphi 7 на языке программирования Object Pascal, база данных разрабатывалась в Firebird.

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

Функциональное назначение

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

Описание логической структуры

Unit1

• 1-имя Unit1;
• 2−114- интерфейсная часть;
• 115−116- исполняемая часть;
• 117−121-процедура обновление БД;
• 122−131- процедура установить связь с БД;
• 132−167- добавление данных в таблицу «Пациенты»;
• 168−223- изменение данных в таблице «Пациенты»;
• 224−255- удаление данных из таблицы «Пациенты»;
• 256−281- изменяем состояние полей редактирования;
• 282−307- условие выбора пола пациента;
• 308−342- условия выбора группы-крови пациента;
• 343−368- условие выбора резуса-фактора пациента;
• 369−374- ссылки на другие форму17, в котором можно осуществить поиск врача по специальности;
• 375−380- ссылки на форму18, в котором можно осуществить поиск врачей по отделений;
• 381−420- ссылки на форму19, в котором можно осуществить быстрый поиск пациентов по группы крови;
• 421−424- ссылки на форму21, в котором можно открыть больничный;
• 425−428- ссылки на форму22, в котором врач может выписать справку о болезни для пациента по требованию;
• 429−433- ссылки на форму9, и реактиваций формы1;
• 434−437- ссылки на форму23, в котором можно узнать приемы определенного врача, вводя фамилию врача;
• 438−441- ссылки на форму5, в котором можно записаться на прием к врачу;
• 442−445- ссылки на форму22, в котором можно просмотреть запись которую сделал врач об обращений вводя личный номер пациента;
• 446−458- ссылки на другие форму, в котором можно узнать какие процедуры выписал врач пациенту;

Unit2

• 1-имя Unit2;
• 2−77- интерфейсная часть;
• 78- начало исполняемой части;
• 79−81- все используемые IbQuery и Datasource описываются;

Unit3

• 1-имя Unit3;
• 2−47- интерфейсная часть;
• 48−50- исполняемая часть;
• 51−55- процедура обновление БД;
• 56−65- процедура установить связь с БД;
• 66−90- добавление данных в таблицу «Vrachi»;
• 91−124- изменение данных в таблице «Vrachi»;
• 125−154- удаление данных из таблицы «Vrachi»;
• 155−173- изменяем состояние полей редактирования;
• 174−184- ссылки на другие формы;

Unit4

• 1-имя Unit4;
• 2−35- интерфейсная часть;
• 36−38- исполняемая часть;
• 39−43- процедура обновление БД;
• 44−53- процедура установить связь с БД;
• 54−73 -добавление данных в таблицу «Отделение»;
• 74−97- изменение данных в таблице «Отделение»;
• 98−113- удаление данных из таблицы «Отделение»;
• 114−128- изменяем состояние полей редактирования;

Unit5

• 1-имя Unit5;
• 2−38- интерфейсная часть;
• 38−41- исполняемая часть;
• 42−46-процедура обновление БД;
• 47−56- процедура установить связь с БД;
• 57−78- добавление данных в таблицу «Больничный»;
• 79−112- изменение данных в таблице «Больничный»;
• 113−136- удаление данных из таблицы «Больничный»;
• 137−152- изменяем состояние полей редактирования;
• 153−158- ссылки на другие формы;

Unit6

• 1-имя Unit6;
• 2−50- интерфейсная часть;
• 51−53- исполняемая часть;
• 54−58 -процедура обновление БД;
• 59−68 -процедура установить связь с БД;
• 69−93- добавление данных в таблицу «Обращения»;
• 94−132- изменение данных в таблице «Обращения»;
• 133−160- удаление данных из таблицы «Обращения»;
• 161−179- изменяем состояние полей редактирования;
• 180−193- ссылки на другие формы;

Unit7

• 1-имя Unit7;
• 2−39- интерфейсная часть;
• 40−42- исполняемая часть;
• 43−47- процедура обновление БД;
• 48−57- процедура установить связь с БД;
• 58−77- добавление данных в таблицу «Пациенты»;
• 78−105- изменение данных в таблице «Пациенты»;
• 106−125- удаление данных из таблицы «Пациенты»;
• 126−139- изменяем состояние полей редактирования;
• 140−144- процедура кнопки печать;

Unit8

• 1-имя Unit8;
• 2−41- интерфейсная часть;
• 42−44- исполняемая часть;
• 45−48- процедура при нажатии вкладку «Регистратура» открывается Form10, в котором запрашивается логин и пароль регистратора;
• 49−52- процедура при нажатии вкладку «Врачи» открывается Form12, в котором запрашивается логин и пароль врача;
• 53−56- процедура при нажатии вкладку «Лаборант» открывается Form33, в котором запрашивается логин и пароль лаборанта;
• 57−60- процедура при нажатие кнопки выход запрашивает о подтверждении выхода;
• 61−65- ссылка на Form40, в которой содержатся списки порядка действия для врачей;
• 66−68- ссылки на Form41, в которой содержатся списки порядка действия для регистратора;
• 69−72- ссылки на Form42, в которой содержатся списки порядка действия для лаборанта;
• 73−76- ссылки на Form43, в которой содержатся сведение о разработчиках информационной системы;
• 77−80- ссылки на Form44, в которой содержатся сведение о разработчиках информационной системы;
• 81−90- процедура бегущей строки;

Unit9

• 1-имя Unit9;
• 2−25- интерфейсная часть;
• 26−28- исполняемая часть;
• 29−32- ссылка на Form1;
• 33−37 -процедура подтверждений выхода;
• 38−41- ссылка на Form3;
• 42−55- процедура бегущей строки;

Unit10

• 1-имя Unit10;
• 2−20- интерфейсная часть;
• 21−23- исполняемая часть;
• 24−38- процедура защищенного входа;
• 39−44- процедура активности Form8;

Unit11

• 1-имя Unit11;
• 2−34- интерфейсная часть;
• 35−38- исполняемая часть;
• 39−42- ссылка на Form25;
• 43−46- ссылка на Form30;
• 47−50 -ссылка на Form6;
• 51−66- ссылка на Form31,32;
• 67−76- процедура подтверждений выхода;

Unit12

• 1-имя Unit12;
• 2−20- интерфейсная часть;
• 21−23- исполняемая часть;
• 24−37 — процедура защищенного входа;
• 38−43- процедура активности Form8;

Unit15

• 1-имя Unit15;
• 2−20- интерфейсная часть;
• 21−23- исполняемая часть;
• 24−30- формирует поиск по личному № врача;
• 40−49- ссылка на формы;

Unit21

• 1-имя Unit21;
• 2−18- интерфейсная часть;
• 19−21- исполняемая часть;
• 22−34- формирует поиск по специализации врача;
• 45−40- ссылка на формы;

Unit23

• 1-имя Unit23;
• 2−22 -интерфейсная часть;
• 23−25- исполняемая часть;
• 26−39- формирует поиск по фамилии пациента;
• 40−42- печатать отчет по запросу;
• 43−48- ссылка на формы;

Unit19

• 1-имя Unit29;
• 2−21 -интерфейсная часть;
• 22−24- исполняемая часть;
• 25−37- формирует поиск по фамилии врача;
• 38−42- обновляет БД;
• 40−43- печатать отчет по запросу;
• 44−49- ссылка на формы;

Unit31

• 1-имя;
• 2−21- интерфейсная часть;
• 22−24- исполняемая часть;
• 25−45- формирует поиск по процедурам;
• 46−51- ссылка на формы;

Используемые технические средства

Для создания БД использовался ноутбук Aspire 5630−6288 Inter ® DualCore2 DUO processor T5500 |2.8 GHz| ОЗУ 2Гб|. Печать созданной работы была произведена на принетре HP LaserJet 1018.

Вызов и загрузка

Для вызова программы необходимо запустить Delphi 7. В меню File надо выбрать Open Project, затем указать путь. Для компиляции программы нажать F9 или на вкладке Run>Run соответственно.

Входные данные

Входными данными являются таблицы Пациент, Врачи, Обращение, Болезни, Отделения, Приемы, Процедуры, Анализы.

Выходные данные

При помощи различных процедур формируются просмотры и изменения. Все варианты сформулированных просмотров и изменении представлены в Приложении Б.