Подключение данных к визуальным компонентам
Теперь к размещенным не форме визуальным компонентам будем подключать данные. Так мы имеем дело с реляционной базой данных, в качестве данных могут выступать только результаты запросов к нашим таблицам.
Нам потребуются невизуальные компоненты IBQuery со вкладки Interbase и компонент IBSource со вкладки Data Access, которые мы будем размещать непосредственно на форме «Справочники» (FormRef). Для каждого справочника потребуется свой собственный запрос IBQuery, которые мы разместим на форме и дадим им осмысленные имена. Для имен будем использовать префиксы полей соответствующих таблиц базы данных, такой способ улучшает читаемость программы и уменьшает вероятность ошибки.
Так как нам потребуется редактирование справочников, с каждым компонентом запроса IBQuery нужно использовать компонент IBUpdateSQL. Разместим компоненты IBUpdateSQL рядом с сопряженными с ними компонентами доступа к данным и дадим им имена аналогично IBQuery.
Приведем полученные названия компонент
| Наименование справочника | Компонент доступа к данным (IBQuery) | Компонент модификации данных (IBUpdateSQL) |
| Аэропорт | IBQueryAP | IBUpdateSQLAP |
| Авиакомпания | IBQueryAС | IBUpdateSQLAС |
| Город | IBQueryСT | IBUpdateSQLCT |
| Роль члена экипажа | IBQueryRNC | IBUpdateSQLRNC |
| Тип Самолета | IBQueryPL | IBUpdateSQLPL |
| Тип Салона | IBQuerySL | IBUpdateSQLSL |
Кроме этих компонент на форме нужно разместить компонент источника данных DataSource (см. рис. 16)
Рисунок 16 Размещение компонент доступа к данным на форме
Теперь нужно настроить свойства у всех размещенных компонентов.
Для всех компонентов доступа данных IBQuery по очереди активизируем редактор свойств и редактируем следующие свойства (показываем на примере IBQueryAP):
1. Устанавливаем соединение с базой данных – компонентом TiBDatabase находящемся на форме DataModule. Для этого используют свойство Database
Database = DataModule1.IBDatabase
2. Задаем текст запроса. Для этого используется свойство SQL
SQL = 'select * from AIRPORT'
3. Для обеспечения возможности редактирования справочника все компоненты IBQuery должны быть связаны с соответствующими IBUpdateSQL (каждый со своим). Для этой связи используем свойство UpdateObject
UpdateObject = IBUpdateSQLAP
Покажем окно редактора свойств инспектора объектов для IBQueryAP (рис. 17).
Рисунок 17 Свойства IBQueryAP
Следующим шагом необходимо настроить все компоненты IBUpdateSQL, для этого нужно щелкнуть на соответствующем компоненте. В появившемся окне нужно выделить поля входящие в первичный ключ (для справочника AIRPORT это поле AP_CODE) и поля, которые пользователь желает редактировать. После этого нужно нажать на кнопку «Generate SQL», в результате будут сгенерированы запросы для модификации, вставки, удаления записи. Эти запросы можно увидеть на закладке SQL и при необходимости модифицировать их вручную (рис .18).
Рисунок 18 Настройка компонента IBUpdateSQLAP
Последним шагом настройки должно стать связывание визуальных компонент решетки и навигатора с компонентом представляющим источник данных TDataSource. Для этого у этих обоих визуальных компонентов нужно установить свойство DataSource
DataSource = DataSource1
Чтобы выстроить полную цепочку от компонентов доступа к данным до компонентов их отображения осталось связать компоненты IBQuery и DataSource. Так как нам нужно работать со всеми справочниками через одну и ту же решетку и использовать один навигатор, связь между каждым из IBQuery и DataSource будем осуществлять программным путем. Эта связь осуществляется путем присваивания свойству DataSet компонента DataSource ссылки на один из компонентов доступа к данных (IBQueryAP, IBQueryAС, IBQueryСT, IBQueryRNC, IBQueryPL, IBQuerySL).
Присваивание этой ссылки свяжем с событием OnClick для размещенной на форме группе зависимых переключателей (RadioGroup) , таким образом, выбор переключателя приведет к выполнению следующего кода.
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: DataSource.DataSet := IBQueryAP;
1: DataSource.DataSet := IBQueryAC;
2: DataSource.DataSet := IBQueryCT;
3: DataSource.DataSet := IBQueryRNC;
4: DataSource.DataSet := IBQueryPL;
5: DataSource.DataSet := IBQuerySL;
end;
DataSource.DataSet.Open; //открываем используемый запрос
end;
Работа с полями
Теперь осталось вывести содержимое справочников в «красивом» виде, для этого нужно создать поля для каждого запроса в явном виде и настроить их свойства, заголовки полей (DisplayLabel). Сделаем двойной щелчок на каждом из компонентов запросов и в появившемся окне при помощи левой клавиши мыши вызовем контекстное меню (рис. 19).
Рисунок 19 Добавление всей полей в IBQuery
Добавим все поля (Add all fields). В появившемся списке полей выбираем нужное поле и меняем его свойства, в частности даем полям осмысленные, русскоязычные названия.
Особо обратим внимание на поле AIRPORT.AP_CT_CODE в запросе IBQueryAP. Дело в том, что код города в справочнике Аэропорт несет мало информации для пользователя – для пользователя имеет значение название города, а не его код. Название города можно получить из запроса IBQueryCT, для связи воспользуемся полем синхронного просмотра (Lookup полем).
Для создания нового Lookup поля в контекстном меню для добавления или создания полей нужно выбрать пункт New Field (Новое поле). В результате получим диалоговое окно для задания свойств нового поля (рис. 20).
  
Рисунок 20
|
Рисунок 20 Задание свойств для поля синхронного просмотра «Название города»
В переключателе Field Type выбираем тип поля Lookup, задаем имя поля CITY_NAME, тип - String и размер поля - 20 .
В рамке Lookup definition (определение связного поля) укажем ключевое поле - AP_CT_CODE, связываемый набор данных – IBQueryCT, ключ для связи - CT_CODE (обычно это внешний ключ в связываемом наборе данных), результирующее поле - CT_NAME. После этого устанавливаем свойство заголовка поля (DisplayLabel). Так как поле AP_CT_CODE не нужно показывать пользователю, установим свойство Visible – False. Результат показан на рисунке 21.
Рисунок 21 Результат работы с полями – справочник Аэропорт