4.7.5Вычисляемые поля

Вычисляемые поля не входят в состав конкретной таблицы физической БД, но могут быть присоединены к НД, связанному с этой таблицей. Эти поля могут быть присоединены к НД типа TTable и TQuery.

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

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

Рассмотрим пример создания вычисляемого поля. В разработанной ранее программе используется таблица MOVEBOOK (НД tbMove) для отображения списка книг, связанных с накладной. В этой таблице есть поля, в которых указывается количество экземпляров книги MQuan (объект-поле tbMoveMQuan) и ее цена MPrice (объект-поле tbMoveMPrice). Создадим для НД tbMove вычисляемое поле MSumm, в котором укажем сумму покупки/продажи каждой книги.

Рисунок 3.47 – Столбец "Сумма" в нижней сетке отображает вычисляемое поле

Вызовите редактор объектов-полей двойным щелчком на НД tbMove в окне модуля данных и затем в контекстном меню редактора выберите команду New Field. Введите в строку Name окна New Field название поля MSumm, в списке Туре выберите денежный тип (currency), установите переключатель Calculated и закройте окно щелчком на кнопке ОК. Если сейчас вызвать инспектор объектов, он будет отображать свойства и события вновь созданного объекта-поля tbMoveSumm.

Нам нужны свойства и события НД tbMove. Щелкните на НД tbMove, чтобы инспектор объектов показал свойства этого НД. Перейдите на вкладку Events.

Дважды щелкнув в правой части строки события OnCalcFields.

Рисунок 3.48 –

Delphi cоздаст в модуле dmNaklsU заготовку для обработчика событий OnCalcFields. Напишите в ней такой обработчик события OnCalcFields:

procedure TDM.tbMoveCalcFields(DataSet: TDataSet);

begin

tbMoveSumma.Value := tbMoveMQuan.Value * tbMoveMPrice.Value;

end;

Чтобы увидеть в сетке DBGrid2 столбец со значениями нового поля MSumma, создайте для него новый объект-столбец - специальный компонент, облегчающих управление отображением данных (см. подраздел 3.5).

4.8Обработчики событий компонент работы с бд

С компонентами по работе с БД связано большое количество обработчиков событий. Для таких компонент как TDatabase, TTable и TQuery они связаны с бизнес-правилами (бизнес-логикой). Разработка бизнес-правил рассматривается ниже. К таким обработчикам событий, например, относятся AfterDelete или BeforDelete.

Для компонента визуализации данных TDBGrid обработчики событий связаны с заголовками и содержимым объектов-столбцов. К таким обработчикам событий, например, относятся OnGetText или OnSetText.

Ниже рассматривается пример создания обработчика событий OnGetText для компонента визуализации данных TDBGrid.