Contoh Syntax Delphi ZQuery menampilkan Data ke ComboBox

Contoh Syntax Delphi ZQuery menampilkan Data ke ComboBox. Kode ini berfungsi agar combobox berisi pilihan sesuai data yang diambil dari database.

Konsepnya pilih data dari database dengan metode select dan data diurutkan berdasarkan abjad. Kemudian data hasil query di tambahkan ke item combobox dengan melakukan perulangan sesuai jumlah data hasil query. 

Berikut contoh combobox untuk memilih nama dokter yang datanya diambil dari database.

procedure TFormDokter.FormCreate(Sender: TObject);
Var sql, p : string;
begin

    p:='''';
    sql := 'select * from dokter where aktif='+p+'1'+p+' ORDER BY nama ASC';

    ZQuery1.Close;
    ZQuery1.SQL.Clear;
    ZQuery1.SQL.Add(sql);
    ZQuery1.Open;

    ZQuery1.First;
    While not ZQuery1.Eof do
    begin
      CBSp.items.Add(ZQuery1.FieldValues['spesialis']);
      ZQuery1.Next;
    end

end;

Demikian contoh Syntax Delphi ZQuery menampilkan Data ke ComboBox. Semoga bermangfangat.






Posting Komentar

Pertanyaan atau berdiskusi, silahkan melalui kolom komentar pada artikel yang terkait dengan topik permasalahan.

ERROR - HALAMAN TIDAK TERSEDIA

Copyright © Hakayuci