salam buatsesepuh ma temen2 delphisemua... :D mohonbantuan nihh... gimana yaaah cara menampilkan data dari data base ke komponen combobox?? saya ingin buat konsep katagori pemeriksaan, dan katagorinya itu sudah saya buat databasenya...ada 2 field dlm database katagorinya itu (katagori_id dan katagori_nama)... dan yang ingin saya tampilkan di combobox nya itu hanya nama katagori saja....saya sudah coba, tapi data dari field katagori_nama hanya tampil hanya baris pertama saja...untuk baris2 selanjutnya tidak tampil pada comboboxnya... mohon solusinya...

Alo...code nya ? kalo nggak ada codenya nggak bisa diliat kekurangannya tuh. Pada dasarnya yah 1. query database, 2. looping sampe EOF (while not adoquery.eof do .....) - ambil field valuenya - tambah item di combo box (cb.items.add(field value)) - next record

Alo...code nya ? kalo nggak ada codenya nggak bisa diliat kekurangannya tuh. Pada dasarnya yah 1. query database, 2. looping sampe EOF (while not adoquery.eof do .....) - ambil field valuenya - tambah item di combo box (cb.items.add(field value)) - next record

//------------------------------------------------------------------------------
//prosedur saat form quality control ditampilkan
//------------------------------------------------------------------------------
procedure Tf_qualitycontrol.FormShow(Sender: TObject);
begin
  ZQkatagori.Active := true;    //aktifkan komponen ZQkatagori
  DataSourcekatagori.Enabled := true;  //aktifkan komponen datasource katagori
  GroupBox1.Enabled := true;    //aktifkan kolom pilih katagori
  GroupBox2.Enabled := false;   //nonaktifkan kolom buat katagori baru
  GroupBox3.Enabled := false;   //nonaktifkan kolom buat pemeriksaan baru
  bersih_katagori;      //panggil prosedur bersih_katagori
  bersih_pemeriksaan;   //panggil prosedur bersih_pemeriksaan
  //konfigurasi field list katagori pemeriksaan
  with ZQkatagori do
    begin
      ZQkatagori.Close;       //matikan komponen ZQKatagori
      ZQkatagori.SQL.Clear;   //bersihkan perintah SQL jika ada
      ZQkatagori.SQL.Add('select katagori_nama from tabel_katagori');   //lakukan perintah select untuk kolom katagori nama saja pada tabel_katagori
      ZQkatagori.Open;        //aktifkan komponen ZQkatagori
    end;
    Listkatagori.Items.Add(ZQkatagori.FieldValues['katagori_nama']);
end;

