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

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

　　先定义一个全局变量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，要不他总是有增无减。