formmain.vb

人事管理系统（VB.NET2005+SQL Server2005）

Public Class FormMain
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents miPersonnel As System.Windows.Forms.MenuItem
    Friend WithEvents miQueryEmployee As System.Windows.Forms.MenuItem
    Friend WithEvents miAttendance As System.Windows.Forms.MenuItem
    Friend WithEvents miDailyAttendance As System.Windows.Forms.MenuItem
    Friend WithEvents miPayroll As System.Windows.Forms.MenuItem
    Friend WithEvents miPayPayroll As System.Windows.Forms.MenuItem
    Friend WithEvents miSystem As System.Windows.Forms.MenuItem
    Friend WithEvents miCompany As System.Windows.Forms.MenuItem
    Friend WithEvents miHelp As System.Windows.Forms.MenuItem
    Friend WithEvents miAbout As System.Windows.Forms.MenuItem
    Friend WithEvents miExit As System.Windows.Forms.MenuItem
    Friend WithEvents miDepartment As System.Windows.Forms.MenuItem
    Friend WithEvents miAdminEmployee As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents miAttendanceItem As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents miNation As System.Windows.Forms.MenuItem
    Friend WithEvents miEducation As System.Windows.Forms.MenuItem
    Friend WithEvents miBusiness As System.Windows.Forms.MenuItem
    Friend WithEvents miPostTitle As System.Windows.Forms.MenuItem
    Friend WithEvents miUser As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents miUserLevel As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents miPayrollItem As System.Windows.Forms.MenuItem
    Friend WithEvents miQueryPayroll As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components)
        Me.miPersonnel = New System.Windows.Forms.MenuItem
        Me.miAdminEmployee = New System.Windows.Forms.MenuItem
        Me.miQueryEmployee = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.miNation = New System.Windows.Forms.MenuItem
        Me.miEducation = New System.Windows.Forms.MenuItem
        Me.miBusiness = New System.Windows.Forms.MenuItem
        Me.miPostTitle = New System.Windows.Forms.MenuItem
        Me.miAttendance = New System.Windows.Forms.MenuItem
        Me.miDailyAttendance = New System.Windows.Forms.MenuItem
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.miAttendanceItem = New System.Windows.Forms.MenuItem
        Me.miPayroll = New System.Windows.Forms.MenuItem
        Me.miPayPayroll = New System.Windows.Forms.MenuItem
        Me.miQueryPayroll = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.miPayrollItem = New System.Windows.Forms.MenuItem
        Me.miSystem = New System.Windows.Forms.MenuItem
        Me.miCompany = New System.Windows.Forms.MenuItem
        Me.miDepartment = New System.Windows.Forms.MenuItem
        Me.miUser = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.miUserLevel = New System.Windows.Forms.MenuItem
        Me.miHelp = New System.Windows.Forms.MenuItem
        Me.miAbout = New System.Windows.Forms.MenuItem
        Me.miExit = New System.Windows.Forms.MenuItem
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miPersonnel, Me.miAttendance, Me.miPayroll, Me.miSystem, Me.miHelp, Me.miExit})
        '
        'miPersonnel
        '
        Me.miPersonnel.Index = 0
        Me.miPersonnel.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miAdminEmployee, Me.miQueryEmployee, Me.MenuItem2, Me.miNation, Me.miEducation, Me.miBusiness, Me.miPostTitle})
        Me.miPersonnel.Text = "人事管理"
        '
        'miAdminEmployee
        '
        Me.miAdminEmployee.Index = 0
        Me.miAdminEmployee.Text = "管理员工"
        '
        'miQueryEmployee
        '
        Me.miQueryEmployee.Index = 1
        Me.miQueryEmployee.Text = "查询员工"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 2
        Me.MenuItem2.Text = "-"
        '
        'miNation
        '
        Me.miNation.Index = 3
        Me.miNation.Text = "民族设置"
        '
        'miEducation
        '
        Me.miEducation.Index = 4
        Me.miEducation.Text = "学历设置"
        '
        'miBusiness
        '
        Me.miBusiness.Index = 5
        Me.miBusiness.Text = "职务设置"
        '
        'miPostTitle
        '
        Me.miPostTitle.Index = 6
        Me.miPostTitle.Text = "职称设置"
        '
        'miAttendance
        '
        Me.miAttendance.Index = 1
        Me.miAttendance.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miDailyAttendance, Me.MenuItem1, Me.miAttendanceItem})
        Me.miAttendance.Text = "考勤管理"
        '
        'miDailyAttendance
        '
        Me.miDailyAttendance.Index = 0
        Me.miDailyAttendance.Text = "日常考勤"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 1
        Me.MenuItem1.Text = "-"
        '
        'miAttendanceItem
        '
        Me.miAttendanceItem.Index = 2
        Me.miAttendanceItem.Text = "考勤项目设置"
        '
        'miPayroll
        '
        Me.miPayroll.Index = 2
        Me.miPayroll.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miPayPayroll, Me.miQueryPayroll, Me.MenuItem4, Me.miPayrollItem})
        Me.miPayroll.Text = "工资管理"
        '
        'miPayPayroll
        '
        Me.miPayPayroll.Index = 0
        Me.miPayPayroll.Text = "发放工资"
        '
        'miQueryPayroll
        '
        Me.miQueryPayroll.Index = 1
        Me.miQueryPayroll.Text = "工资查询"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 2
        Me.MenuItem4.Text = "-"
        '
        'miPayrollItem
        '
        Me.miPayrollItem.Index = 3
        Me.miPayrollItem.Text = "工资项目设置"
        '
        'miSystem
        '
        Me.miSystem.Index = 3
        Me.miSystem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miCompany, Me.miDepartment, Me.miUser, Me.MenuItem3, Me.miUserLevel})
        Me.miSystem.Text = "系统管理"
        '
        'miCompany
        '
        Me.miCompany.Index = 0
        Me.miCompany.Text = "公司设置"
        '
        'miDepartment
        '
        Me.miDepartment.Index = 1
        Me.miDepartment.Text = "部门管理"
        '
        'miUser
        '
        Me.miUser.Index = 2
        Me.miUser.Text = "用户管理"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 3
        Me.MenuItem3.Text = "-"
        '
        'miUserLevel
        '
        Me.miUserLevel.Index = 4
        Me.miUserLevel.Text = "用户级别设置"
        '
        'miHelp
        '
        Me.miHelp.Index = 4
        Me.miHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miAbout})
        Me.miHelp.Text = "帮助"
        '
        'miAbout
        '
        Me.miAbout.Index = 0
        Me.miAbout.Text = "关于..."
        '
        'miExit
        '
        Me.miExit.Index = 5
        Me.miExit.Text = "退出!"
        '
        'FormMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(488, 358)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "FormMain"
        Me.Text = "人事考勤工资管理系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub ShowMDIForm(ByVal oForm As Form)
        oForm.MdiParent = Me
        oForm.Show()
    End Sub

    Private Sub miCompany_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miCompany.Click
        ShowMDIForm(New FormCompany)
    End Sub

    Private Sub miDepartment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miDepartment.Click
        ShowMDIForm(New FormDepartment)
    End Sub

    Private Sub miAdminEmployee_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miAdminEmployee.Click
        ShowMDIForm(New FormEmployee)
    End Sub

    Private Sub miQueryEmployee_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miQueryEmployee.Click
        ShowMDIForm(New FormFindEmployee)
    End Sub

    Private Sub miAttendanceItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miAttendanceItem.Click
        ShowMDIForm(New FormAttendanceItem)
    End Sub

    Private Sub miNation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miNation.Click
        ShowMDIForm(New FormNation)
    End Sub

    Private Sub miEducation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miEducation.Click
        ShowMDIForm(New FormEducation)
    End Sub

    Private Sub miBusiness_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miBusiness.Click
        ShowMDIForm(New FormBusiness)
    End Sub

    Private Sub miPostTitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miPostTitle.Click
        ShowMDIForm(New FormPostTitle)
    End Sub

    Private Sub miUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miUser.Click
        ShowMDIForm(New FormUser)
    End Sub

    Private Sub miUserLevel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miUserLevel.Click
        ShowMDIForm(New FormUserLevel)
    End Sub

    Private Sub miDailyAttendance_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miDailyAttendance.Click
        ShowMDIForm(New FormAttendance)
    End Sub

    Private Sub miPayPayroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miPayPayroll.Click
        ShowMDIForm(New FormPayroll)
    End Sub

    Private Sub miPayrollItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miPayrollItem.Click
        ShowMDIForm(New FormPayrollItem)
    End Sub

    Private Sub miAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miAbout.Click
        ShowMDIForm(New FormAbout)
    End Sub

    Private Sub miQueryPayroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miQueryPayroll.Click
        ShowMDIForm(New FormQueryPayroll)
    End Sub

    Private Sub miExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miExit.Click
        Application.Exit()
    End Sub
End Class