VB用户和密码框

来源：百度知道 编辑：UC知道 时间：2024/05/26 04:53:58
我想要个多用户登陆框，用户登陆成功后出现第二个窗体。
比如用户一"123"密码"456"用户二"abc"密码"cmd"
密码错误有提示，密码或帐号无输入也有提示。代码怎么写啊。
单单是用户登录

'比如用户一"123"密码"456"用户二"abc"密码"cmd"
'密码错误有提示，密码或帐号无输入也有提示。代码怎么写啊。

Private Sub Command1_Click()

If Text1 = "" Or Text2 = "" Then
MsgBox "没输入完整登录信息呀！"
Exit Sub
End If

If Text1 = "123" Or Text1 = "abc" Then '判断用户名正确否

'下面是判断密码
If (Text1 = "123" And Text2 = "456") Or (Text1 = "abc" And Text2 = "cmd") Then
form2.Show
Unload Me
Else
Text2 = ""
MsgBox "密码错误！！“"
Text2.SetFocus
End If

Else

Text1 = ""
MsgBox "用户名错误！！“"
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()

Text1 = ""
Text2 = ""
Command1.Caption = "登录"
Command1.Default = True
Me.Show
T