Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub cmdBack_Click()
- '******************************************************************************************************
- 'Returns the user to their previous form
- '******************************************************************************************************
- Unload Me 'Stops the program instead of hiding the form
- MainMenu.Show 'Opens the Main Menu form
- End Sub
- Private Sub CmdClearDetails_Click()
- '******************************************************************************************************
- 'Clears all information in the fields
- '******************************************************************************************************
- txtUsername.Text = ""
- txtPassword.Text = ""
- lstTitle.Text = ""
- txtFirstName.Text = ""
- txtSurname.Text = ""
- txtAddress.Text = ""
- txtPostcode.Text = ""
- txtHomeNo.Text = ""
- txtMobileNo.Text = ""
- txtEmailAddress.Text = ""
- lstGender.Text = ""
- End Sub
- Private Sub cmdClose_Click()
- '******************************************************************************************************
- 'Closes project
- '******************************************************************************************************
- 'Message Box asking the user if they want to exit the system
- Message = MsgBox("Are you sure you want to exit?", vbYesNoCancel + vbCritical, "Exit")
- If Message = vbYes Then
- End
- End If
- End Sub
- Private Sub cmdMakeUsername_Click()
- '******************************************************************************************************
- 'Creates a username
- '******************************************************************************************************
- MakeUsername = Mid(txtFirstName.Text, 1, 2) & Mid(txtAddress.Text, 1, 2) & Mid(txtHomeNo.Text, 2, 4) & Mid(txtEmailAddress.Text, 1, 2)
- txtUsername.Text = MakeUsername
- 'Message Box asking the user to create a password that doesn't relate to the username
- MsgBox ("Please type in a password which doesn't relate to the username")
- End Sub
- Private Sub CmdNext_Click()
- '******************************************************************************************************
- 'Takes the user to the Order form where they can order their meal
- '******************************************************************************************************
- Username = txtUsername.Text
- Unload Me 'Stops the program instead of hiding the form
- Order.Show 'Opens the Order form
- Order.cmbBreadType.Text = "Please Select Bread Type"
- Order.cmbBreadSize.Text = "Please Select Bread Size"
- Order.cmbFilling.Text = "Please Select Filling"
- Order.cmbDrinks.Text = "Please Select Drink(s)"
- End Sub
- Private Sub CmdSaveDetails_Click()
- '******************************************************************************************************
- 'Saves the customer's details to the Recordset
- '******************************************************************************************************
- 'Validation for when the fields are empty
- If txtPassword = "" Then
- MsgBox ("Please type in a password which doesn't relate to the username.")
- End If
- If lstTitle = "" Then
- MsgBox ("Please select your Title.")
- End If
- If txtFirstName = "" Then
- MsgBox ("Please type in your First Name.")
- End If
- If IsNumeric(txtFirstName.Text) Then
- MsgBox ("Please only type in letters in the First Name field.")
- End If
- If txtSurname = "" Then
- MsgBox ("Please type in your Surname.")
- End If
- If IsNumeric(txtSurname.Text) Then
- MsgBox ("Please only type in letters in the Surname field.")
- End If
- If txtAddress = "" Then
- MsgBox ("Please type in your Address.")
- End If
- If txtPostcode = "" Then
- MsgBox ("Please type your Postcode.")
- End If
- If txtHomeNo = "" Then
- MsgBox ("Please type in your Home No.")
- End If
- If Not IsNumeric(txtHomeNo.Text) Then
- MsgBox ("Please only type in numbers in the Home No. field.")
- End If
- If txtMobileNo = "" Then
- MsgBox ("Please type in your Mobile No.")
- End If
- If Not IsNumeric(txtMobileNo.Text) Then
- MsgBox ("Please only type in numbers in the Mobile No. field.")
- End If
- If txtEmailAddress = "" Then
- MsgBox ("Please type in your Email Address.")
- End If
- If lstGender = "" Then
- MsgBox ("Please select your Gender.")
- End If
- Dim Answer As String
- 'Message box asking the user if they remembered to take a note of their username
- Answer = MsgBox(Prompt:="Did you remember to take a note of your username?", Buttons:=vbYesNo)
- If Answer = vbNo Then
- Exit Sub
- End If
- With rst
- rst.AddNew 'Adds a new blank line to the end of the Recordset
- .Fields("Username").Value = txtUsername.Text
- .Fields("Password").Value = txtPassword.Text
- .Fields("Title").Value = lstTitle.Text
- .Fields("First Name").Value = txtFirstName.Text
- .Fields("Surname").Value = txtSurname.Text
- .Fields("Address").Value = txtAddress.Text
- .Fields("Postcode").Value = txtPostcode.Text
- .Fields("HomeNo").Value = txtHomeNo.Text
- .Fields("MobileNo").Value = txtMobileNo.Text
- .Fields("EmailAdd").Value = txtEmailAddress.Text
- .Fields("Gender").Value = lstGender.Text
- 'Adds the new data to the Recordset
- 'Message box confirming the customer's details have been successfully saved to the Database
- MsgBox "Details have been successfully saved."
- End With
- rst.Update
- End Sub
- Private Sub txtPassword_LostFocus() 'Lost focus has to be set to make the password work
- txtPassword.Text = Replace(txtPassword.Text, " ", "")
- End Sub
- '******************************************************************************************************************************************
- 'Format Password Textbox
- '******************************************************************************************************************************************
- Private Sub txtPassword_GotFocus()
- txtPassword.PasswordChar = "*"
- txtPassword.Text = ""
- End Sub
- '******************************************************************************************************************************************
- 'Format Username Textbox
- '******************************************************************************************************************************************
- Private Sub txtUsername_GotFocus()
- txtUsername.Text = ""
- End Sub
- Private Sub txtUsername_LostFocus() 'Lost focus has to be set to make the username work
- txtUsername.Text = Replace(txtUsername.Text, " ", "")
- End Sub
- Private Sub Form_Load()
- '******************************************************************************************************
- 'Loads form
- '******************************************************************************************************
- 'Verifies the Login with the Database
- SRLoc = App.Path & "\SandwichOrder.mdb" 'Location of Database
- databaseconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & SRLoc
- databaseconnection.Open
- 'Assemble the connection string as a string.
- SRSQL = "SELECT * FROM tblCustomerDetails"
- 'Sets the connection string property of the connection object to the string shown above
- 'Checks to see if the username and password matches the one saved in the Database.
- With rst
- .ActiveConnection = databaseconnection
- .LockType = adLockOptimistic
- .CursorType = adOpenKeyset
- .Open SRSQL
- End With
- cmdSaveDetails.Enabled = False 'Disables command button
- Me.Left = (Screen.Width - Me.Width) / 2 'Centres the form
- Me.Top = (Screen.Height - Me.Height) / 2 'Centres the form
- End Sub
- Private Sub lstGender_GotFocus()
- '******************************************************************************************************
- 'Loads content into ComboBox
- '******************************************************************************************************
- cmdSaveDetails.Enabled = True
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- '******************************************************************************************************
- 'Unloads form
- '******************************************************************************************************
- rst.Close
- Set rst = Nothing
- databaseconnection.Close
- End Sub
Add Comment
Please, Sign In to add comment