Arsip: [help] menampilkan data database pada combobox
more 11 years ago
binyo
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...
more 11 years ago
halimanh
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
more 11 years ago
halimanh
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
more 11 years ago
binyo
//------------------------------------------------------------------------------
//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 :(
more 11 years ago
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.
more 11 years ago
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.!
more 11 years ago
binyo
@halimanh: Setelah baristerima 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 :), sqlnya dieksekusi dan meghasilkan dataset yg terdiri dari beberapa record, dan pointernya ada di record pertama. Tapi karena baris terakhirnya...ZQkatagori.Open;
cuma ada sekali, yah programnya cuma nambahin satu record doang (record pertama). Makanya perlu dikasih looping kaya giniListkatagori.Items.Add(ZQkatagori.FieldValues['katagori_nama']);
semoga membantu.//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;
more 11 years ago
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 :)
more 11 years ago
halimanh
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 SmileIya, 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]
more 11 years ago
cartrun
@binyo:oke sama".@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 :)
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- input data di postgres
by ferry in Lain-lain more 15 years ago - Tambah komponen saat program jalan
by m26403131 in Hal umum tentang Pascal Indonesia more 17 years ago - aplikasi untuk mengetahui sebuah exe didevlop pake apa
by bosenjadiprogrammer in Enginering more 17 years ago - look up form biar auto update
by pakdhegatot in Hal umum tentang Pascal Indonesia more 14 years ago - File Manager
by de27de in Hal umum tentang Pascal Indonesia more 14 years ago - keanehan insert mysql
by viq_01 in MySQL more 16 years ago - Component apa saja yg digunakan dalam suatu Project
by dianovh in Tip n Trik Pemrograman more 15 years ago - kesulitan simpan data ke 2 table sekaligus
by putukaca in Hal umum tentang Pascal Indonesia more 18 years ago - Mohon Pencerahan.............
by yuan_carlos in Hal umum tentang Pascal Indonesia more 17 years ago - menampilkan file float/double dengan pemisah ribuan pada kom
by arif_amm in Tip n Trik Pemrograman more 14 years ago