Penjumlahan pada tabel

Index Konsultasi Delphi || Arsip Pertanyaan

Penjumlahan pada tabel [Fero Lim]

Bagaimana menjumlahkan data-data yang saya tampilkan dalam DBGrid yang telah difilter. Misalnya saya mempunyai 200 karyawan, saya berhasil memfilter sekitar 170 karyawan yang mempunyai gaji diatas 1.500.000 dan dibawah 5 juta. Nah sekarang saya ingin mengetahui total dari seluruh uang yang harus saya keluarkan utk 170 karyawan tsb. Terima kasih

Jawaban

Untuk melakukan penjumlahan Anda dapat menggunakan pernyataan Query sebagai berikut:

  Select sum(gaji) where gaji >= 1500000 and gaji <= 5000000

Jika Anda ingin menggunakan Table, bisa saja. Di bawah ini kami sertakan contoh untuk menghitung luas area (tabel Country.db pada DBDemos). Untuk menghitung gaji Anda tinggal mengganti field Area dengan Gaji.

procedure TForm1.Button1Click(Sender: TObject);

var

   LuasTotal : Integer;

begin

     try 

        Table1.DisableControls; 

        LuasTotal := 0;

        Table1.First;

        while not Table1.Eof do

        begin

             LuasTotal := LuasTotal + Table1['Area'];

             Table1.Next;

        end;

        edit1.Text := IntToStr(LuasTotal);

      

        finally

        Table1.EnableControls;

     end;

end;

Download contohnya di sini.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------