ComboBox adalah kombinasi kemampuan dari TextBox dan ListBox . Kita dapat memasukkan informasi seperti halnya TextBox, kita juga dapat memilih daftar item seperti ListBox. Kali ini saya akan membuat artikel cara menampilkan record pada tabel kedalam ComboBox. Untuk menampilkan record kedalam ComboBox caranya seperti dibawah ini :
- Buat project baru Delphi
- Pastikan sudah terkoneksi pada database dengan benar.
- Tamabahlan TZQuery pada lembar projek.
- Kemudian masukan scrip kode seperti ini pada printah SQLnya "(SELECT KodeTanya,Tanya from tanya)", pastikan TZQuery sudah dalam keadaan "true",.
- Tambahkan komponen TComboBox & TMemo pada lembar project.
- Klik TComboBox->Object inspector->Events->pilih OnClickMASUKAN KODE DI BAWAH INI
ZQueryTanya.SQL.Clear; // ZQueryTanya samakan dengan ZQuery yang anda buat
ZQueryTanya.SQL.Add('SELECT KodeTanya,Tanya from tanya');
ZQueryTanya.SQL.Add('Where KodeTanya = ''' + ComboBox1_KodeTanya.Text + ''''); // ComboBox1_KodeTanya samakan dengan nama ComboBox1 yang anda tambahkan pada project.
ZQueryTanya.Open;
MemoPertanyaan.Text:=ZQueryTanya['Tanya']; //memanggil/menampilkan file Tanya pada table Tanya, berdasarkan kode yang dipilihCATATAN PENTING...tanda merah adalah keterangan yang anda harus samakan dengan project yang anda buat - Klik TComboBox->Object inspector->Events->pilih OnDropDown
MASUKAN KODE DI BAWAH INI
ComboBox1_KodeTanya.Items.Clear;
ZQueryTanya.SQL.Clear;
ZQueryTanya.SQL.Add('select distinct KodeTanya,Tanya from tanya');
ZQueryTanya.Open;
while not ZQueryTanya.Eof do
begin
ComboBox1_KodeTanya.Items.add(ZQueryTanya['KodeTanya']);//member printah bahwasanya combobox akan berisi kode tanya
ZQueryTanya.Next
end; - Langkah terahir Save all jika dijalankan hasilnya seperti ini :
selesai, selamat mencoba...
0 comments:
Post a Comment