Penggunaan Control DBLookupCombobox

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 prodi

• Isi 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:

procedure 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;             Sumber:http://fairuzelsaid.wordpress.com/2012/06/10/delphi_dblookupcombobox/