主题：代码改写（菜单按钮权限）

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