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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 117-
begin
Show-Message ( ' Отсутствует библиотека ' ) ;
Exit;
end;
CreateElemDlg:=TCreateElemDlg(GetProcAddress(hLib,
1
CREATEELEMDLL'));
SetElemConnection:=TSetElemConnection(GetProcAddress(
hlib, 'SETELEMCONNECTION'));
ShowElemDlg:=TShowElemDlg(GetProcAddress(hlib,
'SHOWELEMDLG'));
{создаем объект для передачи данных в форму элемента}
PGroups:=TGroups.Create;
with PGroups
do begin
{в объект вносятся данные из списка - наименование и код}
kod_group :=integer (ListBoxl. Items '.Objects
[ListBoxl.Itemlndex]);
name_group:=ListBoxl.Items[ListBoxl.Itemlndex];
kol_students:=integer(ListBoxl.Items.Obj ects
[ListBoxl.Itemlndex]);
sredniy_ball:=integer(ListBoxl.Items.Obj ects
[ListBoxl.Itemlndex]);
end;
CreateElemDlg(Application.Handle,PGroups);
SetElemConnection (DataBasel.Handle);
ShowElemDlg(false);
if PGroups.changed then LoadList;
FreeLibrary(hLib);
end;
(************* обработчик нажатия кнопки " Выход" ************}
procedure TflGroups.btnExitClick(Sender:TObject);
begin
if Lis t Bo xl.It emln d e x <> -1 t h en
begin
if assigned (Groups) then
with Groups
do begin
kod_group:=integer(ListBoxl.Items.Objects
[ListBoxl.Itemlndex]);
name_group:=ListBoxl.Items
[ListBoxl.Itemlndex];
kol_students:=integer(ListBoxl.Items.Objects
[ListBoxl.Itemlndex]);
sredniy_ball:=integer(ListBoxl.Items.Objects
[ListBoxl.Itemlndex]);
end;
end;
end;
end.
Скомпилируйте и постройте оболочку dlglib02.dll.

Страницы