adoquery1.SQL.Clear;
sqlstr := 'sql语句';
adoquery1.SQL.Add(sqlstr);
adoquery1.Open;
cb_dcRange.Items.Clear;
while not adoquery1.Eof do
begin
cb_dcRange.Items.Add(adoquery1.Fields[0].AsString);
adoquery1.Next;
end;
procedure TM_form.addcomboboxitems(acombobox: tcombobox;const str_sql: string);
var
tempquery:tadoquery;
begin
tempquery:=tadoquery.create(self);
if dbm.ADOConn.Connected=false then
dbm.ADOConn.Connected :=true;
with tempquery do
begin
close;
connection:=dbm.adoconn;
sql.Clear ;
sql.text:=str_sql;
open;
first;
acombobox.Items.Clear;
while not eof do
begin
acombobox.Items.Add(Fields[0].Value);
next;
end;
end;
acombobox.ItemIndex :=0;
tempquery.Close;
tempquery.Free ;
end;