VB登入问题

来源：百度知道 编辑：UC知道 时间：2024/05/05 20:20:41
Private Sub Command1_Click()
If Me.Text1.Text = "" Then
MsgBox "用户名不能为空！", vbCritical, Me.Caption
Text1.SetFocus
GoTo ExitSub
ElseIf Me.Text1.Text = "" Then
MsgBox "请填写密码！", vbCritical, Me.Caption
Me.Text2.SetFocus
GoTo ExitSub
End If

If Text1.Text <> "admin" Then
MsgBox "用户名填写错误！", vbCritical, "错误"
Me.Text1.SetFocus
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)
GoTo ExitSub
End If
If Text2.Text = "12345" Then
'登陆成功
Unload Me
'Form1.show,我这里注释着，改为你的主界面的名字
Else
MsgBox "密码错误！", vbRetryCancel, "提示"
Me.Text2.SetFocus
Me.Text2.SelStart = 0
Me.Text2.SelLength = Len

登入账号：admin
密码：12345

admin 在窗体中的文本框输入帐号必为:admin 密码:123456

下面有错误 应为:ElseIf Me.Text2.Text

ElseIf Me.Text1.Text = "" Then
MsgBox "请填写密码！", vbCritical, Me.Caption
Me.Text2.SetFocus
GoTo ExitSub
End If