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，要不他總是有增無減。