delphi编程计算数据库某字段的值

在数据库中，有时需要做汇总工作，那么就要对某个字段的所有记录进行求和，我们使用如下代码：

先定义一个全局变量i，再加入Table1的OnCalcFields事件，那么就得出了数据库中“金额”字段的合计值

var i:double;
{$R *.DFM} procedure TForm1.Table1CalcFields(dataset: Tdataset);
var
Goodsgold:double;
begin
Goodsgold:=table1.fieldbyname(金额).asfloat;
i:=i+Goodsgold;
label1.caption:=formatfloat(0.00,i);
end;

其中的i是求得的总和，在需要重新计算时将他复位为0，要不他总是有增无减。