做权限的问题!? ( 积分: 50 )

  • 主题发起人 主题发起人 DelphiFans123
  • 开始时间 开始时间
D

DelphiFans123

Unregistered / Unconfirmed
GUEST, unregistred user!
做一个简单的权限,运行后,不管哪个用户名进去,不能实现代码上写的那样 if q3='管理员'菜单为true, if q3='普通管理员'菜单为false。。希望各位帮个忙, 谢谢了
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 用户权限表 where 姓名 like '''+combobox1.Text+''' and 密码 like '''+MaskEdit1.Text+'''');
open;
q3:=FieldByName('权限').AsString;
begin
if ADOQUERY1.RecordCount=0 then
showmessage('密码错误请输入正确密码');
MaskEdit1.SetFocus;
MaskEdit1.Clear;
if ADOQUERY1.RecordCount<>0 then
begin
q1:=combobox1.Text;
q2:=MaskEdit1.Text;
TmainForm.Showmodal;
end;
begin
if q3='管理员' then
TmainForm.N2.Enabled:=true;
TmainForm.N3.Enabled:=true;
TmainForm.N5.Enabled:=true;
end;
begin
if q3='普通管理员' then
TmainForm.N2.Enabled:=false;
TmainForm.N3.Enabled:=false;
TmainForm.N5.Enabled:=false;
end;
end;
end;
end;
end.
 
TmainForm.Showmodal;你都showmodal了
后面的那些代码就再也不会执行了,你应该把那些控制指令放到showmodal之前
不过你这权限控制写的确实不昨的啊
 
52free 大哥我也是刚刚学起来的啊,让你见笑了,呵呵
我刚才照你的方法试了,还是不能实现哦。。。
 
这个你需要单步调试去解决,而你上面的错误则是逻辑性的
而且你的like后面不加通配符也很奇怪,那跟=有啥区别
 
级别 初学乍练
建议 #1000 du book
k 鉴定完毕
 
谢谢52free的指教啊,我去调试下看看~
 

Similar threads

后退
顶部