HX-PGS-ERP-SYS-LEEHSIEHJUI/05、財務管理系統/特支費申請與沖銷/特支費高層指定.vb

Option Strict Off
Imports System.IO
Public Class 特支費高層指定
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    Dim 對話框(1) As String
    Dim 選取位置 As Integer
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25 : 語言_dgv.AllowUserToAddRows = False
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next
        If File.Exists(Str + "\LANGUAGE_FILE.csv") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line <> Nothing Then
                    line = line.Replace("""", "")
                    If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-210" Or Strings.Left(line, 8) = "H904-103" Or Strings.Left(line, 8) = "H904-104" Or
                       Strings.Left(line, 8) = "H204-109" Or Strings.Left(line, 8) = "H204-123" Or Strings.Left(line, 8) = "H304-100" Or Strings.Left(line, 4) = "H305" Or
                        Strings.Left(line, 8) = "H301-120" Or Strings.Left(line, 4) = 介面 Then
                        If 系統語言 = "繁體中文" Then
                            If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "English" Then
                            If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "Indonesian" Then
                            If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        End If
                    End If
                End If
            End While
            filereader.Close()
        End If
    End Sub
    Private Sub Set_語言查詢()
        RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows
            If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then
                RI = row.Index : Exit For
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言()
        SK = "H001-210" : Set_語言查詢() : Me.Text = 語言_dgv(1, RI).Value.ToString : SK = "G000-108" : Set_語言查詢() : ToolTip1.ToolTipTitle = 語言_dgv(1, RI).Value.ToString
        SK = "H904-103" : Set_語言查詢() : 表頭(1) = 語言_dgv(1, RI).Value.ToString : SK = "H904-104" : Set_語言查詢() : 表頭(2) = 語言_dgv(1, RI).Value.ToString
        SK = "H204-109" : Set_語言查詢() : 表頭(5) = 語言_dgv(1, RI).Value.ToString : SK = "H204-123" : Set_語言查詢() : 表頭(6) = 語言_dgv(1, RI).Value.ToString
        SK = "H304-100" : Set_語言查詢() : 表頭(4) = 語言_dgv(1, RI).Value.ToString : SK = "H305-106" : Set_語言查詢() : 表頭(13) = 語言_dgv(1, RI).Value.ToString
        SK = "H301-120" : Set_語言查詢() : 表頭(0) = 語言_dgv(1, RI).Value.ToString : SK = "H308-100" : Set_語言查詢() : 表頭(3) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-110" : Set_語言查詢() : 表頭(7) = 語言_dgv(1, RI).Value.ToString : SK = "G000-221" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-119" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString
    End Sub
    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
        表頭(9) = "合約號" : 表頭(12) = "金額" : 表頭(10) = "金額"
        SQL_零用金已出納_特支費()
        da.Fill(ds) : 已出納_dgv.DataSource = ds.Tables(0) : conn.Close()
        已出納_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 已出納_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        Dim ds5 As New DataSet : 彙總_dgv.DataSource = Nothing
        彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        彙總_dgv.ColumnHeadersHeight = 25 : 彙總_dgv.AllowUserToAddRows = False
        SQL_合約百分之2彙總()
        da.Fill(ds5) : 彙總_dgv.DataSource = ds5.Tables(0) ': 彙總1_dgv.DataSource = ds5.Tables(0) : conn.Close()
        彙總_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 彙總_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 彙總_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
        彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 彙總_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
        彙總_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 彙總_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
        彙總_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        彙總_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
            For ii As Integer = 0 To 已出納_dgv.Rows.Count - 1
                If 彙總_dgv.Rows(i).Cells(0).Value.ToString = 已出納_dgv.Rows(ii).Cells(0).Value.ToString Then
                    彙總_dgv.Rows(i).Cells(8).Value = 彙總_dgv.Rows(i).Cells(8).Value - 已出納_dgv.Rows(ii).Cells(1).Value
                End If
            Next
        Next
    End Sub
    Private Sub Set_清單1()
        Dim ds As New DataSet : 指定_dgv.DataSource = Nothing : ds.Clear()
        指定_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        指定_dgv.ColumnHeadersHeight = 40 : 指定_dgv.AllowUserToAddRows = False : 指定_dgv.RowTemplate.Height = 30
        SQL_特支費與傭金明細_需指定() : da.Fill(ds) : 指定_dgv.DataSource = ds.Tables(0) : conn.Close()

        指定_dgv.Columns(0).Visible = False : 指定_dgv.Columns(1).Visible = False : 指定_dgv.Columns(2).Width = 70 : 指定_dgv.Columns(3).Width = 120
        指定_dgv.Columns(4).Width = 70 : 指定_dgv.Columns(5).Width = 250 : 指定_dgv.Columns(6).Width = 70 : 指定_dgv.Columns(7).Width = 250
        指定_dgv.Columns(8).Width = 70 : 指定_dgv.Columns(9).Width = 100 : 指定_dgv.Columns(10).Width = 60
        For I As Integer = 0 To 9 : 指定_dgv.Columns(I).ReadOnly = True : Next

        指定_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
        指定_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        指定_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        Dim mycol1 As DataGridViewImageColumn = 指定_dgv.Columns(表頭(7)) : mycol1.ImageLayout = DataGridViewImageCellLayout.Zoom
        For I As Integer = 0 To 指定_dgv.Rows.Count - 1
            指定_dgv.Rows(I).Cells(表頭(7)).Value = My.Resources.SAVER
            指定_dgv.Rows(I).Cells(2).Value = Strings.Left(指定_dgv.Rows(I).Cells(2).Value.ToString, 10)
        Next
    End Sub
    Private Sub 特支費高層指定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        風格()
        H(308) = True : 介面 = "H308" : 語言轉換讀取() : 顯示說明(999, True)
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Panel1.SendToBack() : Panel2.Visible = True : Panel3.Visible = False
        If 登入人級別 = 0 Then : 縮放1_bt.Visible = True : 縮放2_bt.Visible = True : Else : 縮放1_bt.Visible = False : 縮放2_bt.Visible = False : End If

        MyMod.清單字體大小調整()
        指定_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        彙總1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        已出納_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

        彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        彙總1_dgv.ColumnHeadersHeight = 40 : 彙總1_dgv.AllowUserToAddRows = False
        準備扣_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        準備扣_dgv.ColumnHeadersHeight = 40 : 準備扣_dgv.AllowUserToAddRows = False
    End Sub
    Private Sub 特支費高層指定_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_合約清單() : Set_清單1() : WEB說明頁面.BringToFront()
    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 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        H(308) = True : 介面 = "H308" : 語言轉換讀取() : Set_合約清單() : Set_清單1()
    End Sub
    Private Sub 系統說明_bt_Click(sender As Object, e As EventArgs) Handles 系統說明_bt.Click
        介面 = "H308" : WEB說明頁面.Show()
    End Sub
    Private Sub 特支費高層指定_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(308) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 指定_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 指定_dgv.MouseUp
        'If 指定_dgv.SelectedCells.Count = 1 Then : MsgBox(指定_dgv.SelectedCells(0).ColumnIndex & "  " & 指定_dgv.SelectedCells(0).RowIndex) : End If
        If 指定_dgv.SelectedCells.Count > 0 Then
            If 指定_dgv.SelectedCells(0).ColumnIndex <= 9 Then
                If CLng(指定_dgv(6, 指定_dgv.SelectedCells(0).RowIndex).Value.ToString) > 0 Then
                    PA46 = 指定_dgv(6, 指定_dgv.SelectedCells(0).RowIndex).Value.ToString : 彙總1計算0()
                    If 合約編號1_cb.Items.Count > 2999 Then : MGB(對話框(0), 1) : Else
                        Dim 原來的 As String = 指定_dgv(8, 指定_dgv.SelectedCells(0).RowIndex).Value.ToString
                        For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
                        For I As Integer = 0 To 合約編號1_cb.Items.Count - 1 : PPBB(I) = 合約編號1_cb.Items(I).ToString : NN1 = I : Next
                        下拉清單_2.ShowDialog()
                        If PPAA = "" Then
                            指定_dgv(8, 指定_dgv.SelectedCells(0).RowIndex).Value = 原來的
                        Else
                            指定_dgv(8, 指定_dgv.SelectedCells(0).RowIndex).Value = PPAA
                        End If
                    End If
                End If
            Else
                選取位置 = 指定_dgv.SelectedCells(0).RowIndex : 存檔_bt.PerformClick()
            End If
        End If
    End Sub
    Private Sub 指定_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 指定_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            選取位置 = e.RowIndex
        End If
    End Sub
    Private Sub 彙總1計算0()
        準備扣_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
        準備扣_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        準備扣_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        Dim 已經有 As Boolean
        If 準備扣_dgv.Rows.Count > 0 Then : For i As Integer = 0 To 準備扣_dgv.Rows.Count - 1 : 準備扣_dgv.Rows.RemoveAt(0) : Next : End If
        For i As Integer = 0 To 指定_dgv.Rows.Count - 1
            已經有 = False
            If 指定_dgv.Rows(i).Cells(表頭(3)).Value.ToString <> "" Then
                For ii As Integer = 0 To 準備扣_dgv.Rows.Count - 1
                    If 指定_dgv.Rows(i).Cells(表頭(3)).Value.ToString = 準備扣_dgv.Rows(ii).Cells(0).Value.ToString Then
                        準備扣_dgv.Rows(ii).Cells(1).Value = CLng(準備扣_dgv.Rows(ii).Cells(1).Value.ToString) + CLng(指定_dgv.Rows(i).Cells(表頭(5)).Value.ToString)
                        已經有 = True : Exit For
                    End If
                Next
                If 已經有 = False Then
                    準備扣_dgv.Rows.Insert(0)
                    準備扣_dgv.Rows(0).Cells(0).Value = 指定_dgv.Rows(i).Cells(表頭(3)).Value.ToString
                    準備扣_dgv.Rows(0).Cells(1).Value = 指定_dgv.Rows(i).Cells(表頭(5)).Value.ToString
                End If
            End If
        Next

        彙總1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
        彙總1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        If 彙總1_dgv.Rows.Count > 0 Then : For i As Integer = 0 To 彙總1_dgv.Rows.Count - 1 : 彙總1_dgv.Rows.RemoveAt(0) : Next : End If
        For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
            已經有 = False
            For ii As Integer = 0 To 彙總1_dgv.Rows.Count - 1
                If 彙總1_dgv.Rows(ii).Cells(0).Value.ToString = 彙總_dgv.Rows(i).Cells("約號甲方").Value.ToString Then
                    彙總1_dgv.Rows(ii).Cells(1).Value = CLng(彙總1_dgv.Rows(ii).Cells(1).Value.ToString) + CLng(彙總_dgv.Rows(i).Cells(表頭(10)).Value.ToString)
                    已經有 = True
                End If
            Next
            If 已經有 = False Then
                彙總1_dgv.Rows.Insert(0)
                彙總1_dgv.Rows(0).Cells(0).Value = 彙總_dgv.Rows(i).Cells("約號甲方").Value.ToString
                彙總1_dgv.Rows(0).Cells(1).Value = CLng(彙總_dgv.Rows(i).Cells(表頭(10)).Value.ToString)
            End If
        Next
        For i As Integer = 0 To 彙總1_dgv.Rows.Count - 1
            If 準備扣_dgv.Rows.Count > 0 Then
                For ii As Integer = 0 To 準備扣_dgv.Rows.Count - 1
                    If 彙總1_dgv.Rows(i).Cells(0).Value.ToString = 準備扣_dgv.Rows(ii).Cells(0).Value.ToString Then
                        彙總1_dgv.Rows(i).Cells(1).Value = CLng(彙總1_dgv.Rows(i).Cells(1).Value.ToString) - CLng(準備扣_dgv.Rows(ii).Cells(1).Value.ToString)
                    End If
                Next
            End If
        Next
        合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("")
        For i As Integer = 0 To 彙總1_dgv.Rows.Count - 1
            If CLng(PA46) < CLng(彙總1_dgv.Rows(i).Cells(1).Value.ToString) Then
                合約編號1_cb.Items.Add(彙總1_dgv.Rows(i).Cells(0).Value.ToString)
            End If
        Next
    End Sub
    Private Sub 彙總1_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 彙總1_dgv.CellFormatting
        If e.Value IsNot Nothing Then
            If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
                If 深色風格 = False Then : e.CellStyle.ForeColor = Color.Red : Else : e.CellStyle.ForeColor = Color.LightPink : End If
            End If
        End If
    End Sub
    Private Sub 彙總_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 彙總_dgv.CellFormatting
        If e.Value IsNot Nothing Then
            If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
                If 深色風格 = False Then : e.CellStyle.ForeColor = Color.Red : Else : e.CellStyle.ForeColor = Color.LightPink : End If
            End If
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        For I As Integer = 0 To 指定_dgv.Rows.Count - 1
            PA45 = 指定_dgv.Rows(I).Cells(表頭(3)).Value.ToString : PA = 指定_dgv.Rows(I).Cells(0).Value.ToString
            PA44 = 指定_dgv.Rows(I).Cells(1).Value.ToString : SQL_零用金特別指定()
        Next
        PA = 指定_dgv.Rows(選取位置).Cells(0).Value.ToString : PA44 = 指定_dgv.Rows(選取位置).Cells(1).Value.ToString : PA45 = "1"
        SQL_零用金公帳() : Set_合約清單() : Set_清單1() : MGB(對話框(1), 1)
    End Sub
    Private Sub 縮放1_bt_Click(sender As Object, e As EventArgs) Handles 縮放1_bt.Click
        Panel2.Visible = False : Panel3.Visible = True
    End Sub
    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
        Panel2.Visible = True : Panel3.Visible = False
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            '----------------黑-------------------------------------------
            縮放2_bt.BackColor = Color.White : 縮放1_bt.BackColor = Color.White : 系統說明_bt.BackColor = Color.White

            指定_dgv.EnableHeadersVisualStyles = True : 指定_dgv.BackgroundColor = Color.White : 指定_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            指定_dgv.DefaultCellStyle.BackColor = Color.White : 指定_dgv.DefaultCellStyle.ForeColor = Color.Black
            準備扣_dgv.EnableHeadersVisualStyles = True : 準備扣_dgv.BackgroundColor = Color.White : 準備扣_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            準備扣_dgv.DefaultCellStyle.BackColor = Color.White : 準備扣_dgv.DefaultCellStyle.ForeColor = Color.Black
            彙總1_dgv.EnableHeadersVisualStyles = True : 彙總1_dgv.BackgroundColor = Color.White : 彙總1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            彙總1_dgv.DefaultCellStyle.BackColor = Color.White : 彙總1_dgv.DefaultCellStyle.ForeColor = Color.Black
            彙總_dgv.EnableHeadersVisualStyles = True : 彙總_dgv.BackgroundColor = Color.White : 彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            彙總_dgv.DefaultCellStyle.BackColor = Color.White : 彙總_dgv.DefaultCellStyle.ForeColor = Color.Black
            已出納_dgv.EnableHeadersVisualStyles = True : 已出納_dgv.BackgroundColor = Color.White : 已出納_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            已出納_dgv.DefaultCellStyle.BackColor = Color.White : 已出納_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            '----------------黑-------------------------------------------
            縮放2_bt.BackColor = Color.DimGray : 縮放1_bt.BackColor = Color.DimGray : 系統說明_bt.BackColor = Color.DimGray

            指定_dgv.EnableHeadersVisualStyles = False : 指定_dgv.BackgroundColor = Color.DimGray : 指定_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            指定_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 指定_dgv.DefaultCellStyle.BackColor = Color.Black : 指定_dgv.DefaultCellStyle.ForeColor = Color.White
            準備扣_dgv.EnableHeadersVisualStyles = False : 準備扣_dgv.BackgroundColor = Color.DimGray : 準備扣_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            準備扣_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 準備扣_dgv.DefaultCellStyle.BackColor = Color.Black : 準備扣_dgv.DefaultCellStyle.ForeColor = Color.White
            彙總1_dgv.EnableHeadersVisualStyles = False : 彙總1_dgv.BackgroundColor = Color.DimGray : 彙總1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            彙總1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 彙總1_dgv.DefaultCellStyle.BackColor = Color.Black : 彙總1_dgv.DefaultCellStyle.ForeColor = Color.White
            彙總_dgv.EnableHeadersVisualStyles = False : 彙總_dgv.BackgroundColor = Color.DimGray : 彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            彙總_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 彙總_dgv.DefaultCellStyle.BackColor = Color.Black : 彙總_dgv.DefaultCellStyle.ForeColor = Color.White
            已出納_dgv.EnableHeadersVisualStyles = False : 已出納_dgv.BackgroundColor = Color.DimGray : 已出納_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            已出納_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 已出納_dgv.DefaultCellStyle.BackColor = Color.Black : 已出納_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class