Membuat Pencarian Data Super Cepat Pada Delphi 7 - MySQL

     Akhirnya posting lagi.Mohon maaf kepada agan yang melihat blog saya sepi dari konten :( ..Saya sedang disibukkan dengan pembuatan software sistem administrasi bengkel,tenaga saya beserta fikiran terkuras habis.Loh kok malah curhat !?

Hehe , apapula pencarian super cepat itu !?Bayangkan ketika kita memiliki database dengan ukuran file berlimpah.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.

1. procedure TForm1.edit1Change(Sender: TObject);  
2. var a : String;  
3. begin  
4. case comboBox1.ItemIndex of  
5.     0 : a := 'nama_pengguna';    //  
6.     1 : a := 'user_id'; // nama kolom pada tabel anda  
7.     2 : a := 'hak_akses'; //  
8.   end;  
9. if (edit1.Text <> '') and (comboBox1.Text <> '') then  
10.   begin  
11.     QueryTabelAnda.Close;  
12.     QueryTabelAnda.SQL.Clear;  
13.     QueryTabelAnda.SQL.Add('select * from tabelAnda where '+a+' like "%'+edit1.Text+'%"');  
14.    QueryTabelAnda.Open;  
15.    dataGrid1.DataSource := QueryTabelAnda;  
16.   end  
17. else  
18.   begin  
19.     QueryTabelAnda.Close;  
20.     QueryTabelAnda.SQL.Clear;  
21.     QueryTabelAnda.SQL.Add('select * from tabelAnda');  
22.     QueryTabelAnda.Open;  
23.     dataGrid1.DataSource := QueryTabelAnda;  
24.   end;  
25. end;   

Untuk lebih jelasnya , perhatikan gambar dibawah ini.

Okey , sekian tutorial kali ini.Semoga bermanfaat.Mohon tinggalkan komentar :)

sumber : http://bayuidham.blogspot.com