Question

delphi 7使用adoquery组件做权限控制,sql serve数据库，select power from emp where empname=edit1.text

就是把用户对应的power值选取出来，如何取？
if power=0 then……
这种形式怎么写
if adoquery1.fieldvalues[power]=0,这种形式怎么不可以呢，求详细代码

Answer 1

// 可能的原因是你没有打开adoquery1,你试试下面的代码
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select power from emp where empname=' + ''' + edit1.text + ''');
adoquery1.Open;
if adoquery1.RecordCount > 0 then
begin
// power是Int型
if adoquery1.FieldByName('power').asInteger = 0 then
ShowMessage('0')
else
ShowMessage('非0');
// power是字符型
if adoquery1.FieldByName('power').asString = '0' then
ShowMessage('0')
else
ShowMessage('非0');
end
else
showmessage('查无此人');

Answer 2

首先sql语句是错误的，等号后面是字符串，应该用单引号括起来。

如果power字段是整型则是：adoquery1.fieldbyname('power').asinteger=0
如果power字段是字符串则是：adoquery1.fieldbyname('power').asstring='0'

追问

出现错误adoquery1:field 'power'not found
为什么啊，求救……

追答

你的表emp中没有power这个列呀。

Answer 3

adoquery1:field 'power'not found

那你需要检查一下adoquery1里有没有power这个字段。