我用下面的程序来查询与我在窗口中输入的一个关键字段相匹配的记录,但不知道为什么总出现“用户尚未限权!”提示 procedure TForm3.Button2Click(Sender: TObject); var sStr:string; begin with Query1 do begin close; sql.Clear; sStr:='select * from dis968.dbf where DATATYPE = 4 AND KEYVal = '+''+edit1.text+''; sql.Add(sStr); prepare; open; end; if Query1.RecordCount>0 then showmessage('用户已限权!') else showmessage('用户尚未限权!'); end;
----------------------------------------------
发现错误是我的爱好!