delphi Á¬½ÓÊý¾Ý¿â °ïÎÒ½âÊÍÕâ¶Ï³ÌÐòÊÇʲôÒâ˼

procedure TPut_Form.FormActivate(Sender: TObject);
begin
    with adotable1 do
      begin
        tablename:='produce_type_t';
        if not active then
        active:=true;
        first;
          dbcombobox2.Items.Clear;
        dbcombobox1.Items.Clear;
      end;
        while not adotable1.Eof do
          begin
          dbcombobox2.Items.add(adotable1.Fields.fields[0].asstring);
          dbcombobox1.Items.add(adotable1.Fields.fields[1].asstring);
          adotable1.next;
          end;
    dbcombobox2.ItemIndex:=0;
    dbcombobox1.ItemIndex:=0;
end;

---

Delphi(Pascal) code:

procedure TPut_Form.FormActivate(Sender: TObject);
begin
with adotable1 do
begin
tablename:='produce_type_t'; //ÉèÖñíÃû
if not active then
active:=true; //´ò¿ªtable
first; //Ö¸ÏòµÚÒ»Ìõ¼Ç¼
dbcombobox2.Items.Clear; //Çå¿Õitems