Pencarian dengan Menggunakan ComboBox di delphi

Pada tutorial kali ini kami akan berikan resep programming Untuk mencari data dengan menggunakan fasilitas combobox  khususnya di Delphi. syntaknya adalah sebagai berikut:

procedure TFcetak_Rak.cb_gudangChange(Sender: TObject);

begin

with qr1 do

       begin

           close;

           SQL.Clear;

           SQL.Add('select * from tbrak_v where nam_wh="'+cb_gudang.Text+'"' );

           Open;

           if Active and not IsEmpty  then

            lhasil.Caption := 'Data :'+inttostr(qr1.RecordCount)+' Record'

               else

               lhasil.Caption := 'Data : 0 Record'

       end;

end;

Cara Kerja Program

1.       Dbgrid telah terkoneksi dengan Data Source dan menunjuk ke zquery (qr1)

2.       Program Melakukan Koneksi ke Database via qr1. Dimana qr1 koneksinya sudah di set ke database via Zconnection

3.       SQL Syntak yang digunakan menggunakan perintah select dengan clausa where, artinya parameter data pencarian akan disimpan di combobox

4.       Jika data aktif dan tidak kosong di DBGRID maka akan ditampilkan jumlah data Recordnya.

Selamat Mencoba

PADEPOKAN IT COURSES

IT Tutorial, Training Center & IT Solution

www.padepokanit.com