Обработчик события OnGetText

Откройте окно конструктора нового поля (для таблицы Rout). Создайте поле Marshrut типа Data, которое, например, будет содержать текст, составленный из трех подстановочных полей – Point_otprav, Transit и Point_prib.

Чтобы данные отображались в таком поле, воспользуемся обработчиком события OnGetText созданного объекта-поля Marshrut.

Перейдите к форме модуля данных, щелкните на поле Marshrut и откройте вкладку Events в окне инспектора объектов. Дважды щелкнув в правой части строки события OnGetText, напишите такой обработчик:

procedure TDM.RoutMarshrutGetText(Sender: TField; var Text: String; DisplayText: Boolean);

begin

if RoutTransit.Value = ' ' then

begin

Text:= RoutPoint_otprav.Value + RoutPoint_prib.Value;

end

else

Text:= RoutPoint_otprav.Value + RoutTransit.Value + RoutPoint_prib.Value;

end;

Результат такой процедуры во время выполнения программы будет выглядеть следующим образом:

Событие OnGetText возникает всякий раз, когда программа обращается к полю с целью отображения его содержимого в любом визуализирующем компоненте. Программист в обработчике этого события должен поместить нужную строку в переменную Text.

Объекты для вычисляемых полей

Вычисляемые поля не входят в состав конкретной таблицы БД, но могут быть присоединены к НД, связанному с этой таблицей. Они предназначены для отображения данных, которые вычисляются в ходе выполнения программы обычно с помощью значений из других полей той же записи. После присоединения вы­числяемого поля к НД оно становится во всем подобно обычным объектам-полям, связанным с реальными полями таблицы БД, за одним исключением: такие поля нельзя редактировать, а при вводе новой записи - помещать в них какое-либо значение.

Для создания вычисляемого поля нужно открыть окно New Field редактора полей и, заполнив строки Name, Type и Size, установить переключатель Calculated и закрыть окно щелчком на кнопке ОК. Заполнение вычисляемых полей осуществляется в обработчике события OnCalcFields набора данных.

Напишите такой обработчик события OnCalcFields:

procedure TDM.AirplainsCalcFields(DataSet: TDataSet);

begin

dm.AirplainsChislo_mest.Value:= dm.AirplainsCHISLO_BISSNES.Value +

                           dm.AirplainsCHISLO_ECONOM1.Value +

                           dm.AirplainsCHISLO_ECONOM2.Value;

end;

Результат такой процедуры во время выполнения программы будет выглядеть следующим образом:

Подстановочные поля

Подстановочные поля создаются с целью упрощения понимания пользователем данных таблиц, т.е. вместо ID поля можно показать в сетке таблицы его значение, взятое из другого НД.

Для этого необходимо создать новое поле, указав тип – Lookup. В поле Key Fields указывается поле связи из исходной таблицы, в Dataset – выбрать таблицу, из которой будут взяты данные, в Lookup Keys – ключевое поле, по которому устанавливается связь между таблицами, в Result Field – результирующее поле, значения которого будут отображаться в создаваемом.

Задание

1. Создать объекты-поля для всех таблиц.

2. Создать необходимые подстановочные, вычисляемые поля и поля с произвольными данными.