2020-01-14
78
Для работы данной программой необходимо создать проект, который будет обеспечивать интерфейс пользователя (рисунок 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 | Появление формы с паролем | ||
Таблица 1. Основные процедуры и функции
