Использование Delphi для создания приложений баз данных. Устюгова В.Н. - 19 стр.

UptoLike

Составители: 

19
Для нового поля будет создан
компонент TField, доступ к которому
можно осуществлять из редактора полей.
Имя нового компонента TField
создается как результат сцепления имени
набора данных (компонента ТТаble)
Таble2 и имени нового поля Info.
Для компонента набора данных
(Таble2), которому принадлежит
вычисляемое поле, необходимо
определить обработчик события
OnCalcFields.
Процедура-обработчик события OnCalcFields содержит реализацию алгоритма
вычисления значения вычисляемого поля или группы полей. Необходимо помнить, что в
этом обработчике значение может быть присвоено только вычисляемому полю.
В новое поле поместим информацию о телефоне и персоне для контактов:
procedure TDataModule3.Table2CalcFields(DataSet: TDataSet);
begin
Table2Info.AsString:=Table2Phone.Value+' - '+ Table2Contact.AsString;
end;
Запустив приложение, увидим, какая информация попадет в созданное вычислимое
поле Info.
                                                      Для нового поля будет создан
                                                 компонент TField, доступ к которому
                                                 можно осуществлять из редактора полей.
                                                      Имя нового компонента TField
                                                 создается как результат сцепления имени
                                                 набора данных (компонента ТТаble)
                                                 Таble2 и имени нового поля Info.
                                                      Для компонента набора данных
                                                 (Таble2),       которому принадлежит
                                                 вычисляемое       поле,     необходимо
                                                 определить      обработчик      события
                                                 OnCalcFields.




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

    В новое поле поместим информацию о телефоне и персоне для контактов:

procedure TDataModule3.Table2CalcFields(DataSet: TDataSet);
begin
Table2Info.AsString:=Table2Phone.Value+' - '+ Table2Contact.AsString;
end;

     Запустив приложение, увидим, какая информация попадет в созданное вычислимое
поле Info.




                                          19