Dim user As String = e.Form.Controls("ComboBox1").Text
Dim pwd As String = e.Form.Controls("TextBox1").Text
Dim dr As DataRow = DataTables("用户登录表").Find("员工姓名 = '" & user & "'") '分开查询,防注入登录
If dr IsNot Nothing Then
pwd = MD5Encrypt(pwd)
If pwd = dr("密码") Then
_UserName = dr("员工姓名")
_UserLoginName = user
_UserGroup = ("权限")
e.Form.Close()
Else
MessageBox.Show("输入的密码错误,请重试!", "出错")
End If
End If<!--StartFragment -->
编译错误：Name'_UserName' is not declared
<!--StartFragment -->
错误代码_UserName = dr("员工姓名")
请高手帮忙看下
[此贴子已经被作者于2012-10-25 19:20:42编辑过]
加好友 
发短信
Post By：2012/10/25 19:13:00 [显示全部帖子]
