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

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

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

这是一个登入界面的，你自己琢磨修改下就可以的
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;

设置好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.