Вычисление поля delphi

[xxbesoxx]

Добрый утро ребята. Access подключение на Delphi2010 при помощи ADOConnection1, ADOTable1, DataSource1, в Таблице ест 5 поля: К-во, Цена, Скидка, Цена_итого, Процент в Delphi делал второе форма для добавленная Edit1-К-во Edit2.- Цена Edit3- Скидка, после добавление мне надо что таблица делал следующий математически операции .

1. К-во * Цена = Цена_итого
2. Цена_итого /100*Скидка= Процент
3. Цена_итого - Процент = Цена_итого

Для этого пишу на кнопке
Код Delphi



procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form1.Adotable1.Edit;
ADOTable1.FieldByName('Цена_итого') .Value := ADOTable1.FieldByName('Цена').Value * ADOTable1.FieldByName('К-во').AsFloat;
ADOTable1.FieldByName('Процент').Va lue := ADOTable1.FieldByName('Цена_итого') .Value /100 * ADOTable1.FieldByName('Скидка').AsF loat;
ADOTable1.FieldByName('Цена_итого') .Value := ADOTable1.FieldByName('Цена_итого') .Value - ADOTable1.FieldByName('Процент').As Float;
Adotable1.Post;

end;

[=master=]

Поля Цена_итого и Процент лишние.

[S@fer]

Где открытие датасета на запись (ADOTable1.Insert или ADOTable1.Edit)?

[xxbesoxx]

[QUOTE=S@fer;1024564]Где открытие датасета на запись (ADOTable1.Insert или ADOTable1.Edit)?[/QUO

Проект откройте и посмотрите действия делает на Form1 кнопка Пересчет. Мне интересно от какого свойства писать это код что при добавление запись автоматически выполнил это операция

begin
Form1.Adotable1.Edit;
ADOTable1.FieldByName('Цена_итого') .Value := ADOTable1.FieldByName('Цена').Value * ADOTable1.FieldByName('К-во').AsFloat;
ADOTable1.FieldByName('Процент').Va lue := ADOTable1.FieldByName('Цена_итого') .Value /100 * ADOTable1.FieldByName('Скидка').AsF loat;
ADOTable1.FieldByName('Цена_итого') .Value := ADOTable1.FieldByName('Цена_итого') .Value - ADOTable1.FieldByName('Процент').As Float;
Adotable1.Post;

end;

[xxbesoxx]

Или вы думаете что написать на него луче SQL запрос ?

[xxbesoxx]

Сообщение от xxbesoxx

Или вы думаете что написать на него луче SQL запрос ?

Можно закрить тема .Уже разбирал