HX-PGS-ERP_New/09、資料庫系統管理/系統權限預設表.vb

Option Strict Off
Imports System.IO
Public Class 系統權限預設表
    Dim HH As String : Dim 職稱 As String
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    DIM 對話框(0) As String
    Private Sub Set_權限清單()
        Dim ds As New DataSet
        清單_dgv.DataSource = Nothing : ds.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 25

        If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 清單_dgv.RowTemplate.Height = 75
        ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 清單_dgv.RowTemplate.Height = 45
        ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 清單_dgv.RowTemplate.Height = 25 : End If
        SQL_系統權限預設表()
        da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()

        清單_dgv.Columns(0).FillWeight = 150 : 清單_dgv.Columns(1).FillWeight = 30
        For i As Integer = 0 To 權限數量 - 1
            清單_dgv.Columns(i + 2).Visible = False
        Next
    End Sub
    Private Sub Set_權限清單1()
        Dim ds1 As New DataSet
        清單1_dgv.DataSource = Nothing : ds1.Clear()
        清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單1_dgv.ColumnHeadersHeight = 25 : 清單1_dgv.AllowUserToAddRows = False : 清單1_dgv.RowTemplate.Height = 25
        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
        SQL_系統權限預設表()
        da.Fill(ds1) : 清單1_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單1_dgv.Columns(0).ReadOnly = True : 清單1_dgv.Columns(1).ReadOnly = True
        清單1_dgv.Columns(0).FillWeight = 150 : 清單1_dgv.Columns(1).FillWeight = 30
        For i As Integer = 0 To 權限數量 - 1
            清單1_dgv.Columns(i + 2).Visible = False
        Next
        For i As Integer = 0 To 清單1_dgv.Rows.Count - 1
            Dim 驗證 As String = "" : Dim 取變數 As String : NN1 = 0
            取變數 = 清單1_dgv.Rows(i).Cells("職稱").Value
            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("職稱").Value = 驗證 : Else
                驗證 = Strings.Left(清單1_dgv.Rows(i).Cells(0).Value.ToString, 6) & Strings.Mid(清單1_dgv.Rows(i).Cells(0).Value.ToString, NN1 + 2, 100)
                If 驗證 = "00000." Then : 清單1_dgv.Rows(i).Cells("職稱").Value = "00000.NA" : Else : 清單1_dgv.Rows(i).Cells("職稱").Value = 驗證 : End If
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        修改_bt.Text = 系統語言字典("G000-110-" & 語言) : 對話框(0) = 系統語言字典("G000-119-" & 語言)
        '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        業務權限_tp.Text = 系統語言字典("H001-204-" & 語言) : CheckBox5.Text = 系統語言字典("H001-204-" & 語言) & "-005" : CheckBox60.Text = 系統語言字典("H001-121-" & 語言) & "-060"
        CheckBox116.Text = 系統語言字典("H001-124-" & 語言) & "-116" : CheckBox107.Text = 系統語言字典("H001-125-" & 語言) & "-107" : CheckBox98.Text = 系統語言字典("H001-128-" & 語言) & "-098"
        CheckBox123.Text = 系統語言字典("H001-130-" & 語言) & "-123" : CheckBox124.Text = 系統語言字典("H001-131-" & 語言) & "-124" : CheckBox125.Text = 系統語言字典("H001-132-" & 語言) & "-125"
        CheckBox126.Text = 系統語言字典("H001-133-" & 語言) & "-126" : CheckBox127.Text = 系統語言字典("H001-122-" & 語言) & "-127" : CheckBox61.Text = 系統語言字典("H001-119-" & 語言) & "-061"
        CheckBox128.Text = 系統語言字典("H001-126-" & 語言) & "-128" : CheckBox62.Text = 系統語言字典("H001-120-" & 語言) & "-062" : CheckBox52.Text = 系統語言字典("H001-109-" & 語言) & "-052"
        CheckBox114.Text = 系統語言字典("H001-103-" & 語言) & "-114" : CheckBox99.Text = 系統語言字典("H001-165-" & 語言) & "-099" : CheckBox101.Text = 系統語言字典("H001-260-" & 語言) & "-101"
        CheckBox102.Text = 系統語言字典("H001-261-" & 語言) & "-102" : CheckBox103.Text = 系統語言字典("H001-262-" & 語言) & "-103"
        '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        採購權限_tp.Text = 系統語言字典("H001-189-" & 語言) : CheckBox6.Text = 系統語言字典("H001-189-" & 語言) & "-006" : CheckBox33.Text = 系統語言字典("H001-174-" & 語言) & "-033"
        CheckBox34.Text = 系統語言字典("H001-175-" & 語言) & "-034" : CheckBox35.Text = 系統語言字典("H001-173-" & 語言) & "-035" : CheckBox20.Text = 系統語言字典("H001-190-" & 語言) & "-020"
        CheckBox36.Text = 系統語言字典("H001-171-" & 語言) & "-036" : CheckBox73.Text = 系統語言字典("H001-168-" & 語言) & "-073" : CheckBox37.Text = 系統語言字典("H001-170-" & 語言) & "-037"
        CheckBox38.Text = 系統語言字典("H001-169-" & 語言) & "-038" : CheckBox39.Text = 系統語言字典("H001-166-" & 語言) & "-039" : CheckBox25.Text = 系統語言字典("H001-143-" & 語言) & "-025"
        CheckBox26.Text = 系統語言字典("H001-144-" & 語言) & "-026" : CheckBox27.Text = 系統語言字典("H001-142-" & 語言) & "-027" : CheckBox28.Text = 系統語言字典("H001-140-" & 語言) & "-028"
        CheckBox72.Text = 系統語言字典("H001-137-" & 語言) & "-072" : CheckBox29.Text = 系統語言字典("H001-139-" & 語言) & "-029" : CheckBox30.Text = 系統語言字典("H001-138-" & 語言) & "-030"
        CheckBox31.Text = 系統語言字典("H001-136-" & 語言) & "-031" : CheckBox11.Text = 系統語言字典("H001-167-" & 語言) & "-011" : CheckBox42.Text = 系統語言字典("H001-135-" & 語言) & "-042"
        CheckBox51.Text = 系統語言字典("H001-160-" & 語言) & "-051" : CheckBox12.Text = 系統語言字典("H001-263-" & 語言) & "-012" : CheckBox13.Text = 系統語言字典("H001-264-" & 語言) & "-013"
        CheckBox14.Text = 系統語言字典("H001-265-" & 語言) & "-014" : CheckBox74.Text = 系統語言字典("H001-274-" & 語言) & "-074" : CheckBox75.Text = 系統語言字典("H001-275-" & 語言) & "-075"
        '------------------------工程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        工程權限_tp.Text = 系統語言字典("H001-106-" & 語言) : CheckBox8.Text = 系統語言字典("H001-106-" & 語言) & "-008" : CheckBox105.Text = 系統語言字典("H001-133-" & 語言) & "-105"
        CheckBox108.Text = 系統語言字典("H001-132-" & 語言) & "-108" : CheckBox109.Text = 系統語言字典("H001-126-" & 語言) & "-109" : CheckBox110.Text = 系統語言字典("H001-108-" & 語言) & "-110"
        CheckBox106.Text = 系統語言字典("H001-176-" & 語言) & "-106" : CheckBox104.Text = 系統語言字典("H001-104-" & 語言) & "-104" : CheckBox53.Text = 系統語言字典("H001-107-" & 語言) & "-053"
        CheckBox54.Text = 系統語言字典("H001-110-" & 語言) & "-054"
        '------------------------倉儲管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        倉儲權限_tp.Text = 系統語言字典("H001-180-" & 語言) : CheckBox9.Text = 系統語言字典("H001-180-" & 語言) & "-009" : CheckBox46.Text = 系統語言字典("H001-227-" & 語言) & "-046"
        CheckBox47.Text = 系統語言字典("H001-223-" & 語言) & "-047" : CheckBox48.Text = 系統語言字典("H001-224-" & 語言) & "-048" : CheckBox49.Text = 系統語言字典("H001-225-" & 語言) & "-049"
        CheckBox50.Text = 系統語言字典("H001-226-" & 語言) & "-050" : CheckBox56.Text = 系統語言字典("H001-186-" & 語言) & "-056" : CheckBox57.Text = 系統語言字典("H001-187-" & 語言) & "-057"
        CheckBox58.Text = 系統語言字典("H001-185-" & 語言) & "-058" : CheckBox59.Text = 系統語言字典("H001-159-" & 語言) & "-059" : CheckBox70.Text = 系統語言字典("H001-161-" & 語言) & "-070"
        CheckBox71.Text = 系統語言字典("H001-179-" & 語言) & "-071" : CheckBox69.Text = 系統語言字典("H001-181-" & 語言) & "-069" : CheckBox85.Text = 系統語言字典("H001-213-" & 語言) & "-085"
        CheckBox86.Text = 系統語言字典("H001-214-" & 語言) & "-086" : CheckBox40.Text = 系統語言字典("H001-299-" & 語言) & "-040"
        '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        財務權限_tp.Text = 系統語言字典("H001-182-" & 語言) : CheckBox7.Text = 系統語言字典("H001-182-" & 語言) & "-007" : CheckBox91.Text = 系統語言字典("H001-220-" & 語言) & "-091"
        CheckBox92.Text = 系統語言字典("H001-222-" & 語言) & "-092" : CheckBox93.Text = 系統語言字典("H001-219-" & 語言) & "-093" : CheckBox94.Text = 系統語言字典("H001-221-" & 語言) & "-094"
        CheckBox95.Text = 系統語言字典("H001-218-" & 語言) & "-095" : CheckBox96.Text = 系統語言字典("H001-201-" & 語言) & "-096" : CheckBox97.Text = 系統語言字典("H001-202-" & 語言) & "-097"
        CheckBox18.Text = 系統語言字典("H001-210-" & 語言) & "-018" : CheckBox64.Text = 系統語言字典("H001-207-" & 語言) & "-064" : CheckBox65.Text = 系統語言字典("H001-208-" & 語言) & "-065"
        CheckBox66.Text = 系統語言字典("H001-211-" & 語言) & "-066" : CheckBox90.Text = 系統語言字典("H001-209-" & 語言) & "-090" : CheckBox78.Text = 系統語言字典("H001-113-" & 語言) & "-078"
        CheckBox79.Text = 系統語言字典("H001-115-" & 語言) & "-079" : CheckBox76.Text = 系統語言字典("H001-112-" & 語言) & "-076" : CheckBox77.Text = 系統語言字典("H001-114-" & 語言) & "-077"
        CheckBox68.Text = 系統語言字典("H001-297-" & 語言) & "-068"
        '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        人事權限_tp.Text = 系統語言字典("H001-101-" & 語言) : CheckBox22.Text = 系統語言字典("H001-101-" & 語言) & "-022" : CheckBox55.Text = 系統語言字典("H001-146-" & 語言) & "-055"
        CheckBox23.Text = 系統語言字典("H001-102-" & 語言) & "-023" : CheckBox24.Text = 系統語言字典("H001-266-" & 語言) & "-024" : CheckBox89.Text = 系統語言字典("H001-151-" & 語言) & "-089"
        CheckBox111.Text = 系統語言字典("H001-158-" & 語言) & "-111" : CheckBox112.Text = 系統語言字典("H001-162-" & 語言) & "-112" : CheckBox113.Text = 系統語言字典("H001-183-" & 語言) & "-113"
        CheckBox17.Text = 系統語言字典("H001-269-" & 語言) & "-017" : CheckBox16.Text = 系統語言字典("H001-270-" & 語言) & "-016" : CheckBox15.Text = 系統語言字典("H001-271-" & 語言) & "-015"
        CheckBox80.Text = 系統語言字典("H000-121-" & 語言) & "-080" : CheckBox81.Text = 系統語言字典("H001-272-" & 語言) & "-081" : CheckBox100.Text = 系統語言字典("H000-122-" & 語言) & "-100"
        CheckBox67.Text = 系統語言字典("H000-124-" & 語言) & "-067" : CheckBox82.Text = 系統語言字典("H001-196-" & 語言) & "-082" : CheckBox122.Text = 系統語言字典("H001-300-" & 語言) & "-122"
        CheckBox83.Text = 系統語言字典("H001-304-" & 語言) & "-083"
        '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        資料庫權限_tp.Text = 系統語言字典("H001-205-" & 語言) : CheckBox1.Text = 系統語言字典("H001-205-" & 語言) & "-001" : CheckBox2.Text = 系統語言字典("H001-146-" & 語言) & "-002"
        CheckBox84.Text = 系統語言字典("H001-156-" & 語言) & "-084" : CheckBox41.Text = 系統語言字典("H001-150-" & 語言) & "-041" : CheckBox87.Text = 系統語言字典("H001-195-" & 語言) & "-087"
        CheckBox43.Text = 系統語言字典("H001-152-" & 語言) & "-043" : CheckBox10.Text = 系統語言字典("H001-155-" & 語言) & "-010" : CheckBox44.Text = 系統語言字典("H001-154-" & 語言) & "-044"
        CheckBox4.Text = 系統語言字典("H001-149-" & 語言) & "-004" : CheckBox3.Text = 系統語言字典("H001-100-" & 語言) & "-003" : CheckBox19.Text = 系統語言字典("H001-153-" & 語言) & "-019"
        CheckBox21.Text = 系統語言字典("H001-232-" & 語言) & "-021" : CheckBox45.Text = 系統語言字典("H001-267-" & 語言) & "-045" : CheckBox88.Text = 系統語言字典("H001-268-" & 語言) & "-088"
    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(2) = True : 介面 = "H002" : 語言轉換讀取() : Panel1.SendToBack() : 顯示說明(999, False)
        Set_權限清單() : Set_權限清單1()

        For no As Integer = 1 To 權限數量
            Dim 選擇1 As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
        Next
        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)
    End Sub
    Private Sub 系統權限預設表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyMod.虛擬桌面開啟()
    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)
    End Sub
    Private Sub 職稱_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(1, e.RowIndex).Value.ToString = "02" 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("級別").Value.ToString = "01" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                ElseIf 清單1_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
                ElseIf 清單1_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 清單1_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                ElseIf 清單1_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If
            Else
                If 清單1_dgv.Rows(i).Cells("級別").Value.ToString = "01" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple
                ElseIf 清單1_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen
                ElseIf 清單1_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed
                ElseIf 清單1_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
                ElseIf 清單1_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If
            End If
        Next
    End Sub
    Private Sub 清單1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            職稱 = 清單_dgv.Rows(e.RowIndex).Cells("職稱").Value
            For no As Integer = 1 To 權限數量
                If no < 10 Then : HH = "0" & no : ElseIf no >= 10 Then : HH = no : End If
                Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                選擇.Checked = 清單_dgv.Rows(e.RowIndex).Cells("CC" & HH).Value
            Next
        End If
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        PA10 = 職稱 : PA = "系統權限預設表" : SQL_系統權限預設表修改() : PA = "使用者權限管理表" : SQL_系統權限預設表修改() : PA = "" : Set_權限清單()
        MGB(對話框(0), 1)
    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_權限清單() : Set_權限清單1()
    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_權限清單() : Set_權限清單1()
    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_權限清單() : Set_權限清單1()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H002" : 語言轉換讀取() : Set_權限清單() : Set_權限清單1()
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control : 業務權限_tp.BackColor = SystemColors.Control : 採購權限_tp.BackColor = SystemColors.Control
            工程權限_tp.BackColor = SystemColors.Control : 倉儲權限_tp.BackColor = SystemColors.Control : 財務權限_tp.BackColor = SystemColors.Control
            人事權限_tp.BackColor = SystemColors.Control : 資料庫權限_tp.BackColor = SystemColors.Control
            '----------------黑-------------------------------------------
            小間距1_ch.ForeColor = Color.Black : 中間距1_ch.ForeColor = Color.Black : 大間距1_ch.ForeColor = Color.Black
            CheckBox1.ForeColor = Color.Black : CheckBox22.ForeColor = Color.Black : CheckBox7.ForeColor = Color.Black : CheckBox5.ForeColor = Color.Black
            CheckBox9.ForeColor = Color.Black : CheckBox8.ForeColor = Color.Black : CheckBox6.ForeColor = Color.Black
            '----------------紅-------------------------------------------
            CheckBox74.ForeColor = Color.Red : CheckBox75.ForeColor = Color.Red : CheckBox2.ForeColor = Color.Red : CheckBox45.ForeColor = Color.Red
            CheckBox84.ForeColor = Color.Red : CheckBox41.ForeColor = Color.Red : CheckBox87.ForeColor = Color.Red : CheckBox88.ForeColor = Color.Red
            CheckBox43.ForeColor = Color.Red : CheckBox10.ForeColor = Color.Red : CheckBox44.ForeColor = Color.Red : CheckBox4.ForeColor = Color.Red
            CheckBox3.ForeColor = Color.Red : CheckBox23.ForeColor = Color.Red : CheckBox24.ForeColor = Color.Red : CheckBox89.ForeColor = Color.Red
            CheckBox91.ForeColor = Color.Red : CheckBox92.ForeColor = Color.Red : CheckBox93.ForeColor = Color.Red : CheckBox94.ForeColor = Color.Red
            CheckBox95.ForeColor = Color.Red : CheckBox96.ForeColor = Color.Red : CheckBox97.ForeColor = Color.Red : CheckBox46.ForeColor = Color.Red
            CheckBox47.ForeColor = Color.Red : CheckBox48.ForeColor = Color.Red : CheckBox49.ForeColor = Color.Red : CheckBox50.ForeColor = Color.Red
            CheckBox25.ForeColor = Color.Red : CheckBox26.ForeColor = Color.Red : CheckBox27.ForeColor = Color.Red : CheckBox60.ForeColor = Color.Red
            CheckBox116.ForeColor = Color.Red : CheckBox107.ForeColor = Color.Red : CheckBox98.ForeColor = Color.Red : CheckBox101.ForeColor = Color.Red
            CheckBox103.ForeColor = Color.Red : CheckBox102.ForeColor = Color.Red : CheckBox33.ForeColor = Color.Red : CheckBox34.ForeColor = Color.Red
            CheckBox35.ForeColor = Color.Red : CheckBox90.ForeColor = Color.Red : CheckBox15.ForeColor = Color.Red : CheckBox16.ForeColor = Color.Red
            CheckBox17.ForeColor = Color.Red : CheckBox109.ForeColor = Color.Red : CheckBox108.ForeColor = Color.Red : CheckBox105.ForeColor = Color.Red
            CheckBox53.ForeColor = Color.Red : CheckBox104.ForeColor = Color.Red : CheckBox106.ForeColor = Color.Red : CheckBox110.ForeColor = Color.Red
            CheckBox54.ForeColor = Color.Red : CheckBox55.ForeColor = Color.Red : CheckBox59.ForeColor = Color.Red : CheckBox40.ForeColor = Color.Red
            '----------------藍-------------------------------------------
            CheckBox61.ForeColor = Color.Blue : CheckBox99.ForeColor = Color.Blue
            CheckBox62.ForeColor = Color.Blue : CheckBox114.ForeColor = Color.Blue : CheckBox52.ForeColor = Color.Blue : CheckBox51.ForeColor = Color.Blue
            CheckBox42.ForeColor = Color.Blue : CheckBox11.ForeColor = Color.Blue : CheckBox12.ForeColor = Color.Blue : CheckBox13.ForeColor = Color.Blue
            CheckBox14.ForeColor = Color.Blue : CheckBox100.ForeColor = Color.Blue : CheckBox69.ForeColor = Color.Blue : CheckBox70.ForeColor = Color.Blue
            CheckBox71.ForeColor = Color.Blue : CheckBox18.ForeColor = Color.Blue : CheckBox111.ForeColor = Color.Blue : CheckBox112.ForeColor = Color.Blue
            CheckBox113.ForeColor = Color.Blue : CheckBox19.ForeColor = Color.Blue : CheckBox21.ForeColor = Color.Blue : CheckBox76.ForeColor = Color.Blue
            CheckBox67.ForeColor = Color.Blue : CheckBox65.ForeColor = Color.Blue : CheckBox79.ForeColor = Color.Blue : CheckBox77.ForeColor = Color.Blue
            CheckBox68.ForeColor = Color.Blue : CheckBox66.ForeColor = Color.Blue : CheckBox64.ForeColor = Color.Blue : CheckBox78.ForeColor = Color.Blue
            CheckBox63.ForeColor = Color.Blue : CheckBox32.ForeColor = Color.Blue
            '----------------綠-------------------------------------------
            CheckBox123.ForeColor = Color.Green : CheckBox124.ForeColor = Color.Green : CheckBox125.ForeColor = Color.Green : CheckBox126.ForeColor = Color.Green
            CheckBox127.ForeColor = Color.Green : CheckBox128.ForeColor = Color.Green : CheckBox20.ForeColor = Color.Green : CheckBox36.ForeColor = Color.Green
            CheckBox73.ForeColor = Color.Green : CheckBox37.ForeColor = Color.Green : CheckBox38.ForeColor = Color.Green : CheckBox39.ForeColor = Color.Green
            CheckBox28.ForeColor = Color.Green : CheckBox72.ForeColor = Color.Green : CheckBox29.ForeColor = Color.Green : CheckBox30.ForeColor = Color.Green
            CheckBox31.ForeColor = Color.Green : CheckBox82.ForeColor = Color.Green : CheckBox83.ForeColor = Color.Green : CheckBox81.ForeColor = Color.Green
            CheckBox80.ForeColor = Color.Green : CheckBox58.ForeColor = Color.Green : CheckBox57.ForeColor = Color.Green : CheckBox56.ForeColor = Color.Green
            CheckBox86.ForeColor = Color.Green : CheckBox115.ForeColor = Color.Green : CheckBox85.ForeColor = Color.Green
            CheckBox121.ForeColor = Color.Green : CheckBox119.ForeColor = Color.Green : CheckBox118.ForeColor = Color.Green : CheckBox117.ForeColor = Color.Green
            CheckBox122.ForeColor = Color.Green : CheckBox120.ForeColor = Color.Green

            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 修改_bt.BackColor = Color.White : 修改_bt.ForeColor = Color.Green

            清單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 : 業務權限_tp.BackColor = Color.Black : 採購權限_tp.BackColor = Color.Black
            工程權限_tp.BackColor = Color.Black : 倉儲權限_tp.BackColor = Color.Black : 財務權限_tp.BackColor = Color.Black
            人事權限_tp.BackColor = Color.Black : 資料庫權限_tp.BackColor = Color.Black
            '----------------黑-------------------------------------------
            小間距1_ch.ForeColor = Color.White : 中間距1_ch.ForeColor = Color.White : 大間距1_ch.ForeColor = Color.White
            CheckBox1.ForeColor = Color.White : CheckBox22.ForeColor = Color.White : CheckBox7.ForeColor = Color.White : CheckBox5.ForeColor = Color.White
            CheckBox9.ForeColor = Color.White : CheckBox8.ForeColor = Color.White : CheckBox6.ForeColor = Color.White
            '----------------紅-------------------------------------------
            CheckBox74.ForeColor = Color.LightPink : CheckBox75.ForeColor = Color.LightPink : CheckBox2.ForeColor = Color.LightPink : CheckBox45.ForeColor = Color.LightPink
            CheckBox84.ForeColor = Color.LightPink : CheckBox41.ForeColor = Color.LightPink : CheckBox87.ForeColor = Color.LightPink : CheckBox88.ForeColor = Color.LightPink
            CheckBox43.ForeColor = Color.LightPink : CheckBox10.ForeColor = Color.LightPink : CheckBox44.ForeColor = Color.LightPink : CheckBox4.ForeColor = Color.LightPink
            CheckBox3.ForeColor = Color.LightPink : CheckBox23.ForeColor = Color.LightPink : CheckBox24.ForeColor = Color.LightPink : CheckBox89.ForeColor = Color.LightPink
            CheckBox91.ForeColor = Color.LightPink : CheckBox92.ForeColor = Color.LightPink : CheckBox93.ForeColor = Color.LightPink : CheckBox94.ForeColor = Color.LightPink
            CheckBox95.ForeColor = Color.LightPink : CheckBox96.ForeColor = Color.LightPink : CheckBox97.ForeColor = Color.LightPink : CheckBox46.ForeColor = Color.LightPink
            CheckBox47.ForeColor = Color.LightPink : CheckBox48.ForeColor = Color.LightPink : CheckBox49.ForeColor = Color.LightPink : CheckBox50.ForeColor = Color.LightPink
            CheckBox25.ForeColor = Color.LightPink : CheckBox26.ForeColor = Color.LightPink : CheckBox27.ForeColor = Color.LightPink : CheckBox60.ForeColor = Color.LightPink
            CheckBox116.ForeColor = Color.LightPink : CheckBox107.ForeColor = Color.LightPink : CheckBox98.ForeColor = Color.LightPink : CheckBox101.ForeColor = Color.LightPink
            CheckBox103.ForeColor = Color.LightPink : CheckBox102.ForeColor = Color.LightPink : CheckBox33.ForeColor = Color.LightPink : CheckBox34.ForeColor = Color.LightPink
            CheckBox35.ForeColor = Color.LightPink : CheckBox90.ForeColor = Color.LightPink : CheckBox15.ForeColor = Color.LightPink : CheckBox16.ForeColor = Color.LightPink
            CheckBox17.ForeColor = Color.LightPink : CheckBox109.ForeColor = Color.LightPink : CheckBox108.ForeColor = Color.LightPink : CheckBox105.ForeColor = Color.LightPink
            CheckBox53.ForeColor = Color.LightPink : CheckBox104.ForeColor = Color.LightPink : CheckBox106.ForeColor = Color.LightPink : CheckBox110.ForeColor = Color.LightPink
            CheckBox54.ForeColor = Color.LightPink : CheckBox55.ForeColor = Color.LightPink : CheckBox59.ForeColor = Color.LightPink : CheckBox40.ForeColor = Color.LightPink
            '----------------藍-------------------------------------------
            CheckBox61.ForeColor = Color.LightBlue : CheckBox99.ForeColor = Color.LightBlue
            CheckBox62.ForeColor = Color.LightBlue : CheckBox114.ForeColor = Color.LightBlue : CheckBox52.ForeColor = Color.LightBlue : CheckBox51.ForeColor = Color.LightBlue
            CheckBox42.ForeColor = Color.LightBlue : CheckBox11.ForeColor = Color.LightBlue : CheckBox12.ForeColor = Color.LightBlue : CheckBox13.ForeColor = Color.LightBlue
            CheckBox14.ForeColor = Color.LightBlue : CheckBox100.ForeColor = Color.LightBlue : CheckBox69.ForeColor = Color.LightBlue : CheckBox70.ForeColor = Color.LightBlue
            CheckBox71.ForeColor = Color.LightBlue : CheckBox18.ForeColor = Color.LightBlue : CheckBox111.ForeColor = Color.LightBlue : CheckBox112.ForeColor = Color.LightBlue
            CheckBox113.ForeColor = Color.LightBlue : CheckBox19.ForeColor = Color.LightBlue : CheckBox21.ForeColor = Color.LightBlue : CheckBox76.ForeColor = Color.LightBlue
            CheckBox67.ForeColor = Color.LightBlue : CheckBox65.ForeColor = Color.LightBlue : CheckBox79.ForeColor = Color.LightBlue : CheckBox77.ForeColor = Color.LightBlue
            CheckBox68.ForeColor = Color.LightBlue : CheckBox66.ForeColor = Color.LightBlue : CheckBox64.ForeColor = Color.LightBlue : CheckBox78.ForeColor = Color.LightBlue
            CheckBox63.ForeColor = Color.LightBlue : CheckBox32.ForeColor = Color.LightBlue
            '----------------綠-------------------------------------------
            CheckBox123.ForeColor = Color.LightGreen : CheckBox124.ForeColor = Color.LightGreen : CheckBox125.ForeColor = Color.LightGreen : CheckBox126.ForeColor = Color.LightGreen
            CheckBox127.ForeColor = Color.LightGreen : CheckBox128.ForeColor = Color.LightGreen : CheckBox20.ForeColor = Color.LightGreen : CheckBox36.ForeColor = Color.LightGreen
            CheckBox73.ForeColor = Color.LightGreen : CheckBox37.ForeColor = Color.LightGreen : CheckBox38.ForeColor = Color.LightGreen : CheckBox39.ForeColor = Color.LightGreen
            CheckBox28.ForeColor = Color.LightGreen : CheckBox72.ForeColor = Color.LightGreen : CheckBox29.ForeColor = Color.LightGreen : CheckBox30.ForeColor = Color.LightGreen
            CheckBox31.ForeColor = Color.LightGreen : CheckBox82.ForeColor = Color.LightGreen : CheckBox83.ForeColor = Color.LightGreen : CheckBox81.ForeColor = Color.LightGreen
            CheckBox80.ForeColor = Color.LightGreen : CheckBox58.ForeColor = Color.LightGreen : CheckBox57.ForeColor = Color.LightGreen : CheckBox56.ForeColor = Color.LightGreen
            CheckBox86.ForeColor = Color.LightGreen : CheckBox115.ForeColor = Color.LightGreen : CheckBox85.ForeColor = Color.LightGreen
            CheckBox121.ForeColor = Color.LightGreen : CheckBox119.ForeColor = Color.LightGreen : CheckBox118.ForeColor = Color.LightGreen : CheckBox117.ForeColor = Color.LightGreen
            CheckBox122.ForeColor = Color.LightGreen : CheckBox120.ForeColor = Color.LightGreen

            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 修改_bt.BackColor = Color.DimGray : 修改_bt.ForeColor = Color.LightGreen

            清單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