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.
0 Comments
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