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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 110-
begin
end.
Обра тите внимание, что в директиве uses имя - ссылка на модуль BDE - это
необходимо для того, чтобы был виден тип HDBIDB. Откомпилируйте и по-
стройте dlglib02.dll.
Вызов функции осуществляется в обработчике кнопки «Удалить», который
следует создать:
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));
end;
end;
Для добавления и изменения данных наступило время воспользоваться
уже готовой dlglibOl. dll.
procedure TflGroups.btnAddClick(Sender:TObject);
type
TCreateElemDlg=procedure(Handle: THandle; p:pointer);
TSetElemConnection=procedure(const DBHandle:HDBIDB);
TShowElemDlg=procedure(const DlgMode:boolean);
var
hLib:THandle;
CreateElemDlg: TCreateElemDlg;
SetElemConnection: ТSetListConnection;
ShowElemDlg: TShowListDlg;
PGroups: TGroups;
begin
hLib:=LoadLibrary('DLGLIB01.DLL');
if h Lib < 32 then
begin
ShowMessage('Отсутствует библиотека');
Exit;
end;
CreateElemDlg:=TcreateElemDlg(GetProcAddress(hLib,
'CREATEELEMDLL'));
SetElemConnection:=TsetElemConnection(GetProcAddress
(hlib, 'SETELEMCONNECTION'));
ShowElemDlg:=TshowElemDlg(GetProcAddress
(hlib, 'SHOW ELEMDLG'));
PGroups:=TGroups.Create;
CreateElemDlg(Application.Handle,PGroups);

Страницы