Значения свойств компонентов tTable

Свойство	Table1	Table2	Table3	Table4
Name	taPERSON	taHAVE_D	taTPHONE	taPROFIT
DatabaseName	dbTUTOR	dbTUTOR	dbTUTOR	dbTUTOR
TableName	PERSON.DB	HAVE_D.DB	TPHONE.DB	PROFIT.DB
Active	True	True	True	True

Таблица 9

Значения свойств компонентов tDataSource

Свойство	DataSource1	DataSource2	DataSource3	DataSource4
Name	dsPERSON	dsHAVE_D	dsTPHONE	dsPROFIT
DataSet	taPERSON	taHAVE_D	taTPHONE	taPROFIT

С помощью редактора полей для каждого компонента TTable следует сформировать набор полей, используя ранее описанную последовательность действий. Для таблиц taTPHONE и taPROFIT набор полей совпадает с перечнем полей (атрибутов) для находящейся в базе данных на диске таблицы с именем TableName, которая связана с компонентом TTable.

Для таблицы taPERSON в набор полей включаются все поля, имеющиеся в таблице (файле) PERSON.DB, и одно Lookup-поле (поле подстановки) Ntel типа String для хранения номера телефона, установленного в квартире. Для создания поля подстановки необходимо:

1) выбрать в контекстном меню редактора полей команду New field;

2) в окне New Field задать имя Ntel для поля, в котором будет содержаться номер телефона, извлекаемый из таблицы taTPHONE по адресу квартиры, хранящемуся в поле Adr;

3) задать тип поля, выбрав из списка Type название String;

4) выбрать расположенный в области Field type селектор Lookup;

5) в области Lookup definition выбрать значения свойств поля подстановки:

Key Fields = Adr - поле таблицы taPERSON, используемое для поиска номера телефона;

Dataset = taTPHONE - таблица, в которой хранятся номера телефонов и адреса квартир;

Lookup Keys = Adr - поле таблицы taTPHONE, используемое для поиска номера телефона;

Result Field = Ntel - поле таблицы taTPHONE, которое подставляется в таблицу taPERSON.

6) нажать кнопку ОК. В появившемся окне редактора полей область Fields будет содержать имена полей, включенных в набор, и среди них - поле Ntel;

Для таблицы taHAVE_D в набор полей включаются все поля, имеющиеся в таблице (файле) HAVE_D.DB, и два поля подстановки: Source типа String с названием источника дохода и Size типа Currency с размером дохода. Значения свойств Key Fields, Dataset, Lookup Keys, Result Field для этих полей подстановки приведены в табл.10.

Поле подстановки по функциональным возможностям аналогично компоненту TDBLookupCombo. Например, при отображении содержимого таблицы taHAVE_D в компоненте TDBGrid два щелчка по полю подстановки Source активизируют в этом поле кнопку, нажав которую можно увидеть список названий источников дохода из таблицы taPROFIT, а выбор одного из названий автоматически установит значение поля Id в редактируемой строке таблицы taHAVE_D.

Выберем команду File | New | Form, чтобы включить в проект пустую форму. Командой File | Use Unit подключим модуль данных к создаваемой форме.

Поместим в эту форму восемь компонентов TLabel, четыре компонента TButton, четыре компонента TDBEdit и по одному компоненту TDBText, TDBComboBox, TDBLookupCombo, TDBGrid и TDBNavigator, расположив их так, как показано на рис.9.

Зададим для формы значение свойства Name=fmEDITPERS. Значения свойства Name для других компонентов установим в соответствии с указаниями, приведенными на рис.9, и примечанием к табл.2.

Значения свойства Caption для компонентов TLabel устанавливаются согласно надписям, поясняющим содержимое областей создаваемой формы и показанным на рис.9. Значение свойства Caption для компонентов TButton задаются согласно надписям на кнопках (см. рис.9).

Данные из таблицы taHAVE_D отображаются в компоненте grHAVE_D (см. рис.9). Чтобы на экране были видны значения только полей Source, Size и Comment с соответствующими заголовками Источник, Размер, Пояснение, значения свойств DisplayLabel и Visible для полей в сформированном наборе должны быть установлены согласно табл.10.

Значения свойств, общих для визуальных компонентов, управляющих данными, задаются в соответствии с табл.11. Для компонента dcPol дополнительно устанавливается значение свойства Items, содержащего допустимое обозначение пола, которое помещается в поле Pol таблицы taPERSON. Действия по установке значения свойства Items были описаны при создании формы fmEDITFLAT. Для компонента deSumD дополнительно задается значение свойства ReadOnly=True, чтобы запретить запись общего дохода с помощью клавиатуры, поскольку целесообразно общий доход вычислять автоматически на основе данных, имеющихся в таблицах taHAVE_D и taPROFIT.

Таблица 10