Initial commit

StudentForms/NoughtsandCrosses/frmNaCHotseatLogin.vb

@@ -0,0 +1,74 @@
+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