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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 118-
3.4.3.6. ОРГАНИЗАЦИЯ ВЫЗОВА ФОРМ Ы СПИСКА в ГЛАВНОМ МОДУЛЕ
Нам осталось создать вызов формы стшска «Группы» в главном модуле
main. Пер ейд ите в проект main и создайте обработчик пункта меню «Учебные
курсы\Группы»:
procedure TfMain.NlOClick(Sender: TObject);
type
TCreateListDlg=procedure(Handle: THandle; p:pointer);
TSetListConnection=procedure(const DBHandle:HDBIDB);
TShowListDlg=procedure;
var
nLj_D : 1 Handle ;
CreateListDlg: TCreateListDlg;
SetListConnection: ТSetListConnection;
ShowListDlg: TShowListDlg;
begin
hLib:=LoadLibrary('DLGLIB02.DLL') ;
if hLib < 32 then
begin
ShowMessage ( ' Отсутствует библиотека DLGLIB0 2 . DLL ' ) ;
Exit;
end;
CreateListDlg:=TCreateListDlg(GetProcAddress
(hLib, 'CREATELISTDLL'));
SetListConnection:=TSetListConnection(GetProcAddress
(hlib, 'SETLISTCONNECTION'));
ShowList Dlg:=T showList Dlg(GetProcAddress
(hlib,'SHOWLISTDLG'));
CreateListDlg(Application.Handle, nil);
SetListConnection(fDM.GetSessionHandle) ;
ShowListDlg/// (true);
FreeLibrary(hlib);
end;
Откомпилируйте проект main и запустите программу. Подключитесь к
БД и выберите пункт меню «Учебные курсы\Группы». Попробуйте
выполнить операции вставки, удаления и изменения данных.
Дерево проектной группы к данному моменту содержит четыре проекта
(рис. 68).
3.4.3.7. ОБЩАЯ СХЕМА ВЫЗО ВА ФОРМ СПИСКА и ЭЛЕМЕНТА
Схема создания дилогового окна Группы аналогична схеме создания
входного диалога, но отличается наличием каскадного вызова DLL-
библиотеки, т. е. DLL-библиотека вызывается из другой DLL-библиотеки.
Ниже приведем схематическое описание работы приложения при выборе
пункта меню «Учебный процесс/Группы...»:
• запуск приложения;
• после выбора пункта меню «Учебный процесс/Группы...»:

Страницы