专家坐堂-如何在用户登录窗口代码增加员工状态判断？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何在用户登录窗口代码增加员工状态判断？

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

在以上代码的基础上如何增加员工状态判断，如果"员工状态"为"在职"，才可以正常登陆，否则跳出提示窗口："该员工为离职员工,不能登陆系统!" , "出错"

请老大们帮忙修改一下，谢谢！