procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
adoquery1.Close;
//表查询代码略
adoquery1.Open;
adoquery1.First;
for i:=1 to adoquery1.RecordCount do
begin
combobox1.AddItem(adoquery1.Fieldbyname('users').AsString,nil);
adoquery1.next;
end;
end
delphi 下拉框控件中插入表数据
最新推荐文章于 2024-09-01 14:13:07 发布