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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 116-
end;
end;
{*********** обработчик нажа ти я кнопки " До бав и ть " ***********}
{******** Вызывается форма элемента из dlglib01.dll *********}
procedure TflGroups.btnAddClick(Sender:TObject);
type
TCreateElemDlg=procedure(Handle: THandle; pipointer);
TSetElemConnection=procedure(const DBHandle:HDBIDB);
TShowElemDlg=procedure(const DlgMode:boolean);
var
hLib:THandle;
CreateElemDlg: TCreateElemDlg;
SetElemConnection: TSetElemConnection;
ShowElemDlg: TShowElemDlg;
PGroups: TGroups;
begin
hLib:=LoadLibrary('DLGLIB01.DLL');
if hLib < 32 then
begin
ShowMessage('Отсутствует библиотека');
Exit;
end;
CreateElemDlg:=TcreateElemDlg(GetProcAddress(hLib,
'CREATEELEMDLL'));
SetElemConnection:=TsetElemConnection(GetProcAddress
(hlib, 'SETELEMCONNECTION'));
ShowElemDlg:=TshowElemDlg(GetProcAddress
(hlib, 'SHOWELEMDLG'));
PGroups:=TGroups.Create;
CreateElemDlg(Application.Handle,PGroups);
SetElemConnection(DataBasel.Handle);
ShowElemDlg(true);
If PGroups.changed then LoadList;
FreeLibrary(hlib);
end;
(*********** обработчик нажа ти я кнопки " Свойства" ***********}
{******** вызывается фор ма элемента из dlglib01.dll *********}
procedure TflGroups.btnPropClick(Sender:TObject);
type
TCreateElemDlg=procedure(Handle: THandle; p: pointer);
TSetEleraConnection=procedure(const DBHandle: HDBIDB);
TShowElemDlg=procedure(const DlgMode: boolean);
var
hLib: THandle;
CreateElemDlg: TCreateElemDlg;
SetElemConnection: TSetElemConnection;
ShowElemDlg: TShowElemDlg;
PGroups: TGroups;
begin
hLib:=LoadLibrary('DLGLIB01.DLL');
if hLib < 32 then

Страницы