delphi 下拉框控件中插入表数据

2017-10-10 19:10:07来源:CSDN作者:tesily人点击

分享
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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台