关于多个combobox控件从数据库里提取数据（在线等）

Question

这是我的笨方法：
begin
ComboBox1.clear;
combobox2.clear;
    ADOquery1.active:=false;
    ADOquery1.Close;
    ADOquery1.SQL.Clear;
    ADOquery1.SQL.Add(' select distinct sex from intclientinf ');
    adoquery1.active:=true;
    ADOquery1.Open;
    ADOquery1.first;
    while not ADOquery1.Eof do
     begin
     combobox1.items.add(ADOquery1.fieldbyname('sex').asstring);
     ADOquery1.next;
     end;    ADOquery1.active:=false;
    ADOquery1.Close;
    ADOquery1.SQL.Clear;
    ADOquery1.SQL.Add(' select distinct intbuina from intclientinf ');
    adoquery1.active:=true;
    ADOquery1.Open;
    ADOquery1.first;
    while not ADOquery1.Eof do
      begin
      combobox2.items.add(ADOquery1.fieldbyname('intbuina').asstring);
      ADOquery1.next;
      end;end;请问谁呀更简单的方法呀 小女子着急用呢

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
    procedure SetCombobox(Combox: Tcombobox; Sqlstr,FieldName: string);
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.SetCombobox(Combox:Tcombobox;Sqlstr,FieldName:string);
begin
  Combox.clear;
  with  ADOquery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Sqlstr);
    Open;
    first;
    while not ADOquery1.Eof do
      begin
        Combox.items.add(fieldbyname(FieldName).asstring);
        next;
     end;
  end;
end;//调用
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetCombobox(ComboBox1,'select * from dm_rydm','rymc')
end;