PENGGUNAAN CONTROL DBLOOKUPCOMBOBOX
Pada sesi pemrograman basis data menggunakan Delphi ini, akan kita bahas tentang penggunaan DBLookupCombobox. Pada DBLookupCombobox. Beberapa propeti yang perlu diatur antara lain:
DataSource, diisi dengan nama control datasource
DataField, diisi dengan nama field yanga kan disimpan
ListSource, diisi dengan nama control datasource yang berfungsi sebagai sumber data untuk pilihan comboc
KeyField, data yang akan diambil nilainya untuk disimpan
ListField, merupakan fiels yang tampil dalam pilihan
CONTOH PENGGUNAAN CONTROL DBLOOKUPCOMBOBOX
Buat folder Perpustakaan
Buat tabel Fakultas pada Database Desktop, dengan struktur sebagai berikut:
Struktur Tabel Fakultas
Isi tabel Fakultas record-record sebagai berikut:
data fakultas
Buat tabel Prodi dengan struktur sebagai berikut:
struktur tabel prodiIsi tabel Prodi record-record sebagai berikut:
Data Prodi
Tambahkan form, dan letakkan control-control, seperti pada gambar berikut:
Form Prodi
Lakukan pengaturan properti pada form Prodi seperti tabel berikut ini:
Pengaturan properti pada form Prodi
Tampilan form Prodi setalah pengaturan properti
Tampilan form prodi setelah pengaturan properti
Pengkodean:
rocedure TFProdi.FormCreate(Sender: TObject); begin //mengganti judul kolom DBGrid1.Columns.Items[0].Title.Caption:='Kode Prodi'; DBGrid1.Columns.Items[1].Title.Caption:='Kode Fakultas'; DBGrid1.Columns.Items[2].Title.Caption:='Nama Prodi'; //menengahkan kolom KodeProdi dan KodeFakultas DBGrid1.Columns.Items[0].Alignment:=taCenter; DBGrid1.Columns.Items[1].Alignment:=taCenter; //mematikan tombol simpan dan batal Button2.Enabled:=false; Button3.Enabled:=false; end; procedure TFProdi.Button1Click(Sender: TObject); begin //hidupkan tombol batal dan simpan Button2.Enabled:=true; Button3.Enabled:=true; //matikan tombol tambah dan hapus Button1.Enabled:=false; Button4.Enabled:=false; //pindahkan fokus ke DBEdit1 DBEdit1.SetFocus; Table1.Append; end; procedure TFProdi.Button2Click(Sender: TObject); begin //hidupkan tombol Tambah dan Hapus Button1.Enabled:=true; Button4.Enabled:=true; //matikan tombol Batal dan Simpan Button2.Enabled:=false; Button3.Enabled:=false; //Simpan pengubahan data Table1.Post; end; procedure TFProdi.Button3Click(Sender: TObject); begin //matikan tombol batal dan simpan Button2.Enabled:=false; Button3.Enabled:=false; //hidupkan tombol tambah dan hapus Button1.Enabled:=true; Button4.Enabled:=true; //Batal proses update Table1.Cancel; end; procedure TFProdi.Button4Click(Sender: TObject); begin //kotak dialog untuk konfirmasi penghapusan if MessageDlg ('Apakah data ini akan dihapus?', mtConfirmation, [mbYes, mbNo],0) = mrYes then //menghapus record aktif Table1.Delete; end; procedure TFProdi.Button5Click(Sender: TObject); begin //menutup form Close end; |