Значения свойств полей для компонента taFlat

Имя поля	Calculated	DisplayLabel	Visible
Adr	False	Адрес	True
Skv	False	Площадь	True
Nrooms	False	Комнат	True
CategoryName	True	Категория	True
KCategory	False	KCategory	False

В результате заголовок сетки будет содержать названия колонок на русском языке (свойство DisplayLabel), колонка со значениями поля KCategory отображаться не будет (Visible=False), колонка со значениями вычисляемого поля CategoryName (Calculated=True) будет пустой. Чтобы заполнить эту колонку, необходимо для компонента taFLAT задать процедуру обработки события OnCalcFields. Эта процедура для каждой строки записи таблицы БД будет определять значения вычисляемых полей, предусмотренных в наборе полей для соответствующего компонента Table.

Чтобы задать процедуру обработки события OnCalsFields для компонента taFLAT, нужно:

1) выделить компонент taFLAT в форме fmSHOWFLAT;

2) в окне инспектора объектов на странице событий дважды щелкнуть в строке, соответствующей событию OnCalcFields;

3) в активизированном окне текстового редактора набрать текст процедуры, приведенной на листинге 7.

Листинг 7. Процедура задания значений вычисляемым полям

procedure TfmSHOWFLAT.taFLATCalcFields

(DataSet:TDataset); var s : string[20];

begin s := taFLAT.FieldByName('KCategory').AsString;

case s[1] of 'Н': s:='Неприватизированная';

'П': s:='Приватизированная';

'К': s:='Коммунальная';

end; taFLATCategoryName.Value := s; end;

Теперь создание формы fmSHOWFLAT полностью завершено, и следует сохранить проект командой File|Save Project и еще раз проверить работоспособность приложения.

Аналогичным способом создаются три другие формы типа сетка: fmSHOWPHON, fmSHOWPROF, fmSHOWPERS.

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

Поместим в эту форму восемь компонентов Label, пять компонентов Button, четыре компонента DBEdit и по одному компоненту DBText, DBComboBox, DBLookupCombo, DBGrid и DBNavigator, расположив их так, как показано на рис.9. Поместим также на любое свободное место в форме пять компонентов Table и три компонента DataSource.

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

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

Свойства компонентов Table и DataSource устанавливаются в соответствии с табл.8 и 9.

Таблица 8

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

Свойство	Table1	Table2	Table3	Table4	Table5
Name	taPERSON	taHAVE_D	taFLAT	taTPHONE	taPROFIT
Database Name	dbTUTOR	dbTUTOR	dbTUTOR	dbTUTOR	dbTUTOR
Table Name	PERSON.DB	HAVE_D.DB	FLAT.DB	TPHONE. DB	PROFIT. DB
Active	True	True	True	True	True

Таблица 9