M
maozhuxi
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
begin
while not adoquery1.isempty do
begin
dbcombobox1.Items.add(adoquery1.Fieldbyname('xm').asstring);
adoquery1.next;
end;
end;