ComboBox dengan Table pada Delphi 7.0

Desain Form seperti gambar berikut:


Berikut listing  untuk ComboBox:

begin
//isi combo dari tabel tbl_film
  with datasource1 do
  begin
    table1.First;
    while not table1.Eof do
      begin
        coKdFilm.Items.Append(table1.FieldValues['kdfilm']);
        table1.Next;
      end;
  end;
  end;

Listing untuk menampilkan data pada saat combobox di klik:

begin
  if table1.FindKey([coKdFilm.Text]) then
  begin
    eJudul.Text := table1['judul'];
    eHarga.Text := table1['harga'];
  end;
end;
 

Download File Lengkap + Listing Code ComboBox dengan Table pada Delphi 7.0 .pdf
Download source code, file program ComboBox dengan Table pada Delphi 7.0 .zip