Pencarian Lebih Cepat...

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

Masukkan alamat email pada form dibawah ini untuk menerima update
mengenai artikel, tutorial atau tips terbaru dari website ini:

Sahabat Lab C