install Visual Basic V6.0
setup the Visual Basic 6.0 to my computer.
designed for admin log in id and password by the visual basic system
complete admin login id and password, and make coding:
;.............................if button cancel was clicked....................................;
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Me.Hide
End Sub
;................................if button login clicked...............................................;
Private Sub cmdOK_Click()
'check for correct password
If txtUserName = "Admin" And txtPassword = "12345" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form1.Show
Else
MsgBox "Invalid Username and Password, try again!", , "Login"
txtUserName = ""
txtPassword = ""
End If
End Sub
;............if wrong password = invalid username and password...............;
simulate for VB, log id :Admin & password : 12345
database for vehicle. admin can register a vehicle and topup amount credit of RFID tag.
database for vehicle. transaction of vehicle go in and go out amount of charges.
No comments:
Post a Comment