Misalkan saya punya 2 tabel. Tabel pertama namanya tabel Roti. Tabel kedua namanya tabel Komposisi. Field2 dari tabel roti adalah : NamaRoti ---> string Harga ----> integer Field2 dari tabel komposisi adalah : NamaRoti ---> string NamaBahan ---> string Dan misalkan relasi kedua tabel itu, dari tabel Roti ke tabel Komposisi adalah one to many. Sekarang saya mau menampilkan di DBComboBox record2 dari tabel Roti. Dan saya mau menampilkan di DBGrid record2 dari tabel komposisi yang nama rotinya dipilih dari DBComboBox. Gimana yah cara buatnya? Thx yak

Biasanya kalau untuk itu aku gak pake TDBComboBox tapi cukup pake Combobox aja lebih fleksibel :)

procedure getlistnamaroti;
var getroti : string;
begin
  getroti := 'select namaroti from roti'
  with adoquery1 do
  begin
      close;
     sql.clear;
     sql.add(getroti);
     open;
  end;
end;
procedure TForm1.ComboBox1DropDown(Sender: TObject);
var i : integer;
begin
    getlistnamaroti;
    combobox1.clear;
    for i := 0 to  adoquery1.recordcount-1 do
    begin
        combobox1.items.add(adoquery1.FieldByName('namaroti').asstring);
       adoquery1.next;
   end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
    // lakukan perintah cari komposisi..................
end;

Thanks yah buat bantuannya

Saya sudah mencoba coding diatas tapi kenapa yang muncul di ComboBox, walau list record dah muncul, tapi walau dah pilih item yang lain tapi tetep ComboBox.Text selalu record terakhir. Kenapa ya? Thanks yah

wah, lama nggak maen2 ma delphi nih.. keasyikan bikin web.. fungsi filter ya.. coba deh code dibawah ini :

procedure TForm1.FormActivate(Sender: TObject);
begin
  query1.sql.text:='SELECT * FROM roti,komposisi where roti.namaroti=komposisi.namaroti';
query1.active:=true;
with query1 do
  begin
    Filtered:=false;
    //Filter
    with combobox1 do
    begin
      Text:='SEMUA NAMA ROTI';
      Refresh;
      First;
      Items.Clear;
      While not Eof do
      begin
        if Items.IndexOf(FieldByName('namaroti').AsString)=-1 then
          Items.Add(FieldByName('namaroti').AsString);
          Next;
      end;
      First;
      Items.Add('SEMUA NAMA ROTI');
    end;
  end;
end;

pada combobox1 :

procedure TFadmin.combobox1Change(Sender: TObject);
begin
  with query1 do
  begin
      Filter:='namaroti='+QuotedStr(combobox1.Text);
  end;
end;

belom di compile, klo ada error, maklum aja.. diutak-atik sendiri yach.. TMIIW..

Salam kenal, Mungkin ini bisa sedikit lebih membantu

procedure Tfrmadddata3.cmbtrace1DropDown(Sender: TObject); begin frmmaindataadmin.tabeltrace.Connection := frmkonfigurasi.adoconnection; frmmaindataadmin.tabeltrace.TableName :='tbl_trace'; frmmaindataadmin.tabeltrace.Active := true; if not frmmaindataadmin.tabeltrace.Eof then begin frmmaindataadmin.tabeltrace.First; repeat frmadddata.cmbtrace.AddItem(frmmaindataadmin.tabeltrace.fieldbyname('trace').AsString , TObject(NIL)); frmmaindataadmin.tabeltrace.Next; until frmmaindataadmin.tabeltrace.Eof; end; end;

tinggal tambahkan komponen table di frmmaindata admin atau form apa aja sesuai dengan yang anda inginkan Semoga jawaban singkat ini dapat membantu. Terima kasih