form3.vb

humar resourse management

        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.ReadOnly = True
        Me.TextBox7.Size = New System.Drawing.Size(256, 20)
        Me.TextBox7.TabIndex = 21
        Me.TextBox7.Text = ""
        '
        'Label29
        '
        Me.Label29.Location = New System.Drawing.Point(0, 16)
        Me.Label29.Name = "Label29"
        Me.Label29.Size = New System.Drawing.Size(72, 16)
        Me.Label29.TabIndex = 20
        Me.Label29.Text = "ID Number:"
        Me.Label29.TextAlign = System.Drawing.ContentAlignment.BottomRight
        '
        'TextBox1
        '
        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.TextBox1.Location = New System.Drawing.Point(72, 16)
        Me.TextBox1.MaxLength = 15
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.ReadOnly = True
        Me.TextBox1.Size = New System.Drawing.Size(96, 20)
        Me.TextBox1.TabIndex = 19
        Me.TextBox1.Text = ""
        '
        'Label28
        '
        Me.Label28.Location = New System.Drawing.Point(168, 16)
        Me.Label28.Name = "Label28"
        Me.Label28.Size = New System.Drawing.Size(48, 16)
        Me.Label28.TabIndex = 18
        Me.Label28.Text = "Name:"
        Me.Label28.TextAlign = System.Drawing.ContentAlignment.BottomRight
        '
        'TabControl1
        '
        Me.TabControl1.Controls.Add(Me.TabPage1)
        Me.TabControl1.Controls.Add(Me.TabPage2)
        Me.TabControl1.Controls.Add(Me.TabPage6)
        Me.TabControl1.Controls.Add(Me.TabPage3)
        Me.TabControl1.Controls.Add(Me.TabPage4)
        Me.TabControl1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TabControl1.ItemSize = New System.Drawing.Size(142, 19)
        Me.TabControl1.Location = New System.Drawing.Point(9, 32)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(696, 368)
        Me.TabControl1.TabIndex = 1
        '
        'TabPage4
        '
        Me.TabPage4.Controls.Add(Me.Label17)
        Me.TabPage4.Location = New System.Drawing.Point(4, 23)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Size = New System.Drawing.Size(688, 341)
        Me.TabPage4.TabIndex = 6
        Me.TabPage4.Text = "Help"
        '
        'Form3
        '
        Me.AcceptButton = Me.Button11
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.ClientSize = New System.Drawing.Size(714, 440)
        Me.ControlBox = False
        Me.Controls.Add(Me.TabControl1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ForeColor = System.Drawing.SystemColors.ControlText
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "Form3"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "     HRMS: Employee Information"
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage6.ResumeLayout(False)
        Me.GroupBox10.ResumeLayout(False)
        Me.GroupBox9.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.GroupBox8.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region " Variable Declarations "

    Public sConn As OleDbConnection
    Public sConn0 As OleDbConnection
    Public sConn1 As OleDbConnection

    Public iCurrentRecord As Integer
    Public iCountRecord As Integer

    Dim eDS0 As DataSet = New DataSet
    Dim eDA0 As OleDbDataAdapter = New OleDbDataAdapter
    Dim eCB0 As OleDb.OleDbCommandBuilder
    Dim eDR0 As DataRow

    Dim dDS As DataSet = New DataSet
    Dim dDA As OleDbDataAdapter = New OleDbDataAdapter
    Dim dCB As OleDb.OleDbCommandBuilder
    Dim dDR As DataRow

    Dim dDS1 As DataSet = New DataSet
    Dim dDA1 As OleDbDataAdapter = New OleDbDataAdapter
    Dim dCB1 As OleDb.OleDbCommandBuilder
    Dim dDR1 As DataRow

    Dim X As Integer


#End Region

#Region " Main Form Events "

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New Form1
        f.Show()
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("This will close the HRMS Time-in/Time-out!" & vbCrLf & vbCrLf & "Do you really want to quit?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Warning") = MsgBoxResult.Yes Then
            Me.Close()
        End If
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label17.Text = "This provides the ability to view all Employee Information, Individual Employee information in the database, Log-in Informations of an Employee, and " & _
        "About the system." & vbCrLf & "[ NOTE: Moving from one tab to another retains the currently selected record. ]"

        sConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\EIS.mdb;Persist Security Info=False")
        FillListView("SELECT * FROM tblEmployee")

        ComboBox1.Items.Add("Contractual")
        ComboBox1.Items.Add("Permanent")
        ComboBox1.SelectedIndex = -1
        DateTimePicker1.MaxDate = Now

        MonthCalendar1.TodayDate = Now
        MonthCalendar1.MaxDate = Now
        MonthCalendar2.TodayDate = Now
        MonthCalendar2.MaxDate = Now
        Binding()
    End Sub

#End Region

#Region " TAB 1 User-defined Procedures and Functions "

    Private Function FillListView(ByVal SqlString As String)
        Dim strSQL As String
        ListView1.Items.Clear()
        If sConn.State <> ConnectionState.Open Then
            sConn.Open()
        End If

        eDA0.SelectCommand = New OleDbCommand(SqlString, sConn)
        eCB0 = New OleDb.OleDbCommandBuilder(eDA0)

        eDS0.Clear()
        eDA0.Fill(eDS0)
        iCountRecord = Format(eDS0.Tables(0).Rows.Count, "###0")
        If eDS0.Tables(0).Rows.Count > 0 Then
            X = Me.BindingContext(eDS0.Tables(0)).Position
            For Each eDR0 In eDS0.Tables(0).Rows
                iCurrentRecord = Me.BindingContext(eDS0.Tables(0)).Position + 1
                Dim MyItem = ListView1.Items.Add(eDR0("emp_idno"))
                MyItem.tag = X
                X = X + 1
                With MyItem
                    .SubItems.Add(eDR0("emp_fname".ToString))
                    .SubItems.Add(eDR0("emp_mname".ToString))
                    .SubItems.Add(eDR0("emp_lname".ToString))
                    .SubItems.Add(eDR0("emp_addr".ToString))
                    .SubItems.Add(Format(eDR0("emp_dob"), "MM/d/yyyy"))
                    .SubItems.Add(eDR0("emp_age".ToString))
                    .SubItems.Add(eDR0("emp_pos".ToString))
                    If eDR0("emp_stat") = "cont" Then
                        .SubItems.Add("Contractual")
                    Else
                        .SubItems.Add("Permanent")
                    End If
                End With
            Next
        End If
        sConn.Close()
    End Function

#End Region

#Region " TAB 2 User-defined Procedures and Functions "

    Private Sub Binding()
        eDA0.SelectCommand = New OleDbCommand("SELECT * FROM tblEmployee", sConn0)
        eCB0 = New OleDb.OleDbCommandBuilder(eDA0)
        eDS0.Clear()
        eDA0.Fill(eDS0)
        iCountRecord = Format(eDS0.Tables(0).Rows.Count, "###0")
        If eDS0.Tables(0).Rows.Count > 0 Then
            RefreshData(True)
        End If
    End Sub

    Private Sub RefreshData(Optional ByVal vEnableNavigation As Boolean = False)
        iCurrentRecord = Me.BindingContext(eDS0.Tables(0)).Position + 1
        Label19.Text = iCurrentRecord & "/" & iCountRecord
        TextBox2.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(0)
        TextBox3.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(2)
        TextBox4.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(4)
        TextBox5.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(3)
        TextBox6.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(5)
        TextBox8.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(7)
        TextBox9.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(8)
        DateTimePicker1.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(6)
        If eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(1) = "password" Then Label20.Visible = True Else Label20.Visible = False
        If eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(9) = "cont" Then
            ComboBox1.SelectedIndex = 0
        Else
            ComboBox1.SelectedIndex = 1
        End If
        TextBox1.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(0)
        TextBox7.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(3) & ", " & _
        eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(2) & " " & eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(4)
        TextBox10.Text = eDS0.Tables(0).Rows(iCurrentRecord - 1).Item(8)

        If RadioButton1.Checked Then
            FillListView2("SELECT * FROM tblDTR WHERE emp_idno='" & TextBox1.Text & "'")
        Else
            FillListView2("SELECT * FROM tblDTR WHERE emp_idno='" & TextBox1.Text & "' " & _
                        "AND date_timein>=#" & MonthCalendar1.SelectionStart & "# AND date_timein<=#" & MonthCalendar1.SelectionEnd & "#")
        End If


        If vEnableNavigation Then EnableNavigation()
    End Sub

    Private Sub EnableNavigation()
        If CInt(iCountRecord) > 1 Then
            If CInt(iCurrentRecord) = 1 Then
                Button7.Enabled = False
                Button6.Enabled = False
                Button9.Enabled = True
                Button8.Enabled = True
            ElseIf iCurrentRecord = iCountRecord Then
                Button7.Enabled = True
                Button6.Enabled = True
                Button9.Enabled = False
                Button8.Enabled = False
            Else
                Button7.Enabled = True
                Button6.Enabled = True
                Button9.Enabled = True
                Button8.Enabled = True
            End If
        Else
            Button7.Enabled = False
            Button6.Enabled = False
            Button9.Enabled = False
            Button8.Enabled = False
        End If
    End Sub

    Private Sub TextBoxChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox13.TextChanged, TextBox12.TextChanged, TextBox11.TextChanged
        If TextBox11.Text <> "" And TextBox12.Text <> "" And TextBox13.Text <> "" Then
            Button11.Enabled = True
        Else
            Button11.Enabled = False
        End If
    End Sub

#End Region

#Region " TAB 1 Form Events "

    Private Sub ListView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.Click
        Me.BindingContext(eDS0.Tables(0)).Position = CInt(ListView1.SelectedItems(0).Tag)
        RefreshData(True)
    End Sub

    Private Sub ListView1_ColumnClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ColumnClickEventArg