在数据库中,有时需要做汇总工作,那么就要对某个字段的所有记录进行求和,我们使用如下代码:
先定义一个全局变量i,再加入Table1的OnCalcFields事件,那么就得出了数据库中金额字段的合计值
var i:double;{$R *.DFM} procedure TForm1.Table1CalcFields(dataset: Tdataset);varGoodsgold:double;beginGoodsgold:=table1.fieldbyname(金额).asfloat;i:=i+Goodsgold;label1.caption:=formatfloat(0.00,i);end;
其中的i是求得的总和,在需要重新计算时将他复位为0,要不他总是有增无减。
...[ 查看全文 ]