Pencarian Data Menggunakan Locate pada Delphi

Pencarian Data Menggunakan Locate pada Delphi
Introduksi
Anda mungkin sudah mengetahui bahwa komponen table mempunyai beberapa method yang dapat digunakan untuk mencari data, antara lain : GotoKey, GotoNearest, FindKey, FindNearest, Locate, LookUp, Seek dan lainnya. Penggunaan masing-masing method tergantung dari apa yang anda inginkan, dan ketersediaan indeks pada tabel yang bersangkutan. Khusus untuk metode Locate, bisa digunakan untuk mencari data pada tabel yang tidak memiliki indeks. Tetapi jika tabel memiliki indeks, maka yang digunakan adalah indeks primernya. Menurut pengalaman penulis, mencari data menggunakan Locate ini lebih simple dan fleksible karena dapat digunakan pada BDE, ADO, Interbase, Oracle dan lainnya.
Pembahasan
Untuk lebih memahami pencarian data menggunakan Locate, anda bisa mencoba membuat aplikasi baru seperti berikut ini :
Komponen
Property
Nilai
TADOTable
ConnectionString
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=AK.mdb;Persist Security Info=False
TableName
Guru
Active
True
TdataSouce
DataSet
ibtguru
TDBGrid
DataSource
dsguru
Tedit
Name
EdCari
TSpeedButton
Name
Cari
Caption
&Cari Nip
Dan komponen-komponen lainnya (optional) sehingga terbentuk seperti tampilan form input data guru di bawah ini :

Klik 2 kali pada tombol Cari Nip, kemudian ketikkan listing berikut :
procedure Tguru.cariClick(Sender: TObject);
begin
edcari.Visible:=true;
edcari.SetFocus;
end;
Pada EdCari samping tombol Cari Nip, klik 1 kali. Kemudian pada object inspector pilih events OnKeyPress, setelah itu klik 2 kali pada event tersebut dan ketikkan listing program berikut :
procedure Tguru.EdcariKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if ibtguru.Locate('nip',edcari.Text,[lopartialkey])=true then
begin
tampildata;
edcari.Visible:=false;
edcari.Text:='';
end
else
begin
showmessage('NIP Yang Anda Cari Tidak Ditemukan');
edcari.Text:='';
end;
end;
Simpan project anda dengan nama sexyloveform.exe, dan coba jalankan.
Keterangan Options yang digunakan :
loCaseInsensitive
Nama field dan nilai yang dicari tidak membedakan antara huruf besar dan huruf kecil.
loPartialKey
Untuk menyatakan bahwa data yang dicari dapat berupa bagian dari nilai pada field atau seluruhnya. Contoh : anda mengisi KeyValues dengan ’Ham’, maka ‘Hammer’ atau ‘Hamburger’ akan dianggap sama.
Jika option kosong [], maka data yang dicari harus sama dengan data yang diisikan dalam pencarian. Contoh : anda mengisi KeyValues dengan ‘Ham’, maka hanya ‘Ham’ yang ditampilkan dan dianggap sama yang lainnya tidak akan ditampilkan.