GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/01、人事管理系統/公司組織結構.vb

Public Class 公司組織結構
    Private Sub Set_清單1()
        Dim ds1 As New DataSet : 主管_dgv.DataSource = Nothing : ds1.Clear()
        主管_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主管_dgv.ColumnHeadersHeight = 25
        主管_dgv.AllowUserToAddRows = False
        主管_dgv.RowTemplate.Height = 45
        SQL_系統組織結構圖_單位主管1()
        da.Fill(ds1) : 主管_dgv.DataSource = ds1.Tables(0) : conn.Close()
        主管_dgv.Columns(0).FillWeight = 100 : 主管_dgv.Columns(1).FillWeight = 50 : 主管_dgv.Columns(2).FillWeight = 150
    End Sub

    Private Sub 公司組織結構_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        組織圖_tv.Nodes.Add("HX / PGS LTD. C.")
        SQL_系統組織結構圖_部門()
        While (dr.Read()) : 組織圖_tv.Nodes(0).Nodes.Add(dr("部門")) : End While : conn.Close()
        For I As Integer = 0 To 組織圖_tv.Nodes(0).Nodes.Count - 1
            PA = 組織圖_tv.Nodes(0).Nodes(I).Text : SQL_系統組織結構圖_部門_人員() : Dim BB As Integer = 0
            While (dr.Read()) : 組織圖_tv.Nodes(0).Nodes(I).Nodes.Add(dr("姓名")) : 組織圖_tv.Nodes(0).Nodes(I).Nodes(BB).ForeColor = Color.Red : BB += 1 : End While : conn.Close()
        Next
        組織圖_tv.ExpandAll()

        組織圖1_tv.Nodes.Add("HX / PGS LTD. C.")
        SQL_系統組織結構圖_處別1()
        While (dr.Read()) : 組織圖1_tv.Nodes(0).Nodes.Add(dr("處")) : End While : conn.Close()
        For I As Integer = 0 To 組織圖1_tv.Nodes(0).Nodes.Count - 1
            PA = 組織圖1_tv.Nodes(0).Nodes(I).Text : SQL_系統組織結構圖_處別_人員() : Dim BB As Integer = 0
            While (dr.Read()) : 組織圖1_tv.Nodes(0).Nodes(I).Nodes.Add(dr("姓名")) : 組織圖1_tv.Nodes(0).Nodes(I).Nodes(BB).ForeColor = Color.Red : BB += 1 : End While : conn.Close()
        Next
        組織圖1_tv.ExpandAll()

        組織圖2_tv.Nodes.Add("HX / PGS LTD. C.")
        SQL_系統組織結構圖_課別1()
        While (dr.Read()) : 組織圖2_tv.Nodes(0).Nodes.Add(dr("課")) : End While : conn.Close()
        For I As Integer = 0 To 組織圖2_tv.Nodes(0).Nodes.Count - 1
            PA = 組織圖2_tv.Nodes(0).Nodes(I).Text : SQL_系統組織結構圖_課別_人員() : Dim BB As Integer = 0
            While (dr.Read()) : 組織圖2_tv.Nodes(0).Nodes(I).Nodes.Add(dr("姓名")) : 組織圖2_tv.Nodes(0).Nodes(I).Nodes(BB).ForeColor = Color.Red : BB += 1 : End While : conn.Close()
        Next
        組織圖2_tv.ExpandAll()

        組織圖3_tv.Nodes.Add("HX / PGS LTD. C.")
        SQL_系統組織結構圖_組別1()
        While (dr.Read()) : 組織圖3_tv.Nodes(0).Nodes.Add(dr("組")) : End While : conn.Close()
        For I As Integer = 0 To 組織圖3_tv.Nodes(0).Nodes.Count - 1
            PA = 組織圖3_tv.Nodes(0).Nodes(I).Text : SQL_系統組織結構圖_組別_人員() : Dim BB As Integer = 0
            While (dr.Read()) : 組織圖3_tv.Nodes(0).Nodes(I).Nodes.Add(dr("姓名")) : 組織圖3_tv.Nodes(0).Nodes(I).Nodes(BB).ForeColor = Color.Red : BB += 1 : End While : conn.Close()
        Next
        組織圖3_tv.ExpandAll()
    End Sub
    Private Sub 公司組織結構_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 組織圖_tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles 組織圖_tv.AfterSelect
        Select Case Strings.Mid(e.Node.Text, 5, 1)
            Case "部" : 人員_tb.Text = "" : 級別_tb.Text = "" : 主管_dgv.DataSource = Nothing : Case Else : 人員_tb.Text = e.Node.Text : PA47 = 人員_tb.Text : Set_清單1() : 級別_tb.Text = PA46
        End Select
    End Sub
    Private Sub 組織圖1_tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles 組織圖1_tv.AfterSelect
        Select Case Strings.Mid(e.Node.Text, 6, 1)
            Case "處" : 人員_tb.Text = "" : 級別_tb.Text = "" : 主管_dgv.DataSource = Nothing : Case Else : 人員_tb.Text = e.Node.Text : PA47 = 人員_tb.Text : Set_清單1() : 級別_tb.Text = PA46
        End Select
    End Sub
    Private Sub 組織圖2_tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles 組織圖2_tv.AfterSelect
        Select Case Strings.Mid(e.Node.Text, 7, 1)
            Case "課" : 人員_tb.Text = "" : 級別_tb.Text = "" : 主管_dgv.DataSource = Nothing : Case Else : 人員_tb.Text = e.Node.Text : PA47 = 人員_tb.Text : Set_清單1() : 級別_tb.Text = PA46
        End Select
    End Sub
    Private Sub 組織圖3_tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles 組織圖3_tv.AfterSelect
        Select Case Strings.Mid(e.Node.Text, 8, 1)
            Case "組" : 人員_tb.Text = "" : 級別_tb.Text = "" : 主管_dgv.DataSource = Nothing : Case Else : 人員_tb.Text = e.Node.Text : PA47 = 人員_tb.Text : Set_清單1() : 級別_tb.Text = PA46
        End Select
    End Sub
End Class