CARA MEMBUAT PENJUMLAHAN ISI TABLE PADA DBGRID DI DELPHI 7

Oke pada kesempatan kali ini saya akan memberikan tutorial singkat Bagaimana cara menjumlahkan atau membuat TOTAL / SUM pada suatu column table dengan Borland Delphi ?, tutorial berikut ini semoga bisa memberikan pencerahan untuk anda. Pada excel sangat mudah sekali hanya dengan perintah =SUM(CELL-CELL) dan langsung mendapatkan hasilnya. Namun bagaimana untuk di Borland Delphi khususnya untuk pemula ? Silahkan di Copy Paste Scriptnya:

procedure TForm1.Button1Click(Sender: TObject);
var
   Total : Integer;
begin
        Total := 0;
        Table1.First;
        while not Table1.Eof do
        begin
             Total := Total + Table1['Jumlah'];
             Table1.Next;
        end;
        edit1.Text := IntToStr(Total);
     end;
end;

Nah souce code di atas merupakan code untuk menjumlahkan total cell yang ada di DB Grid delphi, silahkan di coba dan di praktekan ya, semoga bermanfaat.

Happy Coding & Programming

Tutorial Delphi

CARA MEMBUAT PENJUMLAHAN ISI TABLE PADA DBGRID DI DELPHI 7

accho_blues

Artikel Terkait