Visual Basic 2010 数据库开发之人事管理系统04主界面窗体

设置IsMdiContainer属性为True

Public Class frmMain
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sttLabel2.Text = "操作员：" & username
        sttLabel3.Text = Today
        sttLabel4.Text = TimeOfDay
    End Sub

    Private Sub 添加用户ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加用户ToolStripMenuItem.Click
        If IsMdiChi("frmAdd") Then
            Exit Sub
        End If
        Dim frmadd As New frmAdd
        frmAdd.MdiParent = Me
        frmadd.Show()
    End Sub


    Private Sub 修改密码ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改密码ToolStripMenuItem.Click
        If IsMdiChi("frmModifyPwd") Then
            Exit Sub
        End If

        Dim frmModifyPwd As New frmModifyPwd
        frmModifyPwd.MdiParent = Me
        frmModifyPwd.Show()

    End Sub

    Private Sub 重新登录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 重新登录ToolStripMenuItem.Click
        If IsMdiChi("frmLoginAgain") Then
            Exit Sub
        End If

        Dim frmLoginAgain As New frmLoginAgain
        frmLoginAgain.MdiParent = Me
        frmLoginAgain.Show()
    End Sub

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
        Application.Exit()
    End Sub

    Private Sub 编辑员工档案ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑员工档案ToolStripMenuItem.Click
        If IsMdiChi("编辑员工档案") Then
            Exit Sub
        End If

        Dim 编辑员工档案 As New 编辑员工档案
        编辑员工档案.MdiParent = Me
        编辑员工档案.Show()
    End Sub

    Private Sub 查询员工档案ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询员工档案ToolStripMenuItem.Click
        If IsMdiChi("查询员工档案") Then
            Exit Sub
        End If

        Dim 查询员工档案 As New 员工档案查询
        查询员工档案.MdiParent = Me
        查询员工档案.Show()
    End Sub

    Private Sub 员工档案报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 员工档案报表ToolStripMenuItem.Click
        If IsMdiChi("员工档案报表") Then
            Exit Sub
        End If

        Dim 员工档案报表 As New 员工档案报表
        员工档案报表.MdiParent = Me
        员工档案报表.Show()
    End Sub

    Private Sub 编辑考勤信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑考勤信息ToolStripMenuItem.Click
        If IsMdiChi("编辑考勤信息") Then
            Exit Sub
        End If

        Dim 编辑考勤信息 As New 编辑考勤信息
        编辑考勤信息.MdiParent = Me
        编辑考勤信息.Show()
    End Sub

    Private Sub 查询考勤信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询考勤信息ToolStripMenuItem.Click
        If IsMdiChi("查询考勤信息") Then
            Exit Sub
        End If

        Dim 查询考勤信息 As New 考勤信息查询
        查询考勤信息.MdiParent = Me
        查询考勤信息.Show()
    End Sub

    Private Sub 考勤信息报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 考勤信息报表ToolStripMenuItem.Click
        If IsMdiChi("考勤信息报表") Then
            Exit Sub
        End If

        Dim 考勤信息报表 As New 考勤信息查询
        考勤信息报表.MdiParent = Me
        考勤信息报表.Show()
    End Sub

  
    Private Sub 编辑员工评价ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑员工评价ToolStripMenuItem.Click
        If IsMdiChi("编辑员工评价") Then
            Exit Sub
        End If

        Dim 编辑员工评价 As New 考勤信息查询
        编辑员工评价.MdiParent = Me
        编辑员工评价.Show()
    End Sub

    Private Sub 查询员工评价ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询员工评价ToolStripMenuItem.Click
        If IsMdiChi("查询员工评价") Then
            Exit Sub
        End If

        Dim 查询员工评价 As New 查询员工评价
        查询员工评价.MdiParent = Me
        查询员工评价.Show()
    End Sub

    Private Sub 工作评价报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工作评价报表ToolStripMenuItem.Click
        If IsMdiChi("工作评价报表") Then
            Exit Sub
        End If

        Dim 工作评价报表 As New 工作评价报表
        工作评价报表.MdiParent = Me
        工作评价报表.Show()
    End Sub

    Private Sub 编辑员工调动ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑员工调动ToolStripMenuItem.Click
        If IsMdiChi("编辑员工调动") Then
            Exit Sub
        End If

        Dim 编辑员工调动 As New 编辑员工调动
        编辑员工调动.MdiParent = Me
        编辑员工调动.Show()
    End Sub

    Private Sub 查询员工调动ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询员工调动ToolStripMenuItem.Click
        If IsMdiChi("查询员工调动") Then
            Exit Sub
        End If

        Dim 查询员工调动 As New 查询员工调动
        查询员工调动.MdiParent = Me
        查询员工调动.Show()
    End Sub

    Private Sub 员工调动报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 员工调动报表ToolStripMenuItem.Click
        If IsMdiChi("员工调动报表") Then
            Exit Sub
        End If

        Dim 员工调动报表 As New 员工调动报表
        员工调动报表.MdiParent = Me
        员工调动报表.Show()
    End Sub

    Private Sub 编辑员工工资ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑员工工资ToolStripMenuItem.Click
        If IsMdiChi("编辑员工工资") Then
            Exit Sub
        End If

        Dim 编辑员工工资 As New 编辑员工工资
        编辑员工工资.MdiParent = Me
        编辑员工工资.Show()
    End Sub

    Private Sub 查询员工工资ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询员工工资ToolStripMenuItem.Click
        If IsMdiChi("查询员工工资") Then
            Exit Sub
        End If

        Dim 查询员工工资 As New 查询员工工资
        查询员工工资.MdiParent = Me
        查询员工工资.Show()
    End Sub

    Private Sub 员工工资报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 员工工资报表ToolStripMenuItem.Click
        If IsMdiChi("员工工资报表") Then
            Exit Sub
        End If

        Dim 员工工资报表 As New 员工工资报表
        员工工资报表.MdiParent = Me
        员工工资报表.Show()
    End Sub

  
    Private Sub 帮助ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 帮助ToolStripMenuItem.Click
        If IsMdiChi("帮助") Then
            Exit Sub
        End If

        Dim 帮助 As New Help
        帮助.MdiParent = Me
        帮助.Show()
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        添加用户ToolStripMenuItem.PerformClick()
    End Sub

   
    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        修改密码ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        重新登录ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 编辑员工档案ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑员工档案ToolStripMenuItem1.Click
        编辑员工档案ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 编辑考勤信息ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑考勤信息ToolStripMenuItem1.Click
        编辑考勤信息ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 编辑工作评价ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑工作评价ToolStripMenuItem.Click
        编辑工作评价ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 编辑员工调动ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑员工调动ToolStripMenuItem1.Click
        编辑员工调动ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 编辑员工调动ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑员工调动ToolStripMenuItem2.Click
        编辑员工工资ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 查询员工档案ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询员工档案ToolStripMenuItem1.Click
        查询员工档案ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 查询考勤信息ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询考勤信息ToolStripMenuItem1.Click
        查询考勤信息ToolStripMenuItem1.PerformClick()
    End Sub

    Private Sub 查询工作评价ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询工作评价ToolStripMenuItem.Click
        查询工作评价ToolStripMenuItem.PerformClick()
    End Sub

  
    Private Sub 查询工作调动ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询工作调动ToolStripMenuItem.Click
        查询工作调动ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 查询工资管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询工资管理ToolStripMenuItem.Click
        查询工资管理ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 打印员工档案报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印员工档案报表ToolStripMenuItem.Click
        员工档案报表ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 打印考勤信息报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印考勤信息报表ToolStripMenuItem.Click
        考勤信息报表ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 打印工作评价报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印工作评价报表ToolStripMenuItem.Click
        工作评价报表ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub 打印员工调动报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印员工调动报表ToolStripMenuItem.Click
        员工调动报表ToolStripMenuItem.PerformClick()
    End Sub

   
    Private Sub 打印员工工资报表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印员工工资报表ToolStripMenuItem.Click
        员工工资报表ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        帮助ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        退出ToolStripMenuItem.PerformClick()
    End Sub
End Class