Описание внутренних алгоритмов обработки данных в модуле

Входные параметры модуля.

Для корректного использования модуля «Электронная медицинская карта» необходимы следующие данные:

· ФИО пациента;

· контактные данные пациента;

· бумажный или иной носитель, содержащий информацию о перенесенных заболеваниях пациента.

Запуск модуля активирует главную форму модуля «Электронная медицинская карта». При активации формы выполняется следующий код:

procedure TKart.FormActivate(Sender: TObject);

begin

ADOQuery1.SQL.Text:='execute spSelectPacient';

ADOQuery1.Active:=true;

ADOQuery1.ExecSQL;

end;

Код означает следующее: в свойство SQL элемента ADOQuery1 добавляется команда выполнения хранимой на сервере процедуры. Следующая команда присваивает свойству Active элемента ADOQuery значение true, т.е. включает этот элемент. Команда ExecSQL является одной из форм выполнения запроса через элементы Delphi.

Ниже представлен код хранимой процедуры spSelectPacient:

CREATE PROCEDURE spSelectPacient

AS

BEGIN

select * from Pacient

END

GO

Здесь происходит выбор (select) всех (*) значений из (from) таблицы Pacient.

После активации происходит создание формы, что приводит к выполнению следующего кода:

procedure TKart.FormCreate(Sender: TObject);

begin

ADOQuery1.SQL.Text:='execute spSelectPacient';

ADOQuery1.Active:=true;

ADOQuery1.ExecSQL;

end;

Код означает следующее: происходит тот же процесс, что и при активации формы. Это было сделано для того, чтобы данные при активации и создании формы обновлялись. Код хранимой процедуры аналогичен.

На выходе получим следующее окно, представляющее данный модуль:

Дата добавления: 2014-12-07