Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 104 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

- 104-
procedure CreateElemDlg (Handle: Thandle; p: pointer);
begin
Application.Handle:=Handle;
feGroups:=TfeGroups.Create(Application);
if assigned(p) then feGroups.Groups:=TGroups(p);
end;
procedure SetElemConnection(const DBHandle: HDBIDB);
begin
feGroups.Databasel.Handle:=DBHandle;
end;
Рассмотрим подробнее процедуру showElemDlg:
procedure ShowElemDlg (const DlgMode:boolean);
begin
with feGroups do
begin
if DlgMode then
begin {диалог вызван для вставки элемента}
Editl.Text:='';
ShowModal;
if modalResult = mrOK then
if not InsElement then
ShowMessage ('Ошибка при внесении элемента в БД');
end
else
begin
if GetElement then
begin
ShowModal;
if ModalResult=mrOK then
begin
if not UpdElement then
ShowMessage('Ошибка при изм енении элемента в БД.
Kod:'+IntToStr (Groups.equip_type_id));
end;
end
else
ShowMessage ('Ошибка при извлечении элемента из БД.
Kod:'+ IntToStr(Groups.equip_type_id));
end;
Free ;
end;
end;
В зависимости от значения, переданного в параметре DlgMode, данная
функция выполняет ввод или редактирование данных.
Если DlgMode=true, выполняется ввод нового элемента. Перед вызовом
диалогового окна на экран поле Edit l очищается. Затем вызывается окно диа-
лога и, ес ли была нажата кнопка ок, производится попытка внести элемент в

Страницы