delphi combobox问题

lsw186619 发布于 2013-03-14 15:50， 655 次点击

我有张数据表：
楼房号  楼层数房间数人数
1         4       6     4
2          4      15     4

现在想把楼房号下面的数据读取到combobox中，请问这个代码应该怎么写，有connection，Adoquery组件在

3 回复

wp2319572013-03-14 16:02

很容易吧不知道你哪里不会呢

余姚威尔2013-03-15 08:56

这是一个登入界面的，你自己琢磨修改下就可以的
procedure Tfrm_login.SpeedButton1Click(Sender: TObject);
begin
with
    ADOQuery1 do
      begin
        close;
        SQL.Clear;
        SQL.Add('select * from 登录 where (用户名=:a) and (密码=:b) ');
        parameters.ParamByName('a').Value:=Trim(Edit1.Text);
        parameters.ParamByName('b').Value:=Trim(Edit2.Text);
        open;
end;

有容就大2013-03-16 14:02

设置好connection，Adoquery组件的链接数据库

然后写代码
在界面添加一个ComboBox和一个Button

程序代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'Select * from pub_info';
  ADOQuery1.Open;

  ComboBox1.Clear;
  while not ADOQuery1.Eof do
  begin
    ComboBox1.Items.Add(ADOQuery1.FieldByName('pub_id').AsString);
    ADOQuery1.Next;
  end;
end;

end.