Padepokan IT, Kursus Komputer, Private Komputer, Jasa Komputer, : 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;

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;

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