Membuat Perhitungan Grand Total di Delphi Menggunakan SQL

Pada tutorial delphi kali ini akan dibahas bagaimana menampilkan grand total dari sekumpulan angka yang ada di dbgrid. Teknik yang dilakukan adalah dengan menggunakan SQL languange yaitu menghitung (sum) kolom total yang ada didatabase syntaknya adlah sebagai berikut.

Begin

Var total : integer

with dm.qr_global do

     begin

        close;

        sql.Clear;

        sql.Add('select sum(total) from penjualan_obat');

        open;

        total := Fields[0].AsInteger;

        edgrand_total.Text := inttostr(total);

     end;

end;

Jika Pencarian Lebih komplek yaitu melibatkan filter, kita bisa memfilter grand total berdasarkan tanggal, syntaknya adalah sbb:

Begin

Var total : integer;

with dm.qr_global do

     begin

        close;

        sql.Clear;

        sql.Add('select sum(total) from penjualan_obat where tgl_penjualan="'+FormatDateTime('YYYY-MM-DD',tgl_cari.Date)+'"');

        open;

        total := Fields[0].AsInteger;

        edgrand_total.Text := inttostr(total);

     end;

end;

atau Pencarian By Periode Tanggal Syntaknya sbb :

Begin
Var total : integer;
with dm.qr_global do
     begin
        close;
        sql.Clear;
        sql.Add('select sum(total) from penjualan_obat where tgl_penjualan between "'+FormatDateTime('YYYY-MM-DD',TGL1.Date)+'" AND "'+FormatDateTime('YYYY-MM-DD',TGL2.Date)+'" order by no_penjualan' );
        open;
        total := Fields[0].AsInteger;
        edgrand_total.Text := inttostr(total);
     end;
end;

OUTPUT APLIKASI

MENGHITUNG ALL RECORD

 

 MENGHITUNG RECORD BERDASARKAN TANGGAL

 

 PADEPOKAN IT COURSES

 IT Tutorial, Training Center & IT Solution

 www.padepokanit.com