VB程序有点问题

来源：百度知道 编辑：UC知道 时间：2024/06/14 23:19:27
下面是我的登录界面的一段程序，当帐号和密码同时为空的时候竟然也可以登录，我改不了这段程序
希望高手指点

Private Sub Command3_Click()
Dim sqlstring As String
sqlstring = "select * from 登录 where 登录.帐号='" & Trim$(Text1.Text) & "'" & " And 密码 = '" _
& Trim$(Text2.Text) + "'"
Data1.RecordSource = sqlstring
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "帐号或密码错误", vbOKOnly + vbExclamation, "信息提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Data1.RecordSource = "select * from 登录"
Data1.Refresh
ElseIf Text1.Text = "" And Text2.Text = "" Then
MsgBox "帐号或密码不能同时为空", vbOKOnly + vbExclamation, "信息提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus

Else
Form1.Hide
Form2.S

Private Sub Command3_Click()
Dim sqlstring As String
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "帐号或密码不能同时为空", vbOKOnly + vbExclamation, "信息提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
exit sub
end if
sqlstring = "select * from 登录 where 登录.帐号='" & Trim$(Text1.Text) & "'" & " And 密码 = '" _
& Trim$(Text2.Text) + "'"
Data1.RecordSource = sqlstring
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "帐号或密码错误", vbOKOnly + vbExclamation, "信息提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Data1.RecordSource = "select * from 登录"
Data1.Refresh
Else
Form1.Hide
Form2.Show
End If

把ElseIf Text1.Text = "" And Text2.Text = "" Then 放到最前面判断

Private Sub Comma