Автоматизированное средство учета госпитализированных больных
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
боты модуля UPacientCardCab);
Uhospital (предоставляет удобный доступ к информации о фактах госпитализации пациентов поликлиники);
DBHospital (содержит набор компонентов, связанных с процедурами и функциями БД, необходимых для работы модулей Uhospital, UhospitalSelect);
UhospitalSelect (позволяет добавлять и редактировать данные в журнале госпитализации);
UhospitalDiag (позволяет осуществить удобный ввод диагноза согласно кодировке МКБ-10 и характера заболевания);
UMKB (предоставляет список заболеваний по МКБ-10);
UhospRepZabol (позволяет создавать отчеты о числе заболеваний, зарегистрированных в стационарах);
UhospQuery (обрабатывает запросы пользователя к БД);
Uwait ();
UMKBInputFrame;
UperiodFrame.
Наиболее важными модулями являются: UpacientCardCab, Uhospital, UhospitalSelect, UrepZabol, UhospQuery.
В модуле UpacientCardCab содержится описание класса Tf_PacientCardCabinet. Форма данного модуля содержит поля-критерии поиска, кнопку поиска и таблицу, в которую выводится информация о пациентах, зарегистрированных в учреждении. Ниже перечислены наиболее значительные для работы модуля процедуры и функции:
procedure FormCreate(Sender: TObject); //создает объект класса Tf_PacientCardCabinet и TDMPacientCardCab, описание которого содержится в модуле DBPacietnCardCab;
function GetPacient(var Pacient_id:int64):TmodalResult; //функция вывода формы выбора пациента, выходной параметр Pacient_id ? идентификатор выбранного пациента;
procedure btn_FindPacientClick(Sender: TObject); //реагирует на нажатие кнопки Поиск, проверяет корректность введенных параметров поиска, запускает поиск, после осуществления поиска очищает поля ввода данных;
procedure FillParams; //заполняет параметры хранимой процедуры БД pacient_inf_search значениями из полей ввода данных;
procedure Tf_PacientCardCabinet.Search; //после заполнения параметров запускает хранимую процедуру БД pacient_inf_search, выводит результаты поиска;
procedure Tf_PacientCardCabinet.SelectPacient; //записывает в поле pacient_id рассматриваемого класса значение идентификатора пациента, выбранного из списка пациентов, сформированного по критериям поиска, создает объект класса TfHospital.
В модуле Uhospital содержится описание класса TfHospital. Форма модуля содержит поле, в котором отображается информация из картотеки о выбранном пациенте, таблицу, содержащую информацию о случаях госпитализации пациента, две таблицы, в которых отображаются поставленные пациенту диагнозы по каждому случаю госпитализации, и кнопки Новый, Изменить, Удалить. Ниже перечислены наиболее значительные для работы модуля процедуры и функции:
procedure FormCreate(Sender: TObject); //создает объект класса TDMHospital;
procedure btn_deleteClick(Sender: TObject); //реагирует на нажатие кнопки Удалить, заполняет параметры и выполняет хранимую процедуру БД pacient_hosp_delete;
procedure btn_newClick(Sender: TObject); // реагирует на нажатие кнопки Новый, создает пустую запись в таблице БД pacient_hosp, вызывает функцию HospitalSelectShow модуля UhospitalSelect и передает ей идентификатор созданной пустой записи в таблице;
procedure TfHospital.btn_editClick(Sender: TObject); //реагирует на нажатие кнопки Изменить, вызывает функцию HospitalSelectShow модуля UhospitalSelect и передает ей идентификатор выбранного случая госпитализации;
procedure TfHospital.btn_searchClick(Sender: TObject); //возвращает к списку пациентов.
В модуле UhospitalSelect содержится описание класса TfHospitalSelect. Форма модуля содержит поля, необходимые для регистрации случая госпитализации, таблицу, в которой отображаются уже поставленные диагнозы, и кнопки Сохранить, Добавить, Отмена, Удалить, Изменить, Диагноз (Код МКБ-10). Ниже перечислены наиболее значительные для работы модуля процедуры и функции:
function HospitalSelectShow(pac_id:Int64; hosp_id:integer; typ:Integer):integer; //создает объект класса TfHospitalSelect, присваивает его полям значения, передаваемые из модуля Uhospital;
procedure TfHospitalSelect.FormShow(Sender: TObject); //открывает процедуры БД, необходимые для заполнения компонентов формы, вызывает процедуры DiagnozSelect, FillComponents, EnableButtons (регулирует доступность компонентов на форме);
procedure TfHospitalSelect.DiagnozSelect; //вызывает процедуру БД pacient_hosp_diag_select, передавая ей параметр @hosp_id, необходимую для отображения поставленных диагнозов во течение времени нахождения в стационаре по данному случаю госпитализации пациента;
procedure TfHospitalSelect.FillComponents; //заполняет компоненты формы значениями из БД по выбранному факту госпитализации;
procedure btn_saveClick(Sender: TObject); //реагирует на нажатие кнопкки Сохранить, проверяет на корректность введенные параметры, заполняет и выполняет хранимую процедуру БД pacient_hosp_update;
procedure TfHospitalSelect.btn_DiagDelClick(Sender: TObject); //реагирует на нажатие кнопки Удалить, удаляет выбранный диагноз из списка поставленных диагнозов;
procedure TfHospitalSelect.btn_cancelClick(Sender: TObject); //реагирует на нажатие кнопки Отмена, не сохраняет изменений и удаляет пустую запись из таблицы БД pacietn_hosp, если она была создана.
Описание применения
Для того, чтобы начать пользоваться программой, нужно щелкнуть по ее ярлыку или исполняющему файлу Hospital.exe. После этого будет открыта главная форма программы, отображающая главное меню программы (рисунок 4.1).
Рисунок 4.1 - Главная форма программы
При переходе в пункт главного меню Журнал отображается электронная картотека пациентов, зарегистрированных в амбулаторно-поликлиническом учреждении здравоохранения (рисунок 4.2).
Рисунок 4.2 - Картотека пациентов
В верхней части формы расположен переключатель, отвечающий за способ поиска. Поиск может осуществляться по адресу, ФИО или по персональному номеру пациентов. Для внесения критериев поиска необходимо выбрать из предст?/p>