Прикладное программное обеспечение

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

Рисунок 3.1 – Структура прикладного ПО

Таблица 3. Основные файлы программы

Файлы	Назначение
Unit2.pas	исходный файл с модулем для формы «Unit2»
UnitFilter.pas	исходный файл с модулем для формы «UnitFilter»
UnitGlavVrach.pas	исходный файл с модулем для формы «UnitGlavVrach»
UnitMedSestra.pas	исходный файл с модулем для формы «UnitMedSestra»
UnitPassword.pas	исходный файл с модулем для формы «UnitPassword»
ProjectHospital.dpr	исходный файл проекта
ProjectHospital.exe	автономный исполнимый файл, запускающий приложение

Модуль «Unit2» проекта «Больница» служит приветствием проекта. Модуль «UnitMedSestra» обеспечивает основную работу программы, «UnitFiter» обеспечивает поиск информации, «UnitGlavVrach» обеспечивает работу программы для врача и «UnitPassword» обеспечивает защиту информации.

Наименование процедуры (функции)	Краткое описание
Модуль «Unit2»
procedure TForm2.FormPaint	Закрашивание формы при запуске программы
Модуль «UnitMedSestra»
Procedure N1Click	Вызов формы с паролем
procedure mnFindClick	Вызов формы для поиска пациента
procedure tbPalataBeforeDelete	Каскадное удаление палаты при отсутствие в ней пациентов
procedure tbOtdelBeforeDelete	Каскадное удаление отделения, если все палаты пустые
procedure tbPalataAfterPost	После создания палаты создаем список пациентов в ней путем копирования из списка отделения
procedure tbPacientAfterPost	После добавления пациента в палату она на одного занимается
procedure tbOtdelAfterScroll	После выбора отделения обновляется поле списка для выбора палаты
procedure tbPalataBeforeDelete	Невозможно удалить палату при наличие в ней пациентов
procedure tbOtdelBeforeDelete	Невозможно удалить отделение пока все палаты не пустые
procedure tbPacientBeforeInsert	Блокируется добавление записи при вызове из сетки
procedure FormCanResize
procedure FormClose
procedure FormShow
Модуль «UnitFilter»
procedure btnFilterClick	Поиск пациента по дате
procedure btnFamilClick	Поиск пациента по фамилии
procedure FormShow
procedure FormCanResize
Модуль «UnitPassword»
procedure FormShow
procedure Timer1Timer	Появление формы с паролем