1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
If Len(Text1.Text) < 1 Or Len(Text2.Text) < 1 Then
MsgBox "请输入用户名或密码"
Exit Sub
End If
If LCase(Text1.Text) <> "admin" Or LCase(Text2.Text) <> "123456" Then
MsgBox "账号或密码错误"
Exit Sub
End If
Unload Me
Form2.Show
End Sub