ini kodenya... :) aduuh...saya belom paham untuk prosedur itu kakaa :(

Setelah baris

ZQkatagori.Open;

, sqlnya dieksekusi dan meghasilkan dataset yg terdiri dari beberapa record, dan pointernya ada di record pertama. Tapi karena baris terakhirnya...

    Listkatagori.Items.Add(ZQkatagori.FieldValues['katagori_nama']); 

cuma ada sekali, yah programnya cuma nambahin satu record doang (record pertama). Makanya perlu dikasih looping kaya gini

  //konfigurasi field list katagori pemeriksaan
  with ZQkatagori do
    begin
      ZQkatagori.Close;       //matikan komponen ZQKatagori
      ZQkatagori.SQL.Clear;   //bersihkan perintah SQL jika ada
      ZQkatagori.SQL.Add('select katagori_nama from tabel_katagori');   //lakukan perintah select untuk kolom katagori nama saja pada tabel_katagori
      ZQkatagori.Open;        //aktifkan komponen ZQkatagori
      while not eof do 
      begin
         Listkatagori.Items.Add(ZQkatagori.FieldValues['katagori_nama']); 
         next; // majukan pointernya ke record berikutnya
      end;
    end;

semoga membantu.

kk pake DBLookUpCombo z (ada di component Win 3.1). asumsikan databasenya pake acces yah. ntar kk tinggal tmbahkan 1 adotable (asumsikan namanya adotable1. kemudian atur property connectionstring, tablename dan active. trus kk tambahkan 1 datasource (asumsikan namanya datasource1). kemudian atur property dataset ke adotable1. trus pada dblookupcombo atur property lookupsource menjadi datasource1, lookupfield menjadi = kategori_nama. semoga membantu.!

@halimanh: Setelah baris

ZQkatagori.Open;

, sqlnya dieksekusi dan meghasilkan dataset yg terdiri dari beberapa record, dan pointernya ada di record pertama. Tapi karena baris terakhirnya...

    Listkatagori.Items.Add(ZQkatagori.FieldValues['katagori_nama']); 

cuma ada sekali, yah programnya cuma nambahin satu record doang (record pertama). Makanya perlu dikasih looping kaya gini

  //konfigurasi field list katagori pemeriksaan
  with ZQkatagori do
    begin
      ZQkatagori.Close;       //matikan komponen ZQKatagori
      ZQkatagori.SQL.Clear;   //bersihkan perintah SQL jika ada
      ZQkatagori.SQL.Add('select katagori_nama from tabel_katagori');   //lakukan perintah select untuk kolom katagori nama saja pada tabel_katagori
      ZQkatagori.Open;        //aktifkan komponen ZQkatagori
      while not eof do 
      begin
         Listkatagori.Items.Add(ZQkatagori.FieldValues['katagori_nama']); 
         next; // majukan pointernya ke record berikutnya
      end;
    end;

semoga membantu.

terima kasih kaka halimanh, data recordnya keluar.hehe :D tapi saya agak kurang ngerti dibagian while not eof do... ini kan kondisi perulangan...knapa ada not nya yah disitu..?? apa artinya prosedur eof ditiadakan?? tolong penjelasannya...krna percuma qlo program jalan tapi gak tau prosesnya :)

@cartrun: kk pake DBLookUpCombo z (ada di component Win 3.1). asumsikan databasenya pake acces yah. ntar kk tinggal tmbahkan 1 adotable (asumsikan namanya adotable1. kemudian atur property connectionstring, tablename dan active. trus kk tambahkan 1 datasource (asumsikan namanya datasource1). kemudian atur property dataset ke adotable1. trus pada dblookupcombo atur property lookupsource menjadi datasource1, lookupfield menjadi = kategori_nama. semoga membantu.!

ohh...ada juga komponen yang khusus untuk lookup gitu yaa... maaf yah, blom coba2 soalnyah...hehe saya tes dulu qlo gitu... terima kasih kaa cartrun :)

terima kasih kaka halimanh, data recordnya keluar.hehe Very Happy tapi saya agak kurang ngerti dibagian while not eof do... ini kan kondisi perulangan...knapa ada not nya yah disitu..?? apa artinya prosedur eof ditiadakan?? tolong penjelasannya...krna percuma qlo program jalan tapi gak tau prosesnya Smile

Iya, misalkan hasil querynya ( setelah ZQkatagori.Open; ), adalah: katagori_nama ============= kategori_1 <=== pointer berada pada record pertama kategori_2 .... kategory_n EOF <=== EOF selalu ada dibagian akhir, tapi tidak terlihat Nah, didalam looping (while loop) nya, kan ada perintah 'next;'. Perintah itu memindahkan pointer ke record berikutnya, seperti berikut : katagori_nama ============= kategori_1 kategori_2 <=== pointer berada pada record kedua ... kategory_n EOF Demikian seterusnya, sampai terakhir, pointer berada pada EOF. Ketika pointer berada pada posisi EOF, kita telah selesai, makanya pada loopnya kita taruh.

  while not EOF

'not EOF' berarti kalau pointer tidak pada posisi EOF, maka lakukan perintah-perintah di dalam loop tersebut. Semoga ini memperjelas kode diatas. [i:5baf6a6bf5][/i:5baf6a6bf5]

@binyo:

@cartrun: kk pake DBLookUpCombo z (ada di component Win 3.1). asumsikan databasenya pake acces yah. ntar kk tinggal tmbahkan 1 adotable (asumsikan namanya adotable1. kemudian atur property connectionstring, tablename dan active. trus kk tambahkan 1 datasource (asumsikan namanya datasource1). kemudian atur property dataset ke adotable1. trus pada dblookupcombo atur property lookupsource menjadi datasource1, lookupfield menjadi = kategori_nama. semoga membantu.!

ohh...ada juga komponen yang khusus untuk lookup gitu yaa... maaf yah, blom coba2 soalnyah...hehe saya tes dulu qlo gitu... terima kasih kaa cartrun :)

oke sama".