Building & Testing the program P2 P4 P5 M3 D2

IMPLEMENTATION
Unit 14 Event Driven Programming




ELIOT HUNTER
Sunderland College

, Eliot Hunter (ID: 16002495) Assignment B Unit 14 Event Driven Programming




Implementation



User Interface

Sign in Form




The purpose of this form is to get the user to sign in to the whole program so they can fill out the
customers contact details, what car they want and the pricing at the end. This is the code:
Public Class FormSignIn
Dim Attempt As Integer = 0

Private Sub SignInBtn_Click(sender As Object, e As EventArgs) Handles SignInBtn.Click
Dim CorrectPassword As String = "carhire"
Dim CorrectUsername As String = "carhire"
Dim InputPassword As String = txtPassword.Text

Do Until (InputPassword = CorrectPassword) Or (Attempt = 5)
Attempt += 1
MsgBox("Password invalid", MsgBoxStyle.Critical, "Login Error.")
txtPassword.Text = ""
txtPassword.Focus()
Exit Sub
Loop

If Attempt < 5 Then
MsgBox("Welcome to Especially For you.") 'This gives the user 5 attempts to log into
the system.
Me.Hide()
FormContactDetails.Show()
Else
MsgBox("Access Denied too many times, System has locked you out.") 'If the user has
had more than 5 attempts then the system locks you out.
txtPassword.Enabled = False
SignInBtn.Enabled = False
btnHelpSignIn.Enabled = False

1|Page