神马品牌网北京西门子助听器:关于vb的问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 01:48:55
我用text1显示数据库里查询到的密码
用text2显示数据库里查询到的用户名
用text3表示当前输入的密码
用text4表示当前输入的用户名
最后以if text3.text=text1.text and text4.text=text2.text then
load form1
rorm1.visible=true
unload me
else
msgbox“输入信息有误”
end if
结果没有达到我的验证目的。那个相等的判断可以么？如果不可以，应该怎么判断呢？
仅供参考～
Private Sub Command1_Click()
Dim Warning As String
Dim SQL As String
Warning = ""
'输入有效性判断
If TextUser = "" Then Warning = Warning & "用户名 "
If TextPassWord = "" Then Warning = Warning & " 密码 "
If Warning <> "" Then
MsgBox Warning & "不能为空值！", 0 + 48 + 0, "警告"
TextUser = ""
TextPassWord = ""
TextUser.SetFocus
Else
SQL = "SELECT * FROM 用户管理 WHERE 用户名 ='" & TextUser & "' And 用户密码 ='" & TextPassWord & "'"
'SQL = "SELECT * FROM 用户管理 WHERE 用户名 =""" & TextUser & """ And 用户密码 = """ & TextPassWord & """"
OpenRS (SQL)
If Not (Rst.BOF And Rst.EOF) Then
Grade = Rst("用户等级") '记录用户等级
UserID = Rst("用户名") '记录用户名
Call UserLogin '填写登陆记录
FormMain.Show
FormMain.Enabled = True
Unload Me
Else
MsgBox "该用户不存在！", 0 + 32 + 0, "登陆失败"
TextUser = ""
TextPassWord = ""
TextUser.SetFocus
Grade = 0
End If
CloseRS
End If
End Sub
这个很麻烦的，你这只是简单的验证。
稍微给你做一下手脚，你的验证就失败了。