Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'this puts the logo into the picturebox at runtime
- Dim IMGlogo As Image = Image.FromFile("carps.png")
- Pboxlogo.Image = IMGlogo
- 'creates label at reference point 52,177, then displays it after creating it in runtime
- Dim lblwelcome As New Label
- Dim Labelfont As New Font("Arial", 12)
- lblwelcome.AutoSize = True
- lblwelcome.Font = Labelfont
- lblwelcome.Text = ("Welcome " & Environment.UserName & ", please select an option")
- lblwelcome.Location = New Point(52, 177)
- Me.Controls.Add(lblwelcome)
- End Sub
- Private Sub BTNClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNClose.Click
- Me.Close()
- FormOT.Close()
- 'closes form
- End Sub
- Private Sub BTNOpenform_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOpenform.Click
- EmployeeLogin.Show()
- Me.Close()
- 'opens the employee login form
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- ManagerLogon.Show()
- Me.Close()
- 'opens the manager login form
- End Sub
- End Class
- Imports System.IO
- Imports System.Data.OleDb
- Public Class ManagerLogon
- Public manager As Boolean = True
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCancellogon.Click
- Form1.Show()
- Me.Close()
- End Sub
- Private Sub ManagerLogon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- BTNLoginTry.Enabled = False
- TXTUsername.Text = Environment.UserName
- End Sub
- Private Sub BTNLoginTry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLoginTry.Click
- 'Dim PasswordAttempt As String = TXTPass.Text
- 'Dim sr As New StreamReader("PassTest.txt")
- 'Dim actualpass As String = sr.ReadToEnd
- Const constring As String = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = Passwords.accdb"
- Dim con As New OleDbConnection(constring)
- Dim cmd As New OleDbCommand
- Dim manager As Boolean = True
- con.Open()
- If correctID(constring) = True Then
- MsgBox("Logged in as " & TXTUsername.Text)
- FormOT.Show()
- FormOT.Manager = manager
- Me.Hide()
- End If
- 'If PasswordAttempt = actualpass Then
- ' MsgBox("Confirmed")
- ' FormOT.Show()
- ' FormOT.Manager = True
- ' Me.Close()
- 'validates the password
- 'Else
- ' MsgBox("denied")
- 'End If
- 'sr.Close()
- End Sub
- Private Sub TXTPass_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTPass.TextChanged
- If TXTPass.Text = "" Or TXTUsername.Text = "" Then
- BTNLoginTry.Enabled = False
- Else
- BTNLoginTry.Enabled = True
- End If
- TXTPass.PasswordChar = "*"c
- End Sub
- Private Sub TXTUsername_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTUsername.TextChanged
- If TXTPass.Text = "" Or TXTUsername.Text = "" Then
- BTNLoginTry.Enabled = False
- Else
- BTNLoginTry.Enabled = True
- 'prevents someone from attempting to login with an empty username or password
- End If
- End Sub
- Private Sub LBLPasstry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLPasstry.Click
- End Sub
- Private Sub LBLLogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLLogon.Click
- End Sub
- Function correctID(ByVal constring As String) As Boolean
- 'validates the password is correct against the database
- Dim cmmdGetInfoStr As String = "SELECT Username, Password, Manager " &
- "FROM Passwords " &
- "WHERE Username = '" & TXTUsername.Text & "' " &
- "AND Password = '" & TXTPass.Text & "'"
- Dim conn As New OleDbConnection(constring)
- Dim cmmdGetInfo As New OleDbCommand
- cmmdGetInfo.Connection = conn
- cmmdGetInfo.CommandText = cmmdGetInfoStr
- conn.Open()
- Dim reader As OleDbDataReader = cmmdGetInfo.ExecuteReader()
- Dim username As String = ""
- Dim password As String = ""
- Dim manager As Boolean = False
- Do While reader.Read
- username = reader("username")
- password = reader("password")
- manager = reader("manager")
- Loop
- If username = TXTUsername.Text And password = TXTPass.Text And manager = True Then
- Return True
- ElseIf manager = False Then
- MsgBox("please use the employee login page to log in with this account, as it does not have Manager rights")
- Return False
- Else
- MsgBox("incorrect credentials")
- Return False
- End If
- reader.Close()
- conn.Close()
- End Function
- End Class
- Imports System.IO
- Imports System.Data.OleDb
- Public Class EmployeeLogin
- Private Sub EmployeeLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- BTNLoginTry.Enabled = False
- TXTUsername.Text = Environment.UserName
- End Sub
- Private Sub TXTUsername_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTUsername.TextChanged
- If TXTPass.Text = "" Or TXTUsername.Text = "" Then
- BTNLoginTry.Enabled = False
- Else
- BTNLoginTry.Enabled = True
- End If
- End Sub
- Private Sub TXTPass_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTPass.TextChanged
- If TXTPass.Text = "" Or TXTUsername.Text = "" Then
- BTNLoginTry.Enabled = False
- Else
- BTNLoginTry.Enabled = True
- End If
- TXTPass.PasswordChar = "*"c
- End Sub
- Private Sub BTNLoginTry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLoginTry.Click
- Dim PasswordAttempt As String = TXTPass.Text
- 'Dim sr As New StreamReader("PassTest.txt")
- 'Dim actualpass As String = sr.ReadToEnd
- Const constring As String = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = Passwords.accdb"
- Dim con As New OleDbConnection(constring)
- Dim cmd As New OleDbCommand
- con.Open()
- If correctID(constring) = True Then
- MsgBox("Logged in as " & TXTUsername.Text)
- FormOT.Show()
- FormOT.Manager = False
- Me.Close()
- End If
- 'validates the password against the data in the database
- 'If PasswordAttempt = actualpass Then
- ' MsgBox("Confirmed")
- ' FormOT.Show()
- ' FormOT.employee = True
- ' Me.Close()
- 'Else
- ' MsgBox("denied")
- 'End If
- 'sr.Close()
- End Sub
- Private Sub BTNCancellogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCancellogon.Click
- Form1.Show()
- Me.Close()
- End Sub
- Function correctID(ByVal constring As String) As Boolean
- Dim cmmdGetInfoStr As String = "SELECT Username, Password, Manager " &
- "FROM Passwords " &
- "WHERE Username = '" & TXTUsername.Text & "' " &
- "AND Password = '" & TXTPass.Text & "'"
- Dim conn As New OleDbConnection(constring)
- Dim cmmdGetInfo As New OleDbCommand
- cmmdGetInfo.Connection = conn
- cmmdGetInfo.CommandText = cmmdGetInfoStr
- conn.Open()
- Dim reader As OleDbDataReader = cmmdGetInfo.ExecuteReader()
- Dim username As String = ""
- Dim password As String = ""
- Dim manager As Boolean = False
- Do While reader.Read
- username = reader("username")
- password = reader("password")
- manager = reader("manager")
- Loop
- If username = TXTUsername.Text And password = TXTPass.Text And manager = False Then
- Return True
- ElseIf manager = True Then
- MsgBox("please use the administrator logon page to log in with this account")
- Return False
- Else
- MsgBox("incorrect credentials")
- Return False
- End If
- reader.Close()
- conn.Close()
- 'validates the password
- End Function
- Private Sub LBLLogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLLogon.Click
- End Sub
- End Class
- Imports System.Data.OleDb
- Public Class FormOT
- Public Manager As Boolean = False
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Me.Close()
- Form1.Close()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNreturn.Click
- Form1.Show()
- Me.Close()
- End Sub
- Private Sub BTNClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNClear.Click
- 'resets all fields on the form
- TXTEndTime.Text = ("")
- TXTStartTime.Text = ("")
- CMBPayrate.ResetText()
- End Sub
- Public Sub FormOT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'Me.OvertimeTempTableTableAdapter.Fill(Me.OTDBDataSet.OvertimeTempTable)
- dgvplan()
- Manager = ManagerLogon.manager
- If Manager = True Then
- LBLWelcomeOT.Text = "Logged in as Manager"
- ManagerLogon.Close()
- Else
- LBLWelcomeOT.Text = "Logged in as Employee"
- End If
- End Sub
- Public Sub dgvplan()
- Dim sql As String = "SELECT * FROM OverTimeTempTable"
- Dim cmd As New OleDbCommand
- Const constring As String = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = OTDB.accdb"
- Dim con As New OleDbConnection(constring)
- Dim adapter As New OleDbDataAdapter(sql, con)
- ' Gets the records from the table and fills the adapter with those.
- Dim dt As New DataTable("OverTimeTempTable")
- adapter.Fill(dt)
- ' Assigns the DataSource on the DataGridView
- DGVOT.DataSource = dt
- Dim adapter1 As New OleDbDataAdapter(sql, con)
- Dim cmd1 As New OleDbCommand(sql, con)
- con.Open()
- Dim myreader As OleDbDataReader = cmd1.ExecuteReader
- myreader.Read()
- con.Close()
- End Sub
- Private Sub LBLWelcomeOT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLWelcomeOT.Click
- End Sub
- Private Sub DGVOT_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGVOT.CellContentClick
- End Sub
- Private Sub BTNSubmit_Click(sender As Object, e As EventArgs) Handles BTNSubmit.Click
- Const constring As String = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = OTDB.accdb"
- Dim con As New OleDbConnection(constring)
- Dim cmd As New OleDbCommand
- con.Open()
- Dim starttime As DateTime = TXTStartTime.Text
- cmd.Connection = con
- Dim endtime As DateTime = TXTEndTime.Text
- Dim totalhours As Integer = DateDiff("H", starttime, endtime)
- Try
- cmd.CommandText = "INSERT INTO OvertimeTempTable (username,cHourlyPay,cPayrate,cTotalHoursovertime) VALUES ('" & Environment.UserName & "',5.68," & CMBPayrate.Text & " , " & totalhours & " )"
- 'submits the data using SQL into the temporary table
- cmd.ExecuteNonQuery()
- MsgBox("done")
- Catch ex As Exception
- MsgBox(ex.ToString)
- End Try
- con.Close()
- dgvplan
- End Sub
- Private Sub BTNBypass_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BTNBypass.Click
- Const constring As String = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = OTDB.accdb"
- Dim con As New OleDbConnection(constring)
- Dim cmd As New OleDbCommand
- con.Open()
- Dim starttime As DateTime = TXTStartTime.Text
- cmd.Connection = con
- Dim endtime As DateTime = TXTEndTime.Text
- Dim totalhours As Integer = DateDiff("H", starttime, endtime)
- Try
- 'submits the data into the permanent table by updating the user's pay for the month
- cmd.CommandText = "UPDATE PermanentOTTable SET ctotalhours = " & totalhours & "," & "cpayrate = " & CMBPayrate.Text & " WHERE Username = '" & Environment.UserName & "'"
- cmd.Connection = con
- cmd.ExecuteNonQuery()
- Catch ex As Exception
- MsgBox(ex.ToString)
- con.Close()
- End Try
- End Sub
- Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As Object, ByVal e As MaskInputRejectedEventArgs) Handles TXTEndTime.MaskInputRejected
- MsgBox("that's not a valid character, please enter a time HH:MM")
- End Sub
- Private Sub MaskedTextBox2_MaskInputRejected(ByVal sender As Object, ByVal e As MaskInputRejectedEventArgs) Handles TXTEndTime.MaskInputRejected
- MsgBox("that's not a valid character, please enter a time HH:MM")
- End Sub
- 'makes sure that the data entered is valid
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement