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