请问:怎样实现不同用户对菜单的分级别访问 我用的是vb6.0在一个主窗口下有很多菜单菜单下还有菜单怎么实现用户登陆后以他的级别判断是否能访问相应的菜单?菜单是控件吗?有参数吗?谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 设菜单a,b,c,d在增加用户时用check来确定权限,得出一个数据(根据这个数据来决定哪个菜单可用)如果 check选择:1 ,未选择:0 例如一个权限是只能看到a,b,c 则数据为1110 做一个函数用来根据权限对菜单的可用性进行设置'//传入权限等级private sub setmenu (intPower as integer)'//先将所有的菜单设置为enable.......'//再根据intpower 值的不同设置菜单的不可用性if intpower=1 then......end ifif intpower=2 then......end if......end sub如果一个权限可以包含另一个权限的话,上面的函数还可以递归使用。 vb 代码方式清空access数据库中所有表中的所有数据,保留表结构 VB+Access软件打包问题!在线等,谢谢! 继续讨论Null值问题 如何获得任务管理器中所运行的文件的绝对路径 奇怪的“From子句语法错误”,进来帮我看看啊,高分求救!!! 怎么让mscomm的input停下来? 怎么在form1中打印不出来 用Winsock发送电子邮件,为什么Outlook收到的中文为乱码? 请问用什么函数? 谁知道那有vb的库文件下载啊~~在线等待40分 小问题,在线等待,马上给分! 怎样使textbox控件没有粘贴功能呀?在线等待.........
在增加用户时用check来确定权限,得出一个数据(根据这个数据来决定哪个菜单可用)
如果 check选择:1 ,未选择:0 例如一个权限是只能看到a,b,c 则数据为1110
private sub setmenu (intPower as integer)
'//先将所有的菜单设置为enable
.......'//再根据intpower 值的不同设置菜单的不可用性
if intpower=1 then
......
end ifif intpower=2 then
......
end if......
end sub
如果一个权限可以包含另一个权限的话,上面的函数还可以递归使用。