mencari data dengan ZQuery di delphi 7

salam kenal ini hanya sebagian kecil hasil 1 minggu mengawali belajar delphi secara autodidak,langsung saja komponen yg akan di gunakan.
1. Tabel edit [nomor pegawai, jenis kelamin, nama pegawai].
2. DateTimePicker.
3. Radio button [Laki-Laki, Perempuan].
5. Button [simpan, hapus, edit, cari, refresh] *rekomendasi Button cari saja.
6. Dbgrid.
7. Zconnetion.
8. ZQuery.
9. Data Source.
10. Data Base mysql .

Pertama-tama buat database pegawai terlebih dahulu, jika sudah buat table dengan nama input_peg buat seperti di bawah ini table nya.

jika sudah buat tampilan program didelphi seperti berikut :

jika sudah selesai ganti name button cari menjadi but_cari, EdNamaPeg, EdNoPeg, Datetime, EdKelamin, Rad_laki, Rad_perempuan.
Untuk mengganti nama dari setian button, table edit, radio button datetimepicker lihat propertinya.

buat koneksi ke mysqlnya, jika sudah di buat double klik button cari, dan masukkan scrip berikut  di bawah begin :
      Form1.ZQuery1.Close;
      Form1.ZQuery1.SQL.Clear;
      form1.ZQuery1.SQL.Add('select * from input_peg where NamaPeg like "%'+
      EdNama.Text+'%"');
      Form1.ZQuery1.Open;
      DBGrid1.SetFocus;
EdNoPeg.Text :=ZQuery1.fieldByName('NoPeg').AsString;
EdNama.Text :=ZQuery1.fieldbyname('NamaPeg').AsString;
DateTime.Date :=ZQuery1.fieldbyname('Tanggal').AsDateTime;
EdKelamin.Text := ZQuery1.fieldbyname('Kelamin').AsString;
if EdKelamin.Text = 'Laki-Laki'then
begin
Rad_laki.Checked := true;
end else
begin
Rad_Perempuan.Checked :=True;
end;

untuk lebih detailnya :

penjelasan programnya

Form1.ZQuery1.Close; dengan  Form1.ZQuery1.SQL.Clear; berguna untuk menyegarkan koneksi mysql.
 form1.ZQuery1.SQL.Add('select * from input_peg where NamaPeg like "%'+ EdNama.Text+'%"'); berguna untuk mencari kalimat ke databasenya.
Form1.ZQuery1.Open; berguna untuk setelah ditemukan datanya nya maka secara automatis ditampilkan datanya.
DBGrid1.SetFocus; berguna setelah ditampilkan maka akan terblok hasil pencarial tersebut.
EdNoPeg.Text :=ZQuery1.fieldByName('NoPeg').AsString; EdNama.Text :=ZQuery1.fieldbyname('NamaPeg').AsString; DateTime.Date :=ZQuery1.fieldbyname('Tanggal').AsDateTime; EdKelamin.Text := ZQuery1.fieldbyname('Kelamin').AsString; berguna untuk menampilkan data yang ada di Dbgrid.
if EdKelamin.Text = 'Laki-Laki'then begin Rad_laki.Checked := true; end else begin Rad_Perempuan.Checked :=True; end; berguna untuk mengecek kondisi jika EdKelamin laki-laki maka Rad_laki akan di check jika tidak maka kebalikanya.

dan hasil programnya: 

untuk mensetting koneksi ZConnection, ZQuery, Datasource, DBGrid akan saya jelaskan  dihari selanjutnya.

catatan kecil untuk di DBGrid setting dgRowSelect menjadi true, itu berguna untuk menandari dari hasil yang di dapat dari pencarian tadi itu akan berjalan di DBGrid.setfocus;. Untuk mencari dgRowSelect lihat properti -> options -> dgRowSelect. atau :

Terimakasih