|
Читайте также: |
Создать для таблицы Tovar.db два вычисляемых поля Total (общая стоимость товара в рублях) и TotalUE (общая стоимость товара в у.е. (в $)).
Значения полей Total иTotalUE вычисляются по следующим правилам:
Total=Kolvo*Cena
TotalUE= Total/30.36
При расчете стоимости в условных единицах предполагается, что обменный курс составляет 30 руб. 36 коп.
Расположите на форме компоненты Table1, DataSource1, DBGrid1 для работы с БД (для таблицы Tovar.db) и свяжите их.
Сделайте поля Tovar, Kolvo, Cena набора данных Table1статическими.
В контекстном меню Редактора полей выберите пункт New Field. В поле Name задайте имя поля Total. В списке Type выберите значение Float. Установите переключатель Calculated в группе переключателей Field type. Нажмите ОК.
Произведите аналогичные действия для поля TotalUE.
Закройте Редактор полей.
Напишите обработчик события OnCalcFields для НД Table1:
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
Table1Total.AsFloat:=Table1.FieldByName('Kolvo').AsFloat*
Table1.FieldByName('Cena').AsFloat;
Table1TotalUE.AsFloat:=Table1Total.AsFloat/30.36;
end;
Чтобы отформатировать значение поля TotalUE можно написать следующий обработчик события OnCreate для формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1TotalUE.DisplayFormat:='###.##';
end;
Запустите программу и в компоненте DBGrid1 вы увидите вычисляемые поля Total и TotalUE.
Дата добавления: 2015-07-19; просмотров: 37 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Редактор полей | | | Глава III. Индексирование баз данных |