Senin, 27 Desember 2010

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.

Simak Juga Tutorial Lainnya:

14 komentar:

Odhon mengatakan...

ok..banget gan....tapi kalo pencarian datanya melibatkan 3 field didalam 1 edit. bagaimana gan, trus pake adotable.... misalnya saya mo mencari No. RM, No. SJP, dan nama pasien cukup dengan menggunakan satu Edit1.text dengan bantuan tombol...

zann mengatakan...

thnkz berat gan.. ini yg ku cari2... :D

zann mengatakan...

mas pada dataGrid1.DataSource := QueryTabelAnda;

kok error ya padahal querynya dah aq ganti sesuai tabel. kira2 apa ya? tolong bantuanya...
thknz b4 :)

Bayu Idham Fathurachman mengatakan...

cek , koneksinya udah active atau belum,trus properties request livenya harus true ..
sql stringnya mengarah ke tabel anda..
okey ..

zann mengatakan...

koneksi n sql string beres,
tp request livenya aq masih bingung mas, emang request live tu pada komponen apa mas?

maaf bnyak bertanya... :)

zihabcool webblog's mengatakan...

Gan kalo pake access gmn??sama kah?

Bayu Idham Fathurachman mengatakan...

@zann , request live tuh di komponen TQuery mas :)

@ziha , belum pernah nyoba tuh kalo pake access , ora mudeng.Tapi selama databasenya pake bahasa SQO , pasti bisa.

Anonim mengatakan...

gan,, aku mau minta bantuan,,,..,
gimana caranya mengaktifkan palette QReport dan rave Report pada delphi 2010,

thanks,,,,.

Bayu Idham Fathurachman mengatakan...

Sama aja kali ya kayak 2007.Saya belum pernah nyoba delphi 2010

Wahyu Hidayatullah mengatakan...

Kalo pencarian data dalam ukuran besar misal recordnya diatas 20juta gimana? apa juga nggak pengaruh?

Bayu Idham Fathurachman mengatakan...

ya ngaruh lah gan.yang perlu di tingkatkan ya servernya itu tadi.Biar traffic jutaan tersebut bisa ke handle.Kalo kode sih gak masalah , cuma hardwarenya juga musti support ..

welcome mengatakan...

gan mw tanya,,,,ini ttg pncrian data,,,,
misal ad data "iuran wajib"
nah sya mw cari dta "iuran wajib" tpi keyword nya ane ketik "wajib""
tu sintag ny gmn gan??

Gemayoeda mengatakan...

gan mau nanya keluar dari bahasan ini nihh!! hehehe...
itu tampilannya mantap gan!!pake apa yahhh?boleh tau ga nihh!!

Anonim mengatakan...

gan aplikasinya udah jalan seperti yang diharapkan tp koq lemot yach,padahal klo pake interbase lebih cepat

Posting Komentar