ВУЗ:
Составители:
Рубрика:
-93-
меню «Remove From Project» и подтвердите удаление. Файл этой формы со-
хранен в каталоге проекта Common и будет использоваться при создании новых
форм на ее ос нове.
Точно также следует создать и базовую форму списка, от которой будут
наследоваться все такие диалоговые окна.
1. Добавьте в проект main новую форму.
2. Ус тановите на нее четыре кнопки и компоненты - список TListBox, а так-
же TDataSource, TDataBase, TStoredProc, как это было сделано выше.
Табл. 15. Значения свойств компонентов, размещенных на форме fBaseElemForm
Компонента Свойство
Значение
Forml
BorderStyle
Name
BsDialog
FBaseListForm
Button 1
Caption
Name
«Добавить»
btnAdd
Button2
Caption
Name
«Свойства»
btnProp
Button3
Caption
Name
«Удалить»
btnDelete
Button4
Caption
Name
«Выход»
btnOK
DataSourcel DataSet Queryl
DataBase 1 DatabaseName TEACHER
StoredProcl DatabaseName TEACHER
Queryl DatabaseName TEACHER
3. Кроме того, вставьте дополнительно компонент TQuery (рис. 64 и табл.
15).
4. Сохраните модуль в подкаталоге COURSE/Common как uBaseListForm.
5. По аналогии с предыдущей формой поместите форму в репозитарий и
удалите его из проекта.
Теперь все готово для создания диалогового окна. Как мы договорились,
каждый диалог будет храниться в отдельной библиотеке DLL. Для каждого
объекта будет создан программный класс, описание которого должно
помещаться в отдельном модуле, хранящемся в каталоге Common. Кроме
того, мы создадим форму элемента и форму списка для каждого из объектов.
Имена объектов и имена форм и модулей приведены в табл. 16. В ней
приняты следующие соглашения для именования форм и модулей:
• DLL и каталог проекта, в котором она создается, будем именовать dlglib<N
проектах Например, dlglib0l, dlglib02, dlglib03, ... ;
• имя модуля класса будет начинаться с символов uc - от слов unit и class;
• имя модуля элемента начинается на ue, а модуля формы списка ul;
• имя формы элемента начинается на fе, а формы списка на fl.
Страницы
- « первая
- ‹ предыдущая
- …
- 91
- 92
- 93
- 94
- 95
- …
- следующая ›
- последняя »