在delphi7中,添加了一个combobox控件,如何让表里的数据自动显示在它的下拉框中啊,
在delphi7中,添加了一个combobox控件,如何让表里的数据自动显示在它的下拉框中啊,
我的代码如下:
procedure TForm4.FormCreate(Sender: TObject); -----不知道事件用的对不对,
var
i: integer;
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select distinct 业务名称 from tb_yewu');
Open;
combobox1.items.clear;
for i:=0 to (adoquery1.recordcount-1) do
combobox1.items.add(adoquery1.fieldbyname('业务名称').asstring);
adoquery1.next();
end;
end;
显示不出来,望各位高手帮忙,谢谢