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 langkah – langkah 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.