Cara Mudah Mengisi dan Menampilkan Data Item dari Database ke ComboBox di Delphi

ComboBox adalah komponen GUI  Delphi  yang digunakan untuk menampilkan suatu item dalam bentuk menu kebawah atau drop down list. Item yang terdapat pada ComboBox bisa kita tambahkan secara coding melalui sintak SQL pada saat Form Aktif

dimana dalam propertinya terdapat 4 pilihan style  yang bisa kita pilih dan umumnya default ke csDropdownList

 Pada kasus ini kita akan mencoba menampilkan data tipe barang dari tabel tipebarang dan diurutkan berdasarkan id nya.

Syntak

procedure TFGReceipt_Detail.FormShow(Sender: TObject);

begin

with dm.qr do

  begin

     cbtipe.Items.Clear;

     close;

     sql.Clear;

     sql.Add('select tipe from tipebarang order by idtipe');

     open;

     if not IsEmpty then

       begin

          first;

          while not eof do

             begin

                cbtipe.Items.Add(Fields[0].AsString);

                next;

           end;

           cbtipe.ItemIndex:=0;

       end;

  end;

end;

Output Setelah Aplikasi di RUN

Jika kita uji coba sintak SQL tersebut langsung ke database hasilnya sama seperti terlihat pada gambar berikut

Selamat Mencoba

Padepokan IT Course

IT Training Center & Solution