数量单价金额计算问题(一直困扰着)
数据库中 有三字段。
描述：数量，单价，金额。都可以录入。
使用cxgrid与adoquery
要求：输入数量单价，自动计算金额
输入金额，自动计算单价。
目前方式：增加计算字段 clacmoney :=amount*price
在change事件中 money:=clacmoney;
求助如何处理：输入完成后，单价也可以计算出
procedure TForm1.ADOQuery1CalcFields(DataSet: TDataSet);
var
n1,n2,n3:real;
begin
n1:= adoquery1.FieldValues['amount'];
n2:= adoquery1.FieldValues['price'];
n3:= adoquery1.FieldValues['money'];
adoquery1.FieldValues['clacmoney']:=roundto(n1*n2,-2);
if n1<>0 then
adoquery1.FieldValues['clacprice']:=roundto(n3/n1,-6);
end;
procedure TForm1.ADOQuery1amountChange(Sender: TField);
begin
adoquery1.FieldValues['money'] := adoquery1.FieldValues['clacmoney'];
end;
procedure TForm1.ADOQuery1priceChange(Sender: TField);
begin
adoquery1.FieldValues['money'] := adoquery1.FieldValues['clacmoney'];
end;
