2.2. Описание интерфейса приложения.

Для обозначения полей используется Label

lbl_fio: TLabel; // ФИО пациента

lbl_age: TLabel; // возраст пациента

lbl_address: TLabel; // адрес пациента

lbl_doctor: TLabel; //ФИО лечащего доктора

lbl_group: TLabel; // группа инвалидности

lbl_ill: TLabel; // заболевание

lbl_srok: TLabel; // срок инвалидности (в формате даты)

lbl_comp: TLabel; // страховая компания

lbl_reg: TLabel; // дата регистрации в страховой компании (в формате даты)

lbl_dog: TLabel; // дата окончания договора со страховой компанией (в формате даты)

• Для ввода необходимых данных предусмотрены поля ввода

• Для заполнения списка:

edt_fio: TEdit; // ФИО пациента

edt_age: TEdit; // возраст пациента

edt_address: TEdit; // адрес пациента

edt_doctor: TEdit; // ФИО лечащего доктора

edt_group: TEdit; // группа инвалидности

edt_ill: TEdit; // заболевание

edt_srok: TEdit; // срок инвалидности (в формате даты)

edt_comp: TEdit; // страховая компания

edt_reg: TEdit; // дата регистрации в страховой компании (в формате даты)

edt_dog: TEdit; // дата окончания договора со страховой компанией (в формате даты)

• Для отбора по критериям:

edt_kr_doc: TEdit; // ввод искомого доктора

edt_kr_group: TEdit; // ввод искомой группы инвалидности

edt_kr_ill: TEdit; // ввод искомого заболевания

edt_kr_comp: TEdit; // ввод искомой страховой компании

• Операции выполняются с помощью кнопок Button:

• Для заполнения списка и работы с файлом

btnNew: TButton; // Новый файл

btn2: TButton; // Сохранить

btn3: TButton; // Открыть файл

btnAdd_s: TButton; // Добавить

btnInsert_s: TButton; //Вставить

btnDelete_s: TButton; //Удалить

btnBrowse_s: TButton; //Просмотр

btnFirst_s: TSpeedButton; //Первый элемент списка

btnPrevious_s: TSpeedButton; // Предыдущий элемент списка

btnNext_s: TSpeedButton; // Следующий элемент списка

btnLast_s: TSpeedButton; // Последний элемент списка

btn_clear: TButton; // Очистить поля ввода

• Для отбора по критериям:

btn_kr_doc: TButton; // отбор по доктору

btn_kr_group: TButton; // отбор по группе инвалидности

btn_kr_ill: TButton; // отбор по заболеванию

btn_kr_comp: TButton; // отбор по страховой компании

btn_kr_dog: TButton; // отбор по сроку договора

btn_kr_srok: TButton; // отбор по сроку инвалидности

• Для вывода данных используется ListBox

lst1: ListBox

• Для выбора нужного документа для сохранения или загрузки используются инструменты OpenDialog и SaveDialog:

SaveDialog1: TSaveDialog; //Для сохранения

OpenDialog1: TOpenDialog; //Для загрузки

2.3. Описание процедур.

procedure ButtonAddClick – процедура для добавления записей

procedure CIRec – процедура очистки полей ввода;

procedure Showw – процедура, которая помогает показать текущий элемент списка;

procedure SWrec – процедура, сохраняющая изменения в списке после добавления новых записей;

procedure TForm1.rg1Click – процедура вариантной части, которая отмечает, какие поля ввода должны быть включены для определенного варианта;

procedure TForm1.btnAdd_sClick – процедура добавления в список новой записи в конец списка;

procedure TForm1.btnInsert_sClick – процедура вставки в список новой записи после текущей записи;

procedure TForm1.btnDelete_sClick – процедура удаления текущей записи из списка;

procedure TForm1.btnBrowse_sClick – процедура вывода на ListBox текущей базы данных;

procedure TForm1.btnFirst_sClick – процедура для перехода к первому элементу списка;

procedure TForm1.btnLast_sClick – процедура для перехода к последнему элементу списка;

procedure TForm1.btnPrevious_sClick – процедура для перехода к предыдущему элементу списка;

procedure TForm1.btnNext_sClick – процедура для перехода к следующему элементу списка;

procedure TForm1.btnNewClick – процедура создания нового файла для записи;

procedure TForm1.btn2Click – процедура сохранения файла;

procedure TForm1.btn3Click – процедура открытия файла;

procedure TForm1.btn_kr_docClick – процедура для отбора и вывода на экран пациентов с одинаковым доктором;

procedure TForm1.btn_kr_groupClick - процедура для отбора и вывода на экран пациентов с одинаковой группой инвалидности;

procedure TForm1.btn_kr_illClick - процедура для отбора и вывода на экран пациентов с одинаковым заболеванием;

procedure TForm1.btn_kr_compClick - процедура для отбора и вывода на экран пациентов с одинаковой страховой компанией;

procedure TForm1.btn_kr_dogClick – процедура для отбора и вывода на экран пациентов с истекшим сроком регистрации в страховой компании;

procedure TForm1.btn_kr_srokClick - процедура для отбора и вывода на экран пациентов с истекшим сроком инвалидности;

procedure TForm1.btn_clearClick – процедура очистки ввода полей.