HX-PGS-ERP-SYS-SIU/09、資料庫系統管理/系統使用者管理.vb

Option Explicit On
Imports System.IO
Public Class 系統使用者管理
    Dim 資料長度, 資料寬度, BBNN1, FG As Integer
    Dim 權限代號, QQW(11), 權限名稱, HH As String
    Dim 權限選取 As Boolean = False
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim file_name As String = ""
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    DIM 對話框(36) As String
    Private Sub Set_權限清單()
        Dim ds1 As New DataSet
        預設權限_dgv.DataSource = Nothing : ds1.Clear()
        預設權限_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        預設權限_dgv.ColumnHeadersHeight = 25 : 預設權限_dgv.AllowUserToAddRows = False : 預設權限_dgv.RowTemplate.Height = 35
        PA40 = 職稱_cb.Text : SQL_系統權限預設表_單一讀取()
        da.Fill(ds1) : 預設權限_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_使用者清單()
        Dim ds, ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds.Clear() : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 35
        清單1_dgv.DataSource = Nothing
        清單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

        SQL_系統使用者管理_使用者清單()
        da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : da.Fill(ds1) : 清單1_dgv.DataSource = ds1.Tables(0) : conn.Close() : Set_grid()

        If 系統語言 = "繁體中文" Then : 清單1_dgv.Columns(6).Visible = True : Else : 清單1_dgv.Columns(6).Visible = False : End If
        For i As Integer = 0 To 清單1_dgv.Rows.Count - 1
            Dim 驗證 As String = "" : Dim 取變數 As String
            取變數 = 清單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

            取變數 = 清單1_dgv.Rows(i).Cells(7).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(7).Value = 驗證 : Else
                If Strings.Left(清單1_dgv.Rows(i).Cells(7).Value.ToString, 6) = "00000." Then : 清單1_dgv.Rows(i).Cells(7).Value = "00000.NA" : Else
                    清單1_dgv.Rows(i).Cells(7).Value = Strings.Left(清單1_dgv.Rows(i).Cells(7).Value.ToString, 6) & Strings.Mid(清單1_dgv.Rows(i).Cells(7).Value.ToString, NN1 + 2, 100)
                End If
            End If
        Next
    End Sub
    Private Sub Set_grid()
        清單1_dgv.Columns(0).FillWeight = 90 : 清單1_dgv.Columns(1).Visible = False : 清單1_dgv.Columns(2).Visible = False : 清單1_dgv.Columns(3).FillWeight = 70
        清單1_dgv.Columns(4).FillWeight = 80 : 清單1_dgv.Columns(5).FillWeight = 80 : 清單1_dgv.Columns(6).FillWeight = 50 : 清單1_dgv.Columns(7).FillWeight = 90
        清單1_dgv.Columns(8).Visible = False : 清單1_dgv.Columns(9).FillWeight = 25 : 清單1_dgv.Columns(10).FillWeight = 55 : 清單1_dgv.Columns(11).FillWeight = 35
        For i As Integer = 0 To 權限數量 - 1
            清單1_dgv.Columns(i + 12).Visible = False
        Next
        If 顯示密碼_bt.Enabled = True And 隱藏密碼_bt.Enabled = False Then
            For i As Integer = 0 To 清單1_dgv.Rows.Count - 1
                清單_dgv(2, i).Value = "**********"
            Next
        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
        If 登入人級別 = "00" Then : 清單1_dgv.Columns("CC63").Visible = True : 清單1_dgv.Columns("CC63").FillWeight = 10 : End If
    End Sub
    Private Sub Set_格式設定()
        隱藏密碼_bt.Enabled = False
        For no As Integer = 1 To 權限數量
            Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
            選擇.Checked = False
        Next
    End Sub
    Private Sub Set_格式設定1()
        For no As Integer = 0 To LINE_權限數量 - 1
            HH = no + 200
            Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + HH.ToString(), True)(0), CheckBox)
            選擇.Checked = False
        Next
    End Sub
    Private Sub 下拉清單_職稱()
        PA47 = 部門_cb.Text : PA48 = 處別_cb.Text : SQL_系統使用者管理_下拉清單_職稱()
        級別_cb.Items.Clear() : 職稱_cb.Items.Clear() : 職稱1_cb.Items.Clear()
        While (dr.Read()) : 職稱_cb.Items.Add(dr("職稱")) : 級別_cb.Items.Add(dr("級別"))
            Dim 驗證 As String = "" : Dim 取變數 As String : NN1 = 0
            取變數 = dr("職稱")
            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_cb.Items.Add(驗證) : Else
                驗證 = Strings.Left(dr("職稱"), 6) & Strings.Mid(dr("職稱"), NN1 + 2, 100)
                If 驗證 = "00000." Then : 職稱1_cb.Items.Add("00000.NA") : Else : 職稱1_cb.Items.Add(驗證) : End If
            End If
        End While : conn.Close()
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_系統使用者管理_下拉清單_部門() : 部門_cb.Items.Clear() : 部門_cb.Items.Add("") : 部門1_cb.Items.Clear() : 部門1_cb.Items.Add("")
        While (dr.Read()) : 部門_cb.Items.Add(dr("部門"))
            Dim 驗證 As String = "" : Dim 取變數 As String : NN1 = 0
            取變數 = dr("部門")
            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_cb.Items.Add(驗證) : Else
                驗證 = Strings.Left(dr("部門"), 2) & Strings.Mid(dr("部門"), NN1 + 2, 100)
                If 驗證 = "0." Then : 部門1_cb.Items.Add("0.NA") : Else : 部門1_cb.Items.Add(驗證) : End If
            End If
        End While : conn.Close()
    End Sub
    Private Sub ComboBox5下拉表單資料載入()
        PA20 = Strings.Left(部門_cb.Text, 1) : SQL_系統使用者管理_下拉清單_處別()
        處別_cb.Items.Clear() : 處別_cb.Items.Add("") : 處別1_cb.Items.Clear() : 處別1_cb.Items.Add("")
        While (dr.Read()) : 處別_cb.Items.Add(dr("處"))
            Dim 驗證 As String = "" : Dim 取變數 As String : NN1 = 0
            取變數 = dr("處")
            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_cb.Items.Add(驗證) : Else
                驗證 = Strings.Left(dr("處"), 3) & Strings.Mid(dr("處"), NN1 + 2, 100)
                If 驗證 = "00." Then : 處別1_cb.Items.Add("00.NA") : Else : 處別1_cb.Items.Add(驗證) : End If
            End If
        End While : conn.Close()
    End Sub
    Private Sub ComboBox3下拉表單資料載入()
        PA20 = Strings.Left(處別_cb.Text, 2) : SQL_系統使用者管理_下拉清單_課別()
        課別_cb.Items.Clear() : 課別_cb.Items.Add("") : 課別1_cb.Items.Clear() : 課別1_cb.Items.Add("")
        While (dr.Read()) : 課別_cb.Items.Add(dr("課別"))
            Dim 驗證 As String = "" : Dim 取變數 As String : NN1 = 0
            取變數 = dr("課別")
            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_cb.Items.Add(驗證) : Else
                驗證 = Strings.Left(dr("課別"), 4) & Strings.Mid(dr("課別"), NN1 + 2, 100)
                If 驗證 = "000." Then : 課別1_cb.Items.Add("000.NA") : Else : 課別1_cb.Items.Add(驗證) : End If
            End If
        End While : conn.Close()
    End Sub
    Private Sub ComboBox4下拉表單資料載入()
        PA20 = Strings.Left(課別_cb.Text, 3) : SQL_系統使用者管理_下拉清單_組別()
        組別_cb.Items.Clear() : 組別_cb.Items.Add("") : 組別1_cb.Items.Clear() : 組別1_cb.Items.Add("")
        While (dr.Read()) : 組別_cb.Items.Add(dr("組別"))
            If 系統語言 = "繁體中文" Then
                組別1_cb.Items.Add(dr("組別"))
            Else
                If Strings.Mid(dr("組別").ToString, 6, 2) = "工務" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(20))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "製圖" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(21))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "銷售" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(22))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "會計" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(23))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "稅務" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(24))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "財務" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(25))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "總務" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(26))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "倉管" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(27))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "資安" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(28))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "文管" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(29))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "人資" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(30))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "實習" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(31))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "管理" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(32))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "採購" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(33))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "出納" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(34))
                ElseIf Strings.Mid(dr("組別").ToString, 6, 2) = "報價" Then : 組別1_cb.Items.Add(Strings.Left(dr("組別").ToString, 5) & 對話框(35))
                Else : 組別1_cb.Items.Add(dr("組別"))
                End If
            End If
        End While : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-146-" & 語言)
        ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 對話框(0) = 系統語言字典("G000-109-" & 語言) : 工人_ch.Text = 系統語言字典("G000-159-" & 語言)
        姓名_lb.Text = 系統語言字典("H002-103-" & 語言) : 帳號_lb.Text = 系統語言字典("H002-104-" & 語言) : 密碼_lb.Text = 系統語言字典("H002-105-" & 語言)
        NAS帳號_lb.Text = 系統語言字典("H002-106-" & 語言) : NAS密碼_lb.Text = 系統語言字典("H002-107-" & 語言) : 部門_lb.Text = 系統語言字典("H002-108-" & 語言)
        處別_lb.Text = 系統語言字典("H002-109-" & 語言) : 課別_lb.Text = 系統語言字典("H002-110-" & 語言) : 組別_lb.Text = 系統語言字典("H002-111-" & 語言)
        職稱_lb.Text = 系統語言字典("H002-112-" & 語言) : CheckBox63.Text = 系統語言字典("H002-116-" & 語言)
        對話框(1) = 系統語言字典("G000-110-" & 語言) : 對話框(2) = 系統語言字典("G000-111-" & 語言) : 對話框(3) = 系統語言字典("G000-112-" & 語言) : 對話框(4) = 系統語言字典("H002-100-" & 語言)
        對話框(5) = 系統語言字典("H002-101-" & 語言) : 對話框(6) = 系統語言字典("G000-113-" & 語言) : 對話框(7) = 系統語言字典("G000-114-" & 語言) : 對話框(8) = 系統語言字典("H000-102-" & 語言)
        對話框(9) = 系統語言字典("G000-118-" & 語言) : 對話框(10) = 系統語言字典("G000-121-" & 語言) : 對話框(11) = 系統語言字典("G000-126-" & 語言) : 對話框(12) = 系統語言字典("H002-113-" & 語言)
        對話框(13) = 系統語言字典("G000-127-" & 語言) : 對話框(14) = 系統語言字典("G000-120-" & 語言) : 對話框(15) = 系統語言字典("G000-124-" & 語言) : 對話框(16) = 系統語言字典("G000-119-" & 語言)
        對話框(17) = 系統語言字典("G000-117-" & 語言) : 對話框(18) = 系統語言字典("H002-114-" & 語言) : 對話框(19) = 系統語言字典("G000-259-" & 語言) : 對話框(20) = 系統語言字典("G000-128-" & 語言)
        對話框(21) = 系統語言字典("G000-129-" & 語言) : 對話框(22) = 系統語言字典("G000-130-" & 語言) : 對話框(23) = 系統語言字典("G000-131-" & 語言) : 對話框(24) = 系統語言字典("G000-132-" & 語言)
        對話框(25) = 系統語言字典("G000-133-" & 語言) : 對話框(26) = 系統語言字典("G000-134-" & 語言) : 對話框(27) = 系統語言字典("G000-135-" & 語言) : 對話框(28) = 系統語言字典("G000-136-" & 語言)
        對話框(29) = 系統語言字典("G000-137-" & 語言) : 對話框(30) = 系統語言字典("G000-138-" & 語言) : 對話框(31) = 系統語言字典("G000-139-" & 語言) : 對話框(32) = 系統語言字典("G000-140-" & 語言)
        對話框(33) = 系統語言字典("G000-141-" & 語言) : 對話框(34) = 系統語言字典("G000-142-" & 語言) : 對話框(35) = 系統語言字典("G000-143-" & 語言) : 對話框(36) = 系統語言字典("H002-117-" & 語言)
        '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        業務權限_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 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新增_bt, 對話框(0))
    End Sub
    Private Sub 確認新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 確認新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.確認新增_bt, 對話框(1))
    End Sub
    Private Sub 修改1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.修改1_bt, 對話框(2))
    End Sub
    Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.修改_bt, 對話框(1))
    End Sub
    Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除_bt, 對話框(3))
    End Sub
    Private Sub 顯示密碼_bt_MouseEnter(sender As Object, e As EventArgs) Handles 顯示密碼_bt.MouseEnter
        ToolTip1.SetToolTip(Me.顯示密碼_bt, 對話框(4))
    End Sub
    Private Sub 隱藏密碼_bt_MouseEnter(sender As Object, e As EventArgs) Handles 隱藏密碼_bt.MouseEnter
        ToolTip1.SetToolTip(Me.隱藏密碼_bt, 對話框(5))
    End Sub
    Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_bt, 對話框(6))
    End Sub
    Private Sub 指定預設權限_bt_MouseEnter(sender As Object, e As EventArgs) Handles 指定預設權限_bt.MouseEnter
        ToolTip1.SetToolTip(Me.指定預設權限_bt, 對話框(8))
    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, True)
        If BL = False Then : 資料庫權限_tp.Enabled = True : 財務權限_tp.Enabled = True : Else : 資料庫權限_tp.Enabled = False : 財務權限_tp.Enabled = False : End If
        在職 = True
        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")
        End If : Access1.Close()
        PA = "" : 預設權限_dgv.Visible = False : 修改_bt.Enabled = False : 確認新增_bt.Enabled = False
        MyMod.清單字體大小調整()
        清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 系統使用者管理_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        分流計算.Enabled = True
    End Sub
    Private Sub 分流計算_Tick(sender As Object, e As EventArgs) Handles 分流計算.Tick
        分流計算.Enabled = False
        ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入() : 下拉清單_職稱()
        Set_格式設定() : Set_使用者清單() : Set_grid()
    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.清單字體大小調整()
        清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    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 部門_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 部門_cb.SelectedIndexChanged
        部門1_cb.SelectedIndex = 部門_cb.SelectedIndex : ComboBox5下拉表單資料載入() : 下拉清單_職稱()
    End Sub
    Private Sub 處別_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 處別_cb.SelectedIndexChanged
        處別1_cb.SelectedIndex = 處別_cb.SelectedIndex : ComboBox3下拉表單資料載入() : 下拉清單_職稱()
    End Sub
    Private Sub 課別_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 課別_cb.SelectedIndexChanged
        課別1_cb.SelectedIndex = 課別_cb.SelectedIndex : ComboBox4下拉表單資料載入()
    End Sub
    Private Sub 職稱_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 職稱_cb.SelectedIndexChanged
        職稱1_cb.SelectedIndex = 職稱_cb.SelectedIndex : 級別_cb.SelectedIndex = 職稱_cb.SelectedIndex : Set_權限清單() : Dim S1, S2, S3, S4 As String
        PA = 職稱_cb.Text : SQL_系統使用者管理_組織帶入() : PA = ""
        If dr.Read() Then : S1 = dr("部") : S2 = dr("處") : S3 = dr("課") : S4 = dr("組") : End If : conn.Close()
        部門_cb.Text = S1 : 處別_cb.Text = S2 : 課別_cb.Text = S3 : 組別_cb.Text = S4
    End Sub
    Private Sub 級別_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 級別_cb.SelectedIndexChanged
        職稱_cb.SelectedIndex = 級別_cb.SelectedIndex : Set_權限清單()
    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("級別", e.RowIndex).Value.ToString <> 清單1_dgv("級別", e.RowIndex + 1).Value.ToString 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
            部門_cb.Text = "" : 處別_cb.Text = ""
            姓名_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("姓名").Value.ToString : 帳號_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("帳號").Value.ToString
            密碼_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("密碼").Value.ToString : 職稱_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("職稱").Value.ToString
            NAS帳號_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("NAS帳號").Value.ToString : NAS密碼_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("NAS密碼").Value.ToString
            If 顯示密碼_bt.Enabled = False Then
                PA39 = 姓名_tb.Text : PA38 = 帳號_tb.Text : SQL_系統使用者密碼顯示()
                If dr.Read() Then : 密碼_tb.Text = dr("密碼") : End If : conn.Close()
            End If

            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
            Set_權限清單() : 職稱_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("職稱").Value.ToString
        End If
    End Sub
    Private Sub 指定預設權限_bt_Click_1(sender As Object, e As EventArgs) Handles 指定預設權限_bt.Click
        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then : MGB(對話框(10), 1) : Else
            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)
                If HH = 63 Then : Else
                    選擇.Checked = 預設權限_dgv.Rows(0).Cells("CC" & HH).Value
                End If
            Next
        End If
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then : MGB(對話框(10), 1) : Else
            If 級別_cb.Text = "00" Or 級別_cb.Text = "01" Or 級別_cb.Text = "02" Or 級別_cb.Text = "03" Or 級別_cb.Text = "04" Then
                If 登入人級別 = "00" Then
                    姓名_tb.Text = "" : 帳號_tb.Text = "" : 密碼_tb.Text = "" : 新增_bt.Enabled = False : 確認新增_bt.Enabled = True
                    Set_格式設定()
                Else
                    MGB(對話框(19), 1)
                End If
            Else
                姓名_tb.Text = "" : 帳號_tb.Text = "" : 密碼_tb.Text = "" : 新增_bt.Enabled = False : 確認新增_bt.Enabled = True
                Set_格式設定()
            End If
        End If
    End Sub
    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then : MGB(對話框(10), 1) : Else
            If 級別_cb.Text = "00" Or 級別_cb.Text = "01" Or 級別_cb.Text = "02" Or 級別_cb.Text = "03" Or 級別_cb.Text = "04" Then
                If 登入人級別 = "00" Then
                    MGB(對話框(18), 2) : If 訊息回應 = "YES" Then : 指定預設權限_bt.PerformClick() : End If
                    DTP = Strings.Format(Today().AddMonths(2), "yyyy/MM/dd") : SQL_系統使用者新增() : SQL_系統使用者修改() : conn.Close()
                    MGB(對話框(9), 1)
                    Set_使用者清單() : Set_grid()
                    確認新增_bt.Enabled = False : 新增_bt.Enabled = True : 顯示密碼_bt.Enabled = True : 隱藏密碼_bt.Enabled = False
                Else
                    MGB(對話框(19), 1)
                End If
            Else
                MGB(對話框(18), 2) : If 訊息回應 = "YES" Then : 指定預設權限_bt.PerformClick() : End If
                DTP = Strings.Format(Today().AddMonths(2), "yyyy/MM/dd") : SQL_系統使用者新增() : SQL_系統使用者修改() : conn.Close()
                MGB(對話框(9), 1)
                Set_使用者清單() : Set_grid()
                確認新增_bt.Enabled = False : 新增_bt.Enabled = True : 顯示密碼_bt.Enabled = True : 隱藏密碼_bt.Enabled = False
            End If
        End If
    End Sub
    Private Sub 修改1_bt_Click(sender As Object, e As EventArgs) Handles 修改1_bt.Click
        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then : MGB(對話框(17), 1) : Else
            修改_bt.Enabled = True
        End If
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then : MGB(對話框(17), 1) : Else
            MGB(對話框(18), 2) : If 訊息回應 = "YES" Then : 指定預設權限_bt.PerformClick() : End If
            If 密碼_tb.Text = "**********" Then : PA9 = "" : Else : PA9 = ", 密碼 = '" & 密碼_tb.Text & "'" : End If
            SQL_系統使用者修改() : conn.Close() : MGB(對話框(16), 1)
            修改_bt.Enabled = False
        End If : PA = "" : Set_使用者清單() : Set_grid()
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        If 姓名_tb.Text = "" And 帳號_tb.Text = "" And 密碼_tb.Text = "" Then : MGB(對話框(17), 1) : Else
            If 登入人級別 = "00" Then
                MGB(對話框(36), 2)
                If 訊息回應 = "YES" Then
                    CheckBox63.Checked = True : SQL_系統使用者修改() : conn.Close() : MGB(對話框(14), 1)
                Else
                    PA37 = 帳號_tb.Text : SQL_系統使用者刪除() : conn.Close() : MGB(對話框(14), 1)
                End If
                姓名_tb.Text = "" : 帳號_tb.Text = "" : 帳號_tb.Text = "" : 修改_bt.Enabled = False : 確認新增_bt.Enabled = False
            Else
                MGB(對話框(15), 2)
                If 訊息回應 = "YES" Then : CheckBox63.Checked = True : SQL_系統使用者修改() : conn.Close() : MGB(對話框(14), 1) : End If
                修改_bt.Enabled = False : 確認新增_bt.Enabled = False
            End If : PA = "" : Set_使用者清單() : Set_grid()
        End If
    End Sub
    Private Sub 隱藏密碼_bt_Click(sender As Object, e As EventArgs) Handles 隱藏密碼_bt.Click
        顯示密碼_bt.Enabled = True : 隱藏密碼_bt.Enabled = False : 密碼_tb.Text = "**********"
    End Sub
    Private Sub 顯示密碼_bt_Click(sender As Object, e As EventArgs) Handles 顯示密碼_bt.Click
        顯示密碼_bt.Enabled = False : 隱藏密碼_bt.Enabled = True
        PA39 = 姓名_tb.Text : PA38 = 帳號_tb.Text : SQL_系統使用者密碼顯示()
        If dr.Read() Then : 密碼_tb.Text = dr("密碼") : End If : conn.Close()
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = InputBox(對話框(13)) : Set_使用者清單() : PA = ""
    End Sub
    Private Sub 權限名稱取得()
        Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + 權限代號.ToString(), True)(0), CheckBox) : 權限名稱 = 選擇.Text : 權限選取 = 選擇.Checked
    End Sub
    Private Sub 自動生成_bt_Click(sender As Object, e As EventArgs) Handles 自動生成_bt.Click
        Dim random As New Random() : Dim randomNumber As Integer = random.Next(10, 99)
        Dim rando As New Random() : Dim randomNum As Integer = rando.Next(0, 9)
        Dim rand As New Random() : Dim randomNu As Integer = rand.Next(0, 9)
        Dim DFG As String
        For QAZ = 0 To 999
            QQW(0) = randomNumber : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
            QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
            QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
            For RT = 4 To 11 : If RT = 9 Or RT = 5 Or RT = 4 Or RT = 8 Then : FG = RT : 轉換() : End If : Next
            Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
            For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next
            DFG = QQW(9) & QQW(7) & QQW(5) & QQW(11) & QQW(4) & QQW(6) & QQW(8) & QQW(10) & NUM2
            PA41 = DFG : SQL_系統使用者ID卡號()
            If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
        Next
        If 密碼_tb.Text = "" Then : 密碼_tb.Text = Strings.Left(DFG, 9) & randomNu : End If
    End Sub
    Private Sub 轉換()
        If QQW(FG) = "1" Then : QQW(FG) = "A" : ElseIf QQW(FG) = "2" Then : QQW(FG) = "B"
        ElseIf QQW(FG) = "3" Then : QQW(FG) = "C" : ElseIf QQW(FG) = "4" Then : QQW(FG) = "D"
        ElseIf QQW(FG) = "5" Then : QQW(FG) = "E" : ElseIf QQW(FG) = "6" Then : QQW(FG) = "F"
        ElseIf QQW(FG) = "7" Then : QQW(FG) = "G" : ElseIf QQW(FG) = "8" Then : QQW(FG) = "H"
        ElseIf QQW(FG) = "9" Then : QQW(FG) = "I" : ElseIf QQW(FG) = "0" Then : QQW(FG) = "J" : End If
    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 部門1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 部門1_cb.SelectedIndexChanged
        部門_cb.SelectedIndex = 部門1_cb.SelectedIndex
    End Sub
    Private Sub 處別1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 處別1_cb.SelectedIndexChanged
        處別_cb.SelectedIndex = 處別1_cb.SelectedIndex
    End Sub
    Private Sub 課別1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 課別1_cb.SelectedIndexChanged
        課別_cb.SelectedIndex = 課別1_cb.SelectedIndex
    End Sub
    Private Sub 組別1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 組別1_cb.SelectedIndexChanged
        組別_cb.SelectedIndex = 組別1_cb.SelectedIndex
    End Sub
    Private Sub 職稱1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 職稱1_cb.SelectedIndexChanged
        職稱_cb.SelectedIndex = 職稱1_cb.SelectedIndex
        If 確認新增_bt.Enabled = True Or 修改_bt.Enabled = True Then : 指定預設權限_bt.PerformClick() : End If
    End Sub
    Private Sub 組別_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 組別_cb.SelectedIndexChanged
        組別1_cb.SelectedIndex = 組別_cb.SelectedIndex
    End Sub
    Private Sub 工人_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 工人_ch.Click
        If 工人_ch.Checked = True Then : 工人 = True : Else : 工人 = False : End If : Set_使用者清單()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H002" : 語言轉換讀取()
        ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入() : 下拉清單_職稱()
        Set_格式設定() : Set_使用者清單() : Set_grid()
    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 : 姓名_lb.ForeColor = Color.Black
            帳號_lb.ForeColor = Color.Black : 密碼_lb.ForeColor = Color.Black : NAS帳號_lb.ForeColor = Color.Black : NAS密碼_lb.ForeColor = Color.Black
            部門_lb.ForeColor = Color.Black : 處別_lb.ForeColor = Color.Black : 課別_lb.ForeColor = Color.Black : 組別_lb.ForeColor = Color.Black
            職稱_lb.ForeColor = Color.Black : CheckBox1.ForeColor = Color.Black : CheckBox22.ForeColor = Color.Black : CheckBox7.ForeColor = Color.Black
            CheckBox9.ForeColor = Color.Black : CheckBox8.ForeColor = Color.Black : CheckBox6.ForeColor = Color.Black : CheckBox5.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

            NAS帳號_tb.BackColor = Color.White : NAS帳號_tb.ForeColor = Color.Black : NAS密碼_tb.BackColor = Color.White : NAS密碼_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 : 姓名_tb.BackColor = Color.White : 姓名_tb.ForeColor = Color.Black

            查詢_bt.BackColor = Color.White : 隱藏密碼_bt.BackColor = Color.White : 顯示密碼_bt.BackColor = Color.White
            刪除_bt.BackColor = Color.White : 修改_bt.BackColor = Color.White : 修改1_bt.BackColor = Color.White : 確認新增_bt.BackColor = Color.White
            指定預設權限_bt.BackColor = Color.White : 新增_bt.BackColor = Color.White

            清單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.DimGray : 採購權限_tp.BackColor = Color.DimGray
            工程權限_tp.BackColor = Color.DimGray : 倉儲權限_tp.BackColor = Color.DimGray : 財務權限_tp.BackColor = Color.DimGray
            人事權限_tp.BackColor = Color.DimGray : 資料庫權限_tp.BackColor = Color.DimGray
            '----------------黑-------------------------------------------
            小間距1_ch.ForeColor = Color.White : 中間距1_ch.ForeColor = Color.White : 大間距1_ch.ForeColor = Color.White : 姓名_lb.ForeColor = Color.White
            帳號_lb.ForeColor = Color.White : 密碼_lb.ForeColor = Color.White : NAS帳號_lb.ForeColor = Color.White : NAS密碼_lb.ForeColor = Color.White
            部門_lb.ForeColor = Color.White : 處別_lb.ForeColor = Color.White : 課別_lb.ForeColor = Color.White : 組別_lb.ForeColor = Color.White
            職稱_lb.ForeColor = Color.White : CheckBox1.ForeColor = Color.White : CheckBox22.ForeColor = Color.White : CheckBox7.ForeColor = Color.White
            CheckBox9.ForeColor = Color.White : CheckBox8.ForeColor = Color.White : CheckBox6.ForeColor = Color.White : CheckBox5.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

            NAS帳號_tb.BackColor = Color.DimGray : NAS帳號_tb.ForeColor = Color.White : NAS密碼_tb.BackColor = Color.DimGray : NAS密碼_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 : 姓名_tb.BackColor = Color.DimGray : 姓名_tb.ForeColor = Color.White

            查詢_bt.BackColor = Color.DimGray : 隱藏密碼_bt.BackColor = Color.DimGray : 顯示密碼_bt.BackColor = Color.DimGray
            刪除_bt.BackColor = Color.DimGray : 修改_bt.BackColor = Color.DimGray : 修改1_bt.BackColor = Color.DimGray : 確認新增_bt.BackColor = Color.DimGray
            指定預設權限_bt.BackColor = Color.DimGray : 新增_bt.BackColor = Color.DimGray

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