请教如何在用户登录窗口代码增加账号(员工姓名)判断输入是否正确？ - 专家坐堂 - 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 user = dr ("员工姓名" ) Then

If dr ("员工状态" ) = "在职" Then

If pwd = dr ("员工密码" ) Then

_UserName = dr ("员工姓名" )

_UserLoginName = user

_UserGroup = dr ("公司职位" )

e .Form .Close ()

Else

MessageBox .Show ("输入的账号或密码错误,请重试!" , "提示")

End If

Else

MessageBox .Show ("输入的账号或密码错误,请重试!" , "提示")

End If

Else

MessageBox .Show ("输入的账号或密码错误,请重试!" , "提示")

End If

在以上代码的基础上如何增加账号(员工姓名)判断输入是否正确，现在可以判断员工状态是否是在职，员工密码是否正确，但如果输入账号(员工姓名)错误，系统不会提示"输入的账号或密码错误,请重试!" ，要如何修改代码后，在输入账号(员工姓名)错误后，，系统会提示"输入的账号或密码错误,请重试!"

请老大帮忙看看需要如何修改，非常感谢！

[此贴子已经被作者于2013-3-15 15:29:43编辑过]

主题：请教如何在用户登录窗口代码增加账号(员工姓名)判断输入是否正确？