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 :
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 :
var7. Tambahkan Code ini didalam Event DBGRID onDrawColoumcell
i : integer;
begin
for i := 1 to ZQuery2.RecordCount do
begin
ComboBox1.Items.Add(ZQuery2['Keterangan']);
ZQuery2.Next;
end;
end;
DBGrid1.Columns[2].PickList:=ComboBox1.Items;8. Hasil Akhirnya Seperti ini :
Tidak ada komentar:
Posting Komentar