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