VB GRADING SYSTEM CODES

VB GRADING SYSTEM CODES

GRADING SYSTEM FORM1

LOG-IN COMMAND CODES:

Private Sub Command1_Click()
If Text1.Text = "jomar" And Text2.Text = "flores" Then
MsgBox "Acess Granted", vbInformation
Unload Me
Form2.Show
Else
MsgBox "Access Denied", vbCritical
End If
End Sub

CANCEL COMMAND CODES:

Private Sub Command2_Click()
a = MsgBox("Are you want to exit?", vbQuestion + vbYesNo)
If a = vbYes Then
End If
End Sub