Menjumlahkan Data Pada Field Database

Sebelum masuk ke langkah-langkahnya, saya sedikit menjelaskan dulu apa itu SUM?. SUM itu istilah yang digunakan untuk menjumlahkan total nilai. Contohnya misalkan saya mempunyai data nilai A=80, B=90, C=70, Nah untuk menjumlahkan total nilai-nilai tadi (A,B,C) kita bisa menggunakan SUM. Jadi tidak repot lagi kita hitung satu persatu apalagi datanya banyak pasti kita malas untuk menghitungnya atau kita perlu bantuan kalkulator. Untuk itu, saya akan mencoba menjelaskan cara menjumlahkan total field database dengan perintah SUM kaya di Microsoft Office Excel itu. Sobat tau kan?

Pada percobaan ini saya akan menghitung Total Harga pada field Harga_Barang yang ada pada database Barang. Database yang saya gunakan dalam percobaan ini.

OK langkah-langkahnya adalah:

Desain Formnya :

1. Pastikan koneksi databasenya sudah berhasil. Sobat tau kan cara koneksinya di Delphi?

2. Tambahkan sebuah komponen TADOQuery pada form kemudian atur propertiesnya sebagai berikut:

a. Connection = ADOConnection1 (Koneksi database menggunakan ADOConnection)

b. SQL = Select SUM(Harga_Barang) From TBarang

c. Active = True

3. Tambahkan sebuah komponen TDatasource kemudian atur propertiesnya Dataset = ADOQuery yang telah anda setting tadi (Step ke 2).

4. Tambahkan komponen TDBEDit kemudian atur propertiesnya Datasource = Datasource yang telah anda tambahkan ke step 3. Dan DataField = Expr1000 .

Jika langkah-langkah diatas anda lakukan dengan benar maka akan muncul Total Harga pada DBEdit.