Menambahkan Komponen Combobox didalam DBGrid Delphi

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

5. Set Property Combobox -> Visible = False
6. Tambahkan Code ini dalam Event Form Show :

1

var

2	i : integer;

3

begin

4	for i := 1 to ZQuery2.RecordCount do

5

begin

6	ComboBox1.Items.Add(ZQuery2['Keterangan']);

7	ZQuery2.Next;

8

end;

9

end;

7. Tambahkan Code ini didalam Event DBGRID onDrawColoumcell

1	DBGrid1.Columns[2].PickList:=ComboBox1.Items;

8. Hasil Akhirnya Seperti ini :

sumber: http://delphitutor.blogspot.com/2013/04/menambahkan-komponen-combobox-didalam.html