主题：如何隐藏菜单

可用自定义用户登录窗口按钮代码实现，如：

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()  '关闭窗口
    '按用户组显示或隐藏菜单项目
    If  Vars("用户组") <> "管理员" Then
        ContextMenus("Row")("UnLock"). Enabled = False ‘快捷键
        ContextMenus("Column")("UnHide"). Enabled = False
        ConfigBar("用户管理").Visible = False '配置栏
        QAT("文件")("用户登陆")("管理员操作").Visible = False  ’快速访问栏
        QAT("文件")("用户登陆")("设计员操作").Visible = False
        QAT("文件")("基础数据")("基础表").Visible = False
        RibbonTabs("Common").Visible = False ‘功能组
        RibbonTabs("Table").Visible = False
        RibbonTabs("Project").Visible = False
        RibbonTabs("Statistic").Visible = False
        RibbonTabs("Print").Visible = False
        RibbonTabs("Other").Visible = False
    Else
        ContextMenus("Row")("UnLock"). Enabled = True
        ContextMenus("Column")("UnHide"). Enabled = True
        ConfigBar("用户管理").Visible =True
        QAT("文件")("用户登陆")("管理员操作").Visible = True
        QAT("文件")("用户登陆")("设计员操作").Visible =True
        QAT("文件")("基础数据")("基础表").Visible =True
        RibbonTabs("Common").Visible =True
        RibbonTabs("Table").Visible =True
        RibbonTabs("Project").Visible =True
        RibbonTabs("Statistic").Visible =True
        RibbonTabs("Print").Visible =True
        RibbonTabs("Other").Visible =True
    End If
    maintable=tables("登陆") '登陆成功
Else  '否则
    MessageBox.Show("用户名或密码错误!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Error)
    e.Form.Controls("TextBox1").Select() '将输入焦点移到密码文本框中.
End If
Select Case Vars("用户组")
    Case "管理员"
        DataTables("生产目录").AllowEdit = true
        DataTables("生产工序").AllowEdit = true
        DataTables("生产工艺").AllowEdit = true
        DataTables("日报表").DataCols("图号").AllowEdit = true
        DataTables("日报表").DataCols("工序_序号").AllowEdit = true
        DataTables("日报表").DataCols("工序_班组").AllowEdit = true
        DataTables("日报表").DataCols("工艺_序号").AllowEdit = true
        DataTables("日报表").DataCols("工艺_工作中心组").AllowEdit = true
        DataTables("日报表").DataCols("工艺_加工提示").AllowEdit = true
        Tables("班组考勤.日报表").AllowEdit = true
        Tables("主管考勤.日报表").AllowEdit = true
        Tables("月统计.主管考勤").AllowEdit = true
    Case Else
        DataTables("生产目录").AllowEdit = False
        DataTables("生产工序").AllowEdit = False
        DataTables("生产工艺").AllowEdit = False
        DataTables("日报表").DataCols("图号").AllowEdit = False
        DataTables("日报表").DataCols("工序_序号").AllowEdit = False
        DataTables("日报表").DataCols("工序_班组").AllowEdit = False
        DataTables("日报表").DataCols("工艺_序号").AllowEdit = False
        DataTables("日报表").DataCols("工艺_工作中心组").AllowEdit = False
        DataTables("日报表").DataCols("工艺_加工提示").AllowEdit = False
        Tables("班组考勤.日报表").AllowEdit = False
        Tables("主管考勤.日报表").AllowEdit = False
        Tables("月统计.主管考勤").AllowEdit =False
End Select
下图是登录窗口，按钮还可设置表的属性，盗版的，呵呵

此主题相关图片如下：1.bmp