Pencarian Data Pada Database dengan InputBox Delphi

Suatu waktu kita membutuhkan data tertentu pada database tersebut.Apakah anda akan mencarinya satu persatu !? Saya tidak menyarankan bila data pada database berjumlah ratusan atau bahkan ribuan.Bisa berdarah-darah kayaknya :D .. Untuk itu saya akan memberikan tutorial membuat pencarian super cepat pada program Delphi 7 yang di sandingkan dengan MySQL.Mari mulai.

Konsepnya seperti ini.Misal anda memiliki data karyawan dengan kategori : nama pengguna , user id , hak akses.Tambahkan comboBox dengan items kategori tadi.Tambahkan juga komponen TEdit.Pada event onChange TEdit inputkan kode berikut.

procedure TForm1.edit1Change(Sender: TObject);  
var a : String;  
begin  
case comboBox1.ItemIndex of  
0 : a := 'nama_pengguna';    //  
1 : a := 'user_id'; // nama kolom pada tabel anda  
2 : a := 'hak_akses'; //  
end;  
if (edit1.Text <> '') and (comboBox1.Text <> '') then  
begin  
QueryTabelAnda.Close;  
QueryTabelAnda.SQL.Clear;  
QueryTabelAnda.SQL.Add('select * from tabelAnda where '+a+' like "%'+edit1.Text+'%"');  
QueryTabelAnda.Open;  
dataGrid1.DataSource := QueryTabelAnda;  
end  
else  
begin  
QueryTabelAnda.Close;  
QueryTabelAnda.SQL.Clear;  
QueryTabelAnda.SQL.Add('select * from tabelAnda');  
QueryTabelAnda.Open;  
dataGrid1.DataSource := QueryTabelAnda;  
end;  
end;