Практическая работа №7

Создать для таблицы 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.