Contoh Syntax Delphi Cari Tampilkan Data Pencarian

Berikut ini dokumentasi syntax Delphi dengan komponen ZQuery untuk Tampilkan Data
Berfungsi untuk menampilkan data ke Grid tabel dari database yang dipilih.

Komponen yang dipakai : ZQuery, Panel, Button, DBGrid, EditText, ComboBox

Alur kode :
Ketika klik tombol Tampil, setelah memasukkan kriteria pencarian maka akan diproses query data yang akan ditampilkan.

Cek validasi data kriteria pencarian apakah kosong? Jika kosong akan tampil pesan 'Masukkan kata kunci'
Jika data ada maka akan tampilkan di Grid tabel aktif
Jika data tidak ada maka akan tampil pesan 'Data tidak ditemukan'



procedure TFormDokter.BCClick(Sender: TObject);
var sql, p : string;
begin
p:='''';
BU.Enabled:=false;
if EdCr.Text<>'' then
  begin
    sql := 'select * from dokter where nama like '+p+'%'+EdCr.Text+'%'+p;//+
           //'or icd2 like '+p+'%'+EdCr.Text+'%'+p;
    ZQuery2.Close;
    ZQuery2.SQL.Clear;
    ZQuery2.SQL.Add(sql);
    ZQuery2.Open;
    //info
    if ZQuery2.RecordCount = 0 then
      begin
      DBGrid1.Enabled:=false;
      MessageDlg('Data tidak ditemukan', mtInformation,[mbOk], 0);
      end
    else
      begin
      DBGrid1.Enabled:=true;
      end
  end
  else
  begin
    DBGrid1.Enabled:=false;
    MessageDlg('Masukkan kata kunci', mtInformation,[mbOk], 0);
  end;
end;

Posting Komentar

Jika ingin memberikan pertanyaan ataupun berdiskusi, mohon agar melalui kolom komentar pada artikel yang terkait dengan topik permasalahan.

ERROR - HALAMAN TIDAK TERSEDIA

Copyright © Hakayuci