盒子论坛 v2.1

在函数单元写下面的过程（其它单元调用此过程）
//由EDIT中的值(SPID)返回COMBOBOX的值(SPMC)
procedure queryname(var edit:TEdit;var combobox:TComBoBox);
var
sqlstring:string;
adoquery:Tadoquery;
begin
adoquery:=Tadoquery.create;
adoquery.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\data\jxcdata.mdb;Persist Security Info=False';
COMBOBOX.Items.Clear;
if trim(edit.text)<>' then
Sqlstring:='select SPMC from SPZL where SPID like ''+trim(edit.text)+'%''
else
sqlstring:='select SPMC from SPZL';
adoquery.Close;
adoquery.SQL.Clear;
adoquery.SQL.add(sqlstring);
adoquery.Open;
while not ADOQUERY.Eof do
begin
COMBOBOX.Items.Add(ADOQUERY.FieldByName('SPMC').AsString);
ADOQUERY.Next;
end;
end;
为什么老说EDIT及COMBOBOX没定义？

----------------------------------------------
-

信息

登陆以后才能回复