Written in vb function a login interface requires password error will pop up the window of the "password error" no password or user name display "enter the password for user" or "big speed solution (please)

CodePudding user response:

You just want to do a login screen? Just interface?
If just do good basic checksum procedure judgment ah,
Such as:

 
Private Sub Command1_Click () 
If Len (Text1. Text) & lt; 1 the Or Len (Text2. Text) & lt; 1 Then 
MsgBox "please enter the username or password" 
The Exit Sub 
End the If 
If LCase (Text1. Text) & lt;> "Admin" Or LCase (Text2. Text) & lt;> "123456" Then 
MsgBox "account or password error" 
The Exit Sub 
End the If 
Unload Me 
Form2. Show 
End Sub