frmmain.vb

humar resourse management

        Me.MenuItem27.Text = "&Employees"
        '
        'MenuItem38
        '
        Me.MenuItem38.Index = 1
        Me.MenuItem38.Text = "&Daily Attendance"
        '
        'MenuItem43
        '
        Me.MenuItem43.Index = 2
        Me.MenuItem43.Text = "-"
        '
        'MenuItem28
        '
        Me.MenuItem28.Index = 3
        Me.MenuItem28.Text = "&Candidates"
        '
        'MenuItem48
        '
        Me.MenuItem48.Index = 4
        Me.MenuItem48.Text = "Candidates Apply &Today"
        '
        'MenuItem47
        '
        Me.MenuItem47.Index = 5
        Me.MenuItem47.Text = "&Interview List"
        '
        'MenuItem44
        '
        Me.MenuItem44.Index = 6
        Me.MenuItem44.Text = "-"
        '
        'MenuItem36
        '
        Me.MenuItem36.Index = 7
        Me.MenuItem36.Text = "C&lients"
        '
        'MenuItem37
        '
        Me.MenuItem37.Index = 8
        Me.MenuItem37.Text = "&Agents"
        '
        'MenuItem39
        '
        Me.MenuItem39.Index = 9
        Me.MenuItem39.Text = "-"
        '
        'MenuItem40
        '
        Me.MenuItem40.Index = 10
        Me.MenuItem40.Text = "&Prev Month Payroll"
        '
        'MenuItem41
        '
        Me.MenuItem41.Index = 11
        Me.MenuItem41.Text = "Current &Month Payroll"
        '
        'MenuItem42
        '
        Me.MenuItem42.Index = 12
        Me.MenuItem42.Text = "&General Payroll"
        '
        'MenuItem51
        '
        Me.MenuItem51.Index = 13
        Me.MenuItem51.Text = "Individ&ual Total Earnings"
        '
        'MenuItem49
        '
        Me.MenuItem49.Index = 14
        Me.MenuItem49.Text = "-"
        '
        'MenuItem50
        '
        Me.MenuItem50.Index = 15
        Me.MenuItem50.Text = "Available &Jobs"
        '
        'MenuItem29
        '
        Me.MenuItem29.Index = 4
        Me.MenuItem29.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem30, Me.MenuItem76})
        Me.MenuItem29.Text = "&Database"
        '
        'MenuItem30
        '
        Me.MenuItem30.Index = 0
        Me.MenuItem30.Text = "HRMS Part 1 &BackUp"
        '
        'MenuItem76
        '
        Me.MenuItem76.Index = 1
        Me.MenuItem76.Text = "HRMS Part 2 Back&Up"
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 423)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Size = New System.Drawing.Size(702, 16)
        Me.StatusBar1.TabIndex = 1
        Me.StatusBar1.Text = "HRMS | Develped By: Nura Tijjani Abubakar | Submitted to: Mr. Ravindran | Oxford " & _
        "Brookes University Project | November, 2007"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem13, Me.MenuItem20, Me.MenuItem14, Me.MenuItem15, Me.MenuItem16, Me.MenuItem17, Me.MenuItem18, Me.MenuItem19, Me.MenuItem45, Me.MenuItem21, Me.MenuItem72, Me.MenuItem22, Me.MenuItem73, Me.MenuItem54, Me.MenuItem55, Me.MenuItem46, Me.MenuItem75, Me.MenuItem74, Me.MenuItem24})
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 0
        Me.MenuItem13.Text = "&Candidate"
        '
        'MenuItem20
        '
        Me.MenuItem20.Index = 1
        Me.MenuItem20.Text = "-"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 2
        Me.MenuItem14.Text = "&Agent"
        '
        'MenuItem15
        '
        Me.MenuItem15.Index = 3
        Me.MenuItem15.Text = "&Client"
        '
        'MenuItem16
        '
        Me.MenuItem16.Index = 4
        Me.MenuItem16.Text = "-"
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 5
        Me.MenuItem17.Text = "&Search Candidate"
        '
        'MenuItem18
        '
        Me.MenuItem18.Index = 6
        Me.MenuItem18.Text = "&Update Status"
        '
        'MenuItem19
        '
        Me.MenuItem19.Index = 7
        Me.MenuItem19.Text = "&Interview Status"
        '
        'MenuItem45
        '
        Me.MenuItem45.Index = 8
        Me.MenuItem45.Text = "-"
        '
        'MenuItem21
        '
        Me.MenuItem21.Index = 9
        Me.MenuItem21.Text = "Atten&dance"
        '
        'MenuItem72
        '
        Me.MenuItem72.Index = 10
        Me.MenuItem72.Text = "-"
        '
        'MenuItem22
        '
        Me.MenuItem22.Index = 11
        Me.MenuItem22.Text = "&Payroll"
        '
        'MenuItem73
        '
        Me.MenuItem73.Index = 12
        Me.MenuItem73.Text = "&Delete ..."
        '
        'MenuItem54
        '
        Me.MenuItem54.Index = 13
        Me.MenuItem54.Text = "-"
        '
        'MenuItem55
        '
        Me.MenuItem55.Index = 14
        Me.MenuItem55.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem56, Me.MenuItem57, Me.MenuItem59, Me.MenuItem58, Me.MenuItem60, Me.MenuItem61, Me.MenuItem62, Me.MenuItem63, Me.MenuItem64, Me.MenuItem65, Me.MenuItem66, Me.MenuItem67, Me.MenuItem68, Me.MenuItem69, Me.MenuItem70, Me.MenuItem71})
        Me.MenuItem55.Text = "&Reports ..."
        '
        'MenuItem56
        '
        Me.MenuItem56.Index = 0
        Me.MenuItem56.Text = "&Employees"
        '
        'MenuItem57
        '
        Me.MenuItem57.Index = 1
        Me.MenuItem57.Text = "&Daily Attendance"
        '
        'MenuItem59
        '
        Me.MenuItem59.Index = 2
        Me.MenuItem59.Text = "-"
        '
        'MenuItem58
        '
        Me.MenuItem58.Index = 3
        Me.MenuItem58.Text = "&Candidates"
        '
        'MenuItem60
        '
        Me.MenuItem60.Index = 4
        Me.MenuItem60.Text = "Candidates Apply &Today"
        '
        'MenuItem61
        '
        Me.MenuItem61.Index = 5
        Me.MenuItem61.Text = "&Interview List"
        '
        'MenuItem62
        '
        Me.MenuItem62.Index = 6
        Me.MenuItem62.Text = "-"
        '
        'MenuItem63
        '
        Me.MenuItem63.Index = 7
        Me.MenuItem63.Text = "C&lients"
        '
        'MenuItem64
        '
        Me.MenuItem64.Index = 8
        Me.MenuItem64.Text = "&Agents"
        '
        'MenuItem65
        '
        Me.MenuItem65.Index = 9
        Me.MenuItem65.Text = "-"
        '
        'MenuItem66
        '
        Me.MenuItem66.Index = 10
        Me.MenuItem66.Text = "&Previous Month Payroll"
        '
        'MenuItem67
        '
        Me.MenuItem67.Index = 11
        Me.MenuItem67.Text = "Current &Month Payroll"
        '
        'MenuItem68
        '
        Me.MenuItem68.Index = 12
        Me.MenuItem68.Text = "&General Payroll"
        '
        'MenuItem69
        '
        Me.MenuItem69.Index = 13
        Me.MenuItem69.Text = "Individ&ual Total Earning"
        '
        'MenuItem70
        '
        Me.MenuItem70.Index = 14
        Me.MenuItem70.Text = "-"
        '
        'MenuItem71
        '
        Me.MenuItem71.Index = 15
        Me.MenuItem71.Text = "Available &Jobs"
        '
        'MenuItem46
        '
        Me.MenuItem46.Index = 15
        Me.MenuItem46.Text = "-"
        '
        'MenuItem75
        '
        Me.MenuItem75.Index = 16
        Me.MenuItem75.Text = "A&dmin"
        '
        'MenuItem74
        '
        Me.MenuItem74.Index = 17
        Me.MenuItem74.Text = "-"
        '
        'MenuItem24
        '
        Me.MenuItem24.Index = 18
        Me.MenuItem24.Text = "E&xit ..."
        '
        'NotifyIcon1
        '
        Me.NotifyIcon1.ContextMenu = Me.ContextMenu2
        Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon)
        Me.NotifyIcon1.Text = "HRMS is running ..."
        Me.NotifyIcon1.Visible = True
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem25})
        '
        'MenuItem25
        '
        Me.MenuItem25.Index = 0
        Me.MenuItem25.Shortcut = System.Windows.Forms.Shortcut.F12
        Me.MenuItem25.Text = "E&xit"
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(702, 439)
        Me.ContextMenu = Me.ContextMenu1
        Me.Controls.Add(Me.StatusBar1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.KeyPreview = True
        Me.Menu = Me.MainMenu1
        Me.Name = "frmMain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Human Resources Management System ( H R M S )"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim ofrmcandidate As New frmcandidate
        ofrmcandidate.MdiParent = Me
        ofrmcandidate.Show()
    End Sub
    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim ofrmAgent As New frmAgent
        ofrmAgent.MdiParent = Me
        ofrmAgent.Show()
    End Sub
    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim ofrmCSearch As New frmCSearch