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

UptoLike

ВУЗ: 

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

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

Рубрика: 

ueG
ucGroups in '..\common\ucGroups.pas',
{$R *.res}
exports
CreateElemDlg name 'CREATEELEMDLG',
SetElemConnection name 'SETELEMCONNECTION',
ShowElemDlg name 'SHOWELEMDLG';
begin
end.
Обра тите внимание, что в директиве uses имя - ссылка на модуль BDE - это
необходимо для того, чтобы был виден тип HDBIDB. Откомпилируйте и по-
стройте dlglibOl.dll.
3.4.3.4. СОЗДАНИЕ ПРОЕКТА dlglib02
В клиентском приложении созданная форма элемента будет вызываться из
формы списка. При нажатии на кнопку «Добавить...» она должна вызываться в
режиме вставки, а при нажатии на кнопку «Свойства...» - в режиме редактиро-
вания. Теперь создадим форму списка для объекта «Группы».
1. Создайте в группе новый проект - DLL и сохраните его в отдельном
каталоге course\dlglib02 ПОД именем dlglib02 . dpr.
Установите в свойствах проекта главный каталог course в качестве
выходного каталога (диалог «Options», на страничке
«Directories/Conditionals» параметр «Output Directory»).
3.4.3.5. СОЗДАНИЕ ФОРМЫ СПИСКА
1. Добавьте к проекту dlglib02 новую форму, воспользовавшись помещен-
ной в репозитарий формой «Базовая форма списка» и нажмите «ОК». Для это-
го выберите пункт меню «File\New\other. . .», а затем в окне «New item» на
странице «Forms» укажите значок «Базовая форма списка» и нажмите на
кнопку «ок». Внешн ий вид формы списка практически готов, следует изменить
только имя формы и заголовок окна Caption (табл. 20).
- 105-
БД. В случае ошибки выдается сообщение «Ошибка при внесении элемента
в БД».
Если DlgMode=false, то перед вызовом диалогового окна, оно заполняется
данными при помощи функции GetElement. Далее в зависимости от нажатой
кнопки производится изменение данных.
Экспортируемые функции должны быть описаны в модуле проекта DLL,
поэтому добавьте в файл dlglibOl.dpr раздел exports. Файл проекта должен
выглядеть следующим образом:
library dlglibOl;
USES
SysUtils,
Classes,
ueGroup s in ' ueGroup s . p as ' { feGroup s } ;
ucGroup s in
'
..
\
common
\
ucGroups.pas
'
,

Страницы