[求助]关于权限管理的问题
怎样根据菜单设置用户的权限,如A用户能用m_m1菜单,B用户能用m_m2菜单,而C两个菜单都能用
请看我的博客里面有一篇关于PB设置权限的文章..
先建立一个数据库~
然后定义2个变量~==================golobal variables 中写:
string usename, level
=================instance variables
int count = 0
登陆窗口的确定中写
string id, pass
string l_id,l_pass
l_id=sle_1.text
l_pass=sle_2.text
select useid,usename,password,level
into :id, :usename, :pass, :level
from denglu
where denglu.useid=:l_id;
if id=""then
messagebox("","用户不存在!")
return
end if
if l_pass=pass then
open(w_1)
else
count++
messagebox("","密码错误!")
if count=3 then
messagebox("","您无权使用本系统!")
halt
end if
end if
再在后面那个窗口中写
close(w_log)
if level = "1" then
this.changemenu(m_gaoji)
end if
if level = "0" then
this.changemenu(m_putong)
end if
this.title = usename
就可以了`
如果还有问题给我发邮件:mm330@163.com