Senin, 22 April 2013

Menambahkan Komponen Combobox didalam DBGrid Delphi

1. Pastikan Tidak ada Masalah Dengan Koneksi Database, Maupun Proses Input atau Delete Pada Program Anda. Jika Masih ada Masalah silahkan baca postingan sebelumnya tentang Koneksi Database MySQL dan Input, Update dan Delete.

2. Pada Contoh Ini admin menggunakan Konektor ZEOS. Sebenarnya sama saja dengan ODBC

3. Buat dua Buah Tabel Pada Database Anda
   - Tabel User (Datanya akan ditampilkan Pada DBGRID) -> 3 Field (Nomor, Username, Keterangan)
   - Tabel Keterangan (Datanya akan ditampilkan Pada Combobox) -> 2 Field (Nomor dan Keterangan)

4. Untuk Desain Formnya Seperti dibawah ini :
   - 1 Buah DBGRID
   - 1 Buah Connector ZEOS
   - 2 Buah ZQUERY (Zquery1 Untuk Tabel User dan ZQuery2 Untuk tabel Keterangan)
   - 1 Buah Datasource
   - 1 Buah Combobox

Combobox dalam DBGrid

5. Set Property Combobox -> Visible = False
6. Tambahkan Code ini dalam Event Form Show :
var
i : integer;
begin
for i := 1 to ZQuery2.RecordCount do
begin
ComboBox1.Items.Add(ZQuery2['Keterangan']);
ZQuery2.Next;
end;
end;

7. Tambahkan Code ini didalam Event DBGRID onDrawColoumcell
DBGrid1.Columns[2].PickList:=ComboBox1.Items;

8. Hasil Akhirnya Seperti ini :

Combobox dalam DBGrid

Tidak ada komentar:

Posting Komentar