Membuat Pencarian dengan data base SQL pada delphi

Salam Mahasiswa ...


Nih sedikit tutorial tentang bagai mana membuat pencarian di delphi yang menggunakan database SQL selver .. simak ya guys

Pertama tama desain program seperti berikut atau siapkan program anda yang mau anda kasih pencanrian , seperti berikut :

Kemudian pada  Combo box  Isikan item yang anda mau bauat  , kalau di tutorian seperti gambar berikut

Kemudian pada edit tex isikan Secrip berikut ini :


if combobox1.ItemIndex=0 then

zquery1.SQL.Text:=' select*from mahasiswa WHERE nim LIKE "%'+Edit1.Text+'%"';

if combobox1.ItemIndex=1 then

zquery1.SQL.Text:=' select*from mahasiswa WHERE nama_mahasiswa LIKE "%'+Edit1.Text+'%"';

zQuery1.Open;



kemudian run program maka Pencarian sudah bisah di gunakan


mudah kan selamat mencoba guys ..