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.

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; 

Untuk lebih jelasnya , perhatikan gambar dibawah ini.

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

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.