procedure TForm3.xmbox(Sender: TObject); var i: integer; begin with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('select distinct 姓名 from 学习'); Open; combobox1.items.clear; for i:=0 to (adoquery1.recordcount-1) do begin combobox1.items.add(adoquery1.fieldbyname('姓名').asstring); adoquery1.next(); end; end; end;
procedure TForm8.FormCreate(Sender: TObject); begin xmbox(combobox1); end;
procedure TForm3.xmbox(Sender: TObject); var i: integer; begin with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('select distinct 姓名 from 学习'); Open; combobox1.items.clear; for i:=0 to (adoquery1.recordcount-1) do begin combobox1.items.add(adoquery1.fieldbyname('姓名').asstring); adoquery1.next(); end; end; end;
//form3中,combobox调用。
procedure TForm3.FormCreate(Sender: TObject); begin xmbox(combobox1); end;
//form2 打开.form3窗口的代码是: procedure TForm2.ToolButton1Click(Sender: TObject); begin if not Assigned(Form2) then begin Form2:=TForm2.Create(Self); end else Form2.Show; end;
//form2 打开.form3窗口的代码是: procedure TForm2.ToolButton1Click(Sender: TObject); begin if not Assigned(Form2) then begin Form2:=TForm2.Create(Self); end else Form2.Show; end;