我编了一个vb的登陆界面，代码如下，不管我输入什么，总显示“用户名不存在”

Question

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 地址 where 姓名 = '" & Trim(Text1.Text) & "'"
If Text1.Text <> "" And Text2.Text <> "" And Text1.Text = Adodc1.Recordset.Fields("姓名") And Text2.Text = Adodc1.Recordset.Fields("密码") Then
Unload Me
Load Form2
Form2.Show
Else
If Text1.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
If Text1.Text <> Adodc1.Recordset.Fields("姓名") Then
MsgBox "用户名不存在！", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Else
If Text2.Text <> Trim(Adodc1.Recordset.Fields("密码")) Then
MsgBox "密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
End If
End If
End If
End If
End If

End Sub

Answer 1

Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
ElseIf Trim(Text2.Text) = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Else
Adodc1.RecordSource = "select * from 地址 where 姓名='" & Trim(Text1.Text) & "' and 密码='" & Trim(Text2.Text) & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "用户名或密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
Form2.Show
Unload Me
End If
End If
End Sub

补充一句：做登录系统时，不要明确提示用户是用户名错误还是密码错误，要笼统地提示“用户名或密码错误”，这样别人想用猜测的方法破解你的登录系统时就无法知道究竟是哪个错误了，增加了猜测的难度。而正常的用户肯定知道自己是什么输错了，所以无须你明确提示他的。这样的登录系统才是相对安全的。

Answer 2

代码写的太乱了！~

Private Sub Command1_Click()

‘判断用户名是否为空
If Text1.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
exit sub
end if

'判断密码是否为空
If Text2.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
exit sub
end if

'判断用户名是否存在
If Text1.Text <> Adodc1.Recordset.Fields("姓名") Then
MsgBox "用户名不存在！", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
exit sub
end if

'判断密码是否存在
If Text2.Text <> Trim(Adodc1.Recordset.Fields("密码")) Then
MsgBox "密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
exit sub
end if

'正常登录
Unload Me
Load Form2
Form2.Show

End Sub

追问

还是现实用户名不存在，哥哥，能把连接数据库的操作方法发给我核对一下吗？谢谢了！
我怀疑是我的数据库连的有问题。

追答

你去我资料里找我网盘 去里面找login.rar 这个是个登录的小例子
你用的adodc 我实在是不太会用 现在机器里也没有vb
我用的是adodb 现在一般都用这个！~