frmmain.vb

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

        '
        'StatusBarPanelWeek
        '
        Me.StatusBarPanelWeek.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
        Me.StatusBarPanelWeek.Width = 10
        '
        'ToolBar1
        '
        Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButtonChange, Me.ToolBarButtonInput, Me.ToolBarButtonQuest, Me.ToolBarButtonPrint, Me.ToolBarButton1, Me.ToolBarButtonExit})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList_Bar
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(592, 44)
        Me.ToolBar1.TabIndex = 8
        Me.ToolBar1.TextAlign = System.Windows.Forms.ToolBarTextAlign.Right
        '
        'ToolBarButtonChange
        '
        Me.ToolBarButtonChange.ImageIndex = 0
        Me.ToolBarButtonChange.Text = "人员调动"
        Me.ToolBarButtonChange.ToolTipText = "人事管理"
        '
        'ToolBarButtonInput
        '
        Me.ToolBarButtonInput.ImageIndex = 1
        Me.ToolBarButtonInput.Text = "工资登录"
        Me.ToolBarButtonInput.ToolTipText = "工资管理"
        '
        'ToolBarButtonQuest
        '
        Me.ToolBarButtonQuest.ImageIndex = 2
        Me.ToolBarButtonQuest.Text = "工资查询"
        Me.ToolBarButtonQuest.ToolTipText = "工资管理"
        '
        'ToolBarButtonPrint
        '
        Me.ToolBarButtonPrint.ImageIndex = 3
        Me.ToolBarButtonPrint.Text = "打印工资条"
        Me.ToolBarButtonPrint.ToolTipText = "打印"
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButtonExit
        '
        Me.ToolBarButtonExit.ImageIndex = 4
        Me.ToolBarButtonExit.Text = "修改密码"
        Me.ToolBarButtonExit.ToolTipText = "修改本用户密码"
        '
        'PBox
        '
        Me.PBox.Dock = System.Windows.Forms.DockStyle.Fill
        Me.PBox.Image = CType(resources.GetObject("PBox.Image"), System.Drawing.Image)
        Me.PBox.Location = New System.Drawing.Point(208, 52)
        Me.PBox.Name = "PBox"
        Me.PBox.Size = New System.Drawing.Size(384, 263)
        Me.PBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PBox.TabIndex = 10
        Me.PBox.TabStop = False
        '
        'DataGridMain
        '
        Me.DataGridMain.DataMember = ""
        Me.DataGridMain.Dock = System.Windows.Forms.DockStyle.Fill
        Me.DataGridMain.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGridMain.Location = New System.Drawing.Point(208, 52)
        Me.DataGridMain.Name = "DataGridMain"
        Me.DataGridMain.Size = New System.Drawing.Size(384, 263)
        Me.DataGridMain.TabIndex = 12
        Me.DataGridMain.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.DataGridTableStyle1})
        '
        'DataGridTableStyle1
        '
        Me.DataGridTableStyle1.DataGrid = Me.DataGridMain
        Me.DataGridTableStyle1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGridTableStyle1.MappingName = ""
        Me.DataGridTableStyle1.ReadOnly = True
        '
        'FrmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(592, 337)
        Me.Controls.Add(Me.DataGridMain)
        Me.Controls.Add(Me.PBox)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.TreeAction)
        Me.Controls.Add(Me.PictureBox2)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.ToolBar1)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "FrmMain"
        Me.Text = "企业人事管理系统"
        Me.TopMost = True
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.StatusBarPanelPath, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanelData, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanelMonth, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanelWeek, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataGridMain, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub FrmBrowerMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '////////////   设置的拆分器的属性值
        Splitter1.BorderStyle = BorderStyle.FixedSingle
        Splitter1.MinSize = 100
        Splitter1.MinExtra = 200
        Splitter1.SplitPosition = Me.ClientSize.Width / 4
        '///////////   初始化Treeview控件
        Me.TreeAction.ImageList = Me.ImageList3
        TreeAction.HotTracking = True
        TreeAction.ShowPlusMinus = True

        Dim e1 As New Exception
        Try
            Dim Nodes As New TreeNode
            '添加人事管理条目
            Dim TmpNode As New TreeNode("人事管理")
            TmpNode.ImageIndex = 1
            TmpNode.SelectedImageIndex = 3
            TmpNode.Tag = 10
            TreeAction.Nodes.Add(TmpNode)

            Nodes.Text = "部门信息"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 11
            TmpNode.Nodes.Add(Nodes)

            Nodes = New TreeNode
            Nodes.Text = "员工信息"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 12
            TmpNode.Nodes.Add(Nodes)

            Nodes = New TreeNode
            Nodes.Text = "人员调动"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 13
            TmpNode.Nodes.Add(Nodes)

            Nodes = New TreeNode
            Nodes.Text = "福利待遇"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 14
            TmpNode.Nodes.Add(Nodes)
            '添加考勤管理条目
            TmpNode = New TreeNode
            TmpNode.Text = "考勤管理"
            TmpNode.ImageIndex = 1
            TmpNode.SelectedImageIndex = 3
            TmpNode.Tag = 20
            TreeAction.Nodes.Add(TmpNode)

            Nodes = New TreeNode
            Nodes.Text = "出勤管理"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 21
            TmpNode.Nodes.Add(Nodes)

            Nodes = New TreeNode
            Nodes.Text = "加班出差"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 22
            TmpNode.Nodes.Add(Nodes)
            '添加工资管理条目
            TmpNode = New TreeNode
            TmpNode.Text = "工资管理"
            TmpNode.ImageIndex = 1
            TmpNode.SelectedImageIndex = 3
            TmpNode.Tag = 30
            TreeAction.Nodes.Add(TmpNode)

            Nodes = New TreeNode
            Nodes.Text = "工资登录"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 31
            TmpNode.Nodes.Add(Nodes)

            Nodes = New TreeNode
            Nodes.Text = "工资查询"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 32
            TmpNode.Nodes.Add(Nodes)
            '添加打印条目
            TmpNode = New TreeNode
            TmpNode.Text = "打印"
            TmpNode.ImageIndex = 1
            TmpNode.SelectedImageIndex = 3
            TmpNode.Tag = 40
            TreeAction.Nodes.Add(TmpNode)

            Nodes = New TreeNode
            Nodes.Text = "打印工资条"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 41
            TmpNode.Nodes.Add(Nodes)

            Nodes = New TreeNode
            Nodes.Text = "打印员工信息表"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 42
            TmpNode.Nodes.Add(Nodes)
            '添加系统管理条目
            TmpNode = New TreeNode
            TmpNode.Text = "系统管理"
            TmpNode.ImageIndex = 1
            TmpNode.SelectedImageIndex = 3
            TmpNode.Tag = 50
            TreeAction.Nodes.Add(TmpNode)

            Nodes = New TreeNode
            Nodes.Text = "增加用户"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 51
            TmpNode.Nodes.Add(Nodes)

            Nodes = New TreeNode
            Nodes.Text = "修改用户"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 52
            TmpNode.Nodes.Add(Nodes)

            Nodes = New TreeNode
            Nodes.Text = "删除用户"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 53
            TmpNode.Nodes.Add(Nodes)

            Nodes = New TreeNode
            Nodes.Text = "修改密码"
            Nodes.ImageIndex = 1
            Nodes.SelectedImageIndex = 3
            Nodes.Tag = 54
            TmpNode.Nodes.Add(Nodes)

        Catch ex As Exception
            Debug.WriteLine(e1.StackTrace())
        End Try
        '///////////  在状态栏中显示当前日期和时间
        Me.StatusBar1.Panels(1).Text = System.DateTime.Now.Date
        Me.StatusBar1.Panels(2).Text = System.DateTime.Now.Month & "月"
        Select Case System.DateTime.Now.DayOfWeek
            Case DayOfWeek.Monday
                Me.StatusBar1.Panels(3).Text = "星期一"
            Case DayOfWeek.Tuesday
                Me.StatusBar1.Panels(3).Text = "星期二"
            Case DayOfWeek.Wednesday
                Me.StatusBar1.Panels(3).Text = "星期三"
            Case DayOfWeek.Thursday
                Me.StatusBar1.Panels(3).Text = "星期四"
            Case DayOfWeek.Friday
                Me.StatusBar1.Panels(3).Text = "星期五"
            Case DayOfWeek.Saturday
                Me.StatusBar1.Panels(3).Text = "星期六"
            Case DayOfWeek.Sunday
                Me.StatusBar1.Panels(3).Text = "星期日"
        End Select
        '//////     设置右侧背景图
        Me.DataGridMain.Visible = False
        Me.PBox.Visible = True
        '//////   设置系统标题
        Me.Text = "企业人事管理系统（用户： " & Trim(Username) & ",用户类型： " & Trim(Userlx) & "）"
    End Sub

    Private Sub Splitter1_SplitterMoving(ByVal sender As Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter1.SplitterMoving
        '/////// 显示Splitter的移动位置
        Me.Text = "企业人事管理系统（" & e.SplitX & "，" & e.SplitY & "）"
    End Sub

    Private Sub Splitter1_SplitterMoved(ByVal sender As Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter1.SplitterMoved
        '////////////  在Splitter移动结束后，恢复窗体的标题
        Me.Text = "企业人事管理系统（用户： " & Trim(Username) & ",用户类型： " & Trim(Userlx) & "）"
    End Sub

    Private Sub TreeAction_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeAction.AfterSelect
        Dim e1 As New Exception
        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim searchSql As String
        Dim da As New OleDbDataAdapter
        Dim dsDataBase As New DataSet
        Cn.ConnectionString = connstr
        Try
            Dim TXT As String
            TXT = TreeAction.SelectedNode.Tag
            Select Case CInt(TXT)
                Case 10
                    '///// 人事管理
                    Me.StatusBar1.Panels(0).Text = "人事管理"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 11
                    '///// 部门信息
                    Me.StatusBar1.Panels(0).Text = "部门信息"
                    Me.PBox.Visible = False
                    Me.DataGridMain.Visible = True
                    searchSql = "select * from 部门信息表"
                Case 12
                    '///// 员工信息
                    Me.StatusBar1.Panels(0).Text = "员工信息"
                    Me.PBox.Visible = False
                    Me.DataGridMain.Visible = True
                    searchSql = "select * from 员工信息表"
                Case 13
                    '///// 人员调动
                    Me.StatusBar1.Panels(0).Text = "人员调动"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 14
                    '///// 福利待遇
                    Me.StatusBar1.Panels(0).Text = "福利待遇"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 20
                    '///// 考勤管理
                    Me.StatusBar1.Panels(0).Text = "考勤管理"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 21
                    '///// 出勤管理
                    Me.StatusBar1.Panels(0).Text = "出勤管理"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 22
                    '///// 加班出差
                    Me.StatusBar1.Panels(0).Text = "加班出差"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 30
                    '///// 工资管理
                    Me.StatusBar1.Panels(0).Text = "工资管理"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 31
                    '///// 工资登录
                    Me.StatusBar1.Panels(0).Text = "工资登录"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False
                Case 32
                    '///// 工资查询
                    Me.StatusBar1.Panels(0).Text = "工资查询"
                    Me.PBox.Visible = True
                    Me.DataGridMain.Visible = False