Teknik Pencarian Menggunakan Tdataset

Teknik Pencarian Menggunakan Tdataset

Jika kita membuat suatu aplikasi tentu kita akan membutuhkan teknik pencarian dalam aplikasi tersebut, teknik pencarian bisa dilakukan dengan berbagai cara diantaranya dengan mengunakan fungsi pencarian pada Tdataset misal findkey dan locate atau bisa juga mengunakan Script SQL. 

Berikut adalah contoh pencaraian : 

1. Findkey, digunakan untuk mencari data berdasarkan index, misal kita mempunyai struktur data sebagai berikut.

Findkey

Seperti pada table diatas maka kita bisa menggunakan filed Nim untuk mencari karena Nim, merupakan Primary key atau indek. 
Bentuk Umum Findkey : function FindKey(const KeyValues: array of const): Boolean; 
Dimana KeyValues adalah nilai yang akan dicari berupa larik Findkey ini mengeluarkan nilai true jika data diterukan tetapi akan false jika data tidak ditemukan. 

2. Locate, digunakan untuk mencari record dengan field yang bukan index, misal kalau pada struktur table diatas bias digunakan untuk mencari Nama. 
Bentuk Umum : function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual; 
Dimana KeyFields merupakan filed yang akan dicari dan KeyValues adalah nilai dari filed tersebut. Locate ini mengeluarkan nilai true jika data diterukan tetapi akan false jika data tidak ditemukan. 

Contoh 
Buat program aplikasi seperti dibawah dengan menggunakan truktur data seperti pada table diatas.

Pencarian

Pasang komponent seperti biasa dan pada tambol cari nim isi codenya adalah sebagai berikut : 
if table1.FindKey([Tcari.text])<>true then 
ShowMessage('Record dengan field Nim = ' + TCari.Text + ' tidak ditemukan') 

Pada tombol Cari nama kodenya adalah sebagai berikut : 
if Table1.Locate('Nama',Tnama.text,[loPartialKey])<>true then 
ShowMessage('Record dengan field nama = ' + Tnama.Text + ' tidak ditemukan')


mari praktek dan jangan takut gagal karena kegagalan suatu keberhasilan yang tertunda jangan takut untuk terus mencoba sampai bisa.
semoga artikel yang ditulis ulang diatas bisa membantu. 
salam otodidak "cuma ingin share"