Pemrograman Basis Data dengan Delphi – DBLookupCombobox

Penggunaan Componen DBLookupCombobox

Pada sesi pemrograman basis data menggunakan Delphi ini, akan kita bahas tentang penggunaan komponen DBLookupCombobox. Pada DBLookupCombobox. Beberapa propeti yang perlu diatur antara lain:

  • DataSource, diisi dengan nama komponen datasource
  • DataField, diisi dengan nama field yanga kan disimpan
  • ListSource, diisi dengan nama komponen 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

Struktur Tabel Fakultas

  • Isi tabel Fakultas record-record sebagai berikut:
data fakultas

data fakultas


  • Buat tabel Prodi dengan struktur sebagai berikut:

struktur tabel prodi

  • Isi tabel Prodi record-record sebagai berikut:
Data Prodi

Data Prodi

  • Tambahkan form, dan letakkan control-control, seperti pada gambar berikut:
Form Prodi

Form Prodi

  • Lakukan pengaturan properti pada form Prodi seperti tabel berikut ini:

Pengaturan properti pada form Prodi

  • Tampilan form Prodi setelah pengaturan properti
Tampilan form prodi setelah 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;

Tuliskan komentar anda

Komentar

Tinggalkan Balasan