Foxtable(狐表)用户栏目专家坐堂 → 代码改写(菜单按钮权限)


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

主题:代码改写(菜单按钮权限)

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
代码改写(菜单按钮权限)  发帖心情 Post By:2009/12/9 2:05:00 [只看该作者]

Dim r As String =e.Form.Controls("ComboBox1").Value
Dim mm As String = MD5Encrypt(e.Form.Controls("TextBox1").Value)
Dim dr As DataRow
'在用户表查找所输入用户名与密码的行
dr = DataTables("用户").Find("[用户名] = '" & r & "' And [密码] = '" & mm & "'")

If dr IsNot Nothing Then '如果找到
    Vars("用户组") = dr("组")
    Tables("登陆")(0)("用户名") = r '与入当前表第一行用户名列为输入用户名
    Vars("用户名") = r '写入全局变量
    e.Form.Close()  '关闭窗口
    for each rb as RibbonMenu.Tab in RibbonTabs 'RibbonTabs是一个菜单集合,可以用for each遍历的
        rb.Visible = True  '显示菜单
    Next
    '按用户组显示或隐藏菜单项目
    If  Vars("用户组") <> "管理员" Then
        RibbonTabs("DIY")("管理员操作").Visible = False
        RibbonTabs("DIY")("设计员操作").Visible = False
    Else
        RibbonTabs("DIY")("管理员操作").Visible = True
        RibbonTabs("DIY")("设计员操作").Visible = True
    End If
    e.Form.Close()
   
Else  '否则
    MessageBox.Show("用户名或密码错误!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Error)
    e.Form.Controls("TextBox1").Select() '将输入焦点移到密码文本框中.
   
End If



主要是红色部分因该怎样改写:
以上功能组按用户隐藏功能如果换成是菜单按钮A中有标准按钮A1和组合按钮A2及还有其他,A2中有标准按钮A21、A22。
1.在快速访问栏时怎样设置代码根据不同用户隐藏,假如分别隐藏A21、A2、A三种情况分别应该怎样写。
2.在配置栏时怎样设置代码根据不同用户隐藏又应该怎么写。谢谢

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/12/9 9:58:00 [只看该作者]

都一样:

RibbonTabs
("实战演练二")("任务八")("chkBrowse").Visible = False
RibbonTabs("实战演练二")("任务八")("staBrowse").Visible = True

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2009/12/9 12:51:00 [只看该作者]

以上只是对功能区和功能组的按钮设置。
我现在是要在快速访问栏和配置栏的按钮设置

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/12/9 13:00:00 [只看该作者]

还是一样的啊

Qat("Save").Visible = False
ConfigBar("BrowseMode").Visible = False



QAT是快速访问栏,ConfigBar是状态栏


 回到顶部