Menjumlahkan Nilai dari Database

// Menjumlahkan Nilai dari Database

// Contoh Saya Mau Menjumlahkan Semua Uang dalam Table
// Sebelumnya Koneksikan Database ..

// Masukkan Kode Kedalam Button



Var Total : Longint ;
Begin

adotable1.first ;
total := 0 ;

while not adotable1.eof do begin

total := total + strtoint(adotable1.fieldbyname('Uang').asstring) ;
Adotable1.next;

end;

Showmessage('Total Uang = '+ inttostr(total)) ;
end;


// Type data Longint Digunakan agar tidak terjadi error
// Digunakan Untuk Penjumlahan Besar, Misal sampai Puluhan juta.