Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лабы / мп44_45 / DB / БДлаб5-6.doc
Скачиваний:
22
Добавлен:
16.04.2013
Размер:
443.39 Кб
Скачать

Значения свойств полей для компонента 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

Соседние файлы в папке DB