重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
定义一个全局变量,比如 DIm myAuthority As Integer。
公司主营业务:成都做网站、成都网站制作、成都外贸网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联建站是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联建站推出鹿邑免费做网站回馈大家。
用来存放当前登录用户的权限 myAuthority = Trim(user_SignIn.rs.Fields("用户级别").Value。
通过 Select Case myAuthority 来区分不同的权限。
注销的时候就把 myAuthority 赋值成权限列表中没有的数值就可以了,比如 myAuthority = 99。
你在项目里,添加新建,应用程序清单,然后根据提示操作就行,他会自动请求管理员权限。
可以在数据库里加个字段[userdpt],可区分用户组。比如管理员组就设为admin.
通过判断组别来控制菜单项
3个表中用户名和密码及权限都放到一个表如User中吧 方便些。用户名用下拉框,选择姓名后直接弹出权限(Lable).在下拉框SelectedIndexChanged事件中写即可。