Menjumlahkan yang ad di field database

Delphi        : Versi 7
Database   : MS Access
Koneksi     : Zeos
Tambahan: GridEh

*note : untuk spesifikasi perlalatan tempur tidak sama dengan diatas harap menyesuaikan

Sebelumnya ucapan terimakasih kepada Bang Fuad yang mengajarkan teknik calculatefield kepada saya pada jaman dahulu kala haha… Oke tutorial ini saya akan membahas cara membuat calculatefield dan memanfaatkanya untuk menghitung total secara menurun macem saldo yang ada dibuku tabungan tuh, yang masih belum tahun nih saya kasih screen shoot katanya gambar menjelaskan melebihi kata-kata hahaha… sebenarnya trik ini bisa dilakukan dengan query command di databasenya tapi kali ini saya bahas akal-akalan dengan calculate field.

Nah kurang lebih seperti gambar tersebut saudara… jadi totalnya mengakumulasi kebawah, untuk langkah awal siapkan database serta tabelmu, pada contoh ini saya pakek zeos, dan zeosquery sebagai datasetnya sama aja sih pakek ado query atau komponen lain juga bisa suka-suka elu saja deh..

Langkah awal kita tambahkkan semua field kedalam komponen Query, klik kanan atau dobel klik, kemudian klik kanan lagi pilih > Add all fields, maka semua nama field dalam tabel yang kita buat akan terisi kedalam komponen

Selanjutnya, setelah memasukkan semua field lakukan langkah yang sama dengan atas, tapi kali ini kita pilih New Field (lihat gambar).

Jika kedua langkah diatas sudah dilakukan maka akan muncul jendela pembuatan field baru, ini field cuman alias bro, kata orang jawa bagian Boyolali “getok-getokmen”/”etok-etokmen” jadi ga ada beneran nih field, kemudian isikan beberapa parameter seperti yang saya lakukan pada gambar dibawah ini…

Karena kita mau bikin calculate numerik , maka ya kita pilih tipe integer, jangan salah ini juga bisa untuk memanipulasi field berupa string loh :p tinggal kreasi kita-kita saja, nah selanjutnya pada design form kita akan nambah satu filed tuh pada DbGrid nya dan isinya kosong plong, gausah  gelisah gagal atau sebagainya, karena calculate field ini memang akan tampil saat kita Run aplikasinya

Untuk langkah selanjutnya kita, klik komponen Query>Event>OnCalcFields

Kemudian buat variabel bertipe integer deklarasikan di Private, karena kalau di deklarasi di prosedurnya claculatefield nanti bakal ngereset terus nilainya, setelah deklarasikan variabel tambahkan koding sedikit, lihat seperti gambar dibawah…

Sedikit penjelasan :
t   = variabel bertipe integer yang di deklarasikan di pivate biar terbaca di form, untuk menampung nilai yang ditambahkan
Tb = properties name dari komponen query yang saya buat

Oke setelah semua hal diatas terpenuhi, silahkan Run aplikasi yang kita buat, jika tidak ada kendala, halangan, dan rintangaan makan akan berjalan sesuai yang kita harapkan sehingga nampak seperti ini, kita juga bisa modifikasi coding diatas menyesuaikan dengan aplikasi yang kita butuhkan misal pembuatan DEBET atau KREDIT derta SALDO, silahkan berkreasi kawan…

Nah selesai sudah tutorial kali ini… untuk contoh project diatas sialahkan download disini.

Semoga sedikit tulisan ini bisa menjadi manfaat terimakasih, jangan lupa tinggalkan komentar, saran, pertanyaan atau lainya yang bersifat membangun salam Delphier