如何在用户登录窗口代码增加员工状态判断？
Dim user As String = e .Form .Controls ( "UserName"). Text
Dim pwd As String = e .Form .Controls ( "PassWord"). 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 = dr ("公司职位" )
e .Form .Close ()
Else
MessageBox .Show ("输入的密码错误,请重试!" , "出错")
End If
End If
在以上代码的基础上如何增加员工状态判断，如果"员工状态"为"在职"，才可以正常登陆，否则跳出提示窗口："该员工为离职员工,不能登陆系统!" , "出错"
请老大们帮忙修改一下，谢谢！
加好友 
发短信
Post By：2013/3/15 14:38:00 [显示全部帖子]
