frmmain.vb

数据管理,学习数据库的好方法,可以试试呀 人力资源信息管理系统全套

        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(496, 181)
        Me.Controls.Add(Me.StatusBar)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu
        Me.Name = "frmMain"
        Me.Text = "人力资源管理系统 "
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Function GetInstanceState(ByVal name As String) As Boolean
        '获得frmMain窗体的子窗体的数量
        Dim i As Integer = Me.MdiChildren.Length
        '循环判断是否有名为name的子窗体实例
        For i = 0 To Me.MdiChildren.Length - 1
            If Me.MdiChildren(i).Name = name Then
                '存在名为name的子窗体，是子窗体获得焦点并返回True
                Me.MdiChildren(i).Focus()
                Return True
            End If
        Next
        '不存在名为Name的子窗体False
        Return False
    End Function

    Private Sub MenuItemDepManage_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MenuItemDepManage.Click
        '判断机构设置及编码窗体是是否已经创建
        If GetInstanceState("frmDepManage") Then
            '机构设置及编码窗体已经创建并返回
            Exit Sub
        End If
        '创建并显示商品资料维护窗体
        Dim childFrm As frmDepManage = New frmDepManage
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemDepInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemDepInfo.Click
        If GetInstanceState("frmDepInfo") Then
            Exit Sub
        End If
        Dim childFrm As frmDepInfo = New frmDepInfo
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemPeopleManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemPeopleManage.Click
        If GetInstanceState("frmPeopleManage") Then
            Exit Sub
        End If
        Dim childFrm As frmPeopleManage = New frmPeopleManage
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemPeopleQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemPeopleQuery.Click
        If GetInstanceState("frmPeopleQuery") Then
            Exit Sub
        End If
        Dim childFrm As frmPeopleQuery = New frmPeopleQuery
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemSalaryManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemSalaryManage.Click
        If GetInstanceState("frmSalaryManage") Then
            Exit Sub
        End If
        Dim childFrm As frmSalaryManage = New frmSalaryManage
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemTaxInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemTaxInfo.Click
        If GetInstanceState("frmTaxInfo") Then
            Exit Sub
        End If
        Dim childFrm As frmTaxInfo = New frmTaxInfo
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemSalaryHis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemSalaryHis.Click
        If GetInstanceState("frmSalaryHis") Then
            Exit Sub
        End If
        Dim childFrm As frmSalaryHis = New frmSalaryHis
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemPrize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemPrize.Click
        If GetInstanceState("frmPrize") Then
            Exit Sub
        End If
        Dim childFrm As frmPrize = New frmPrize
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemPunish_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemPunish.Click
        If GetInstanceState("frmPunish") Then
            Exit Sub
        End If
        Dim childFrm As frmPunish = New frmPunish
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        If GetInstanceState("frmabout") Then
            Exit Sub
        End If
        Dim childFrm As frmabout = New frmabout
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        If GetInstanceState("frmmanage") Then
            Exit Sub
        End If
        Dim childFrm As frmManage = New frmManage
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

Private Sub SetRight(ByVal sUserId As String)
        If sUserId = "zl" Or sUserId = "xl" Then
            MenuItemDepManage.Enabled = True
            MenuItemDepInfo.Enabled = True
            MenuItemPeopleManage.Enabled = True
            MenuItemPeopleQuery.Enabled = True
            MenuItemSalaryManage.Enabled = True
            MenuItemTaxInfo.Enabled = True
            MenuItemSalaryHis.Enabled = True
            MenuItemPrize.Enabled = True
            MenuItemPunish.Enabled = True
            MenuItem3.Enabled = True
        End If
        Dim db As DataBase = New DataBase
        '根据当前登陆用户从数据库查询他的权限
        Dim strSQL As String = "SELECT 用户编号, 权限名称 "
        strSQL += " FROM 权限清单 where 用户编号='" + sUserId + "'"
        Dim dvRight As DataView = db.RunSelectSQL(strSQL)
        Dim i As Integer
        Dim sRight As String
        '根据当前登陆用户权限设置菜单项是否可用
        For i = 0 To dvRight.Count - 1
            sRight = dvRight(i)("权限名称")
            sRight = sRight.Trim()
            If sRight = MenuItemDepManage.Text.Trim() Then
                MenuItemDepManage.Enabled = True
            ElseIf sRight = MenuItemDepInfo.Text.Trim() Then
                MenuItemDepInfo.Enabled = True
            ElseIf sRight = MenuItemPeopleManage.Text.Trim() Then
                MenuItemPeopleManage.Enabled = True
            ElseIf sRight = MenuItemPeopleQuery.Text.Trim() Then
                MenuItemPeopleQuery.Enabled = True
            ElseIf sRight = MenuItemSalaryManage.Text.Trim() Then
                MenuItemSalaryManage.Enabled = True
            ElseIf sRight = MenuItemTaxInfo.Text.Trim() Then
                MenuItemTaxInfo.Enabled = True
            ElseIf sRight = MenuItemSalaryHis.Text.Trim() Then
                MenuItemSalaryHis.Enabled = True
            ElseIf sRight = MenuItemPrize.Text.Trim() Then
                MenuItemPrize.Enabled = True
            ElseIf sRight = MenuItemPunish.Text.Trim() Then
                MenuItemPunish.Enabled = True
            ElseIf sRight = MenuItem3.Text.Trim() Then
                MenuItem3.Enabled = True
            End If
        Next
        db.Dispose()
End Sub

Private Sub frmMain_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
    '根据登陆用户的ID设置菜单
    Me.SetRight(Me.UserId)
    End Sub

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