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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 115-
except
result : =false;
end;
end;
/ *********************************************************** i
{ Процедуры, вызываемые из DLL другими мод ул ями }
i***********************************************************i
{ ******** Процедура создания диалогового окна ************}
procedure CreateListDlg (Handle: Thandle; p: pointer);
begin
Application . Handle : =Handle;
fl Groups : =TflGroups .Create (Application) ;
if assigned(p) then
flGro u ps . Gro ups : =TGro ups (p ) ;
end;
I****************** процедура подключения к БД ************)
procedure SetListConnection (const DBHandle : HDBIDB) ;
begin
flGroups . Databasel . Handle : =DBHandle;
end;
{******* Про це дур а загрузки и выгрузки фор мы списка ********}
procedure ShowListDlg;
begin
with flGroups do
begin
if LoadLis t then
begin
ShowModal ;
flGroups . Free;
end;
end;
end;
I***********************************************************!
{ Обработчики наж а ти й кнопок }
{ Обработчики наж а ти й кнопок }
!* **********************************************************}
{*********** обработчик наж а ти я кнопки " Удалить" ***********}
procedure TflGroups.btnDeleteClick(Sender:TObject);
begin
if Application.MessageBox('Удалить группу из базы?',
'Учебные курсы', MB_ICONQUESTION+MB__YESNO) =IDYES
then
begin
if not DelElement then
ShowMessage('Ошибка при удалении записи из БД. Ко д:'
+IntToStr(Groups.kod_group));

Страницы