Item combobox yang diakses dari tabel (Delphi)

1. Masukkan dan setting ADOConection
2. Tambahkan ADODataset, setting dengan nama golongan.
3. Tambahkan combobox dan beri nama cmbjabatan

4. Masuk ke procedure form1.Activate
5. Tambahkan script tbjabatan.active:=false;  tbjabatan.commandtext:='select * from jabatan order by nama_jabatan’;

  tbjabatan.Active:=true;

  cmbjabatan.Items.Clear;

  while not tbjabatan.Eof do

  begin

  cmbjabatan.Items.add(tbjabatan ['nama_jabatan']);

  tbjabatan.Next;

  end;

6. Keterangan :

'select * from jabatan order by nama_jabatan’

ð     Pilih semua field dari tabel jabatan diurutkan berdasarkan field nama_jabatan.

ð     Jabatan = tabel

ð     Nama_jabatan = field