HX-PGS-ERP-SYS-LEEHSIEHJUI/01、人事管理系統/日曆.vb

Imports Org.BouncyCastle.Utilities

Public Class 日曆
    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds11, ds12, ds13, ds14, ds15, ds16, ds17, ds18, ds19, ds20, ds21, ds22, ds23, ds24, ds25, ds26, ds27, ds28, ds29, ds30, ds31,
        ds32, ds33, ds34, ds35, ds36, ds37, ds38, ds39, ds40, ds41, ds42, ds43 As New DataSet
    Dim 星期 As String : Dim 天數, 總時數, 列高, 列高1, 欄寬1, 欄寬2, 欄寬3 As Integer
    Dim 首次開啟 As Boolean : Dim 對話框(13) As String

    Private Sub 年份_下拉表單資料載入()
        SQL_年份清單() : 年份_cb.Items.Clear() : While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While : conn.Close()
    End Sub
    Private Sub 讀取日期()
        日期_dgv.DataSource = Nothing : ds.Clear()
        日期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        日期_dgv.ColumnHeadersHeight = 25 : 日期_dgv.AllowUserToAddRows = False
        SQL_排班系統_月份()
        da.Fill(ds) : 日期_dgv.DataSource = ds.Tables(0) : conn.Close()
        For i As Integer = 0 To 日期_dgv.Rows.Count - 1 : 日期_dgv.Rows(i).Cells("休假").Value = "" : Next
    End Sub
    Private Sub 讀取資料(項目 As String, 車輛編號 As String, 日期 As String, 班別 As Integer, dgv As DataGridView)
        Dim ds As New DataSet : dgv.DataSource = Nothing : ds.Clear()
        dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv.ColumnHeadersHeight = 列高1 : dgv.AllowUserToAddRows = False : dgv.RowTemplate.Height = 列高
        If 項目 = "車輛" Then
            SQL_車輛動態_日曆(車輛編號, 日期)
            da.Fill(ds) : dgv.DataSource = ds.Tables(0) : conn.Close()
            dgv.Columns(0).ReadOnly = True : dgv.Columns(1).ReadOnly = True : dgv.Columns(2).ReadOnly = True
            dgv.Columns(0).FillWeight = 欄寬1 : dgv.Columns(1).FillWeight = 欄寬2 : dgv.Columns(2).FillWeight = 欄寬3
        Else
            SQL_人員動態_日曆(日期)
            da.Fill(ds) : dgv.DataSource = ds.Tables(0) : conn.Close()
            dgv.Columns(0).ReadOnly = True : dgv.Columns(1).ReadOnly = True : dgv.Columns(2).ReadOnly = True
            dgv.Columns(0).FillWeight = 欄寬1 : dgv.Columns(1).FillWeight = 欄寬2 : dgv.Columns(2).FillWeight = 欄寬3
        End If

    End Sub
    Private Sub 日曆變動()
        If 日期_dgv.Rows.Count > 0 Then
            總時數 = 0
            For no As Integer = 1 To 42
                Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = True
            Next
            Dim Q As Integer = 0
            星期 = 日期_dgv.Rows(0).Cells("星期").Value.ToString : 天數 = 日期_dgv.Rows.Count
            Dim dgvlist() As DataGridView = {Nothing, DGV1, DGV2, DGV3, DGV4, DGV5, DGV6, DGV7, DGV8, DGV9, DGV10, DGV11, DGV12, DGV13, DGV14, DGV15, DGV16, DGV17,
                DGV18, DGV19, DGV20, DGV21, DGV22, DGV23, DGV24, DGV25, DGV26, DGV27, DGV28, DGV29, DGV30, DGV31, DGV32, DGV33, DGV34, DGV35, DGV36, DGV37, DGV38,
                DGV39, DGV40, DGV41, DGV42}
            If 星期 = "星期日" Then
                For no As Integer = 1 To 42
                    If no > 天數 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    Dim 日期_lb As Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), Label) : 日期_lb.Text = no
                    If IsNumeric(Val(日期_lb.Text)) = True Then
                        If no < 10 Then : PA = "0" & no : Else : PA = no : End If : PA = 年份_cb.Text & 月份_cb.Text & PA
                        讀取資料(PA51, PA50, PA, no, dgvlist(no))
                    End If
                    If no >= 1 And no <= 天數 Then
                        Dim Labels As Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), Label) : Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
                        If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
                        日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
                            總時數 += 8
                        End If : Q += 1
                    End If
                Next
            End If
            If 星期 = "星期一" Then
                For no As Integer = 1 To 42
                    If no = 1 Then
                        Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    If no > 天數 + 1 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    Dim 日期_lb As Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), Label) : 日期_lb.Text = no - 1
                    If IsNumeric(Val(日期_lb.Text)) = True Then
                        If no - 1 < 10 Then : PA = "0" & no - 1 : Else : PA = no - 1 : End If : PA = 年份_cb.Text & 月份_cb.Text & PA
                        讀取資料(PA51, PA50, PA, no, dgvlist(no))
                    End If
                    If no >= 2 And no <= 天數 + 1 Then
                        Dim Labels As Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), Label) : Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
                        If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
                        日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
                            總時數 += 8
                        End If : Q += 1
                    End If
                Next
            End If
            If 星期 = "星期二" Then
                For no As Integer = 1 To 42
                    If no = 1 Or no = 2 Then
                        Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    If no > 天數 + 2 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    Dim 日期_lb As Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), Label) : 日期_lb.Text = no - 2
                    If IsNumeric(Val(日期_lb.Text)) = True Then
                        If no - 2 < 10 Then : PA = "0" & no - 2 : Else : PA = no - 2 : End If : PA = 年份_cb.Text & 月份_cb.Text & PA
                        讀取資料(PA51, PA50, PA, no, dgvlist(no))
                    End If
                    If no >= 3 And no <= 天數 + 2 Then
                        Dim Labels As Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), Label) : Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
                        If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
                        日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
                            總時數 += 8
                        End If : Q += 1
                    End If
                Next
            End If
            If 星期 = "星期三" Then
                For no As Integer = 1 To 42
                    If no = 1 Or no = 2 Or no = 3 Then
                        Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    If no > 天數 + 3 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    Dim 日期_lb As Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), Label) : 日期_lb.Text = no - 3
                    If IsNumeric(Val(日期_lb.Text)) = True Then
                        If no - 3 < 10 Then : PA = "0" & no - 3 : Else : PA = no - 3 : End If : PA = 年份_cb.Text & 月份_cb.Text & PA
                        讀取資料(PA51, PA50, PA, no, dgvlist(no))
                    End If
                    If no >= 4 And no <= 天數 + 3 Then
                        Dim Labels As Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), Label) : Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
                        If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
                        日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
                            總時數 += 8
                        End If : Q += 1
                    End If
                Next
            End If
            If 星期 = "星期四" Then
                For no As Integer = 1 To 42
                    If no = 1 Or no = 2 Or no = 3 Or no = 4 Then
                        Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    If no > 天數 + 4 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    Dim 日期_lb As Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), Label) : 日期_lb.Text = no - 4
                    If IsNumeric(Val(日期_lb.Text)) = True Then
                        If no - 4 < 10 Then : PA = "0" & no - 4 : Else : PA = no - 4 : End If : PA = 年份_cb.Text & 月份_cb.Text & PA
                        讀取資料(PA51, PA50, PA, no, dgvlist(no))
                    End If
                    If no >= 5 And no <= 天數 + 4 Then
                        Dim Labels As Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), Label) : Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
                        If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
                        日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
                            總時數 += 8
                        End If : Q += 1
                    End If
                Next
            End If
            If 星期 = "星期五" Then
                For no As Integer = 1 To 42
                    If no = 1 Or no = 2 Or no = 3 Or no = 4 Or no = 5 Then
                        Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    If no > 天數 + 5 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    Dim 日期_lb As Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), Label) : 日期_lb.Text = no - 5
                    If IsNumeric(Val(日期_lb.Text)) = True Then
                        If no - 5 < 10 Then : PA = "0" & no - 5 : Else : PA = no - 5 : End If : PA = 年份_cb.Text & 月份_cb.Text & PA
                        讀取資料(PA51, PA50, PA, no, dgvlist(no))
                    End If
                    If no >= 6 And no <= 天數 + 5 Then
                        Dim Labels As Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), Label) : Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
                        If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
                        日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
                            總時數 += 8
                        End If : Q += 1
                    End If
                Next
            End If
            If 星期 = "星期六" Then
                For no As Integer = 1 To 42
                    If no = 1 Or no = 2 Or no = 3 Or no = 4 Or no = 5 Or no = 6 Then
                        Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    If no > 天數 + 6 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
                    Dim 日期_lb As Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), Label) : 日期_lb.Text = no - 6
                    If IsNumeric(Val(日期_lb.Text)) = True Then
                        If no - 6 < 10 Then : PA = "0" & no - 6 : Else : PA = no - 6 : End If : PA = 年份_cb.Text & 月份_cb.Text & PA
                        讀取資料(PA51, PA50, PA, no, dgvlist(no))
                    End If
                    If no >= 7 And no <= 天數 + 6 Then
                        Dim Labels As Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), Label) : Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
                        If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
                        日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
                            總時數 += 8
                        End If : Q += 1
                    End If
                Next
            End If
        End If
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-277-" & 語言)
        星期日_lb.Text = 系統語言字典("H609-106-" & 語言) : 星期一_lb.Text = 系統語言字典("H609-100-" & 語言) : 星期二_lb.Text = 系統語言字典("H609-101-" & 語言)
        星期三_lb.Text = 系統語言字典("H609-102-" & 語言) : 星期四_lb.Text = 系統語言字典("H609-103-" & 語言) : 星期五_lb.Text = 系統語言字典("H609-104-" & 語言)
        星期六_lb.Text = 系統語言字典("H609-105-" & 語言) : 表頭(1) = 系統語言字典("H603-100-" & 語言)
        對話框(9) = 系統語言字典("H609-133-" & 語言) : 對話框(10) = 系統語言字典("H609-134-" & 語言) : 對話框(11) = 系統語言字典("H609-135-" & 語言)
        對話框(12) = 系統語言字典("H609-136-" & 語言) : 對話框(13) = 系統語言字典("H609-137-" & 語言) : 表頭(0) = 系統語言字典("H609-138-" & 語言)
    End Sub
    Private Sub 日曆_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        HX_PGS_ERP_SYS.WindowState = 2 : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(615) = True : 介面 = "H615" : 語言轉換讀取() : 列高 = 33 : 列高1 = 22 : 欄寬1 = 120 : 欄寬2 = 80 : 欄寬3 = 120
        年份_下拉表單資料載入() : 日期_dgv.Visible = False

        首次開啟 = False
        年份_cb.Text = Year(Today) : 月份_cb.SelectedIndex = Month(Today) - 1
        PA1 = 年份_cb.Text : PA2 = 月份_cb.Text
        首次開啟 = True
        讀取日期() : 日曆變動()
        For i As Integer = 1 To 42
            Dim dgv As DataGridView = CType(Me.Controls.Find("DGV" & i.ToString(), True)(0), DataGridView)
            dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 7.6)
        Next
    End Sub
    Private Sub 排班資料_Closing(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 月份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份_cb.SelectedIndexChanged
        If 首次開啟 = True Then
            PA1 = 年份_cb.Text : PA2 = 月份_cb.Text : 讀取日期() : 日曆變動()
        End If
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            '----------------黑-------------------------------------------
            星期一_lb.ForeColor = Color.Black : 星期二_lb.ForeColor = Color.Black : 星期三_lb.ForeColor = Color.Black : 星期四_lb.ForeColor = Color.Black
            星期五_lb.ForeColor = Color.Black : 年份_lb.ForeColor = Color.Black : 月份_lb.ForeColor = Color.Black : Label43.ForeColor = Color.Black : Label44.ForeColor = Color.Black
            日期_lb2.ForeColor = Color.Black : 日期_lb3.ForeColor = Color.Black : 日期_lb4.ForeColor = Color.Black : 日期_lb5.ForeColor = Color.Black : 日期_lb6.ForeColor = Color.Black
            日期_lb9.ForeColor = Color.Black : 日期_lb10.ForeColor = Color.Black : 日期_lb11.ForeColor = Color.Black : 日期_lb12.ForeColor = Color.Black : 日期_lb13.ForeColor = Color.Black
            日期_lb16.ForeColor = Color.Black : 日期_lb17.ForeColor = Color.Black : 日期_lb18.ForeColor = Color.Black : 日期_lb19.ForeColor = Color.Black : 日期_lb20.ForeColor = Color.Black
            日期_lb23.ForeColor = Color.Black : 日期_lb24.ForeColor = Color.Black : 日期_lb25.ForeColor = Color.Black : 日期_lb26.ForeColor = Color.Black : 日期_lb27.ForeColor = Color.Black
            日期_lb30.ForeColor = Color.Black : 日期_lb31.ForeColor = Color.Black : 日期_lb32.ForeColor = Color.Black : 日期_lb33.ForeColor = Color.Black : 日期_lb34.ForeColor = Color.Black
            日期_lb37.ForeColor = Color.Black : 日期_lb38.ForeColor = Color.Black : 日期_lb39.ForeColor = Color.Black : 日期_lb40.ForeColor = Color.Black : 日期_lb41.ForeColor = Color.Black
            '----------------紅-------------------------------------------
            星期日_lb.ForeColor = Color.Red : 日期_lb1.ForeColor = Color.Red : 日期_lb8.ForeColor = Color.Red : 日期_lb15.ForeColor = Color.Red
            日期_lb22.ForeColor = Color.Red : 日期_lb29.ForeColor = Color.Red : 日期_lb36.ForeColor = Color.Red
            '----------------綠-------------------------------------------
            星期六_lb.ForeColor = Color.Green : 日期_lb7.ForeColor = Color.Green : 日期_lb14.ForeColor = Color.Green : 日期_lb21.ForeColor = Color.Green
            日期_lb28.ForeColor = Color.Green : 日期_lb35.ForeColor = Color.Green : 日期_lb42.ForeColor = Color.Green

            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 年份_cb.BackColor = Color.White : 年份_cb.ForeColor = Color.Black
            月份_cb.BackColor = Color.White : 月份_cb.ForeColor = Color.Black

            DGV2.EnableHeadersVisualStyles = True : DGV2.BackgroundColor = Color.White : DGV2.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV2.DefaultCellStyle.BackColor = Color.White : DGV2.DefaultCellStyle.ForeColor = Color.Black
            DGV3.EnableHeadersVisualStyles = True : DGV3.BackgroundColor = Color.White : DGV3.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV3.DefaultCellStyle.BackColor = Color.White : DGV3.DefaultCellStyle.ForeColor = Color.Black
            DGV4.EnableHeadersVisualStyles = True : DGV4.BackgroundColor = Color.White : DGV4.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV4.DefaultCellStyle.BackColor = Color.White : DGV4.DefaultCellStyle.ForeColor = Color.Black
            DGV5.EnableHeadersVisualStyles = True : DGV5.BackgroundColor = Color.White : DGV5.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV5.DefaultCellStyle.BackColor = Color.White : DGV5.DefaultCellStyle.ForeColor = Color.Black
            DGV6.EnableHeadersVisualStyles = True : DGV6.BackgroundColor = Color.White : DGV6.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV6.DefaultCellStyle.BackColor = Color.White : DGV6.DefaultCellStyle.ForeColor = Color.Black
            DGV9.EnableHeadersVisualStyles = True : DGV9.BackgroundColor = Color.White : DGV9.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV9.DefaultCellStyle.BackColor = Color.White : DGV9.DefaultCellStyle.ForeColor = Color.Black
            DGV10.EnableHeadersVisualStyles = True : DGV10.BackgroundColor = Color.White : DGV10.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV10.DefaultCellStyle.BackColor = Color.White : DGV10.DefaultCellStyle.ForeColor = Color.Black
            DGV11.EnableHeadersVisualStyles = True : DGV11.BackgroundColor = Color.White : DGV11.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV11.DefaultCellStyle.BackColor = Color.White : DGV11.DefaultCellStyle.ForeColor = Color.Black
            DGV12.EnableHeadersVisualStyles = True : DGV12.BackgroundColor = Color.White : DGV12.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV12.DefaultCellStyle.BackColor = Color.White : DGV12.DefaultCellStyle.ForeColor = Color.Black
            DGV13.EnableHeadersVisualStyles = True : DGV13.BackgroundColor = Color.White : DGV13.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV13.DefaultCellStyle.BackColor = Color.White : DGV13.DefaultCellStyle.ForeColor = Color.Black
            DGV16.EnableHeadersVisualStyles = True : DGV16.BackgroundColor = Color.White : DGV16.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV16.DefaultCellStyle.BackColor = Color.White : DGV16.DefaultCellStyle.ForeColor = Color.Black
            DGV17.EnableHeadersVisualStyles = True : DGV17.BackgroundColor = Color.White : DGV17.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV17.DefaultCellStyle.BackColor = Color.White : DGV17.DefaultCellStyle.ForeColor = Color.Black
            DGV18.EnableHeadersVisualStyles = True : DGV18.BackgroundColor = Color.White : DGV18.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV18.DefaultCellStyle.BackColor = Color.White : DGV18.DefaultCellStyle.ForeColor = Color.Black
            DGV19.EnableHeadersVisualStyles = True : DGV19.BackgroundColor = Color.White : DGV19.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV19.DefaultCellStyle.BackColor = Color.White : DGV19.DefaultCellStyle.ForeColor = Color.Black
            DGV20.EnableHeadersVisualStyles = True : DGV20.BackgroundColor = Color.White : DGV20.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV20.DefaultCellStyle.BackColor = Color.White : DGV20.DefaultCellStyle.ForeColor = Color.Black
            DGV23.EnableHeadersVisualStyles = True : DGV23.BackgroundColor = Color.White : DGV23.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV23.DefaultCellStyle.BackColor = Color.White : DGV23.DefaultCellStyle.ForeColor = Color.Black
            DGV24.EnableHeadersVisualStyles = True : DGV24.BackgroundColor = Color.White : DGV24.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV24.DefaultCellStyle.BackColor = Color.White : DGV24.DefaultCellStyle.ForeColor = Color.Black
            DGV25.EnableHeadersVisualStyles = True : DGV25.BackgroundColor = Color.White : DGV25.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV25.DefaultCellStyle.BackColor = Color.White : DGV25.DefaultCellStyle.ForeColor = Color.Black
            DGV26.EnableHeadersVisualStyles = True : DGV26.BackgroundColor = Color.White : DGV26.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV26.DefaultCellStyle.BackColor = Color.White : DGV26.DefaultCellStyle.ForeColor = Color.Black
            DGV27.EnableHeadersVisualStyles = True : DGV27.BackgroundColor = Color.White : DGV27.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV27.DefaultCellStyle.BackColor = Color.White : DGV27.DefaultCellStyle.ForeColor = Color.Black
            DGV30.EnableHeadersVisualStyles = True : DGV30.BackgroundColor = Color.White : DGV30.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV30.DefaultCellStyle.BackColor = Color.White : DGV30.DefaultCellStyle.ForeColor = Color.Black
            DGV31.EnableHeadersVisualStyles = True : DGV31.BackgroundColor = Color.White : DGV31.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV31.DefaultCellStyle.BackColor = Color.White : DGV31.DefaultCellStyle.ForeColor = Color.Black
            DGV32.EnableHeadersVisualStyles = True : DGV32.BackgroundColor = Color.White : DGV32.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV32.DefaultCellStyle.BackColor = Color.White : DGV32.DefaultCellStyle.ForeColor = Color.Black
            DGV33.EnableHeadersVisualStyles = True : DGV33.BackgroundColor = Color.White : DGV33.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV33.DefaultCellStyle.BackColor = Color.White : DGV33.DefaultCellStyle.ForeColor = Color.Black
            DGV34.EnableHeadersVisualStyles = True : DGV34.BackgroundColor = Color.White : DGV34.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV34.DefaultCellStyle.BackColor = Color.White : DGV34.DefaultCellStyle.ForeColor = Color.Black
            DGV37.EnableHeadersVisualStyles = True : DGV37.BackgroundColor = Color.White : DGV37.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV37.DefaultCellStyle.BackColor = Color.White : DGV37.DefaultCellStyle.ForeColor = Color.Black
            DGV38.EnableHeadersVisualStyles = True : DGV38.BackgroundColor = Color.White : DGV38.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV38.DefaultCellStyle.BackColor = Color.White : DGV38.DefaultCellStyle.ForeColor = Color.Black
            DGV39.EnableHeadersVisualStyles = True : DGV39.BackgroundColor = Color.White : DGV39.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV39.DefaultCellStyle.BackColor = Color.White : DGV39.DefaultCellStyle.ForeColor = Color.Black
            DGV40.EnableHeadersVisualStyles = True : DGV40.BackgroundColor = Color.White : DGV40.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV40.DefaultCellStyle.BackColor = Color.White : DGV40.DefaultCellStyle.ForeColor = Color.Black
            DGV41.EnableHeadersVisualStyles = True : DGV41.BackgroundColor = Color.White : DGV41.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            DGV41.DefaultCellStyle.BackColor = Color.White : DGV41.DefaultCellStyle.ForeColor = Color.Black

            DGV1.EnableHeadersVisualStyles = True : DGV1.BackgroundColor = Color.White : DGV1.ColumnHeadersDefaultCellStyle.ForeColor = Color.Red
            DGV1.DefaultCellStyle.BackColor = Color.White : DGV1.DefaultCellStyle.ForeColor = Color.Red
            DGV8.EnableHeadersVisualStyles = True : DGV8.BackgroundColor = Color.White : DGV8.ColumnHeadersDefaultCellStyle.ForeColor = Color.Red
            DGV8.DefaultCellStyle.BackColor = Color.White : DGV8.DefaultCellStyle.ForeColor = Color.Red
            DGV15.EnableHeadersVisualStyles = True : DGV15.BackgroundColor = Color.White : DGV15.ColumnHeadersDefaultCellStyle.ForeColor = Color.Red
            DGV15.DefaultCellStyle.BackColor = Color.White : DGV15.DefaultCellStyle.ForeColor = Color.Red
            DGV22.EnableHeadersVisualStyles = True : DGV22.BackgroundColor = Color.White : DGV22.ColumnHeadersDefaultCellStyle.ForeColor = Color.Red
            DGV22.DefaultCellStyle.BackColor = Color.White : DGV22.DefaultCellStyle.ForeColor = Color.Red
            DGV29.EnableHeadersVisualStyles = True : DGV29.BackgroundColor = Color.White : DGV29.ColumnHeadersDefaultCellStyle.ForeColor = Color.Red
            DGV29.DefaultCellStyle.BackColor = Color.White : DGV29.DefaultCellStyle.ForeColor = Color.Red
            DGV36.EnableHeadersVisualStyles = True : DGV36.BackgroundColor = Color.White : DGV36.ColumnHeadersDefaultCellStyle.ForeColor = Color.Red
            DGV36.DefaultCellStyle.BackColor = Color.White : DGV36.DefaultCellStyle.ForeColor = Color.Red

            DGV7.EnableHeadersVisualStyles = True : DGV7.BackgroundColor = Color.White : DGV7.ColumnHeadersDefaultCellStyle.ForeColor = Color.Green
            DGV7.DefaultCellStyle.BackColor = Color.White : DGV7.DefaultCellStyle.ForeColor = Color.Green
            DGV14.EnableHeadersVisualStyles = True : DGV14.BackgroundColor = Color.White : DGV14.ColumnHeadersDefaultCellStyle.ForeColor = Color.Green
            DGV14.DefaultCellStyle.BackColor = Color.White : DGV14.DefaultCellStyle.ForeColor = Color.Green
            DGV21.EnableHeadersVisualStyles = True : DGV21.BackgroundColor = Color.White : DGV21.ColumnHeadersDefaultCellStyle.ForeColor = Color.Green
            DGV21.DefaultCellStyle.BackColor = Color.White : DGV21.DefaultCellStyle.ForeColor = Color.Green
            DGV28.EnableHeadersVisualStyles = True : DGV28.BackgroundColor = Color.White : DGV28.ColumnHeadersDefaultCellStyle.ForeColor = Color.Green
            DGV28.DefaultCellStyle.BackColor = Color.White : DGV28.DefaultCellStyle.ForeColor = Color.Green
            DGV35.EnableHeadersVisualStyles = True : DGV35.BackgroundColor = Color.White : DGV35.ColumnHeadersDefaultCellStyle.ForeColor = Color.Green
            DGV35.DefaultCellStyle.BackColor = Color.White : DGV35.DefaultCellStyle.ForeColor = Color.Green
            DGV42.EnableHeadersVisualStyles = True : DGV42.BackgroundColor = Color.White : DGV42.ColumnHeadersDefaultCellStyle.ForeColor = Color.Green
            DGV42.DefaultCellStyle.BackColor = Color.White : DGV42.DefaultCellStyle.ForeColor = Color.Green
        Else
            Me.BackColor = Color.Black
            '----------------黑-------------------------------------------
            星期一_lb.ForeColor = Color.White : 星期二_lb.ForeColor = Color.White : 星期三_lb.ForeColor = Color.White : 星期四_lb.ForeColor = Color.White
            星期五_lb.ForeColor = Color.White : 年份_lb.ForeColor = Color.White : 月份_lb.ForeColor = Color.White : Label43.ForeColor = Color.White : Label44.ForeColor = Color.White
            日期_lb2.ForeColor = Color.White : 日期_lb3.ForeColor = Color.White : 日期_lb4.ForeColor = Color.White : 日期_lb5.ForeColor = Color.White : 日期_lb6.ForeColor = Color.White
            日期_lb9.ForeColor = Color.White : 日期_lb10.ForeColor = Color.White : 日期_lb11.ForeColor = Color.White : 日期_lb12.ForeColor = Color.White : 日期_lb13.ForeColor = Color.White
            日期_lb16.ForeColor = Color.White : 日期_lb17.ForeColor = Color.White : 日期_lb18.ForeColor = Color.White : 日期_lb19.ForeColor = Color.White : 日期_lb20.ForeColor = Color.White
            日期_lb23.ForeColor = Color.White : 日期_lb24.ForeColor = Color.White : 日期_lb25.ForeColor = Color.White : 日期_lb26.ForeColor = Color.White : 日期_lb27.ForeColor = Color.White
            日期_lb30.ForeColor = Color.White : 日期_lb31.ForeColor = Color.White : 日期_lb32.ForeColor = Color.White : 日期_lb33.ForeColor = Color.White : 日期_lb34.ForeColor = Color.White
            日期_lb37.ForeColor = Color.White : 日期_lb38.ForeColor = Color.White : 日期_lb39.ForeColor = Color.White : 日期_lb40.ForeColor = Color.White : 日期_lb41.ForeColor = Color.White
            '----------------紅-------------------------------------------
            星期日_lb.ForeColor = Color.LightPink : 日期_lb1.ForeColor = Color.LightPink : 日期_lb8.ForeColor = Color.LightPink : 日期_lb15.ForeColor = Color.LightPink
            日期_lb22.ForeColor = Color.LightPink : 日期_lb29.ForeColor = Color.LightPink : 日期_lb36.ForeColor = Color.LightPink
            '----------------綠-------------------------------------------
            星期六_lb.ForeColor = Color.LawnGreen : 日期_lb7.ForeColor = Color.LawnGreen : 日期_lb14.ForeColor = Color.LawnGreen : 日期_lb21.ForeColor = Color.LawnGreen
            日期_lb28.ForeColor = Color.LawnGreen : 日期_lb35.ForeColor = Color.LawnGreen : 日期_lb42.ForeColor = Color.LawnGreen

            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 年份_cb.BackColor = Color.DimGray : 年份_cb.ForeColor = Color.White
            月份_cb.BackColor = Color.DimGray : 月份_cb.ForeColor = Color.White

            DGV2.EnableHeadersVisualStyles = False : DGV2.BackgroundColor = Color.DimGray : DGV2.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV2.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV2.DefaultCellStyle.BackColor = Color.Black : DGV2.DefaultCellStyle.ForeColor = Color.White
            DGV3.EnableHeadersVisualStyles = False : DGV3.BackgroundColor = Color.DimGray : DGV3.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV3.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV3.DefaultCellStyle.BackColor = Color.Black : DGV3.DefaultCellStyle.ForeColor = Color.White
            DGV4.EnableHeadersVisualStyles = False : DGV4.BackgroundColor = Color.DimGray : DGV4.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV4.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV4.DefaultCellStyle.BackColor = Color.Black : DGV4.DefaultCellStyle.ForeColor = Color.White
            DGV5.EnableHeadersVisualStyles = False : DGV5.BackgroundColor = Color.DimGray : DGV5.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV5.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV5.DefaultCellStyle.BackColor = Color.Black : DGV5.DefaultCellStyle.ForeColor = Color.White
            DGV6.EnableHeadersVisualStyles = False : DGV6.BackgroundColor = Color.DimGray : DGV6.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV6.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV6.DefaultCellStyle.BackColor = Color.Black : DGV6.DefaultCellStyle.ForeColor = Color.White
            DGV9.EnableHeadersVisualStyles = False : DGV9.BackgroundColor = Color.DimGray : DGV9.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV9.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV9.DefaultCellStyle.BackColor = Color.Black : DGV9.DefaultCellStyle.ForeColor = Color.White
            DGV10.EnableHeadersVisualStyles = False : DGV10.BackgroundColor = Color.DimGray : DGV10.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV10.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV10.DefaultCellStyle.BackColor = Color.Black : DGV10.DefaultCellStyle.ForeColor = Color.White
            DGV11.EnableHeadersVisualStyles = False : DGV11.BackgroundColor = Color.DimGray : DGV11.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV11.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV11.DefaultCellStyle.BackColor = Color.Black : DGV11.DefaultCellStyle.ForeColor = Color.White
            DGV12.EnableHeadersVisualStyles = False : DGV12.BackgroundColor = Color.DimGray : DGV12.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV12.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV12.DefaultCellStyle.BackColor = Color.Black : DGV12.DefaultCellStyle.ForeColor = Color.White
            DGV13.EnableHeadersVisualStyles = False : DGV13.BackgroundColor = Color.DimGray : DGV13.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV13.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV13.DefaultCellStyle.BackColor = Color.Black : DGV13.DefaultCellStyle.ForeColor = Color.White
            DGV16.EnableHeadersVisualStyles = False : DGV16.BackgroundColor = Color.DimGray : DGV16.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV16.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV16.DefaultCellStyle.BackColor = Color.Black : DGV16.DefaultCellStyle.ForeColor = Color.White
            DGV17.EnableHeadersVisualStyles = False : DGV17.BackgroundColor = Color.DimGray : DGV17.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV17.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV17.DefaultCellStyle.BackColor = Color.Black : DGV17.DefaultCellStyle.ForeColor = Color.White
            DGV18.EnableHeadersVisualStyles = False : DGV18.BackgroundColor = Color.DimGray : DGV18.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV18.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV18.DefaultCellStyle.BackColor = Color.Black : DGV18.DefaultCellStyle.ForeColor = Color.White
            DGV19.EnableHeadersVisualStyles = False : DGV19.BackgroundColor = Color.DimGray : DGV19.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV19.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV19.DefaultCellStyle.BackColor = Color.Black : DGV19.DefaultCellStyle.ForeColor = Color.White
            DGV20.EnableHeadersVisualStyles = False : DGV20.BackgroundColor = Color.DimGray : DGV20.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV20.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV20.DefaultCellStyle.BackColor = Color.Black : DGV20.DefaultCellStyle.ForeColor = Color.White
            DGV23.EnableHeadersVisualStyles = False : DGV23.BackgroundColor = Color.DimGray : DGV23.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV23.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV23.DefaultCellStyle.BackColor = Color.Black : DGV23.DefaultCellStyle.ForeColor = Color.White
            DGV24.EnableHeadersVisualStyles = False : DGV24.BackgroundColor = Color.DimGray : DGV24.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV24.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV24.DefaultCellStyle.BackColor = Color.Black : DGV24.DefaultCellStyle.ForeColor = Color.White
            DGV25.EnableHeadersVisualStyles = False : DGV25.BackgroundColor = Color.DimGray : DGV25.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV25.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV25.DefaultCellStyle.BackColor = Color.Black : DGV25.DefaultCellStyle.ForeColor = Color.White
            DGV26.EnableHeadersVisualStyles = False : DGV26.BackgroundColor = Color.DimGray : DGV26.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV26.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV26.DefaultCellStyle.BackColor = Color.Black : DGV26.DefaultCellStyle.ForeColor = Color.White
            DGV27.EnableHeadersVisualStyles = False : DGV27.BackgroundColor = Color.DimGray : DGV27.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV27.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV27.DefaultCellStyle.BackColor = Color.Black : DGV27.DefaultCellStyle.ForeColor = Color.White
            DGV30.EnableHeadersVisualStyles = False : DGV30.BackgroundColor = Color.DimGray : DGV30.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV30.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV30.DefaultCellStyle.BackColor = Color.Black : DGV30.DefaultCellStyle.ForeColor = Color.White
            DGV31.EnableHeadersVisualStyles = False : DGV31.BackgroundColor = Color.DimGray : DGV31.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV31.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV31.DefaultCellStyle.BackColor = Color.Black : DGV31.DefaultCellStyle.ForeColor = Color.White
            DGV32.EnableHeadersVisualStyles = False : DGV32.BackgroundColor = Color.DimGray : DGV32.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV32.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV32.DefaultCellStyle.BackColor = Color.Black : DGV32.DefaultCellStyle.ForeColor = Color.White
            DGV33.EnableHeadersVisualStyles = False : DGV33.BackgroundColor = Color.DimGray : DGV33.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV33.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV33.DefaultCellStyle.BackColor = Color.Black : DGV33.DefaultCellStyle.ForeColor = Color.White
            DGV34.EnableHeadersVisualStyles = False : DGV34.BackgroundColor = Color.DimGray : DGV34.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV34.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV34.DefaultCellStyle.BackColor = Color.Black : DGV34.DefaultCellStyle.ForeColor = Color.White
            DGV37.EnableHeadersVisualStyles = False : DGV37.BackgroundColor = Color.DimGray : DGV37.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV37.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV37.DefaultCellStyle.BackColor = Color.Black : DGV37.DefaultCellStyle.ForeColor = Color.White
            DGV38.EnableHeadersVisualStyles = False : DGV38.BackgroundColor = Color.DimGray : DGV38.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV38.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV38.DefaultCellStyle.BackColor = Color.Black : DGV38.DefaultCellStyle.ForeColor = Color.White
            DGV39.EnableHeadersVisualStyles = False : DGV39.BackgroundColor = Color.DimGray : DGV39.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV39.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV39.DefaultCellStyle.BackColor = Color.Black : DGV39.DefaultCellStyle.ForeColor = Color.White
            DGV40.EnableHeadersVisualStyles = False : DGV40.BackgroundColor = Color.DimGray : DGV40.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV40.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV40.DefaultCellStyle.BackColor = Color.Black : DGV40.DefaultCellStyle.ForeColor = Color.White
            DGV41.EnableHeadersVisualStyles = False : DGV41.BackgroundColor = Color.DimGray : DGV41.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            DGV41.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV41.DefaultCellStyle.BackColor = Color.Black : DGV41.DefaultCellStyle.ForeColor = Color.White

            DGV1.EnableHeadersVisualStyles = False : DGV1.BackgroundColor = Color.DimGray : DGV1.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightPink
            DGV1.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV1.DefaultCellStyle.BackColor = Color.Black : DGV1.DefaultCellStyle.ForeColor = Color.LightPink
            DGV8.EnableHeadersVisualStyles = False : DGV8.BackgroundColor = Color.DimGray : DGV8.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightPink
            DGV8.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV8.DefaultCellStyle.BackColor = Color.Black : DGV8.DefaultCellStyle.ForeColor = Color.LightPink
            DGV15.EnableHeadersVisualStyles = False : DGV15.BackgroundColor = Color.DimGray : DGV15.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightPink
            DGV15.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV15.DefaultCellStyle.BackColor = Color.Black : DGV15.DefaultCellStyle.ForeColor = Color.LightPink
            DGV22.EnableHeadersVisualStyles = False : DGV22.BackgroundColor = Color.DimGray : DGV22.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightPink
            DGV22.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV22.DefaultCellStyle.BackColor = Color.Black : DGV22.DefaultCellStyle.ForeColor = Color.LightPink
            DGV29.EnableHeadersVisualStyles = False : DGV29.BackgroundColor = Color.DimGray : DGV29.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightPink
            DGV29.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV29.DefaultCellStyle.BackColor = Color.Black : DGV29.DefaultCellStyle.ForeColor = Color.LightPink
            DGV36.EnableHeadersVisualStyles = False : DGV36.BackgroundColor = Color.DimGray : DGV36.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightPink
            DGV36.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV36.DefaultCellStyle.BackColor = Color.Black : DGV36.DefaultCellStyle.ForeColor = Color.LightPink

            DGV7.EnableHeadersVisualStyles = False : DGV7.BackgroundColor = Color.DimGray : DGV7.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightGreen
            DGV7.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV7.DefaultCellStyle.BackColor = Color.Black : DGV7.DefaultCellStyle.ForeColor = Color.LightGreen
            DGV14.EnableHeadersVisualStyles = False : DGV14.BackgroundColor = Color.DimGray : DGV14.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightGreen
            DGV14.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV14.DefaultCellStyle.BackColor = Color.Black : DGV14.DefaultCellStyle.ForeColor = Color.LightGreen
            DGV21.EnableHeadersVisualStyles = False : DGV21.BackgroundColor = Color.DimGray : DGV21.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightGreen
            DGV21.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV21.DefaultCellStyle.BackColor = Color.Black : DGV21.DefaultCellStyle.ForeColor = Color.LightGreen
            DGV28.EnableHeadersVisualStyles = False : DGV28.BackgroundColor = Color.DimGray : DGV28.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightGreen
            DGV28.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV28.DefaultCellStyle.BackColor = Color.Black : DGV28.DefaultCellStyle.ForeColor = Color.LightGreen
            DGV35.EnableHeadersVisualStyles = False : DGV35.BackgroundColor = Color.DimGray : DGV35.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightGreen
            DGV35.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV35.DefaultCellStyle.BackColor = Color.Black : DGV35.DefaultCellStyle.ForeColor = Color.LightGreen
            DGV42.EnableHeadersVisualStyles = False : DGV42.BackgroundColor = Color.DimGray : DGV42.ColumnHeadersDefaultCellStyle.ForeColor = Color.LightGreen
            DGV42.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : DGV42.DefaultCellStyle.BackColor = Color.Black : DGV42.DefaultCellStyle.ForeColor = Color.LightGreen
        End If
    End Sub
End Class