Mengambil Jumlah isi DB

// Mengambil Jumlah isi DB ...

// Contoh Saya mau mengetahui jumlah isi table
// Berdasarkan Laki2 dan perempuan ..

// Sebelumnya Koneksikan DB
// Masukkan kode Kedalam Button



Var Lk,Pr,Total : integer ;
Begin

Adotable1.first ;
lk := 0 ;
Pr := 0;
Total := 0 ;

while not adotable1.eof do begin

if adotable1.fieldbyname('Kelamin').asstring = 'Laki-Laki' then
lk := lk + 1

else
pr := pr + 1 ;

Adotable1.next ;

end;
Showmessage ('Laki-laki = ' + inttostr(lk ) +
' Perempuan = '+inttostr(pr) + ' Total = '+ inttostr(Total)) ;

end;