لجمع عمود
كود :
procedure TForm1.IBDataSet1AfterOpen(DataSet: TDataSet);
var
bm: TBookmark;
Total: real;
begin
bm := IBDataSet1.GetBookmark;
IBDataSet1.DisableControls;
try
Total := 0.0;
IBDataSet1.First;
while not IBDataSet1.Eof do
begin
Total := Total + IBDataSet1COST.AsCurrency;
IBDataSet1.Next;
end;
// Total:= format
Edit1.Text := (FormatFloat('0.000 جنية', Total)) ;
finally
IBDataSet1.GotoBookmark(bm);
IBDataSet1.EnableControls;
end;