Mencari Isi Database

//Mencari Isi Database

// Pertama tama Koneksikan dulu database
// Kemudian Masukkan komponen 2 buah EDIT dan 1 Buah Button

// Edit1 digunakan sebagai field (Judul) yang ingin Dicari
// Edit2 digunakan sebagai kata yang ingin dicari

// Masukkan kode kedalam button1



Begin
if not Adotable1.locate(edit1.text , edit2.text , [loCaseInsensitive]) then
showmessage('Tidak DItemukan') ;
end ;


// if not (jika tidak) ...
// Jadi jika tidak ditemukan maka Tampil pesan ...
// Jika ditemukan akan fokus ke db grid ...

// adapun cara kedua jika terjadi error ...

Begin
if not Adotable.locate
 (quotedstr(edit1.text) , quotedstr(edit2.text) , [loCaseInsensitive] )
then
showmessage('Tidak DItemukan') ;
end ;