Функции элементов окна добавления данных о пациенте.

Описание окна добавления данных о пациенте.

Форма содержит следующие элементы:

o 11 элементов редактирования (Edit);

o 11 элементов вывода информации (Label);

o 1 кнопка (Button) «Добавить», при нажатии на которую происходит добавление данных в таблицу.

Кнопка «Добавить». Выполняет команду на добавление информации в базу данных. Для этой цели используются данные, введенные в свойства Text элементов Edit1, Edit2, Edit3, …, Edit11. Ниже приведен код, выполняющийся при нажатии на кнопку:

procedure TInsertPacient.Button1Click(Sender: TObject);

begin

Kart.ADOQuery1.SQL.Text:='execute spInsertPacient '''+Edit1.Text+''', '''+Edit2.Text+''', '''+Edit3.Text+''', '''+Edit4.Text+''', '''+Edit5.Text+''', '''+Edit6.Text+''', '''+Edit7.Text+''', '''+Edit8.Text+''', '''+Edit9.Text+''', '''+Edit10.Text+''', '''+Edit11.Text+''' ';

Kart.ADOQuery1.ExecSQL;

InsertPacient.Hide;

Kart.Show;

end;

Код означает следующее: при нажатии на кнопку в свойство SQL элемента ADOQuery1, находящегося на форме Kart, записывается текст команды. После записи выполняется записанная команда. После всех действий окно добавления скрывается (Hide), а главное окно модуля открывается (Show). В команде используется хранимая на сервере процедура spInsertPacient, код которой приведен ниже:

ALTER PROCEDURE [dbo].[spInsertPacient]

@sur varchar(15),

@first varchar(15),

@last varchar(15),

@birth varchar(12),

@addr varchar(50),

@dom varchar(7),

@sot varchar(11),

@polis nchar(7),

@strah nchar(14),

@inn nchar(12),

@diag varchar(1)

AS

BEGIN

insert into Pacient (surName, firstName, lastName, Birthday, [Address], ContactDom, ContactSot, Polis, StrahSvid, INN, idDiagnoz)

VALUES (@sur, @first, @last, @birth, @addr, @dom, @sot, @polis, @strah, @inn, @diag)

END

В процедуре производится добавление (insert) в (into) таблицу Pacient значений (values), соответствующих каждому столбцу. Например, в столбец surName добавляется значение переменной @sur, а в столбец [Address] добавляется значение переменной @addr. Данные, содержащиеся в переменных присваиваются им из свойства Text элементов редактирования Edit1, Edit2, Edit3, …, Edit11.

Возвращаемся на главную форму модуля «Электронная медицинская карта».

Кнопка «Удалить данные». Выполняет команду на удаление данных из таблицы на основании определенного критерия. Код кнопки представлен ниже:

procedure TKart.Button4Click(Sender: TObject);

begin

DelPacient.Show;

end;

Код означает следующее: при нажатии на кнопку открывается (Show) форма DelPacient. Форма приведена ниже: