Penggunaan DBLookup pada Delphi 7 Form Dengan database

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;