首页 / 软件开发 / Delphi / delphi编程计算数据库某字段的值

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

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