Wednesday, 3 December 2014

Visual Basic

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