Saturday, 3 December 2016T12/03/2016 08:01:00 pm

CARA MEMBUAT PENCARIAN DATA DI DBGRID PADA DELPHI

Salam blogger…..pada postingan saya kali ini saya akan membahas cara sederhana untuk membuat fungsi pencarian data di Delphi. Fungsi pencarian data pada sebuah aplikasi sangat penting tentunya, fungsi ini sangat berguna apabila data yang ada pada aplikasi lumayan banyak jumlahnya, misalnya data suatu barang, data warga, data laporan dan sebagainya. sehingga memerlukan waktu untuk mencari data tersebut satu persatu. Nah untuk mengatasi hal tersebut kita perlu membuat sebuah fungsi / procedure pada Delphi agar dapat digunakan untuk pencarian suatu record data pada database.
 
Pada kesempatan kali ini saya akan share coding program untuk membuat pencarian data pada salah satu field di dbgrid menggunakan beberapa metode filter data. Beberapa metode yang digunakan untuk membuat suatu pencarian data diantaranya adalah locate, findkey, findnearest, gotokey dan gotonearest. Adapun langkahlangkah pembuatannya adalah sebagai berikut :
Pertama tama yang harus dilakukan adakah siapkan sebuah database dan project Delphi sobat, selanjutnya desain sebuah form pada Delphi (disini saya anggap sobat semua sudah paham dalam proses pembuatan form nya). Disini saya contohkan desain sebuah form yang sudah saya buat (dapat dilihat pada gambar di bawah ini).
Untuk membuat pencarian nya disini saya memakai sebuah edit text dan sebuah button untuk mengeksekusi pencariannya. Edit text digunakan untuk menginput data yang ingin dicari, dan button cari di gunakan untuk memfilter data yang dicari. Selanjutnya tambahkan coding program dibawah ini pada button dengan cara double klik pada button tersebut.

procedure TFpegawai.Button1Click(Sender: TObject);
begin
if not(edit1.Text <>'') then
begin
Application.MessageBox('NIK Warga Belum Anda Masukan','Peringatan',
mb_Ok + Mb_IconExclamation);
edit1.SetFocus;
exit;
end;
begin
if not tpegawai.Locate('NIK',Edit1.Text,[])  then
  Application.MessageBox('Data warga tidak ditemukan','Info', mb_Ok + Mb_ICONINFORMATION)else
  Application.MessageBox('Data warga ditemukan','Info', mb_Ok + Mb_ICONINFORMATION);
  edit1.Text:='';
  edit1.SetFocus;
end;
end;

Pada coding diatas saya membuat pencarian data warga berdasarkan NIK (no induk kependudukan) pada database dengan memakai fungsi locate. Cara kerja programnya adalah ketika NIK warga sudah di input pada edit text maka pada saat button cari di klik maka program akan memfilter data tersebut pada dbgrid, jika data yang ingin dicari tersebut ada maka akan muncul pesan bahwa data warga yang dicari ditemukan dan akan tampil pada form tersebut.
Demikian postingan tentang cara membuat pencarian data sederhana pada Delphi yang dapat saya share kali ini, silahkan dicoba dan semoga dapat bermanfaat.
Previous
Next Post »
0 Komentar untuk "CARA MEMBUAT PENCARIAN DATA DI DBGRID PADA DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status