/先将所有按钮使能都设为否
rzgroup1.Items[0].Enabled:=false;
id:=form2.Edit1.Text;
adoquery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select 权限编号 from 权限清单 where 用户权限="工艺查询" and 用户编号='''+id+''''; //这儿是没有查询到数据的,但实际应该有数据,不知什么地
方出错.
Adoquery1.Open;
if adoquery1.FieldByName('权限编号').AsString<>'' then
begin
rzgroup1.Items[0].Enabled:=true;
end;
rzgroup1.Items[0].Enabled:=false;
id:=form2.Edit1.Text;
adoquery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select 权限编号 from 权限清单 where 用户权限="工艺查询" and 用户编号='''+id+''''; //这儿是没有查询到数据的,但实际应该有数据,不知什么地
方出错.
Adoquery1.Open;
if adoquery1.FieldByName('权限编号').AsString<>'' then
begin
rzgroup1.Items[0].Enabled:=true;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货