HX-PGS-ERP-SYS-LEEHSIEHJUI/01、人事管理系統/系統組織結構與權限...

Option Explicit On
Imports System.IO
Public Class 系統組織結構與權限設定
    Dim HH As String
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    DIM 對話框(18) As String
    Private Sub Set_使用者清單()
        Dim ds, ds1 As New DataSet : 清單_dgv.DataSource = Nothing : 清單_1_dgv.DataSource = Nothing : ds.Clear() : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 35 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 35
        清單_1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_1_dgv.ColumnHeadersHeight = 35 : 清單_1_dgv.AllowUserToAddRows = False : 清單_1_dgv.RowTemplate.Height = 35

        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 清單_1_dgv.RowTemplate.Height = 75
        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 清單_1_dgv.RowTemplate.Height = 45
        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 清單_1_dgv.RowTemplate.Height = 25 : End If

        SQL_系統組織結構圖_人員()
        da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : da.Fill(ds1) : 清單_1_dgv.DataSource = ds1.Tables(0) : conn.Close()

        清單_1_dgv.Columns(0).FillWeight = 90 : 清單_1_dgv.Columns(1).FillWeight = 140 : 清單_1_dgv.Columns(2).FillWeight = 45 : 清單_1_dgv.Columns(3).Visible = False
        清單_1_dgv.Columns(4).Visible = False : 清單_1_dgv.Columns(5).Visible = False : 清單_1_dgv.Columns(6).Visible = False : 清單_1_dgv.Columns(7).Visible = False

        For i As Integer = 0 To 清單_1_dgv.Rows.Count - 1
            Dim 驗證 As String = "" : Dim 取變數 As String
            取變數 = 清單_1_dgv.Rows(i).Cells(1).Value.ToString : NN1 = 0
            For ii As Integer = 1 To 20
                If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                    If Strings.Mid(取變數, ii, 1) = "/" Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                End If
            Next
            If 系統語言 = "繁體中文" Then : 清單_1_dgv.Rows(i).Cells(1).Value = 驗證 : Else
                If Strings.Left(清單_1_dgv.Rows(i).Cells(1).Value.ToString, 6) = "00000." Then : 清單_1_dgv.Rows(i).Cells(1).Value = "00000.NA" : Else
                    清單_1_dgv.Rows(i).Cells(1).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(1).Value.ToString, 6) & Strings.Mid(清單_1_dgv.Rows(i).Cells(1).Value.ToString, NN1 + 2, 100)
                End If
            End If

            取變數 = 清單_1_dgv.Rows(i).Cells(3).Value.ToString : NN1 = 0
            For ii As Integer = 1 To 20
                If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                    If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                End If
            Next
            If 系統語言 = "繁體中文" Then : 清單_1_dgv.Rows(i).Cells(3).Value = 驗證 : Else
                If Strings.Left(清單_1_dgv.Rows(i).Cells(3).Value.ToString, 2) = "0." Then : 清單_1_dgv.Rows(i).Cells(3).Value = "0.NA" : Else
                    清單_1_dgv.Rows(i).Cells(3).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(3).Value.ToString, 2) & Strings.Mid(清單_1_dgv.Rows(i).Cells(3).Value.ToString, NN1 + 2, 100)
                End If
            End If

            取變數 = 清單_1_dgv.Rows(i).Cells(4).Value.ToString : NN1 = 0
            For ii As Integer = 1 To 20
                If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                    If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                End If
            Next
            If 系統語言 = "繁體中文" Then : 清單_1_dgv.Rows(i).Cells(4).Value = 驗證 : Else
                If Strings.Left(清單_1_dgv.Rows(i).Cells(4).Value.ToString, 3) = "00." Then : 清單_1_dgv.Rows(i).Cells(4).Value = "00.NA" : Else
                    清單_1_dgv.Rows(i).Cells(4).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(4).Value.ToString, 3) & Strings.Mid(清單_1_dgv.Rows(i).Cells(4).Value.ToString, NN1 + 2, 100)
                End If
            End If

            取變數 = 清單_1_dgv.Rows(i).Cells(5).Value.ToString : NN1 = 0
            For ii As Integer = 1 To 20
                If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                    If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                End If
            Next
            If 系統語言 = "繁體中文" Then : 清單_1_dgv.Rows(i).Cells(5).Value = 驗證 : Else
                If Strings.Left(清單_1_dgv.Rows(i).Cells(5).Value.ToString, 4) = "000." Then : 清單_1_dgv.Rows(i).Cells(5).Value = "000.NA" : Else
                    清單_1_dgv.Rows(i).Cells(5).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(5).Value.ToString, 4) & Strings.Mid(清單_1_dgv.Rows(i).Cells(5).Value.ToString, NN1 + 2, 100)
                End If
            End If

            If 系統語言 = "繁體中文" Then : Else
                If Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "工務" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(0)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "製圖" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(1)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "銷售" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(2)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "會計" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(3)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "稅務" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(4)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "財務" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(5)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "總務" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(6)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "倉管" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(7)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "資安" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(8)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "文管" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(9)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "人資" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(10)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "實習" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(11)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "管理" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(12)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "採購" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(13)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "出納" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(14)
                ElseIf Strings.Mid(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 6, 2) = "報價" Then
                    清單_1_dgv.Rows(i).Cells(6).Value = Strings.Left(清單_1_dgv.Rows(i).Cells(6).Value.ToString, 5) & 對話框(15)
                End If
            End If
        Next
    End Sub
    Private Sub Set_設定清單()
        Dim ds, ds1 As New DataSet
        設定_dgv.DataSource = Nothing : ds1.Clear() : 設定1_dgv.DataSource = Nothing : ds1.Clear()
        設定_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        設定_dgv.ColumnHeadersHeight = 25 : 設定_dgv.AllowUserToAddRows = False : 設定_dgv.RowTemplate.Height = 35
        設定1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        設定1_dgv.ColumnHeadersHeight = 25 : 設定1_dgv.AllowUserToAddRows = False : 設定1_dgv.RowTemplate.Height = 35

        If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 設定1_dgv.RowTemplate.Height = 75
        ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 設定1_dgv.RowTemplate.Height = 45
        ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 設定1_dgv.RowTemplate.Height = 25
        End If

        PA1 = 姓名_tb.Text : PA2 = 帳號_tb.Text
        SQL_跨部門主管權限設定_確認有無資料()
        If dr.Read() Then : conn.Close() : PA3 = 級別_tb.Text : SQL_跨部門主管權限設定_已設定過() : Label2.Text = "Have Files"
        Else : conn.Close() : PA3 = 級別_tb.Text : SQL_跨部門主管權限設定_未設定過() : Label2.Text = "No Files" : End If

        da.Fill(ds1) : 設定_dgv.DataSource = ds1.Tables(0) : da.Fill(ds) : 設定1_dgv.DataSource = ds.Tables(0) : conn.Close()

        設定1_dgv.Columns(0).FillWeight = 90 : 設定1_dgv.Columns(1).FillWeight = 90 : 設定1_dgv.Columns(2).FillWeight = 90 : 設定1_dgv.Columns(3).FillWeight = 90
        設定1_dgv.Columns(4).FillWeight = 160 : 設定1_dgv.Columns(5).FillWeight = 60 : 設定1_dgv.Columns(6).FillWeight = 60 : 設定1_dgv.Columns(7).FillWeight = 40

        For i As Integer = 0 To 設定1_dgv.Rows.Count - 1
            If 深色風格 = False Then
                If 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "01" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                ElseIf 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "02" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
                ElseIf 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "03" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "04" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                ElseIf 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "05" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If
            Else
                If 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "01" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.SaddleBrown
                ElseIf 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "02" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Green
                ElseIf 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "03" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed
                ElseIf 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "04" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
                ElseIf 設定1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "05" Then : 設定1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
                End If
            End If

            If IsDBNull(設定1_dgv.Rows(i).Cells(表頭(144)).Value) Then : 設定1_dgv.Rows(i).Cells(表頭(144)).Value = False : End If
            If IsDBNull(設定_dgv.Rows(i).Cells(表頭(144)).Value) Then : 設定_dgv.Rows(i).Cells(表頭(144)).Value = False : End If

            Dim 驗證 As String = "" : Dim 取變數 As String
            取變數 = 設定1_dgv.Rows(i).Cells(0).Value.ToString : NN1 = 0
            For ii As Integer = 1 To 20
                If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                    If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                End If
            Next
            If 系統語言 = "繁體中文" Then : 設定1_dgv.Rows(i).Cells(0).Value = 驗證 : Else
                If Strings.Left(設定1_dgv.Rows(i).Cells(0).Value.ToString, 2) = "0." Then : 設定1_dgv.Rows(i).Cells(0).Value = "0.NA" : Else
                    設定1_dgv.Rows(i).Cells(0).Value = Strings.Left(設定1_dgv.Rows(i).Cells(0).Value.ToString, 2) & Strings.Mid(設定1_dgv.Rows(i).Cells(0).Value.ToString, NN1 + 2, 100)
                End If
            End If

            取變數 = 設定1_dgv.Rows(i).Cells(1).Value.ToString : NN1 = 0
            For ii As Integer = 1 To 20
                If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                    If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                End If
            Next
            If 系統語言 = "繁體中文" Then : 設定1_dgv.Rows(i).Cells(1).Value = 驗證 : Else
                If Strings.Left(設定1_dgv.Rows(i).Cells(1).Value.ToString, 3) = "00." Then : 設定1_dgv.Rows(i).Cells(1).Value = "00.NA" : Else
                    設定1_dgv.Rows(i).Cells(1).Value = Strings.Left(設定1_dgv.Rows(i).Cells(1).Value.ToString, 3) & Strings.Mid(設定1_dgv.Rows(i).Cells(1).Value.ToString, NN1 + 2, 100)
                End If
            End If

            取變數 = 設定1_dgv.Rows(i).Cells(2).Value.ToString : NN1 = 0
            For ii As Integer = 1 To 20
                If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                    If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                End If
            Next
            If 系統語言 = "繁體中文" Then : 設定1_dgv.Rows(i).Cells(2).Value = 驗證 : Else
                If Strings.Left(設定1_dgv.Rows(i).Cells(2).Value.ToString, 4) = "000." Then : 設定1_dgv.Rows(i).Cells(2).Value = "000.NA" : Else
                    設定1_dgv.Rows(i).Cells(2).Value = Strings.Left(設定1_dgv.Rows(i).Cells(2).Value.ToString, 4) & Strings.Mid(設定1_dgv.Rows(i).Cells(2).Value.ToString, NN1 + 2, 100)
                End If
            End If

            If 系統語言 = "繁體中文" Then : Else
                If Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "工務" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(0)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "製圖" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(1)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "銷售" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(2)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "會計" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(3)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "稅務" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(4)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "財務" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(5)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "總務" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(6)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "倉管" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(7)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "資安" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(8)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "文管" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(9)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "人資" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(10)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "實習" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(11)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "管理" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(12)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "採購" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(13)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "出納" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(14)
                ElseIf Strings.Mid(設定1_dgv.Rows(i).Cells(3).Value.ToString, 6, 2) = "報價" Then
                    設定1_dgv.Rows(i).Cells(3).Value = Strings.Left(設定1_dgv.Rows(i).Cells(3).Value.ToString, 5) & 對話框(15)
                End If
            End If

            取變數 = 設定1_dgv.Rows(i).Cells(4).Value.ToString : NN1 = 0
            For ii As Integer = 1 To 20
                If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                    If Strings.Mid(取變數, ii, 1) = "/" Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                End If
            Next
            If 系統語言 = "繁體中文" Then : 設定1_dgv.Rows(i).Cells(4).Value = 驗證 : Else
                If Strings.Left(設定1_dgv.Rows(i).Cells(4).Value.ToString, 6) = "00000." Then : 設定1_dgv.Rows(i).Cells(4).Value = "00000.NA" : Else
                    設定1_dgv.Rows(i).Cells(4).Value = Strings.Left(設定1_dgv.Rows(i).Cells(4).Value.ToString, 6) & Strings.Mid(設定1_dgv.Rows(i).Cells(4).Value.ToString, NN1 + 2, 100)
                End If
            End If
        Next
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next
        If File.Exists(Str + "\LANGUAGE_FILE.csv") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line <> Nothing Then
                    line = line.Replace("""", "")
                    If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-151" Or Strings.Left(line, 4) = 介面 Then
                        If 系統語言 = "繁體中文" Then
                            If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "English" Then
                            If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "Indonesian" Then
                            If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        End If
                    End If
                End If
            End While
            filereader.Close()
        End If
    End Sub
    Private Sub Set_語言查詢()
         RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows
            If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then
                RI = row.Index : Exit For
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言()
        SK = "H001-151" : Set_語言查詢() : Me.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H602-100" : Set_語言查詢() : 文字_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H602-101" : Set_語言查詢() : 級別_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H602-102" : Set_語言查詢() : 表頭(4) = 語言_dgv(1, RI).Value.ToString : SK = "H602-103" : Set_語言查詢() : 表頭(143) = 語言_dgv(1, RI).Value.ToString
        SK = "H602-104" : Set_語言查詢() : 表頭(138) = 語言_dgv(1, RI).Value.ToString : SK = "H602-105" : Set_語言查詢() : 表頭(144) = 語言_dgv(1, RI).Value.ToString
        SK = "H602-106" : Set_語言查詢() : 表頭(142) = 語言_dgv(1, RI).Value.ToString : SK = "H602-107" : Set_語言查詢() : 表頭(140) = 語言_dgv(1, RI).Value.ToString
        SK = "H602-108" : Set_語言查詢() : 表頭(139) = 語言_dgv(1, RI).Value.ToString : SK = "H602-109" : Set_語言查詢() : 表頭(141) = 語言_dgv(1, RI).Value.ToString
        SK = "H602-110" : Set_語言查詢() : 表頭(9) = 語言_dgv(1, RI).Value.ToString : SK = "H602-111" : Set_語言查詢() : 部門權限指定_bt.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H602-112" : Set_語言查詢() : 選定權限取消_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H602-113" : Set_語言查詢() : 對話框(16) = 語言_dgv(1, RI).Value.ToString
        SK = "H602-114" : Set_語言查詢() : 對話框(17) = 語言_dgv(1, RI).Value.ToString : SK = "G000-119" : Set_語言查詢() : 對話框(18) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-128" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "G000-129" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-130" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString : SK = "G000-131" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-132" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString : SK = "G000-133" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-134" : Set_語言查詢() : 對話框(6) = 語言_dgv(1, RI).Value.ToString : SK = "G000-135" : Set_語言查詢() : 對話框(7) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-136" : Set_語言查詢() : 對話框(8) = 語言_dgv(1, RI).Value.ToString : SK = "G000-137" : Set_語言查詢() : 對話框(9) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-138" : Set_語言查詢() : 對話框(10) = 語言_dgv(1, RI).Value.ToString : SK = "G000-139" : Set_語言查詢() : 對話框(11) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-140" : Set_語言查詢() : 對話框(12) = 語言_dgv(1, RI).Value.ToString : SK = "G000-141" : Set_語言查詢() : 對話框(13) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-142" : Set_語言查詢() : 對話框(14) = 語言_dgv(1, RI).Value.ToString : SK = "G000-143" : Set_語言查詢() : 對話框(15) = 語言_dgv(1, RI).Value.ToString
        SK = "H602-115" : Set_語言查詢() : 文字1_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H602-116" : Set_語言查詢() : 文字2_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H602-117" : Set_語言查詢() : 文字3_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H602-118" : Set_語言查詢() : 文字4_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "G000-110" : Set_語言查詢() : 存檔_bt.Text = 語言_dgv(1, RI).Value.ToString
    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
        風格() : H(602) = True : 介面 = "H602" : Set_語言() : 語言轉換讀取() : Panel1.SendToBack() : 顯示說明(999, False)
        SQL_清單欄位查詢()
        If Acdr.Read() Then
            小間距1_ch.Checked = Acdr("L_1_1") : 中間距1_ch.Checked = Acdr("L_2_1") : 大間距1_ch.Checked = Acdr("L_3_1")
            小間距_ch.Checked = Acdr("L_1_2") : 中間距_ch.Checked = Acdr("L_2_2") : 大間距_ch.Checked = Acdr("L_3_2")
        End If : Access1.Close()
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        清單_1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        設定_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        分流計算.Enabled = True
    End Sub
    Private Sub 分流計算_Tick(sender As Object, e As EventArgs) Handles 分流計算.Tick
        分流計算.Enabled = False : 資料數 = 50
        組織圖_tv.Nodes.Clear() : 組織圖_1_tv.Nodes.Clear()
        組織圖_tv.Nodes.Add("HX / PGS LTD. C.") : 組織圖_1_tv.Nodes.Add("HX / PGS LTD. C.")
        MyMod.進度條() : SQL_系統組織結構圖_部門()
        While (dr.Read())
            組織圖_tv.Nodes(0).Nodes.Add(dr("部門")) : MyMod.進度條()
            Dim 驗證 As String = "" : Dim 取變數 As String
            取變數 = dr("部門").ToString : NN1 = 0
            For ii As Integer = 1 To 20
                If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                    If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                End If
            Next
            If 系統語言 = "繁體中文" Then : 組織圖_1_tv.Nodes(0).Nodes.Add(驗證) : Else
                If Strings.Left(dr("部門").ToString, 2) = "0." Then : 組織圖_1_tv.Nodes(0).Nodes.Add("0.NA") : Else
                    驗證 = Strings.Left(dr("部門").ToString, 2) & Strings.Mid(dr("部門").ToString, NN1 + 2, 100)
                    組織圖_1_tv.Nodes(0).Nodes.Add(驗證)
                End If
            End If
        End While : conn.Close()
        For I As Integer = 0 To 組織圖_tv.Nodes(0).Nodes.Count - 1
            PA = 組織圖_tv.Nodes(0).Nodes(I).Text
            SQL_系統組織結構圖_處別()
            While (dr.Read())
                組織圖_tv.Nodes(0).Nodes(I).Nodes.Add(dr("處")) : MyMod.進度條()
                Dim 驗證 As String = "" : Dim 取變數 As String
                取變數 = dr("處").ToString : NN1 = 0
                For ii As Integer = 1 To 20
                    If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                        If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                    End If
                Next
                If 系統語言 = "繁體中文" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes.Add(驗證) : Else
                    If Strings.Left(dr("處").ToString, 2) = "00." Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes.Add("00.NA") : Else
                        驗證 = Strings.Left(dr("處").ToString, 3) & Strings.Mid(dr("處").ToString, NN1 + 2, 100)
                        組織圖_1_tv.Nodes(0).Nodes(I).Nodes.Add(驗證)
                    End If
                End If
            End While : conn.Close()
            For J As Integer = 0 To 組織圖_tv.Nodes(0).Nodes(I).Nodes.Count - 1
                PA1 = 組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Text
                SQL_系統組織結構圖_課別()
                While (dr.Read())
                    組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Nodes.Add(dr("課")) : MyMod.進度條()
                    Dim 驗證 As String = "" : Dim 取變數 As String
                    取變數 = dr("課").ToString : NN1 = 0
                    For ii As Integer = 1 To 20
                        If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else
                            If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If
                        End If
                    Next
                    If 系統語言 = "繁體中文" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes.Add(驗證) : Else
                        If Strings.Left(dr("課").ToString, 4) = "000." Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes.Add("000.NA") : Else
                            驗證 = Strings.Left(dr("課").ToString, 3) & Strings.Mid(dr("課").ToString, NN1 + 2, 100)
                            組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes.Add(驗證)
                        End If
                    End If
                End While : conn.Close()
                For K As Integer = 0 To 組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Nodes.Count - 1
                    PA2 = 組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Text
                    SQL_系統組織結構圖_組別()
                    While (dr.Read())
                        組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(dr("組")) : MyMod.進度條()
                        If 系統語言 = "繁體中文" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(dr("組")) : Else
                            If Strings.Mid(dr("組").ToString, 6, 2) = "工務" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(0))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "製圖" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(1))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "銷售" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(2))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "會計" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(3))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "稅務" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(4))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "財務" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(5))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "總務" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(6))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "倉管" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(7))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "資安" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(8))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "文管" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(9))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "人資" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(10))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "實習" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(11))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "管理" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(12))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "採購" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(13))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "出納" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(14))
                            ElseIf Strings.Mid(dr("組").ToString, 6, 2) = "報價" Then : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(Strings.Left(dr("組").ToString, 5) & 對話框(15))
                            Else : 組織圖_1_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(dr("組"))
                            End If
                        End If
                    End While : conn.Close()
                Next
            Next
        Next
        組織圖_tv.Nodes(0).Expand() : 組織圖_1_tv.Nodes(0).Expand()
        HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MyMod.清單字體大小調整()
    End Sub
    Private Sub 系統組織結構與權限設定_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(602) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 系統組織結構圖_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyMod.清單字體大小調整()
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        清單_1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        設定_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 清單_1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單_1_dgv.RowPostPaint
        Dim linePen As New  Pen(Color.Blue, 2)
        If e.RowIndex = 清單_1_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 清單_1_dgv(表頭(138), e.RowIndex).Value.ToString = "03" Then
                Dim startX As Integer = IIf(清單_1_dgv.RowHeadersVisible, 清單_1_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 清單_1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單_1_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
        For i As Integer = 0 To 清單_1_dgv.Rows.Count - 1
            If 深色風格 = False Then
                If 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "01" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                ElseIf 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "02" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
                ElseIf 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "03" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "04" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                ElseIf 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "05" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                End If
            Else
                If 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "01" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.SaddleBrown
                ElseIf 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "02" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Green
                ElseIf 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "03" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed
                ElseIf 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "04" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
                ElseIf 清單_1_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "05" Then : 清單_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
                End If
            End If
        Next
    End Sub
    Private Function GetNodePath(node As TreeNode) As String
        ' Get the path of the node by traversing its parents and appending their names
        Dim path As New List(Of String)()
        Dim currentNode As TreeNode = node

        While currentNode IsNot Nothing
            path.Insert(0, currentNode.Index.ToString())
            currentNode = currentNode.Parent
        End While

        Return String.Join("/", path)
    End Function
    Private Function FindTreeNodeByText(nodes As TreeNodeCollection, text As String) As TreeNode
        For Each node As TreeNode In nodes
            If node.Text = text Then
                Return node
            Else
                Dim foundNode As TreeNode = FindTreeNodeByText(node.Nodes, text)
                If foundNode IsNot Nothing Then
                    Return foundNode
                End If
            End If
        Next
        Return Nothing
    End Function
    Private Function FindNodeByText(nodes As TreeNodeCollection, text As String) As TreeNode
        For Each node As TreeNode In nodes
            If node.Text = text Then
                Return node
            End If
            Dim foundNode As TreeNode = FindNodeByText(node.Nodes, text)
            If foundNode IsNot Nothing Then
                Return foundNode
            End If
        Next
        Return Nothing
    End Function
    Private Sub 組織圖_1_tv_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles 組織圖_1_tv.AfterSelect
        部門2_1_tb.Text = 組織圖_1_tv.SelectedNode.Text
        Dim selectedNode As TreeNode = e.Node : Dim parentNode As TreeNode = selectedNode.Parent
        ' 取得所在層級與節點位置
        Dim level As Integer = selectedNode.Level : Dim positions(level) As Integer : positions(level) = selectedNode.Index
        ' 往上遍歷每一層的節點，取得節點位置
        For i As Integer = level - 1 To 0 Step -1 : positions(i) = parentNode.Index : parentNode = parentNode.Parent : Next
        ' 如果不是第一層則觸發 TreeView2 的 AfterSelect
        If level > 0 Then
            Dim targetNode As TreeNode = 組織圖_tv.Nodes(positions(0)) : For i As Integer = 1 To level : targetNode = targetNode.Nodes(positions(i)) : Next
            組織圖_tv.SelectedNode = targetNode
        End If
    End Sub
    Private Sub 組織圖_tv_Click(sender As Object, e As EventArgs) Handles 組織圖_tv.AfterSelect
        Dim ds1 As New DataSet : 部門_1_tb.Text = 組織圖_tv.SelectedNode.Text
        PA = 組織圖_tv.SelectedNode.Text : Set_使用者清單() : 設定_dgv.DataSource = Nothing : 設定1_dgv.DataSource = Nothing : ds1.Clear()
        級別_tb.Text = "" : 姓名_tb.Text = "" : 部門_tb.Text = "" : 處別_tb.Text = "" : 課別_tb.Text = "" : 組別_tb.Text = "" : 帳號_tb.Text = ""
    End Sub
    Private Sub 清單_1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單_1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            姓名_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells(表頭(4)).Value.ToString
            級別_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells(表頭(138)).Value.ToString : 級別2_tb.Text = 清單_1_dgv.Rows(e.RowIndex).Cells(表頭(138)).Value.ToString
            部門_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("部門").Value.ToString : 部門2_tb.Text = 清單_1_dgv.Rows(e.RowIndex).Cells("部門").Value.ToString
            處別_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("處別").Value.ToString : 處別2_tb.Text = 清單_1_dgv.Rows(e.RowIndex).Cells("處別").Value.ToString
            課別_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("課別").Value.ToString : 課別2_tb.Text = 清單_1_dgv.Rows(e.RowIndex).Cells("課別").Value.ToString
            組別_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("組別").Value.ToString : 組別2_tb.Text = 清單_1_dgv.Rows(e.RowIndex).Cells("組別").Value.ToString
            帳號_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("帳號").Value.ToString
            Set_設定清單()
            If Label2.Text = "No Files" Then
                For i As Integer = 0 To 設定_dgv.Rows.Count - 1
                    If 處別_tb.Text = "NA" And 課別_tb.Text = "NA" And 組別_tb.Text = "NA" Then
                        If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門_tb.Text Then
                            設定_dgv.Rows(i).Cells(表頭(144)).Value = True
                        End If
                    ElseIf 課別_tb.Text = "NA" And 組別_tb.Text = "NA" Then
                        If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別_tb.Text Then
                            設定_dgv.Rows(i).Cells(表頭(144)).Value = True
                        End If
                    ElseIf 組別_tb.Text = "NA" Then
                        If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別_tb.Text And
                            設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別_tb.Text Then
                            設定_dgv.Rows(i).Cells(表頭(144)).Value = True
                        End If
                    Else
                        If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別_tb.Text And
                            設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別_tb.Text And 設定_dgv.Rows(i).Cells(表頭(142)).Value.ToString = 組別_tb.Text Then
                            設定_dgv.Rows(i).Cells(表頭(144)).Value = True
                        End If
                    End If
                Next
            End If
            If Val(登入人級別) <= 2 Then
                部門權限指定_bt.Enabled = True : 選定權限取消_bt.Enabled = True : 存檔_bt.Enabled = True
            ElseIf Val(登入人級別) = 3 Then
                If Val(級別_tb.Text) <= 2 Then
                    部門權限指定_bt.Enabled = False : 選定權限取消_bt.Enabled = False : 存檔_bt.Enabled = False
                Else
                    部門權限指定_bt.Enabled = True : 選定權限取消_bt.Enabled = True : 存檔_bt.Enabled = True
                End If
            ElseIf Val(登入人級別) = 4 Then
                If Val(級別_tb.Text) <= 3 Then
                    部門權限指定_bt.Enabled = False : 選定權限取消_bt.Enabled = False : 存檔_bt.Enabled = False
                Else
                    部門權限指定_bt.Enabled = True : 選定權限取消_bt.Enabled = True : 存檔_bt.Enabled = True
                End If
            ElseIf Val(登入人級別) >= 5 Then
                If Val(級別_tb.Text) <= 5 Then
                    部門權限指定_bt.Enabled = False : 選定權限取消_bt.Enabled = False : 存檔_bt.Enabled = False
                Else
                    部門權限指定_bt.Enabled = True : 選定權限取消_bt.Enabled = True : 存檔_bt.Enabled = True
                End If
            End If

        End If
    End Sub
    Private Sub 設定1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 設定1_dgv.RowPostPaint
        If 深色風格 = False Then : Dim linePen As New  Pen(Color.Blue, 2)
            If e.RowIndex = 設定1_dgv.Rows.Count - 1 Then
                Exit Sub
            Else
                If 設定1_dgv(1, e.RowIndex).Value.ToString <> 設定1_dgv(1, e.RowIndex + 1).Value.ToString And 設定1_dgv(1, e.RowIndex).Value.ToString <> "NA" Then
                    Dim startX As Integer = IIf(設定1_dgv.RowHeadersVisible, 設定1_dgv.RowHeadersWidth, 0)
                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                    Dim endX As Integer = startX + 設定1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 設定1_dgv.HorizontalScrollingOffset
                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                    Exit Sub
                End If
            End If
        Else : Dim linePen As New Pen(Color.LightBlue, 2)
            If e.RowIndex = 設定1_dgv.Rows.Count - 1 Then
                Exit Sub
            Else
                If 設定1_dgv(1, e.RowIndex).Value.ToString <> 設定1_dgv(1, e.RowIndex + 1).Value.ToString And 設定1_dgv(1, e.RowIndex).Value.ToString <> "NA" Then
                    Dim startX As Integer = IIf(設定1_dgv.RowHeadersVisible, 設定1_dgv.RowHeadersWidth, 0)
                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                    Dim endX As Integer = startX + 設定1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 設定1_dgv.HorizontalScrollingOffset
                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                    Exit Sub
                End If
            End If
        End If
    End Sub
    Private Sub 設定_dgv_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 設定1_dgv.CellEndEdit
        Dim EU As String
        EU = 設定_dgv(表頭(143), e.RowIndex).Value.ToString
        If EU = "" Then
            設定_dgv.Rows(e.RowIndex).Cells(表頭(143)).Value = ""
        Else
            If IsDate(EU) Then
                DateTimePicker2.Text = EU
                設定_dgv.Rows(e.RowIndex).Cells(表頭(143)).Value = Format(DateTimePicker2.Value, "yyyy/MM/dd")
            Else
                設定_dgv.Rows(e.RowIndex).Cells(表頭(143)).Value = ""
            End If
        End If

        EU = 設定1_dgv(表頭(143), e.RowIndex).Value.ToString
        If EU = "" Then
            設定1_dgv.Rows(e.RowIndex).Cells(表頭(143)).Value = ""
        Else
            If IsDate(EU) Then
                DateTimePicker2.Text = EU
                設定1_dgv.Rows(e.RowIndex).Cells(表頭(143)).Value = Format(DateTimePicker2.Value, "yyyy/MM/dd")
            Else
                設定1_dgv.Rows(e.RowIndex).Cells(表頭(143)).Value = ""
            End If
        End If
    End Sub
    Private Sub 設定1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 設定1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            級別1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(138)).Value.ToString
            部門1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(139)).Value.ToString : 處別1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(140)).Value.ToString
            課別1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(141)).Value.ToString : 組別1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(142)).Value.ToString

            級別3_tb.Text = 設定1_dgv.Rows(e.RowIndex).Cells(表頭(138)).Value.ToString
            部門3_tb.Text = 設定1_dgv.Rows(e.RowIndex).Cells(表頭(139)).Value.ToString : 處別3_tb.Text = 設定1_dgv.Rows(e.RowIndex).Cells(表頭(140)).Value.ToString
            課別3_tb.Text = 設定1_dgv.Rows(e.RowIndex).Cells(表頭(141)).Value.ToString : 組別3_tb.Text = 設定1_dgv.Rows(e.RowIndex).Cells(表頭(142)).Value.ToString
        End If
    End Sub
    Private Sub 跨部門權限指定_bt_Click(sender As Object, e As EventArgs) Handles 部門權限指定_bt.Click
        If 部門1_tb.Text = "" Then : MGB(對話框(16), 1) : Else
            For i As Integer = 0 To 設定_dgv.Rows.Count - 1
                If 處別1_tb.Text = "NA" And 課別1_tb.Text = "NA" And 組別1_tb.Text = "NA" Then
                    If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text Then
                        設定_dgv.Rows(i).Cells(表頭(144)).Value = True
                    End If
                ElseIf 課別1_tb.Text = "NA" And 組別1_tb.Text = "NA" Then
                    If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text Then
                        設定_dgv.Rows(i).Cells(表頭(144)).Value = True
                    End If
                ElseIf 組別1_tb.Text = "NA" Then
                    If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text And
                        設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別1_tb.Text Then
                        設定_dgv.Rows(i).Cells(表頭(144)).Value = True
                    End If
                Else
                    If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text And
                        設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(142)).Value.ToString = 組別1_tb.Text Then
                        設定_dgv.Rows(i).Cells(表頭(144)).Value = True
                    End If
                End If
            Next
        End If
    End Sub
    Private Sub 選定權限取消_bt_Click(sender As Object, e As EventArgs) Handles 選定權限取消_bt.Click
        If 部門1_tb.Text = "" Then : MGB(對話框(16), 1) : Else
            For i As Integer = 0 To 設定_dgv.Rows.Count - 1
                If 處別1_tb.Text = "NA" And 課別1_tb.Text = "NA" And 組別1_tb.Text = "NA" Then
                    If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text Then
                        設定_dgv.Rows(i).Cells(表頭(144)).Value = False
                    End If
                ElseIf 課別1_tb.Text = "NA" And 組別1_tb.Text = "NA" Then
                    If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text Then
                        設定_dgv.Rows(i).Cells(表頭(144)).Value = False
                    End If
                ElseIf 組別1_tb.Text = "NA" Then
                    If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text And
                        設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別1_tb.Text Then
                        設定_dgv.Rows(i).Cells(表頭(144)).Value = False
                    End If
                Else
                    If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text And
                        設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(142)).Value.ToString = 組別1_tb.Text Then
                        設定_dgv.Rows(i).Cells(表頭(144)).Value = False
                    End If
                End If
            Next
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        If 姓名_tb.Text = "" Then : MGB(對話框(17), 1) : Else
            For i As Integer = 0 To 設定_dgv.Rows.Count - 1
                資料數 = 設定_dgv.Rows.Count : MyMod.進度條()
                PA4 = 設定_dgv.Rows(i).Cells(表頭(9)).Value.ToString : PA1 = 姓名_tb.Text : PA2 = 帳號_tb.Text
                PA5 = 設定_dgv.Rows(i).Cells(表頭(143)).Value.ToString : BL1 = 設定_dgv.Rows(i).Cells(表頭(144)).Value
                SQL_跨部門主管權限設定_存檔前確認()
                If dr.Read() Then : SQL_跨部門主管權限設定_修改() : conn.Close() : Else : SQL_跨部門主管權限設定_新增() : conn.Close() : End If
            Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MGB(對話框(18), 1)
        End If
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H602" : 分流計算.Enabled = True : 語言轉換讀取() : Set_使用者清單() : Set_設定清單()
    End Sub
    Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click
        小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : MyMod.間距設定存檔_1() : Set_設定清單()
    End Sub
    Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click
        小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : MyMod.間距設定存檔_2() : Set_設定清單()
    End Sub
    Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click
        小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : MyMod.間距設定存檔_3() : Set_設定清單()
    End Sub
    Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
        小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : MyMod.間距設定存檔_1() : Set_使用者清單()
    End Sub
    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : MyMod.間距設定存檔_2() : Set_使用者清單()
    End Sub
    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : MyMod.間距設定存檔_3() : Set_使用者清單()
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            '----------------黑-------------------------------------------
            小間距1_ch.ForeColor = Color.Black : 中間距1_ch.ForeColor = Color.Black : 大間距1_ch.ForeColor = Color.Black : Label2.ForeColor = Color.Black
            小間距_ch.ForeColor = Color.Black : 中間距_ch.ForeColor = Color.Black : 大間距_ch.ForeColor = Color.Black
            '----------------紅-------------------------------------------
            文字_lb.ForeColor = Color.Red : 文字1_lb.ForeColor = Color.Red : 文字2_lb.ForeColor = Color.Red : 文字3_lb.ForeColor = Color.Red
            文字4_lb.ForeColor = Color.Red
            '----------------藍-------------------------------------------
            '----------------綠-------------------------------------------
            組織圖_1_tv.BackColor = Color.White : 組織圖_1_tv.ForeColor = Color.Black : 部門2_1_tb.BackColor = Color.White : 部門2_1_tb.ForeColor = Color.Black
            帳號_tb.BackColor = Color.White : 帳號_tb.ForeColor = Color.Black : 姓名_tb.BackColor = Color.White : 姓名_tb.ForeColor = Color.Black
            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 級別2_tb.BackColor = Color.White : 級別2_tb.ForeColor = Color.Black
            級別3_tb.BackColor = Color.White : 級別3_tb.ForeColor = Color.Black : 部門2_tb.BackColor = Color.White : 部門2_tb.ForeColor = Color.Black
            部門3_tb.BackColor = Color.White : 部門3_tb.ForeColor = Color.Black : 處別2_tb.BackColor = Color.White : 處別2_tb.ForeColor = Color.Black
            處別3_tb.BackColor = Color.White : 處別3_tb.ForeColor = Color.Black : 課別2_tb.BackColor = Color.White : 課別2_tb.ForeColor = Color.Black
            課別3_tb.BackColor = Color.White : 課別3_tb.ForeColor = Color.Black : 組別2_tb.BackColor = Color.White : 組別2_tb.ForeColor = Color.Black
            組別3_tb.BackColor = Color.White : 組別3_tb.ForeColor = Color.Black : 組織圖_1_tv.BackColor = Color.White : 組織圖_1_tv.ForeColor = Color.Black

            存檔_bt.BackColor = Color.White : 存檔_bt.ForeColor = Color.Green
            部門權限指定_bt.BackColor = Color.White : 部門權限指定_bt.ForeColor = Color.Maroon : 選定權限取消_bt.BackColor = Color.White : 選定權限取消_bt.ForeColor = Color.Maroon

            清單_1_dgv.EnableHeadersVisualStyles = True : 清單_1_dgv.BackgroundColor = Color.White : 清單_1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            清單_1_dgv.DefaultCellStyle.BackColor = Color.White : 清單_1_dgv.DefaultCellStyle.ForeColor = Color.Black
            設定1_dgv.EnableHeadersVisualStyles = True : 設定1_dgv.BackgroundColor = Color.White : 設定1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            設定1_dgv.DefaultCellStyle.BackColor = Color.White : 設定1_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            '----------------黑-------------------------------------------
            小間距1_ch.ForeColor = Color.White : 中間距1_ch.ForeColor = Color.White : 大間距1_ch.ForeColor = Color.White : Label2.ForeColor = Color.White
            小間距_ch.ForeColor = Color.White : 中間距_ch.ForeColor = Color.White : 大間距_ch.ForeColor = Color.White
            '----------------紅-------------------------------------------
            文字_lb.ForeColor = Color.LightPink : 文字1_lb.ForeColor = Color.LightPink : 文字2_lb.ForeColor = Color.LightPink : 文字3_lb.ForeColor = Color.LightPink
            文字4_lb.ForeColor = Color.LightPink
            '----------------藍-------------------------------------------
            '----------------綠-------------------------------------------
            組織圖_1_tv.BackColor = Color.DimGray : 組織圖_1_tv.ForeColor = Color.White : 部門2_1_tb.BackColor = Color.DimGray : 部門2_1_tb.ForeColor = Color.White
            帳號_tb.BackColor = Color.DimGray : 帳號_tb.ForeColor = Color.White : 姓名_tb.BackColor = Color.DimGray : 姓名_tb.ForeColor = Color.White
            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 級別2_tb.BackColor = Color.DimGray : 級別2_tb.ForeColor = Color.White
            級別3_tb.BackColor = Color.DimGray : 級別3_tb.ForeColor = Color.White : 部門2_tb.BackColor = Color.DimGray : 部門2_tb.ForeColor = Color.White
            部門3_tb.BackColor = Color.DimGray : 部門3_tb.ForeColor = Color.White : 處別2_tb.BackColor = Color.DimGray : 處別2_tb.ForeColor = Color.White
            處別3_tb.BackColor = Color.DimGray : 處別3_tb.ForeColor = Color.White : 課別2_tb.BackColor = Color.DimGray : 課別2_tb.ForeColor = Color.White
            課別3_tb.BackColor = Color.DimGray : 課別3_tb.ForeColor = Color.White : 組別2_tb.BackColor = Color.DimGray : 組別2_tb.ForeColor = Color.White
            組別3_tb.BackColor = Color.DimGray : 組別3_tb.ForeColor = Color.White : 組織圖_1_tv.BackColor = Color.DimGray : 組織圖_1_tv.ForeColor = Color.White

            存檔_bt.BackColor = Color.DimGray : 存檔_bt.ForeColor = Color.LightGreen
            部門權限指定_bt.BackColor = Color.DimGray : 部門權限指定_bt.ForeColor = Color.LightCoral : 選定權限取消_bt.BackColor = Color.DimGray : 選定權限取消_bt.ForeColor = Color.LightCoral

            清單_1_dgv.EnableHeadersVisualStyles = False : 清單_1_dgv.BackgroundColor = Color.DimGray : 清單_1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            清單_1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            清單_1_dgv.DefaultCellStyle.BackColor = Color.Black : 清單_1_dgv.DefaultCellStyle.ForeColor = Color.White
            設定1_dgv.EnableHeadersVisualStyles = False : 設定1_dgv.BackgroundColor = Color.DimGray : 設定1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            設定1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            設定1_dgv.DefaultCellStyle.BackColor = Color.Black : 設定1_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class