Foxtable(狐表)用户栏目专家坐堂 → [求助]自定义登录权限


  共有2455人关注过本帖树形打印复制链接

主题:[求助]自定义登录权限

帅哥哟,离线,有人找我吗?
husl
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:984 威望:0 精华:0 注册:2015/11/16 12:46:00
[求助]自定义登录权限  发帖心情 Post By:2016/4/17 5:49:00 [只看该作者]

Dim UserName As String = e.Form.Controls("UserName").Value
Dim dr As DataRow
If UserName = ""  Then
    Messagebox.show("请输入用户名!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    
  
    
    If _UserGroup = "客户查询"  Then   
        DataTables("库存表").AllowEdit = False 
    End If 
    If _UserGroup ="仓库管理"  Then
        DataTables("库存表").Load
    End If
  
    e.Form.Close
    
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If




老师好,请问下 我按照上面代码执行,为什么 客户查询 账户登录之后  库存表不锁定? 如果代码不能执行的话 怎么换了 仓库管理 账号之后 库存表 却可以加载呢?? 

另外请问下关于  _UserGroup  变量的 问题 。。如果我在 菜单按钮的点击事件设置 了  If _UserGroup = "客户查询"  Then   权限,功能是可以实现的,在主菜单的Load 设置 就不行了 。 是因为主菜单 LOAD 事件 在AfterOpenProject之前吗?
到底在哪里设置全局权限比较好呢?一个个菜单设置的话好像太麻烦了点。。

[此贴子已经被作者于2016/4/17 5:49:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/4/17 13:52:00 [只看该作者]

主菜单 LOAD 事件确实是 在AfterOpenProject之前,把全局的权限控制都放在AfterOpenProject就可以

 回到顶部
帅哥哟,离线,有人找我吗?
husl
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:984 威望:0 精华:0 注册:2015/11/16 12:46:00
  发帖心情 Post By:2016/4/17 20:05:00 [只看该作者]

多谢~~~~~~~这样代码集中在一处方便管理~~谢谢了!

 回到顶部