Dim UserName As String = e.Form.Controls("UserName").Value

Dim mima As String = e.Form.Controls("PassWord").Value 

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim dr1 As DataRow

cmd.C

If UserName = ""  Then

    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

cmd.CommandText = "Select * From {用户} Where [用户名] = \'" & UserName & "\'"

dt = cmd.ExecuteReader

dr1 = dt.DataRows(0)

If MD5Encrypt(mima) = dr1("密码") Then

     

    _UserName = UserName

    _UserGroup = dr1("用户组")  

    _UserRole = dr1("角色")

    e.Form.Close

   Forms("导航").Open()

 Else

    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If