124 lines
4.3 KiB
VB.net
124 lines
4.3 KiB
VB.net
Imports MySql.Data.MySqlClient
|
|
|
|
Public Class frmLogin
|
|
|
|
'Declares the variables used for logging in
|
|
Dim EnteredUsername, EnteredPassword As String
|
|
|
|
'Subroutine runs when the form loads
|
|
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
'Closes the splash screen form
|
|
frmSplash.Close()
|
|
|
|
'Runs the first-time setup detection subroutine
|
|
DetectFTS()
|
|
End Sub
|
|
|
|
'Subroutine runs when the OK 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 the cancel button is clicked
|
|
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
|
|
'Closes the program
|
|
Me.Close()
|
|
End Sub
|
|
|
|
'Subroutine runs when called in the form load sub
|
|
Sub DetectFTS()
|
|
'Declares the variable used to determine whether first-time setup has been run
|
|
Dim FTS As String
|
|
'Declares the variable used to read the first-time setup text file
|
|
Dim Reader As System.IO.StreamReader
|
|
|
|
'Gets the path to the FTS.txt text file
|
|
Reader = My.Computer.FileSystem.OpenTextFileReader("FTS.txt")
|
|
|
|
'Reads what is in the FTS.txt text file
|
|
FTS = Reader.ReadToEnd
|
|
'If the text file consists of 0 then the first-time setup has not been run before, so...
|
|
If FTS = "0" Then
|
|
'Opens the first-time setup message form
|
|
frmFTSMsg.Show()
|
|
End If
|
|
'Closes the reader
|
|
Reader.Close()
|
|
End Sub
|
|
|
|
'Subroutine runs when called in the OK button click sub
|
|
Sub Login()
|
|
'Establishes the connection to the database
|
|
OpenDB()
|
|
|
|
'Sets the EnteredUsername variable to the entered username
|
|
EnteredUsername = txtUsername.Text
|
|
'Sets the EnteredPassword variable to the entered password
|
|
EnteredPassword = txtPassword.Text
|
|
|
|
Dim sql As String
|
|
Dim dbcomm As MySqlCommand
|
|
Dim dbread As MySqlDataReader
|
|
|
|
'Builds SQL query to execute
|
|
sql = "SELECT * FROM tblstudents WHERE Username='" & EnteredUsername & "' AND Password='" & EnteredPassword & "'"
|
|
|
|
dbcomm = New MySqlCommand(sql, DBConn)
|
|
dbread = dbcomm.ExecuteReader()
|
|
'Fills the various properties of the LoggedInStudent object with their respective values from the database
|
|
While dbread.Read
|
|
With LoggedInStudent
|
|
.Fname = dbread("Fname")
|
|
.Lname = dbread("Lname")
|
|
.Form = dbread("FormNum") & dbread("FormLetter")
|
|
.Wins = dbread("Wins")
|
|
.Losses = dbread("Losses")
|
|
.Draws = dbread("Draws")
|
|
.Username = dbread("Username")
|
|
.StudentID = dbread("StudentID")
|
|
End With
|
|
dbread.Close()
|
|
DBConn.Close()
|
|
|
|
'Opens the student home form
|
|
frmStudentHome.Show()
|
|
'Closes this form
|
|
Me.Close()
|
|
Exit Sub
|
|
End While
|
|
dbread.Close()
|
|
|
|
sql = "SELECT * FROM tblteachers WHERE Username='" & EnteredUsername & "' AND Password='" & EnteredPassword & "'"
|
|
|
|
dbcomm = New MySqlCommand(sql, DBConn)
|
|
dbread = dbcomm.ExecuteReader()
|
|
'Fills the various properties of the LoggedInTeacher object with their respective values from the database
|
|
While dbread.Read
|
|
With LoggedInTeacher
|
|
.Fname = dbread("Fname")
|
|
.Lname = dbread("Lname")
|
|
.Username = dbread("Username")
|
|
.TeacherID = dbread("TeacherID")
|
|
End With
|
|
dbread.Close()
|
|
DBConn.Close()
|
|
|
|
'Opens the teacher home form
|
|
frmTeacherHome.Show()
|
|
'Closes this form
|
|
Me.Close()
|
|
Exit Sub
|
|
End While
|
|
dbread.Close()
|
|
|
|
'If no records are found in either table...
|
|
'Displays an error message
|
|
MsgBox("Invalid: Incorrect username or password.")
|
|
'Blanks out the username textbox
|
|
txtUsername.Text = ""
|
|
'Blanks out the password textbox
|
|
txtPassword.Text = ""
|
|
End Sub
|
|
End Class
|