frmmain.vb

详细介绍了系统的设计过程,对于初学者是一个不错的参考资料

                Case 40
                    '///// 打印
                    Me.StatusBar1.Panels(0).Text = "打印"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 41
                    '///// 打印工资条
                    Me.StatusBar1.Panels(0).Text = "打印工资条"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 42
                    '/////  打印工资明细表
                    Me.StatusBar1.Panels(0).Text = "打印工资明细表"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 50
                    '///// 系统管理
                    Me.StatusBar1.Panels(0).Text = "系统管理"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 51
                    '///// 增加用户
                    Me.StatusBar1.Panels(0).Text = "增加用户"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 52
                    '///// 删除用户
                    Me.StatusBar1.Panels(0).Text = "删除用户"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
            End Select
            da.SelectCommand = New OleDbCommand(searchSql, Cn)
            da.Fill(dsDataBase)
            Me.DataGridMain.DataSource = dsDataBase.Tables(0)

        Catch ex As Exception
            Debug.WriteLine(e1.StackTrace())
        End Try
        da.Dispose()
        dsDataBase.Dispose()
        Cn.Dispose()
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        '/////  人员调动
        Dim dd As New FrmChange
        dd.Show()
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        '/////  福利待遇
        Dim fli As New Frmfuli
        fli.Show()
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        '////   响应第一上下文菜单命令
        Select Case TreeAction.SelectedNode.Tag
            Case 10
            Case 11
                '////////   设置部门信息
                Dim frm As New FrmBF(0)
                frm.Show()
            Case 12
                '////////   设置员工信息
                Dim yg As New FrmStaff(0)
                yg.Show()
            Case 13
                '/////////   人员调动
                Dim dd As New FrmChange
                dd.Show()
            Case 14
                '/////////   福利设置
                Dim fli As New Frmfuli
                fli.Show()
            Case 20
            Case 21
                '/////////   出勤管理
                Dim cq As New FrmChuQin
                cq.Show()
            Case 22
                '/////////   加班出差
                Dim jb As New FrmJb
                jb.Show()
            Case 30
            Case 31
                '///////   工资登录
                Dim gzsz As New FrmGZ
                gzsz.Show()
            Case 32
                '///////    工资查询
                Dim gzcha As New FrmChaXun
                gzcha.Show()
            Case 40
            Case 41
                '///////   打印工资条
                Dim dygzt As New FormReport(0)
                dygzt.Show()
            Case 42
                '///////   打印员工信息表
                Dim dyyg As New FormReport(1)
                dyyg.Show()
            Case 50
            Case 51
                '///////    添加用户
                If Userlx = "普通用户" Then
                    MsgBox("您没有权限进行此操作！")
                    Exit Sub
                Else
                    Dim tjyh As New FrmXTGL(1, Username)
                    tjyh.Show()
                End If
            Case 52
                '/////////     修改用户
                If Userlx = "普通用户" Then
                    MsgBox("您没有权限进行此操作！")
                    Exit Sub
                Else
                    Dim xgyh As New FrmXTGL(3, Username)
                    xgyh.Show()
                End If
            Case 53
                '////////    删除用户
                If Userlx = "普通用户" Then
                    MsgBox("您没有权限进行此操作！")
                    Exit Sub
                Else
                    Dim scyh As New FrmXTGL(2, Username)
                    scyh.Show()
                End If
            Case 54
                '////////  修改密码
                Dim xgmm As New FrmXTGL(4, Username)
                xgmm.Show()
        End Select
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        '//// 出勤管理
        Dim cq As New FrmChuQin
        cq.Show()
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        '//// 加班出差
        Dim jb As New FrmJb
        jb.Show()
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        '/////  工资登录
        Dim gzsz As New FrmGZ
        gzsz.Show()
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        '/////   工资查询
        Dim gzcha As New FrmChaXun
        gzcha.Show()
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        '/////   打印工资条
        Dim dygzt As New FormReport(0)
        dygzt.Show()
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        '/////    打印员工信息表
        Dim dyyg As New FormReport(1)
        dyyg.Show()
    End Sub

    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
        '////  增加用户
        If Userlx = "普通用户" Then
            MsgBox("您没有权限进行此操作！")
            Exit Sub
        Else
            Dim tjyh As New FrmXTGL(1, Username)
            tjyh.Show()
        End If
    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
        '//////   修改用户
        If Userlx = "普通用户" Then
            MsgBox("您没有权限进行此操作！")
            Exit Sub
        Else
            Dim xgyh As New FrmXTGL(3, Username)
            xgyh.Show()
        End If
    End Sub

    Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem23.Click
        '/////   系统退出
        Me.Close()
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                '///// 人员调动
                Dim dd As New FrmChange
                dd.Show()
            Case 1
                '/////   工资登录
                Dim gzsz As New FrmGZ
                gzsz.Show()
            Case 2
                '/////   工资查询
                Dim gzcha As New FrmChaXun
                gzcha.Show()
            Case 3
                '/////   打印工资条
                Dim dygzt As New FormReport(0)
                dygzt.Show()
            Case 5
                '/////   修改密码
                Dim xgmm As New FrmXTGL(4, Username)
                xgmm.Show()
        End Select
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        '///////// 设置部门信息 
        Dim frm As New FrmBF(0)
        frm.Show()
    End Sub

    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
        '////////// 修改部门信息
        Dim bm As New FrmBF(1)
        bm.Show()
    End Sub

    Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem24.Click
        '/////////////   设置员工信息
        Dim yg As New FrmStaff(0)
        yg.Show()
    End Sub

    Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem25.Click
        '///////////    修改员工信息
        Dim yg As New FrmStaff(1)
        yg.Show()
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        '/////////   删除用户
        If Userlx = "普通用户" Then
            MsgBox("您没有权限进行此操作！")
            Exit Sub
        Else
            Dim scyh As New FrmXTGL(2, Username)
            scyh.Show()
        End If
    End Sub

    Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click
        '//////////   修改个人密码
        Dim xgmm As New FrmXTGL(4, Username)
        xgmm.Show()
    End Sub

    Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup
        Select Case TreeAction.SelectedNode.Tag
            Case 10
                ContextMenu2.MenuItems(0).Visible = False
                ContextMenu2.MenuItems(1).Visible = False
            Case 11
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "设置部门信息"
                ContextMenu2.MenuItems(1).Visible = True
                ContextMenu2.MenuItems(1).Text = "修改部门信息"
            Case 12
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "设置员工信息"
                ContextMenu2.MenuItems(1).Visible = True
                ContextMenu2.MenuItems(1).Text = "修改员工信息"
            Case 13
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "人员调动"
                ContextMenu2.MenuItems(1).Visible = False
            Case 14
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "福利设置"
                ContextMenu2.MenuItems(1).Visible = False
            Case 20
                ContextMenu2.MenuItems(0).Visible = False
                ContextMenu2.MenuItems(1).Visible = False
            Case 21
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "出勤管理"
                ContextMenu2.MenuItems(1).Visible = False
            Case 22
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "加班出差"
                ContextMenu2.MenuItems(1).Visible = False
            Case 30
                ContextMenu2.MenuItems(0).Visible = False
                ContextMenu2.MenuItems(1).Visible = False
            Case 31
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "工资设置"
                ContextMenu2.MenuItems(1).Visible = False
            Case 32
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "工资查询"
                ContextMenu2.MenuItems(1).Visible = False
            Case 40
                ContextMenu2.MenuItems(0).Visible = False
                ContextMenu2.MenuItems(1).Visible = False
            Case 41
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "打印工资条"
                ContextMenu2.MenuItems(1).Visible = False
            Case 42
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "打印员工信息表"
                ContextMenu2.MenuItems(1).Visible = False
            Case 50
                ContextMenu2.MenuItems(0).Visible = False
                ContextMenu2.MenuItems(1).Visible = False
            Case 51
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "添加用户"
                ContextMenu2.MenuItems(1).Visible = False
            Case 52
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "修改用户"
                ContextMenu2.MenuItems(1).Visible = False
            Case 53
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "删除用户"
                ContextMenu2.MenuItems(1).Visible = False
            Case 54
                ContextMenu2.MenuItems(0).Visible = True
                ContextMenu2.MenuItems(0).Text = "修改密码"
                ContextMenu2.MenuItems(1).Visible = False
        End Select
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        '////   响应第二上下文菜单命令
        Select Case TreeAction.SelectedNode.Tag
            Case 11
                '///////    修改部门信息
                Dim bm As New FrmBF(1)
                bm.Show()
            Case 12
                '////////    修改员工信息
                Dim yg As New FrmStaff(1)
                yg.Show()
        End Select
    End Sub

    Private Sub FrmMain_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        Application.Exit()
    End Sub
End Class