.....На данном уроке мы научимся организации сквозного поиска в базе данных объектов различного типа по шаблону ключевого атрибута и различным условиям по собственным атрибутам. Для этого будет создана специальная форма с управляющими стандартными компонентами среды Delphi и табличным компонентом TVLFindTableView.
Шаг 8.1 - Создание inherit формы для поиска объектов.
В главном меню среды Delphi выберите пункт File -> New -> Other... На экран будет загружено окно выбора нового типа объекта, как на рисунке 8.1. Перейдите на закладку PLMCommander (см. рис. 8.1).
Рис. 8.1.
На указанной закладке будут представлены формы, разработанные в приложении. Встаньте на форму fmMDIChild и нажмите кнопку OK. Будет создана новая форма на основе указанной. Новая форма польностью повторит все описанные в fmMDIChild свойства и методы и позволит Вам добавить новые. В окне инспектора свойств формы настройте указанные ниже свойства следующим образом:
TForm.
| Свойство |
Значение |
Комментарий |
| Caption |
Поиск деталей в базе данных |
Заголовок окна |
| Height |
480 |
Высота формы |
| Icon |
... |
Установить иконку из файла Detail.ico из папки ..\Tutorial\Icon каталога установки библиотеки |
| Name |
fmPCFindDetails |
Имя формы в модуле |
| Width |
480 |
Ширина формы |
Остальные свойства можно оставить без изменений. Сохраните форму в модуль с наименованием PCFindDetails. Не забудьте удалить вновь созданную форму из списка загружаемых форм при загрузке приложения (см. Урок 2 рис. 2.4).
Шаг 8.2 - Установка на форму визуальных компонентов.
Установите на форму стандартные визуальные компоненты системы Delphi (TEdit, TLabel, TSpeedButton, TCheckBox) так, как показано в верхней части рисунка 8.2.
Рис. 8.2.
Настройте в инспекторе свойств некоторые свойства указанных компонентов так, как представлено ниже:
| Свойство |
Значение |
Комментарий |
| TLabel |
| Caption |
Шифр: |
Надпись |
| Left |
8 |
Координата по горизонтали |
| Top |
8 |
Координата по вертикали |
| TEdit |
| Hint |
Шаблон поиска деталей в базе данных по шифру |
Контекстная подсказка |
| Left |
48 |
Координата по горизонтали |
| Name |
edShifr |
Наименование компонента |
| ShowHint |
True |
Включить режим отображения контекстной подсказки |
| Top |
8 |
Координата по вертикали |
| Width |
129 |
Ширина компонента |
| TSpeedButton |
| Glyph |
TBitMap |
Установить на кнопку изображение из файла FindBD.bmp из папки ..\Tutorial\Icon каталога установки библиотеки |
| Hint |
Поиск деталей в базе данных |
Контекстная подсказка |
| Left |
176 |
Координата по горизонтали |
| Name |
sbtFind |
Наименование компонента |
| ShowHint |
True |
Включить режим отображения контекстной подсказки |
| Top |
8 |
Координата по вертикали |
. Далее...
