74 lines
3.1 KiB
VB.net
74 lines
3.1 KiB
VB.net
|
Imports MySql.Data.MySqlClient
|
|||
|
|
|
|||
|
|
Public Class frmNaCHotseatLogin
|
|||
|
|
|
|||
|
|
'Declares the variables used to log in
|
|||
|
|
Dim EnteredUsername, EnteredPassword As String
|
|||
|
|
|
|||
|
|
'Subroutine runs when the form loads
|
|||
|
|
Private Sub frmNaCHotseatLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
'Runs the OpenDB subroutine
|
|||
|
|
OpenDB()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Subroutine runs when the okay button is clicked
|
|||
|
|
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
|
|||
|
|
'Runs the Login subroutine
|
|||
|
|
Login()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Subroutine runs when called in btnOK_Click subroutine
|
|||
|
|
Sub Login()
|
|||
|
|
'Sets the EnteredUsername and EnteredPassword variables to the entered username and password
|
|||
|
|
EnteredUsername = txtUsername.Text
|
|||
|
|
EnteredPassword = txtPassword.Text
|
|||
|
|
|
|||
|
|
If EnteredUsername <> LoggedInStudent.Username Then
|
|||
|
|
Dim sql As String
|
|||
|
|
Dim dbcomm As MySqlCommand
|
|||
|
|
Dim dbread As MySqlDataReader
|
|||
|
|
Dim foo As Integer = 0
|
|||
|
|
sql = "SELECT * FROM tblstudents WHERE Username='" & EnteredUsername & "' AND Password='" & EnteredPassword & "';"
|
|||
|
|
dbcomm = New MySqlCommand(sql, DBConn)
|
|||
|
|
dbread = dbcomm.ExecuteReader()
|
|||
|
|
While dbread.Read
|
|||
|
|
'Fills the various properties of the OppStudent object with their respective values from the database
|
|||
|
|
OppStudent.Fname = dbread("Fname")
|
|||
|
|
OppStudent.Lname = dbread("Lname")
|
|||
|
|
OppStudent.Form = dbread("FormNum") & dbread("FormLetter")
|
|||
|
|
OppStudent.Wins = dbread("Wins")
|
|||
|
|
OppStudent.Losses = dbread("Losses")
|
|||
|
|
OppStudent.Draws = dbread("Draws")
|
|||
|
|
OppStudent.Username = dbread("Username")
|
|||
|
|
OppStudent.StudentID = dbread("StudentID")
|
|||
|
|
foo = 1
|
|||
|
|
End While
|
|||
|
|
If foo = 1 Then
|
|||
|
|
'Opens the Noughts and Crosses subject selection form
|
|||
|
|
frmNaCHotseatSubject.Show()
|
|||
|
|
'Closes this form
|
|||
|
|
Me.Close()
|
|||
|
|
dbread.Close()
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
'If the login details were invalid an error message will appear and the username and password textboxes will be blanked out
|
|||
|
|
MsgBox("Invalid: Incorrect username or password.")
|
|||
|
|
txtUsername.Text = ""
|
|||
|
|
txtPassword.Text = ""
|
|||
|
|
Else
|
|||
|
|
'If the login details where the same as those of the currently logged-in student, an error message will appear and the username and password textboxes will be blanked out
|
|||
|
|
MsgBox("Invalid: That's you.")
|
|||
|
|
txtUsername.Text = ""
|
|||
|
|
txtPassword.Text = ""
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Subroutine runs when the cancel button is clicked
|
|||
|
|
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
|
|||
|
|
'Opens the Noughts and Crosses menu form
|
|||
|
|
frmNoughtsandCrossesMenu.Show()
|
|||
|
|
'Closes this form
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|