ADO Database Delphi

(*--------------------------------------------------------------------------------*)
(*|Sütun Toplamaları; |*)
(*|Alper ÖZÇELİK |*)
(*|pri: alp_ozcelik@hotmail.com |*)
(*|sec: alper@egecom.net |*)
(*|Sütün Toplamlarını Sorgu ile yada alanların değerlerini tektek toplayarak |*)
(*|erişebiliriz |*)
(*--------------------------------------------------------------------------------*)
// Procedure lerin isimlerini önüne "TForm1." i tform nesnesinin bir alt procedure ü
//biçiminde çalışacağından dolayı yazıldı.
//
// ---------------------
// TForm1 = class(TForm)
// ..
// Procedure TektekTopla;
// Procedure SorguileTopla;
// ..
// end;
// ---------------------
// Bu procedure sınıf tanımlama bloğu arasında tanımlanmalıdır.
//------------------[Tektek Toplama Yöntemi Yöntem]------------------
procedure TForm1.TekTekTopla;
Var
Sum : integer;
begin
Table1.First;
Sum:=0;
While Not(Table1.Eof) do
Begin
Sum:=Sum+Table1.FieldByName('Maas').AsInteger;
Application.ProcessMessages;
End;
Label1.Caption:=intToStr(Sum);
end;
//-------------------------------------------------------
//------------------[Sorgu ile Toplama Yöntemi]------------------
procedure TForm1.SorguileTopla;
Const
Alan='Maas'; //Toplamlarına ulaşlılmak istenen alan tabii ki alan,
//işleme girebilecek sayı tipinde dir.
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select sum('+Alan+') from isci.db');
Query1.Open;
Label1.Caption:=Query1.Fields[0].AsString;
end;
//-------------------------------------------------------
//kolay gelsin