Search / Pencarian Data di Database MySQL dari Lazarus / Delphi

Sahabat, pada tutorial kali ini saya melakukan pencarian 4 field sekaligus yang ada dalam 1 tabel di Database MySQL dari Lazarus.

Komponen yang dipakai ada 2 :

• LabeledEdit (lokasinya di tab Additional)
• DbGrid (lokasinya di tab Data Controls)

Penempatan Codingnya adalah pada OnChange LabeledEdit1, agar saat sahabat mengetik datanya juga ditampilkan di DBGrid secara real time melakukan pencarian, jika ingin menggunakan tombol silahkan double click tombolnya paste codingnya / ketik ulang codingnya agar cepat mahir. Berikut Codingnya :

with ZQuery1 do //gunakan with do agar tidak menulis ZQuery berulang kali
  begin
    SQL.Clear; //mengosongkan perintah ZQuery
    SQL.Add('select * from data where (jam like ''%'+LabeledEdit1.Text
    +'%'')or(tgl like ''%'+LabeledEdit1.Text
    +'%'')or(ket like ''%'+LabeledEdit1.Text
    +'%'')or (hari='''+LabeledEdit1.Text+''')'); //pencarian dengan 4 Field
    Open;
  end;   

4 Field pencariannya yaitu :

• Field Jam ( pencariannya tidak harus sama, kalau ada karakater yang sama akan ditampilkan )
• Field Tgl ( pencariannya tidak harus sama, kalau ada karakater yang sama akan ditampilkan )
• Field Ket ( pencariannya tidak harus sama, kalau ada karakater yang sama akan ditampilkan )
• Field Hari ( pencariannya harus sama dengan data, jika tidak maka data tidak akan ditampilkan )

Jadi Coding diatas terdapat 2 jenis pencarian dengan menggunakan like dan =

Cukup Mudah Bukan, Semoga Bermanfaat dan Terima Kasih.