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