GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/01-人事系統管理_新/排班明細_參考.vb

Option Strict Off
Public Class 排班明細_參考
    ReadOnly ds, ds1 As New DataSet
    Private X1 As Double
    Private XX As Double
    Private XXX As Double
    Private ReadOnly AA As Double
    Dim Q As Integer
    Private Sub 讀取人員資料表()
        人員_dgv.DataSource = Nothing : ds.Clear()
        人員_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員_dgv.ColumnHeadersHeight = 25
        人員_dgv.AllowUserToAddRows = False
        If 全_ch.Checked = False Then
            SQL_排班系統_班別_人員()
        Else
            SQL_排班系統_班別_人員_全()
        End If
        da.Fill(ds) : 人員_dgv.DataSource = ds.Tables(0) : conn.Close()
        人員_dgv.Columns(0).FillWeight = 70 : 人員_dgv.Columns(1).Visible = False : 人員_dgv.Columns(2).FillWeight = 100
        For i As Integer = 0 To 人員_dgv.Rows.Count - 1
            人員_dgv.Rows(i).Cells("No.").Value = i + 1
        Next
    End Sub
    Private Sub 讀取排班資料表()
        排班明細_dgv.DataSource = Nothing : ds1.Clear()
        排班明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        排班明細_dgv.ColumnHeadersHeight = 25
        排班明細_dgv.AllowUserToAddRows = False
        SQL_排班系統_班別_排班()
        da.Fill(ds1) : 排班明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub 班別_下拉表單資料載入()
        SQL_排班系統_班別_下拉()
        班別_cb1.Items.Clear() : 班別_cb2.Items.Clear() : 班別_cb3.Items.Clear() : 班別_cb4.Items.Clear() : 班別_cb5.Items.Clear() : 班別_cb6.Items.Clear()
        班別_cb7.Items.Clear() : 班別_cb7.Items.Clear() : 班別_cb8.Items.Clear() : 班別_cb9.Items.Clear() : 班別_cb10.Items.Clear() : 班別_cb11.Items.Clear()
        班別_cb12.Items.Clear() : 班別_cb13.Items.Clear() : 班別_cb14.Items.Clear() : 班別_cb15.Items.Clear() : 班別_cb16.Items.Clear() : 班別_cb17.Items.Clear()
        班別_cb18.Items.Clear() : 班別_cb19.Items.Clear() : 班別_cb20.Items.Clear()
        While (dr.Read())
            班別_cb1.Items.Add(dr("時段")) : 班別_cb2.Items.Add(dr("時段")) : 班別_cb3.Items.Add(dr("時段")) : 班別_cb4.Items.Add(dr("時段")) : 班別_cb5.Items.Add(dr("時段"))
            班別_cb6.Items.Add(dr("時段")) : 班別_cb7.Items.Add(dr("時段")) : 班別_cb8.Items.Add(dr("時段")) : 班別_cb9.Items.Add(dr("時段")) : 班別_cb10.Items.Add(dr("時段"))
            班別_cb11.Items.Add(dr("時段")) : 班別_cb12.Items.Add(dr("時段")) : 班別_cb13.Items.Add(dr("時段")) : 班別_cb14.Items.Add(dr("時段")) : 班別_cb15.Items.Add(dr("時段"))
            班別_cb16.Items.Add(dr("時段")) : 班別_cb17.Items.Add(dr("時段")) : 班別_cb18.Items.Add(dr("時段")) : 班別_cb19.Items.Add(dr("時段")) : 班別_cb20.Items.Add(dr("時段"))
        End While
        conn.Close()
    End Sub
    Private Sub 職務_下拉表單資料載入()
        SQL_排班系統_職務_下拉()
        ComboBox1.Items.Clear() : ComboBox2.Items.Clear() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox5.Items.Clear() : ComboBox6.Items.Clear()
        ComboBox7.Items.Clear() : ComboBox8.Items.Clear() : ComboBox9.Items.Clear() : ComboBox10.Items.Clear() : ComboBox11.Items.Clear() : ComboBox12.Items.Clear()
        ComboBox13.Items.Clear() : ComboBox14.Items.Clear() : ComboBox15.Items.Clear() : ComboBox16.Items.Clear() : ComboBox17.Items.Clear() : ComboBox18.Items.Clear()
        ComboBox19.Items.Clear() : ComboBox20.Items.Clear() : ComboBox21.Items.Clear() : ComboBox22.Items.Clear() : ComboBox23.Items.Clear() : ComboBox24.Items.Clear()
        ComboBox25.Items.Clear() : ComboBox26.Items.Clear() : ComboBox27.Items.Clear() : ComboBox28.Items.Clear() : ComboBox29.Items.Clear() : ComboBox30.Items.Clear()
        ComboBox31.Items.Clear() : ComboBox32.Items.Clear() : ComboBox33.Items.Clear() : ComboBox34.Items.Clear() : ComboBox35.Items.Clear() : ComboBox36.Items.Clear()
        ComboBox37.Items.Clear() : ComboBox38.Items.Clear() : ComboBox39.Items.Clear() : ComboBox40.Items.Clear()
        While (dr.Read())
            ComboBox1.Items.Add(dr("職務")) : ComboBox2.Items.Add(dr("職務")) : ComboBox3.Items.Add(dr("職務")) : ComboBox4.Items.Add(dr("職務")) : ComboBox5.Items.Add(dr("職務"))
            ComboBox6.Items.Add(dr("職務")) : ComboBox7.Items.Add(dr("職務")) : ComboBox8.Items.Add(dr("職務")) : ComboBox9.Items.Add(dr("職務")) : ComboBox10.Items.Add(dr("職務"))
            ComboBox11.Items.Add(dr("職務")) : ComboBox12.Items.Add(dr("職務")) : ComboBox13.Items.Add(dr("職務")) : ComboBox14.Items.Add(dr("職務")) : ComboBox15.Items.Add(dr("職務"))
            ComboBox16.Items.Add(dr("職務")) : ComboBox17.Items.Add(dr("職務")) : ComboBox18.Items.Add(dr("職務")) : ComboBox19.Items.Add(dr("職務")) : ComboBox20.Items.Add(dr("職務"))
            ComboBox21.Items.Add(dr("職務")) : ComboBox22.Items.Add(dr("職務")) : ComboBox23.Items.Add(dr("職務")) : ComboBox24.Items.Add(dr("職務")) : ComboBox25.Items.Add(dr("職務"))
            ComboBox26.Items.Add(dr("職務")) : ComboBox27.Items.Add(dr("職務")) : ComboBox28.Items.Add(dr("職務")) : ComboBox29.Items.Add(dr("職務")) : ComboBox30.Items.Add(dr("職務"))
            ComboBox31.Items.Add(dr("職務")) : ComboBox32.Items.Add(dr("職務")) : ComboBox33.Items.Add(dr("職務")) : ComboBox34.Items.Add(dr("職務")) : ComboBox35.Items.Add(dr("職務"))
            ComboBox36.Items.Add(dr("職務")) : ComboBox37.Items.Add(dr("職務")) : ComboBox38.Items.Add(dr("職務")) : ComboBox39.Items.Add(dr("職務")) : ComboBox40.Items.Add(dr("職務"))
        End While
        conn.Close()
    End Sub
    Private Sub 班別圖示計算載入()
        XX = (XX - 480) * 1.25
    End Sub
    Private Sub 班表鎖定變化()
        If 簽核_bt.Enabled = False Then
            存檔_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False
            For no As Integer = 1 To 20
                Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
                Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
            Next
        Else
            存檔_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True
            For no As Integer = 1 To 20
                Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
                Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
            Next
        End If
    End Sub
    Private Sub 班條長度()
        '----------一小時47.5
        If Do2 = 4 Or Do2 = 6.5 Or Do2 = 7 Or Do2 = 7.5 Or Do2 = 8 Then : XXX = 0
        ElseIf Do2 = 2 Then : XXX = -(74.25 * 2)
        ElseIf Do2 = 2.5 Then : XXX = -(74.25) + (-(74.25 / 2))
        ElseIf Do2 = 3 Then : XXX = -(74.25)
        ElseIf Do2 = 3.5 Then : XXX = -(74.25 / 2)
        ElseIf Do2 = 4.5 Then : XXX = 74.25 / 2
        ElseIf Do2 = 5 Then : XXX = 74.25
        ElseIf Do2 = 5.5 Then : XXX = 74.25 + (74.25 / 2)
        ElseIf Do2 = 6 Then : XXX = 74.25 * 2
        End If
    End Sub
    Private Sub 休息長度()
        X1 = (X1 - 1) * 8.4 * 10
    End Sub
    Private Sub 進度條變化1()
        If 姓名_tb1.Text <> "" Or 班別_cb1.Text <> "休" Then
            Do2 = NumericUpDown1.Value : 班條長度()
            A_pb1.Size = New Size(297 + XXX, 27) : A_pb2.Size = New Size(297 - XXX, 27)
            ComboBox1.Size = New Size(297 + XXX, 32) : ComboBox2.Size = New Size(297 - XXX, 32)
            If CheckBox1.Checked = False And Val(Strings.Left(班別_cb1.Text, 2)) < 17 Then : A_pb2.Visible = True : ComboBox2.Visible = True
            ElseIf CheckBox1.Checked = False And Val(Strings.Left(班別_cb1.Text, 2)) >= 17 Then : A_pb2.Visible = False : ComboBox2.Visible = False
            ElseIf CheckBox1.Checked = True Then : A_pb2.Visible = False : ComboBox2.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化2()
        Do2 = NumericUpDown2.Value : 班條長度()
        If 姓名_tb2.Text <> "" Or 班別_cb2.Text <> "休" Then
            A_pb3.Size = New Size(297 + XXX, 27) : A_pb4.Size = New Size(297 - XXX, 27)
            ComboBox3.Size = New Size(297 + XXX, 32) : ComboBox4.Size = New Size(297 - XXX, 32)
            If CheckBox2.Checked = False And Val(Strings.Left(班別_cb2.Text, 2)) < 17 Then : A_pb4.Visible = True : ComboBox4.Visible = True
            ElseIf CheckBox2.Checked = False And Val(Strings.Left(班別_cb2.Text, 2)) >= 17 Then : A_pb4.Visible = False : ComboBox4.Visible = False
            ElseIf CheckBox2.Checked = True Then : A_pb4.Visible = False : ComboBox4.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化3()
        If 姓名_tb3.Text <> "" Or 班別_cb3.Text <> "休" Then
            Do2 = NumericUpDown3.Value : 班條長度()
            A_pb5.Size = New Size(297 + XXX, 27) : A_pb6.Size = New Size(297 - XXX, 27)
            ComboBox5.Size = New Size(297 + XXX, 32) : ComboBox6.Size = New Size(297 - XXX, 32)
            If CheckBox3.Checked = False And Val(Strings.Left(班別_cb3.Text, 2)) < 17 Then : A_pb6.Visible = True : ComboBox6.Visible = True
            ElseIf CheckBox3.Checked = False And Val(Strings.Left(班別_cb3.Text, 2)) >= 17 Then : A_pb6.Visible = False : ComboBox6.Visible = False
            ElseIf CheckBox3.Checked = True Then : A_pb6.Visible = False : ComboBox6.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化4()
        If 姓名_tb4.Text <> "" Or 班別_cb4.Text <> "休" Then
            Do2 = NumericUpDown4.Value : 班條長度()
            A_pb7.Size = New Size(297 + XXX, 27) : A_pb8.Size = New Size(297 - XXX, 27)
            ComboBox7.Size = New Size(297 + XXX, 32) : ComboBox8.Size = New Size(297 - XXX, 32)
            If CheckBox4.Checked = False And Val(Strings.Left(班別_cb4.Text, 2)) < 17 Then : A_pb8.Visible = True : ComboBox8.Visible = True
            ElseIf CheckBox4.Checked = False And Val(Strings.Left(班別_cb4.Text, 2)) >= 17 Then : A_pb8.Visible = False : ComboBox8.Visible = False
            ElseIf CheckBox4.Checked = True Then : A_pb8.Visible = False : ComboBox8.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化5()
        If 姓名_tb5.Text <> "" Or 班別_cb5.Text <> "休" Then
            Do2 = NumericUpDown5.Value : 班條長度()
            A_pb9.Size = New Size(297 + XXX, 27) : A_pb10.Size = New Size(297 - XXX, 27)
            ComboBox9.Size = New Size(297 + XXX, 32) : ComboBox10.Size = New Size(297 - XXX, 32)
            If CheckBox5.Checked = False And Val(Strings.Left(班別_cb5.Text, 2)) < 17 Then : A_pb10.Visible = True : ComboBox10.Visible = True
            ElseIf CheckBox5.Checked = False And Val(Strings.Left(班別_cb5.Text, 2)) >= 17 Then : A_pb10.Visible = False : ComboBox10.Visible = False
            ElseIf CheckBox5.Checked = True Then : A_pb10.Visible = False : ComboBox10.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化6()
        If 姓名_tb6.Text <> "" Or 班別_cb6.Text <> "休" Then
            Do2 = NumericUpDown6.Value : 班條長度()
            A_pb11.Size = New Size(297 + XXX, 27) : A_pb12.Size = New Size(297 - XXX, 27)
            ComboBox11.Size = New Size(297 + XXX, 32) : ComboBox12.Size = New Size(297 - XXX, 32)
            If CheckBox6.Checked = False And Val(Strings.Left(班別_cb6.Text, 2)) < 17 Then : A_pb12.Visible = True : ComboBox12.Visible = True
            ElseIf CheckBox6.Checked = False And Val(Strings.Left(班別_cb6.Text, 2)) >= 17 Then : A_pb12.Visible = False : ComboBox12.Visible = False
            ElseIf CheckBox6.Checked = True Then : A_pb12.Visible = False : ComboBox12.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化7()
        If 姓名_tb7.Text <> "" Or 班別_cb7.Text <> "休" Then
            Do2 = NumericUpDown7.Value : 班條長度()
            A_pb13.Size = New Size(297 + XXX, 27) : A_pb14.Size = New Size(297 - XXX, 27)
            ComboBox13.Size = New Size(297 + XXX, 32) : ComboBox14.Size = New Size(297 - XXX, 32)
            If CheckBox7.Checked = False And Val(Strings.Left(班別_cb7.Text, 2)) < 17 Then : A_pb14.Visible = True : ComboBox14.Visible = True
            ElseIf CheckBox7.Checked = False And Val(Strings.Left(班別_cb7.Text, 2)) >= 17 Then : A_pb14.Visible = False : ComboBox14.Visible = False
            ElseIf CheckBox7.Checked = True Then : A_pb14.Visible = False : ComboBox14.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化8()
        If 姓名_tb8.Text <> "" Or 班別_cb8.Text <> "休" Then
            Do2 = NumericUpDown8.Value : 班條長度()
            A_pb15.Size = New Size(297 + XXX, 27) : A_pb16.Size = New Size(297 - XXX, 27)
            ComboBox15.Size = New Size(297 + XXX, 32) : ComboBox16.Size = New Size(297 - XXX, 32)
            If CheckBox8.Checked = False And Val(Strings.Left(班別_cb8.Text, 2)) < 17 Then : A_pb16.Visible = True : ComboBox16.Visible = True
            ElseIf CheckBox8.Checked = False And Val(Strings.Left(班別_cb8.Text, 2)) >= 17 Then : A_pb16.Visible = False : ComboBox16.Visible = False
            ElseIf CheckBox8.Checked = True Then : A_pb16.Visible = False : ComboBox16.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化9()
        If 姓名_tb9.Text <> "" Or 班別_cb9.Text <> "休" Then
            Do2 = NumericUpDown9.Value : 班條長度()
            A_pb17.Size = New Size(297 + XXX, 27) : A_pb18.Size = New Size(297 - XXX, 27)
            ComboBox17.Size = New Size(297 + XXX, 32) : ComboBox18.Size = New Size(297 - XXX, 32)
            If CheckBox9.Checked = False And Val(Strings.Left(班別_cb9.Text, 2)) < 17 Then : A_pb18.Visible = True : ComboBox18.Visible = True
            ElseIf CheckBox9.Checked = False And Val(Strings.Left(班別_cb9.Text, 2)) >= 17 Then : A_pb18.Visible = False : ComboBox18.Visible = False
            ElseIf CheckBox9.Checked = True Then : A_pb18.Visible = False : ComboBox18.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化10()
        If 姓名_tb10.Text <> "" Or 班別_cb10.Text <> "休" Then
            Do2 = NumericUpDown10.Value : 班條長度()
            A_pb19.Size = New Size(297 + XXX, 27) : A_pb20.Size = New Size(297 - XXX, 27)
            ComboBox19.Size = New Size(297 + XXX, 32) : ComboBox20.Size = New Size(297 - XXX, 32)
            If CheckBox10.Checked = False And Val(Strings.Left(班別_cb10.Text, 2)) < 17 Then : A_pb20.Visible = True : ComboBox20.Visible = True
            ElseIf CheckBox10.Checked = False And Val(Strings.Left(班別_cb10.Text, 2)) >= 17 Then : A_pb20.Visible = False : ComboBox20.Visible = False
            ElseIf CheckBox10.Checked = True Then : A_pb20.Visible = False : ComboBox20.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化11()
        If 姓名_tb11.Text <> "" Or 班別_cb11.Text <> "休" Then
            Do2 = NumericUpDown11.Value : 班條長度()
            A_pb21.Size = New Size(297 + XXX, 27) : A_pb22.Size = New Size(297 - XXX, 27)
            ComboBox21.Size = New Size(297 + XXX, 32) : ComboBox22.Size = New Size(297 - XXX, 32)
            If CheckBox11.Checked = False And Val(Strings.Left(班別_cb11.Text, 2)) < 17 Then : A_pb22.Visible = True : ComboBox22.Visible = True
            ElseIf CheckBox11.Checked = False And Val(Strings.Left(班別_cb11.Text, 2)) >= 17 Then : A_pb22.Visible = False : ComboBox22.Visible = False
            ElseIf CheckBox11.Checked = True Then : A_pb22.Visible = False : ComboBox22.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化12()
        If 姓名_tb12.Text <> "" Or 班別_cb12.Text <> "休" Then
            Do2 = NumericUpDown12.Value : 班條長度()
            A_pb23.Size = New Size(297 + XXX, 27) : A_pb24.Size = New Size(297 - XXX, 27)
            ComboBox23.Size = New Size(297 + XXX, 32) : ComboBox24.Size = New Size(297 - XXX, 32)
            If CheckBox12.Checked = False And Val(Strings.Left(班別_cb12.Text, 2)) < 17 Then : A_pb24.Visible = True : ComboBox24.Visible = True
            ElseIf CheckBox12.Checked = False And Val(Strings.Left(班別_cb12.Text, 2)) >= 17 Then : A_pb24.Visible = False : ComboBox24.Visible = False
            ElseIf CheckBox12.Checked = True Then : A_pb24.Visible = False : ComboBox24.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化13()
        If 姓名_tb13.Text <> "" Or 班別_cb13.Text <> "休" Then
            Do2 = NumericUpDown13.Value : 班條長度()
            A_pb25.Size = New Size(297 + XXX, 27) : A_pb26.Size = New Size(297 - XXX, 27)
            ComboBox25.Size = New Size(297 + XXX, 32) : ComboBox26.Size = New Size(297 - XXX, 32)
            If CheckBox13.Checked = False And Val(Strings.Left(班別_cb13.Text, 2)) < 17 Then : A_pb26.Visible = True : ComboBox26.Visible = True
            ElseIf CheckBox13.Checked = False And Val(Strings.Left(班別_cb13.Text, 2)) >= 17 Then : A_pb26.Visible = False : ComboBox26.Visible = False
            ElseIf CheckBox13.Checked = True Then : A_pb26.Visible = False : ComboBox26.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化14()
        If 姓名_tb14.Text <> "" Or 班別_cb14.Text <> "休" Then
            Do2 = NumericUpDown14.Value : 班條長度()
            A_pb27.Size = New Size(297 + XXX, 27) : A_pb28.Size = New Size(297 - XXX, 27)
            ComboBox27.Size = New Size(297 + XXX, 32) : ComboBox28.Size = New Size(297 - XXX, 32)
            If CheckBox14.Checked = False And Val(Strings.Left(班別_cb14.Text, 2)) < 17 Then : A_pb28.Visible = True : ComboBox28.Visible = True
            ElseIf CheckBox14.Checked = False And Val(Strings.Left(班別_cb14.Text, 2)) >= 17 Then : A_pb28.Visible = False : ComboBox28.Visible = False
            ElseIf CheckBox14.Checked = True Then : A_pb28.Visible = False : ComboBox28.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化15()
        If 姓名_tb15.Text <> "" Or 班別_cb15.Text <> "休" Then
            Do2 = NumericUpDown15.Value : 班條長度()
            A_pb29.Size = New Size(297 + XXX, 27) : A_pb30.Size = New Size(297 - XXX, 27)
            ComboBox29.Size = New Size(297 + XXX, 32) : ComboBox30.Size = New Size(297 - XXX, 32)
            If CheckBox15.Checked = False And Val(Strings.Left(班別_cb15.Text, 2)) < 17 Then : A_pb30.Visible = True : ComboBox30.Visible = True
            ElseIf CheckBox15.Checked = False And Val(Strings.Left(班別_cb15.Text, 2)) >= 17 Then : A_pb30.Visible = False : ComboBox30.Visible = False
            ElseIf CheckBox15.Checked = True Then : A_pb30.Visible = False : ComboBox30.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化16()
        If 姓名_tb16.Text <> "" Or 班別_cb16.Text <> "休" Then
            Do2 = NumericUpDown16.Value : 班條長度()
            A_pb31.Size = New Size(297 + XXX, 27) : A_pb32.Size = New Size(297 - XXX, 27)
            ComboBox31.Size = New Size(297 + XXX, 32) : ComboBox32.Size = New Size(297 - XXX, 32)
            If CheckBox16.Checked = False And Val(Strings.Left(班別_cb16.Text, 2)) < 17 Then : A_pb32.Visible = True : ComboBox32.Visible = True
            ElseIf CheckBox16.Checked = False And Val(Strings.Left(班別_cb16.Text, 2)) >= 17 Then : A_pb32.Visible = False : ComboBox32.Visible = False
            ElseIf CheckBox16.Checked = True Then : A_pb32.Visible = False : ComboBox32.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化17()
        If 姓名_tb17.Text <> "" Or 班別_cb17.Text <> "休" Then
            Do2 = NumericUpDown17.Value : 班條長度()
            A_pb33.Size = New Size(297 + XXX, 27) : A_pb34.Size = New Size(297 - XXX, 27)
            ComboBox33.Size = New Size(297 + XXX, 32) : ComboBox34.Size = New Size(297 - XXX, 32)
            If CheckBox17.Checked = False And Val(Strings.Left(班別_cb17.Text, 2)) < 17 Then : A_pb34.Visible = True : ComboBox34.Visible = True
            ElseIf CheckBox17.Checked = False And Val(Strings.Left(班別_cb17.Text, 2)) >= 17 Then : A_pb34.Visible = False : ComboBox34.Visible = False
            ElseIf CheckBox17.Checked = True Then : A_pb34.Visible = False : ComboBox34.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化18()
        If 姓名_tb18.Text <> "" Or 班別_cb18.Text <> "休" Then
            Do2 = NumericUpDown18.Value : 班條長度()
            A_pb35.Size = New Size(297 + XXX, 27) : A_pb36.Size = New Size(297 - XXX, 27)
            ComboBox35.Size = New Size(297 + XXX, 32) : ComboBox36.Size = New Size(297 - XXX, 32)
            If CheckBox18.Checked = False And Val(Strings.Left(班別_cb18.Text, 2)) < 17 Then : A_pb36.Visible = True : ComboBox36.Visible = True
            ElseIf CheckBox18.Checked = False And Val(Strings.Left(班別_cb18.Text, 2)) >= 17 Then : A_pb36.Visible = False : ComboBox36.Visible = False
            ElseIf CheckBox18.Checked = True Then : A_pb36.Visible = False : ComboBox36.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化19()
        If 姓名_tb19.Text <> "" Or 班別_cb19.Text <> "休" Then
            Do2 = NumericUpDown19.Value : 班條長度()
            A_pb37.Size = New Size(297 + XXX, 27) : A_pb38.Size = New Size(297 - XXX, 27)
            ComboBox37.Size = New Size(297 + XXX, 32) : ComboBox38.Size = New Size(297 - XXX, 32)
            If CheckBox19.Checked = False And Val(Strings.Left(班別_cb19.Text, 2)) < 17 Then : A_pb38.Visible = True : ComboBox38.Visible = True
            ElseIf CheckBox19.Checked = False And Val(Strings.Left(班別_cb19.Text, 2)) >= 17 Then : A_pb38.Visible = False : ComboBox38.Visible = False
            ElseIf CheckBox19.Checked = True Then : A_pb38.Visible = False : ComboBox38.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化20()
        If 姓名_tb20.Text <> "" Or 班別_cb20.Text <> "休" Then
            Do2 = NumericUpDown20.Value : 班條長度()
            A_pb39.Size = New Size(297 + XXX, 27) : A_pb40.Size = New Size(297 - XXX, 27)
            ComboBox39.Size = New Size(297 + XXX, 32) : ComboBox40.Size = New Size(297 - XXX, 32)
            If CheckBox20.Checked = False And Val(Strings.Left(班別_cb20.Text, 2)) < 17 Then : A_pb40.Visible = True : ComboBox40.Visible = True
            ElseIf CheckBox20.Checked = False And Val(Strings.Left(班別_cb20.Text, 2)) >= 17 Then : A_pb40.Visible = False : ComboBox40.Visible = False
            ElseIf CheckBox20.Checked = True Then : A_pb40.Visible = False : ComboBox40.Visible = False
            End If
        End If
    End Sub
    Private Sub 休息變化1()
        XX = Val(Strings.Left(班別_cb1.Text, 2)) * 60 + Val(Strings.Mid(班別_cb1.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP1.Value : 休息長度() : Do2 = NumericUpDown1.Value : 班條長度()
        A_pb1.Location = New Point(615 + XX, 136) : A_pb2.Location = New Point(990 + XX + X1 + XXX, 136)
        ComboBox1.Location = New Point(615 + XX, 136) : ComboBox2.Location = New Point(990 + XX + X1 + XXX, 136)
        進度條變化1()
    End Sub
    Private Sub 休息變化2()
        XX = Val(Strings.Left(班別_cb2.Text, 2)) * 60 + Val(Strings.Mid(班別_cb2.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP2.Value : 休息長度() : Do2 = NumericUpDown2.Value : 班條長度()
        A_pb3.Location = New Point(615 + XX, 172) : A_pb4.Location = New Point(990 + XX + X1 + XXX, 172)
        ComboBox3.Location = New Point(615 + XX, 172) : ComboBox4.Location = New Point(990 + XX + X1 + XXX, 172)
        進度條變化2()
    End Sub
    Private Sub 休息變化3()
        XX = Val(Strings.Left(班別_cb3.Text, 2)) * 60 + Val(Strings.Mid(班別_cb3.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP3.Value : 休息長度() : Do2 = NumericUpDown3.Value : 班條長度()
        A_pb5.Location = New Point(615 + XX, 208) : A_pb6.Location = New Point(990 + XX + X1 + XXX, 208)
        ComboBox5.Location = New Point(615 + XX, 208) : ComboBox6.Location = New Point(990 + XX + X1 + XXX, 208)
        進度條變化3()
    End Sub
    Private Sub 休息變化4()
        XX = Val(Strings.Left(班別_cb4.Text, 2)) * 60 + Val(Strings.Mid(班別_cb4.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP4.Value : 休息長度() : Do2 = NumericUpDown4.Value : 班條長度()
        A_pb7.Location = New Point(615 + XX, 244) : A_pb8.Location = New Point(990 + XX + X1 + XXX, 244)
        ComboBox7.Location = New Point(615 + XX, 244) : ComboBox8.Location = New Point(990 + XX + X1 + XXX, 244)
        進度條變化4()
    End Sub
    Private Sub 休息變化5()
        XX = Val(Strings.Left(班別_cb5.Text, 2)) * 60 + Val(Strings.Mid(班別_cb5.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP5.Value : 休息長度() : Do2 = NumericUpDown5.Value : 班條長度()
        A_pb9.Location = New Point(615 + XX, 280) : A_pb10.Location = New Point(990 + XX + X1 + XXX, 280)
        ComboBox9.Location = New Point(615 + XX, 280) : ComboBox10.Location = New Point(990 + XX + X1 + XXX, 280)
        進度條變化5()
    End Sub
    Private Sub 休息變化6()
        XX = Val(Strings.Left(班別_cb6.Text, 2)) * 60 + Val(Strings.Mid(班別_cb6.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP6.Value : 休息長度() : Do2 = NumericUpDown6.Value : 班條長度()
        A_pb11.Location = New Point(615 + XX, 316) : A_pb12.Location = New Point(990 + XX + X1 + XXX, 316)
        ComboBox11.Location = New Point(615 + XX, 316) : ComboBox12.Location = New Point(990 + XX + X1 + XXX, 316)
        進度條變化6()
    End Sub
    Private Sub 休息變化7()
        XX = Val(Strings.Left(班別_cb7.Text, 2)) * 60 + Val(Strings.Mid(班別_cb7.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP7.Value : 休息長度() : Do2 = NumericUpDown7.Value : 班條長度()
        A_pb13.Location = New Point(615 + XX, 352) : A_pb14.Location = New Point(990 + XX + X1 + XXX, 352)
        ComboBox13.Location = New Point(615 + XX, 352) : ComboBox14.Location = New Point(990 + XX + X1 + XXX, 352)
        進度條變化7()
    End Sub
    Private Sub 休息變化8()
        XX = Val(Strings.Left(班別_cb8.Text, 2)) * 60 + Val(Strings.Mid(班別_cb8.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP8.Value : 休息長度() : Do2 = NumericUpDown8.Value : 班條長度()
        A_pb15.Location = New Point(615 + XX, 388) : A_pb16.Location = New Point(990 + XX + X1 + XXX, 388)
        ComboBox15.Location = New Point(615 + XX, 388) : ComboBox16.Location = New Point(990 + XX + X1 + XXX, 388)
        進度條變化8()
    End Sub
    Private Sub 休息變化9()
        XX = Val(Strings.Left(班別_cb9.Text, 2)) * 60 + Val(Strings.Mid(班別_cb9.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP9.Value : 休息長度() : Do2 = NumericUpDown9.Value : 班條長度()
        A_pb17.Location = New Point(615 + XX, 424) : A_pb18.Location = New Point(990 + XX + X1 + XXX, 424)
        ComboBox17.Location = New Point(615 + XX, 424) : ComboBox18.Location = New Point(990 + XX + X1 + XXX, 424)
        進度條變化9()
    End Sub
    Private Sub 休息變化10()
        XX = Val(Strings.Left(班別_cb10.Text, 2)) * 60 + Val(Strings.Mid(班別_cb10.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP10.Value : 休息長度() : Do2 = NumericUpDown10.Value : 班條長度()
        A_pb19.Location = New Point(615 + XX, 460) : A_pb20.Location = New Point(990 + XX + X1 + XXX, 460)
        ComboBox19.Location = New Point(615 + XX, 460) : ComboBox20.Location = New Point(990 + XX + X1 + XXX, 460)
        進度條變化10()
    End Sub
    Private Sub 休息變化11()
        XX = Val(Strings.Left(班別_cb11.Text, 2)) * 60 + Val(Strings.Mid(班別_cb11.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP11.Value : 休息長度() : Do2 = NumericUpDown11.Value : 班條長度()
        A_pb21.Location = New Point(615 + XX, 496) : A_pb22.Location = New Point(990 + XX + X1 + XXX, 496)
        ComboBox21.Location = New Point(615 + XX, 496) : ComboBox22.Location = New Point(990 + XX + X1 + XXX, 496)
        進度條變化11()
    End Sub
    Private Sub 休息變化12()
        XX = Val(Strings.Left(班別_cb12.Text, 2)) * 60 + Val(Strings.Mid(班別_cb12.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP12.Value : 休息長度() : Do2 = NumericUpDown12.Value : 班條長度()
        A_pb23.Location = New Point(615 + XX, 532) : A_pb24.Location = New Point(990 + XX + X1 + XXX, 532)
        ComboBox23.Location = New Point(615 + XX, 532) : ComboBox24.Location = New Point(990 + XX + X1 + XXX, 532)
        進度條變化12()
    End Sub
    Private Sub 休息變化13()
        XX = Val(Strings.Left(班別_cb13.Text, 2)) * 60 + Val(Strings.Mid(班別_cb13.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP13.Value : 休息長度() : Do2 = NumericUpDown13.Value : 班條長度()
        A_pb25.Location = New Point(615 + XX, 568) : A_pb26.Location = New Point(990 + XX + X1 + XXX, 568)
        ComboBox25.Location = New Point(615 + XX, 568) : ComboBox26.Location = New Point(990 + XX + X1 + XXX, 568)
        進度條變化13()
    End Sub
    Private Sub 休息變化14()
        XX = Val(Strings.Left(班別_cb14.Text, 2)) * 60 + Val(Strings.Mid(班別_cb14.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP14.Value : 休息長度() : Do2 = NumericUpDown14.Value : 班條長度()
        A_pb27.Location = New Point(615 + XX, 604) : A_pb28.Location = New Point(990 + XX + X1 + XXX, 604)
        ComboBox27.Location = New Point(615 + XX, 604) : ComboBox28.Location = New Point(990 + XX + X1 + XXX, 604)
        進度條變化14()
    End Sub
    Private Sub 休息變化15()
        XX = Val(Strings.Left(班別_cb15.Text, 2)) * 60 + Val(Strings.Mid(班別_cb15.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP15.Value : 休息長度() : Do2 = NumericUpDown15.Value : 班條長度()
        A_pb29.Location = New Point(615 + XX, 640) : A_pb30.Location = New Point(990 + XX + X1 + XXX, 640)
        ComboBox29.Location = New Point(615 + XX, 640) : ComboBox30.Location = New Point(990 + XX + X1 + XXX, 640)
        進度條變化15()
    End Sub
    Private Sub 休息變化16()
        XX = Val(Strings.Left(班別_cb16.Text, 2)) * 60 + Val(Strings.Mid(班別_cb16.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP16.Value : 休息長度() : Do2 = NumericUpDown16.Value : 班條長度()
        A_pb31.Location = New Point(615 + XX, 676) : A_pb32.Location = New Point(990 + XX + X1 + XXX, 676)
        ComboBox31.Location = New Point(615 + XX, 676) : ComboBox32.Location = New Point(990 + XX + X1 + XXX, 676)
        進度條變化16()
    End Sub
    Private Sub 休息變化17()
        XX = Val(Strings.Left(班別_cb17.Text, 2)) * 60 + Val(Strings.Mid(班別_cb17.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP17.Value : 休息長度() : Do2 = NumericUpDown17.Value : 班條長度()
        A_pb33.Location = New Point(615 + XX, 712) : A_pb34.Location = New Point(990 + XX + X1 + XXX, 712)
        ComboBox33.Location = New Point(615 + XX, 712) : ComboBox34.Location = New Point(990 + XX + X1 + XXX, 712)
        進度條變化17()
    End Sub
    Private Sub 休息變化18()
        XX = Val(Strings.Left(班別_cb18.Text, 2)) * 60 + Val(Strings.Mid(班別_cb18.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP18.Value : 休息長度() : Do2 = NumericUpDown18.Value : 班條長度()
        A_pb35.Location = New Point(615 + XX, 748) : A_pb36.Location = New Point(990 + XX + X1 + XXX, 748)
        ComboBox35.Location = New Point(615 + XX, 748) : ComboBox36.Location = New Point(990 + XX + X1 + XXX, 748)
        進度條變化18()
    End Sub
    Private Sub 休息變化19()
        XX = Val(Strings.Left(班別_cb19.Text, 2)) * 60 + Val(Strings.Mid(班別_cb19.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP19.Value : 休息長度() : Do2 = NumericUpDown19.Value : 班條長度()
        A_pb37.Location = New Point(615 + XX, 784) : A_pb38.Location = New Point(990 + XX + X1 + XXX, 784)
        ComboBox37.Location = New Point(615 + XX, 784) : ComboBox38.Location = New Point(990 + XX + X1 + XXX, 784)
        進度條變化19()
    End Sub
    Private Sub 休息變化20()
        XX = Val(Strings.Left(班別_cb20.Text, 2)) * 60 + Val(Strings.Mid(班別_cb20.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP20.Value : 休息長度() : Do2 = NumericUpDown20.Value : 班條長度()
        A_pb39.Location = New Point(615 + XX, 820) : A_pb40.Location = New Point(990 + XX + X1 + XXX, 820)
        ComboBox39.Location = New Point(615 + XX, 820) : ComboBox40.Location = New Point(990 + XX + X1 + XXX, 820)
        進度條變化20()
    End Sub
    Private Sub 回復預設()
        For no As Integer = 1 To 20
            Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown) : NUPS.Value = 1
        Next
        XX = 0 : Q = 0
        For no As Integer = 1 To 20
            Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
            Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
            Dim ComboBoxsS1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 40 + Q).ToString(), True)(0), ComboBox)
            Dim ComboBoxsS2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 40 + 1 + Q).ToString(), True)(0), ComboBox)
            Dim ComboBoxs1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + Q).ToString(), True)(0), ComboBox)
            Dim ComboBoxs2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 1 + Q).ToString(), True)(0), ComboBox)
            Dim A_pbS1 As ProgressBar = CType(Me.Controls.Find("A_pb" + (no + Q).ToString(), True)(0), ProgressBar)
            Dim A_pbS2 As ProgressBar = CType(Me.Controls.Find("A_pb" + (no + 1 + Q).ToString(), True)(0), ProgressBar) : Q += 1
            姓名_tbS.Text = "" : 班別_cbS.Text = "休" : ComboBoxsS1.SelectedIndex = 0 : ComboBoxsS2.SelectedIndex = 0
            If 姓名_tbS.Text = "" Then
                A_pbS1.Visible = False : A_pbS2.Visible = False : ComboBoxs1.Visible = False : ComboBoxs2.Visible = False
            Else
                A_pbS1.Visible = True : A_pbS2.Visible = True : ComboBoxs1.Visible = True : ComboBoxs2.Visible = True
            End If
        Next
        A_pb1.Location = New Point(615 + XX, 136) : A_pb2.Location = New Point(990 + XX, 136)
        ComboBox1.Location = New Point(615 + XX, 136) : ComboBox2.Location = New Point(990 + XX, 136)
        A_pb3.Location = New Point(615 + XX, 172) : A_pb4.Location = New Point(990 + XX, 172)
        ComboBox3.Location = New Point(615 + XX, 172) : ComboBox4.Location = New Point(990 + XX, 172)
        A_pb5.Location = New Point(615 + XX, 208) : A_pb6.Location = New Point(990 + XX, 208)
        ComboBox5.Location = New Point(615 + XX, 208) : ComboBox6.Location = New Point(990 + XX, 208)
        A_pb7.Location = New Point(615 + XX, 244) : A_pb8.Location = New Point(990 + XX, 244)
        ComboBox7.Location = New Point(615 + XX, 244) : ComboBox8.Location = New Point(990 + XX, 244)
        A_pb9.Location = New Point(615 + XX, 280) : A_pb10.Location = New Point(990 + XX, 280)
        ComboBox9.Location = New Point(615 + XX, 280) : ComboBox10.Location = New Point(990 + XX, 280)
        A_pb11.Location = New Point(615 + XX, 316) : A_pb12.Location = New Point(990 + XX, 316)
        ComboBox11.Location = New Point(615 + XX, 316) : ComboBox12.Location = New Point(990 + XX, 316)
        A_pb13.Location = New Point(615 + XX, 352) : A_pb14.Location = New Point(990 + XX, 352)
        ComboBox13.Location = New Point(615 + XX, 352) : ComboBox14.Location = New Point(990 + XX, 352)
        A_pb15.Location = New Point(615 + XX, 388) : A_pb16.Location = New Point(990 + XX, 388)
        ComboBox15.Location = New Point(615 + XX, 388) : ComboBox16.Location = New Point(990 + XX, 388)
        A_pb17.Location = New Point(615 + XX, 424) : A_pb18.Location = New Point(990 + XX, 424)
        ComboBox17.Location = New Point(615 + XX, 424) : ComboBox18.Location = New Point(990 + XX, 424)
        A_pb19.Location = New Point(615 + XX, 460) : A_pb20.Location = New Point(990 + XX, 460)
        ComboBox19.Location = New Point(615 + XX, 460) : ComboBox20.Location = New Point(990 + XX, 460)
        A_pb21.Location = New Point(615 + XX, 496) : A_pb22.Location = New Point(990 + XX, 496)
        ComboBox21.Location = New Point(615 + XX, 496) : ComboBox22.Location = New Point(990 + XX, 496)
        A_pb23.Location = New Point(615 + XX, 532) : A_pb24.Location = New Point(990 + XX, 532)
        ComboBox23.Location = New Point(615 + XX, 532) : ComboBox24.Location = New Point(990 + XX, 532)
        A_pb25.Location = New Point(615 + XX, 568) : A_pb26.Location = New Point(990 + XX, 568)
        ComboBox25.Location = New Point(615 + XX, 568) : ComboBox26.Location = New Point(990 + XX, 568)
        A_pb27.Location = New Point(615 + XX, 604) : A_pb28.Location = New Point(990 + XX, 604)
        ComboBox27.Location = New Point(615 + XX, 604) : ComboBox28.Location = New Point(990 + XX, 604)
        A_pb29.Location = New Point(615 + XX, 640) : A_pb30.Location = New Point(990 + XX, 640)
        ComboBox29.Location = New Point(615 + XX, 640) : ComboBox30.Location = New Point(990 + XX, 640)
        A_pb31.Location = New Point(615 + XX, 676) : A_pb32.Location = New Point(990 + XX, 676)
        ComboBox31.Location = New Point(615 + XX, 676) : ComboBox32.Location = New Point(990 + XX, 676)
        A_pb33.Location = New Point(615 + XX, 712) : A_pb34.Location = New Point(990 + XX, 712)
        ComboBox33.Location = New Point(615 + XX, 712) : ComboBox34.Location = New Point(990 + 712)
        A_pb35.Location = New Point(615 + XX, 748) : A_pb36.Location = New Point(990 + XX, 748)
        ComboBox35.Location = New Point(615 + XX, 748) : ComboBox36.Location = New Point(990 + XX, 748)
        A_pb37.Location = New Point(615 + XX, 784) : A_pb38.Location = New Point(990 + XX, 784)
        ComboBox37.Location = New Point(615 + XX, 784) : ComboBox38.Location = New Point(990 + XX, 784)
        A_pb39.Location = New Point(615 + XX, 820) : A_pb40.Location = New Point(990 + XX, 820)
        ComboBox39.Location = New Point(615 + XX, 820) : ComboBox40.Location = New Point(990 + XX, 820)
    End Sub
    Private Sub 重新讀取()
        SQL_排班簽核讀取()
        If dr.Read Then
            值日生1_bt.Text = dr("值日生1").ToString : 值日生2_bt.Text = dr("值日生2").ToString
            If dr("班表簽認") = "Y" Then
                簽核_bt.Enabled = False
            Else
                簽核_bt.Enabled = True
            End If : Else
            簽核_bt.Enabled = True
        End If
        班表鎖定變化()

        SQL_排班系統_星期() : If dr.Read Then : 星期_lb.Text = dr("星期") : End If : PA6 = 星期_lb.Text
        SQL_門診_健保() : If dr.Read Then : B1_lb.Text = dr("早") : B2_lb.Text = dr("中") : B3_lb.Text = dr("晚") : End If
        SQL_門診_美容() : If dr.Read Then : B4_lb.Text = dr("早") : B5_lb.Text = dr("中") : B6_lb.Text = dr("晚") : End If
        讀取排班資料表()
        If 排班明細_dgv.Rows.Count > 0 Then
            Q = 0
            For no As Integer = 1 To 20
                Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
                Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                Dim ComboBoxsS1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 40 + Q).ToString(), True)(0), ComboBox)
                Dim ComboBoxsS2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 40 + 1 + Q).ToString(), True)(0), ComboBox)
                Dim ComboBoxs1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + Q).ToString(), True)(0), ComboBox)
                Dim ComboBoxs2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 1 + Q).ToString(), True)(0), ComboBox) : Q += 1

                ComboBoxs1.Text = 排班明細_dgv.Rows(no - 1).Cells("一段").Value
                ComboBoxs2.Text = 排班明細_dgv.Rows(no - 1).Cells("二段").Value
                ComboBoxsS1.Text = 排班明細_dgv.Rows(no - 1).Cells("顏色1").Value
                ComboBoxsS2.Text = 排班明細_dgv.Rows(no - 1).Cells("顏色2").Value
                NUPS.Value = 排班明細_dgv.Rows(no - 1).Cells("休息").Value
                NumericUpDownS.Value = 排班明細_dgv.Rows(no - 1).Cells("時數").Value
                CheckBoxS.Checked = 排班明細_dgv.Rows(no - 1).Cells("半天").Value
                班別_cbS.Text = 排班明細_dgv.Rows(no - 1).Cells("班別").Value.ToString
                姓名_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("姓名").Value.ToString
            Next
        End If
    End Sub
    Private Sub 排班明細_參考_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If BB(17) = False Then
            存檔_bt.Enabled = False : 複製班表_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False : 複製班表_bt.Enabled = False
            For no As Integer = 1 To 20
                Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
                Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
            Next
        Else
            存檔_bt.Enabled = True : 複製班表_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True : 複製班表_bt.Enabled = True
            For no As Integer = 1 To 20
                Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
                Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
            Next
        End If
        年_lb.Text = PA : 月_lb.Text = PA1
        班別_下拉表單資料載入() : 職務_下拉表單資料載入() : 讀取人員資料表()
        If Val(PA2) > 9 Then : 日_lb.Text = PA2 : Else : 日_lb.Text = "0" & PA2 : End If
        回復預設()
        PA = 年_lb.Text & "/" & 月_lb.Text & "/" & 日_lb.Text
        重新讀取()
    End Sub
    Private Sub 人員_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            PA = 人員_dgv("編號", e.RowIndex).Value.ToString : PA1 = 人員_dgv("姓名", e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 姓名1_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb1.TextChanged
        If 姓名_tb1.Text = "" Or 班別_cb1.Text = "休" Then : A_pb1.Visible = False : A_pb2.Visible = False : ComboBox1.Visible = False : ComboBox2.Visible = False : Else
            A_pb1.Visible = True : A_pb2.Visible = True : ComboBox1.Visible = True : ComboBox2.Visible = True : XX = 0
            If 班別_cb1.Text = "" Or 班別_cb1.Text = "休" Then
                A_pb1.Location = New Point(615 + XX, 136) : A_pb2.Location = New Point(990 + XX, 136)
                ComboBox1.Location = New Point(615 + XX, 136) : ComboBox2.Location = New Point(990 + XX, 136)
            End If
            休息變化1()
        End If
    End Sub
    Private Sub 姓名2_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb2.TextChanged
        If 姓名_tb2.Text = "" Or 班別_cb2.Text = "休" Then : A_pb3.Visible = False : A_pb4.Visible = False : ComboBox3.Visible = False : ComboBox4.Visible = False : Else
            A_pb3.Visible = True : A_pb4.Visible = True : ComboBox3.Visible = True : ComboBox4.Visible = True : XX = 0
            If 班別_cb2.Text = "" Or 班別_cb2.Text = "休" Then
                A_pb3.Location = New Point(615 + XX, 172) : A_pb4.Location = New Point(990 + XX, 172)
                ComboBox3.Location = New Point(615 + XX, 172) : ComboBox4.Location = New Point(990 + XX, 172)
            End If
            休息變化2()
        End If
    End Sub
    Private Sub 姓名3_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb3.TextChanged
        If 姓名_tb3.Text = "" Or 班別_cb3.Text = "休" Then : A_pb5.Visible = False : A_pb6.Visible = False : ComboBox5.Visible = False : ComboBox6.Visible = False : Else
            A_pb5.Visible = True : A_pb6.Visible = True : ComboBox5.Visible = True : ComboBox6.Visible = True : XX = 0
            If 班別_cb3.Text = "" Or 班別_cb3.Text = "休" Then
                A_pb5.Location = New Point(615 + XX, 208) : A_pb6.Location = New Point(990 + XX, 208)
                ComboBox5.Location = New Point(615 + XX, 120 + 81) : ComboBox6.Location = New Point(990 + XX, 120 + 81)
            End If
            休息變化3()
        End If
    End Sub
    Private Sub 姓名4_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb4.TextChanged
        If 姓名_tb4.Text = "" Or 班別_cb4.Text = "休" Then : A_pb7.Visible = False : A_pb8.Visible = False : ComboBox7.Visible = False : ComboBox8.Visible = False : Else
            A_pb7.Visible = True : A_pb8.Visible = True : ComboBox7.Visible = True : ComboBox8.Visible = True : XX = 0
            If 班別_cb4.Text = "" Or 班別_cb4.Text = "休" Then
                A_pb7.Location = New Point(615 + XX, 244) : A_pb8.Location = New Point(990 + XX, 244)
                ComboBox7.Location = New Point(615 + XX, 244) : ComboBox8.Location = New Point(990 + XX, 244)
            End If
            休息變化4()
        End If
    End Sub
    Private Sub 姓名5_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb5.TextChanged
        If 姓名_tb5.Text = "" Or 班別_cb5.Text = "休" Then : A_pb9.Visible = False : A_pb10.Visible = False : ComboBox9.Visible = False : ComboBox10.Visible = False : Else
            A_pb9.Visible = True : A_pb10.Visible = True : ComboBox9.Visible = True : ComboBox10.Visible = True : XX = 0
            If 班別_cb5.Text = "" Or 班別_cb5.Text = "休" Then
                A_pb9.Location = New Point(615 + XX, 280) : A_pb10.Location = New Point(990 + XX, 280)
                ComboBox9.Location = New Point(615 + XX, 280) : ComboBox10.Location = New Point(990 + XX, 280)
            End If
            休息變化5()
        End If
    End Sub
    Private Sub 姓名6_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb6.TextChanged
        If 姓名_tb6.Text = "" Or 班別_cb6.Text = "休" Then : A_pb11.Visible = False : A_pb12.Visible = False : ComboBox11.Visible = False : ComboBox12.Visible = False : Else
            A_pb11.Visible = True : A_pb12.Visible = True : ComboBox11.Visible = True : ComboBox12.Visible = True : XX = 0
            If 班別_cb6.Text = "" Or 班別_cb6.Text = "休" Then
                A_pb11.Location = New Point(615 + XX, 316) : A_pb12.Location = New Point(990 + XX, 316)
                ComboBox11.Location = New Point(615 + XX, 316) : ComboBox12.Location = New Point(990 + XX, 316)
            End If
            休息變化6()
        End If
    End Sub
    Private Sub 姓名7_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb7.TextChanged
        If 姓名_tb7.Text = "" Or 班別_cb7.Text = "休" Then : A_pb13.Visible = False : A_pb14.Visible = False : ComboBox13.Visible = False : ComboBox14.Visible = False : Else
            A_pb13.Visible = True : A_pb14.Visible = True : ComboBox13.Visible = True : ComboBox14.Visible = True : XX = 0
            If 班別_cb7.Text = "" Or 班別_cb7.Text = "休" Then
                A_pb13.Location = New Point(615 + XX, 352) : A_pb14.Location = New Point(990 + XX, 352)
                ComboBox13.Location = New Point(615 + XX, 352) : ComboBox14.Location = New Point(990 + XX, 352)
            End If
            休息變化7()
        End If
    End Sub
    Private Sub 姓名8_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb8.TextChanged
        If 姓名_tb8.Text = "" Or 班別_cb8.Text = "休" Then : A_pb15.Visible = False : A_pb16.Visible = False : ComboBox15.Visible = False : ComboBox16.Visible = False : Else
            A_pb15.Visible = True : A_pb16.Visible = True : ComboBox15.Visible = True : ComboBox16.Visible = True : XX = 0
            If 班別_cb8.Text = "" Or 班別_cb8.Text = "休" Then
                A_pb15.Location = New Point(615 + XX, 388) : A_pb16.Location = New Point(990 + XX, 388)
                ComboBox15.Location = New Point(615 + XX, 388) : ComboBox16.Location = New Point(990 + XX, 388)
            End If
            休息變化8()
        End If
    End Sub
    Private Sub 姓名9_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb9.TextChanged
        If 姓名_tb9.Text = "" Or 班別_cb9.Text = "休" Then : A_pb17.Visible = False : A_pb18.Visible = False : ComboBox17.Visible = False : ComboBox18.Visible = False : Else
            A_pb17.Visible = True : A_pb18.Visible = True : ComboBox17.Visible = True : ComboBox18.Visible = True : XX = 0
            If 班別_cb9.Text = "" Or 班別_cb9.Text = "休" Then
                A_pb17.Location = New Point(615 + XX, 424) : A_pb18.Location = New Point(990 + XX, 424)
                ComboBox17.Location = New Point(615 + XX, 424) : ComboBox18.Location = New Point(990 + XX, 424)
            End If
            休息變化9()
        End If
    End Sub
    Private Sub 姓名10_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb10.TextChanged
        If 姓名_tb10.Text = "" Or 班別_cb10.Text = "休" Then : A_pb19.Visible = False : A_pb20.Visible = False : ComboBox19.Visible = False : ComboBox20.Visible = False : Else
            A_pb19.Visible = True : A_pb20.Visible = True : ComboBox19.Visible = True : ComboBox20.Visible = True : XX = 0
            If 班別_cb10.Text = "" Or 班別_cb10.Text = "休" Then
                A_pb19.Location = New Point(615 + XX, 460) : A_pb20.Location = New Point(990 + XX, 460)
                ComboBox19.Location = New Point(615 + XX, 460) : ComboBox20.Location = New Point(990 + XX, 460)
            End If
            休息變化10()
        End If
    End Sub
    Private Sub 姓名11_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb11.TextChanged
        If 姓名_tb11.Text = "" Or 班別_cb11.Text = "休" Then : A_pb21.Visible = False : A_pb22.Visible = False : ComboBox21.Visible = False : ComboBox22.Visible = False : Else
            A_pb21.Visible = True : A_pb22.Visible = True : ComboBox21.Visible = True : ComboBox22.Visible = True : XX = 0
            If 班別_cb11.Text = "" Or 班別_cb11.Text = "休" Then
                A_pb21.Location = New Point(615 + XX, 496) : A_pb22.Location = New Point(990 + XX, 496)
                ComboBox21.Location = New Point(615 + XX, 496) : ComboBox22.Location = New Point(990 + XX, 496)
            End If
            休息變化11()
        End If
    End Sub
    Private Sub 姓名12_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb12.TextChanged
        If 姓名_tb12.Text = "" Or 班別_cb12.Text = "休" Then : A_pb23.Visible = False : A_pb24.Visible = False : ComboBox23.Visible = False : ComboBox24.Visible = False : Else
            A_pb23.Visible = True : A_pb24.Visible = True : ComboBox23.Visible = True : ComboBox24.Visible = True : XX = 0
            If 班別_cb12.Text = "" Or 班別_cb12.Text = "休" Then
                A_pb23.Location = New Point(615 + XX, 532) : A_pb24.Location = New Point(990 + XX, 532)
                ComboBox23.Location = New Point(615 + XX, 532) : ComboBox24.Location = New Point(990 + XX, 532)
            End If
            休息變化12()
        End If
    End Sub
    Private Sub 姓名13_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb13.TextChanged
        If 姓名_tb13.Text = "" Or 班別_cb13.Text = "休" Then : A_pb25.Visible = False : A_pb26.Visible = False : ComboBox25.Visible = False : ComboBox26.Visible = False : Else
            A_pb25.Visible = True : A_pb26.Visible = True : ComboBox25.Visible = True : ComboBox26.Visible = True : XX = 0
            If 班別_cb13.Text = "" Or 班別_cb13.Text = "休" Then
                A_pb25.Location = New Point(615 + XX, 568) : A_pb26.Location = New Point(990 + XX, 568)
                ComboBox25.Location = New Point(615 + XX, 568) : ComboBox26.Location = New Point(990 + XX, 568)
            End If
            休息變化13()
        End If
    End Sub
    Private Sub 姓名14_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb14.TextChanged
        If 姓名_tb14.Text = "" Or 班別_cb14.Text = "休" Then : A_pb27.Visible = False : A_pb28.Visible = False : ComboBox27.Visible = False : ComboBox28.Visible = False : Else
            A_pb27.Visible = True : A_pb28.Visible = True : ComboBox27.Visible = True : ComboBox28.Visible = True : XX = 0
            If 班別_cb14.Text = "" Or 班別_cb14.Text = "休" Then
                A_pb27.Location = New Point(615 + XX, 604) : A_pb28.Location = New Point(990 + XX, 604)
                ComboBox27.Location = New Point(615 + XX, 604) : ComboBox28.Location = New Point(990 + XX, 604)
            End If
            休息變化14()
        End If
    End Sub
    Private Sub 姓名15_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb15.TextChanged
        If 姓名_tb15.Text = "" Or 班別_cb15.Text = "休" Then : A_pb29.Visible = False : A_pb30.Visible = False : ComboBox29.Visible = False : ComboBox30.Visible = False : Else
            A_pb29.Visible = True : A_pb30.Visible = True : ComboBox29.Visible = True : ComboBox30.Visible = True : XX = 0
            If 班別_cb15.Text = "" Or 班別_cb15.Text = "休" Then
                A_pb29.Location = New Point(615 + XX, 640) : A_pb30.Location = New Point(990 + XX, 640)
                ComboBox29.Location = New Point(615 + XX, 640) : ComboBox30.Location = New Point(990 + XX, 640)
            End If
            休息變化15()
        End If
    End Sub
    Private Sub 姓名16_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb16.TextChanged
        If 姓名_tb16.Text = "" Or 班別_cb16.Text = "休" Then : A_pb31.Visible = False : A_pb32.Visible = False : ComboBox31.Visible = False : ComboBox32.Visible = False : Else
            A_pb31.Visible = True : A_pb32.Visible = True : ComboBox31.Visible = True : ComboBox32.Visible = True : XX = 0
            If 班別_cb16.Text = "" Or 班別_cb16.Text = "休" Then
                A_pb31.Location = New Point(615 + XX, 676) : A_pb32.Location = New Point(990 + XX, 676)
                ComboBox31.Location = New Point(615 + XX, 676) : ComboBox32.Location = New Point(990 + XX, 676)
            End If
            休息變化16()
        End If
    End Sub
    Private Sub 姓名17_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb17.TextChanged
        If 姓名_tb17.Text = "" Or 班別_cb17.Text = "休" Then : A_pb33.Visible = False : A_pb34.Visible = False : ComboBox33.Visible = False : ComboBox34.Visible = False : Else
            A_pb33.Visible = True : A_pb34.Visible = True : ComboBox33.Visible = True : ComboBox34.Visible = True : XX = 0
            If 班別_cb17.Text = "" Or 班別_cb17.Text = "休" Then
                A_pb33.Location = New Point(615 + XX, 712) : A_pb34.Location = New Point(990 + XX, 712)
                ComboBox33.Location = New Point(615 + XX, 712) : ComboBox34.Location = New Point(990 + XX, 712)
            End If
            休息變化17()
        End If
    End Sub
    Private Sub 姓名18_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb18.TextChanged
        If 姓名_tb18.Text = "" Or 班別_cb18.Text = "休" Then : A_pb35.Visible = False : A_pb36.Visible = False : ComboBox35.Visible = False : ComboBox36.Visible = False : Else
            A_pb35.Visible = True : A_pb36.Visible = True : ComboBox35.Visible = True : ComboBox36.Visible = True : XX = 0
            If 班別_cb18.Text = "" Or 班別_cb18.Text = "休" Then
                A_pb35.Location = New Point(615 + XX, 748) : A_pb36.Location = New Point(990 + XX, 748)
                ComboBox35.Location = New Point(615 + XX, 748) : ComboBox36.Location = New Point(990 + XX, 748)
            End If
            休息變化18()
        End If
    End Sub
    Private Sub 姓名19_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb19.TextChanged
        If 姓名_tb19.Text = "" Or 班別_cb19.Text = "休" Then : A_pb37.Visible = False : A_pb38.Visible = False : ComboBox37.Visible = False : ComboBox38.Visible = False : Else
            A_pb37.Visible = True : A_pb38.Visible = True : ComboBox37.Visible = True : ComboBox38.Visible = True : XX = 0
            If 班別_cb19.Text = "" Or 班別_cb19.Text = "休" Then
                A_pb37.Location = New Point(615 + XX, 784) : A_pb38.Location = New Point(990 + XX, 784)
                ComboBox37.Location = New Point(615 + XX, 784) : ComboBox38.Location = New Point(990 + XX, 784)
            End If
            休息變化19()
        End If
    End Sub
    Private Sub 姓名20_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb20.TextChanged
        If 姓名_tb20.Text = "" Or 班別_cb20.Text = "休" Then : A_pb39.Visible = False : A_pb40.Visible = False : ComboBox39.Visible = False : ComboBox40.Visible = False : Else
            A_pb39.Visible = True : A_pb40.Visible = True : ComboBox39.Visible = True : ComboBox40.Visible = True : XX = 0
            If 班別_cb20.Text = "" Or 班別_cb20.Text = "休" Then
                A_pb39.Location = New Point(615 + XX, 820) : A_pb40.Location = New Point(990 + XX, 820)
                ComboBox39.Location = New Point(615 + XX, 820) : ComboBox40.Location = New Point(990 + XX, 820)
            End If
            休息變化20()
        End If
    End Sub
    Private Sub 班別01_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb1.SelectedIndexChanged
        If 班別_cb1.Text <> "休" Then : 休息變化1() : A_pb1.Visible = True : A_pb2.Visible = True : ComboBox1.Visible = True : ComboBox2.Visible = True
        Else : A_pb1.Visible = False : A_pb2.Visible = False : ComboBox1.Visible = False : ComboBox2.Visible = False : End If
    End Sub
    Private Sub 班別02_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb2.SelectedIndexChanged
        If 班別_cb2.Text <> "休" Then : 休息變化2() : A_pb3.Visible = True : A_pb4.Visible = True : ComboBox3.Visible = True : ComboBox4.Visible = True
        Else : A_pb3.Visible = False : A_pb4.Visible = False : ComboBox3.Visible = False : ComboBox4.Visible = False : End If
    End Sub
    Private Sub 班別03_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb3.SelectedIndexChanged
        If 班別_cb3.Text <> "休" Then : 休息變化3() : A_pb5.Visible = True : A_pb6.Visible = True : ComboBox5.Visible = True : ComboBox6.Visible = True
        Else : A_pb5.Visible = False : A_pb6.Visible = False : ComboBox5.Visible = False : ComboBox6.Visible = False : End If
    End Sub
    Private Sub 班別04_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb4.SelectedIndexChanged
        If 班別_cb4.Text <> "休" Then : 休息變化4() : A_pb7.Visible = True : A_pb8.Visible = True : ComboBox7.Visible = True : ComboBox8.Visible = True
        Else : A_pb7.Visible = False : A_pb8.Visible = False : ComboBox7.Visible = False : ComboBox8.Visible = False : End If
    End Sub
    Private Sub 班別05_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb5.SelectedIndexChanged
        If 班別_cb5.Text <> "休" Then : 休息變化5() : A_pb9.Visible = True : A_pb10.Visible = True : ComboBox9.Visible = True : ComboBox10.Visible = True
        Else : A_pb9.Visible = False : A_pb10.Visible = False : ComboBox9.Visible = False : ComboBox10.Visible = False : End If
    End Sub
    Private Sub 班別06_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb6.SelectedIndexChanged
        If 班別_cb6.Text <> "休" Then : 休息變化6() : A_pb11.Visible = True : A_pb12.Visible = True : ComboBox11.Visible = True : ComboBox12.Visible = True
        Else : A_pb11.Visible = False : A_pb12.Visible = False : ComboBox11.Visible = False : ComboBox12.Visible = False : End If
    End Sub
    Private Sub 班別07_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb7.SelectedIndexChanged
        If 班別_cb7.Text <> "休" Then : 休息變化7() : A_pb13.Visible = True : A_pb14.Visible = True : ComboBox13.Visible = True : ComboBox14.Visible = True
        Else : A_pb13.Visible = False : A_pb14.Visible = False : ComboBox13.Visible = False : ComboBox14.Visible = False : End If
    End Sub
    Private Sub 班別08_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb8.SelectedIndexChanged
        If 班別_cb8.Text <> "休" Then : 休息變化8() : A_pb15.Visible = True : A_pb16.Visible = True : ComboBox15.Visible = True : ComboBox16.Visible = True
        Else : A_pb15.Visible = False : A_pb16.Visible = False : ComboBox15.Visible = False : ComboBox16.Visible = False : End If
    End Sub
    Private Sub 班別09_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb9.SelectedIndexChanged
        If 班別_cb9.Text <> "休" Then : 休息變化9() : A_pb17.Visible = True : A_pb18.Visible = True : ComboBox17.Visible = True : ComboBox18.Visible = True
        Else : A_pb17.Visible = False : A_pb18.Visible = False : ComboBox17.Visible = False : ComboBox18.Visible = False : End If
    End Sub
    Private Sub 班別10_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb10.SelectedIndexChanged
        If 班別_cb10.Text <> "休" Then : 休息變化10() : A_pb19.Visible = True : A_pb20.Visible = True : ComboBox19.Visible = True : ComboBox20.Visible = True
        Else : A_pb19.Visible = False : A_pb20.Visible = False : ComboBox19.Visible = False : ComboBox20.Visible = False : End If
    End Sub
    Private Sub 班別11_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb11.SelectedIndexChanged
        If 班別_cb11.Text <> "休" Then : 休息變化11() : A_pb21.Visible = True : A_pb22.Visible = True : ComboBox21.Visible = True : ComboBox22.Visible = True
        Else : A_pb21.Visible = False : A_pb22.Visible = False : ComboBox21.Visible = False : ComboBox22.Visible = False : End If
    End Sub
    Private Sub 班別12_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb12.SelectedIndexChanged
        If 班別_cb12.Text <> "休" Then : 休息變化12() : A_pb23.Visible = True : A_pb24.Visible = True : ComboBox23.Visible = True : ComboBox24.Visible = True
        Else : A_pb23.Visible = False : A_pb24.Visible = False : ComboBox23.Visible = False : ComboBox24.Visible = False : End If
    End Sub
    Private Sub 班別13_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb13.SelectedIndexChanged
        If 班別_cb13.Text <> "休" Then : 休息變化13() : A_pb25.Visible = True : A_pb26.Visible = True : ComboBox25.Visible = True : ComboBox26.Visible = True
        Else : A_pb25.Visible = False : A_pb26.Visible = False : ComboBox25.Visible = False : ComboBox26.Visible = False : End If
    End Sub
    Private Sub 班別14_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb14.SelectedIndexChanged
        If 班別_cb14.Text <> "休" Then : 休息變化14() : A_pb27.Visible = True : A_pb28.Visible = True : ComboBox27.Visible = True : ComboBox28.Visible = True
        Else : A_pb27.Visible = False : A_pb28.Visible = False : ComboBox27.Visible = False : ComboBox28.Visible = False : End If
    End Sub
    Private Sub 班別15_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb15.SelectedIndexChanged
        If 班別_cb15.Text <> "休" Then : 休息變化15() : A_pb29.Visible = True : A_pb30.Visible = True : ComboBox29.Visible = True : ComboBox30.Visible = True
        Else : A_pb29.Visible = False : A_pb30.Visible = False : ComboBox29.Visible = False : ComboBox30.Visible = False : End If
    End Sub
    Private Sub 班別16_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb16.SelectedIndexChanged
        If 班別_cb16.Text <> "休" Then : 休息變化16() : A_pb31.Visible = True : A_pb32.Visible = True : ComboBox31.Visible = True : ComboBox32.Visible = True
        Else : A_pb31.Visible = False : A_pb32.Visible = False : ComboBox31.Visible = False : ComboBox32.Visible = False : End If
    End Sub
    Private Sub 班別17_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb17.SelectedIndexChanged
        If 班別_cb17.Text <> "休" Then : 休息變化17() : A_pb33.Visible = True : A_pb34.Visible = True : ComboBox33.Visible = True : ComboBox34.Visible = True
        Else : A_pb33.Visible = False : A_pb34.Visible = False : ComboBox33.Visible = False : ComboBox34.Visible = False : End If
    End Sub
    Private Sub 班別18_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb18.SelectedIndexChanged
        If 班別_cb18.Text <> "休" Then : 休息變化18() : A_pb35.Visible = True : A_pb36.Visible = True : ComboBox35.Visible = True : ComboBox36.Visible = True
        Else : A_pb35.Visible = False : A_pb36.Visible = False : ComboBox35.Visible = False : ComboBox36.Visible = False : End If
    End Sub
    Private Sub 班別19_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb19.SelectedIndexChanged
        If 班別_cb19.Text <> "休" Then : 休息變化19() : A_pb37.Visible = True : A_pb38.Visible = True : ComboBox37.Visible = True : ComboBox38.Visible = True
        Else : A_pb37.Visible = False : A_pb38.Visible = False : ComboBox37.Visible = False : ComboBox38.Visible = False : End If
    End Sub
    Private Sub 班別20_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb20.SelectedIndexChanged
        If 班別_cb20.Text <> "休" Then : 休息變化20() : A_pb39.Visible = False : A_pb40.Visible = False : ComboBox39.Visible = False : ComboBox40.Visible = False
        Else : A_pb39.Visible = False : A_pb40.Visible = False : ComboBox39.Visible = False : ComboBox40.Visible = False : End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If 班別_cb1.Text <> "休" Then
            休息變化1()
        End If
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If 班別_cb2.Text <> "休" Then
            休息變化2()
        End If
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        If 班別_cb3.Text <> "休" Then
            休息變化3()
        End If
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
        If 班別_cb4.Text <> "休" Then
            休息變化4()
        End If
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged
        If 班別_cb5.Text <> "休" Then
            休息變化5()
        End If
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged
        If 班別_cb6.Text <> "休" Then
            休息變化6()
        End If
    End Sub
    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged
        If 班別_cb7.Text <> "休" Then
            休息變化7()
        End If
    End Sub
    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.CheckedChanged
        If 班別_cb8.Text <> "休" Then
            休息變化8()
        End If
    End Sub
    Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox9.CheckedChanged
        If 班別_cb9.Text <> "休" Then
            休息變化9()
        End If
    End Sub
    Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox10.CheckedChanged
        If 班別_cb10.Text <> "休" Then
            休息變化10()
        End If
    End Sub
    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox11.CheckedChanged
        If 班別_cb11.Text <> "休" Then
            休息變化11()
        End If
    End Sub
    Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox12.CheckedChanged
        If 班別_cb12.Text <> "休" Then
            休息變化12()
        End If
    End Sub
    Private Sub CheckBox13_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox13.CheckedChanged
        If 班別_cb13.Text <> "休" Then
            休息變化13()
        End If
    End Sub
    Private Sub CheckBox14_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox14.CheckedChanged
        If 班別_cb14.Text <> "休" Then
            休息變化14()
        End If
    End Sub
    Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox15.CheckedChanged
        If 班別_cb15.Text <> "休" Then
            休息變化15()
        End If
    End Sub
    Private Sub CheckBox16_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox16.CheckedChanged
        If 班別_cb16.Text <> "休" Then
            休息變化16()
        End If
    End Sub
    Private Sub CheckBox17_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox17.CheckedChanged
        If 班別_cb17.Text <> "休" Then
            休息變化17()
        End If
    End Sub
    Private Sub CheckBox18_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox18.CheckedChanged
        If 班別_cb18.Text <> "休" Then
            休息變化18()
        End If
    End Sub
    Private Sub CheckBox19_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox19.CheckedChanged
        If 班別_cb19.Text <> "休" Then
            休息變化19()
        End If
    End Sub
    Private Sub CheckBox20_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox20.CheckedChanged
        If 班別_cb20.Text <> "休" Then
            休息變化20()
        End If
    End Sub
    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
        If 班別_cb1.Text <> "休" Then
            休息變化1()
        End If
    End Sub
    Private Sub NumericUpDown2_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown2.ValueChanged
        If 班別_cb2.Text <> "休" Then
            休息變化2()
        End If
    End Sub
    Private Sub NumericUpDown3_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown3.ValueChanged
        If 班別_cb3.Text <> "休" Then
            休息變化3()
        End If
    End Sub
    Private Sub NumericUpDown4_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown4.ValueChanged
        If 班別_cb4.Text <> "休" Then
            休息變化4()
        End If
    End Sub
    Private Sub NumericUpDown5_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown5.ValueChanged
        If 班別_cb5.Text <> "休" Then
            休息變化5()
        End If
    End Sub
    Private Sub NumericUpDown6_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown6.ValueChanged
        If 班別_cb6.Text <> "休" Then
            休息變化6()
        End If
    End Sub
    Private Sub NumericUpDown7_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown7.ValueChanged
        If 班別_cb7.Text <> "休" Then
            休息變化7()
        End If
    End Sub
    Private Sub NumericUpDown8_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown8.ValueChanged
        If 班別_cb8.Text <> "休" Then
            休息變化8()
        End If
    End Sub
    Private Sub NumericUpDown9_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown9.ValueChanged
        If 班別_cb9.Text <> "休" Then
            休息變化9()
        End If
    End Sub
    Private Sub NumericUpDown10_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown10.ValueChanged
        If 班別_cb10.Text <> "休" Then
            休息變化10()
        End If
    End Sub
    Private Sub NumericUpDown11_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown11.ValueChanged
        If 班別_cb11.Text <> "休" Then
            休息變化11()
        End If
    End Sub
    Private Sub NumericUpDown12_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown12.ValueChanged
        If 班別_cb12.Text <> "休" Then
            休息變化12()
        End If
    End Sub
    Private Sub NumericUpDown13_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown13.ValueChanged
        If 班別_cb13.Text <> "休" Then
            休息變化13()
        End If
    End Sub
    Private Sub NumericUpDown14_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown14.ValueChanged
        If 班別_cb14.Text <> "休" Then
            休息變化14()
        End If
    End Sub
    Private Sub NumericUpDown15_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown15.ValueChanged
        If 班別_cb15.Text <> "休" Then
            休息變化15()
        End If
    End Sub
    Private Sub NumericUpDown16_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown16.ValueChanged
        If 班別_cb16.Text <> "休" Then
            休息變化16()
        End If
    End Sub
    Private Sub NumericUpDown17_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown17.ValueChanged
        If 班別_cb17.Text <> "休" Then
            休息變化17()
        End If
    End Sub
    Private Sub NumericUpDown18_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown18.ValueChanged
        If 班別_cb18.Text <> "休" Then
            休息變化18()
        End If
    End Sub
    Private Sub NumericUpDown19_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown19.ValueChanged
        If 班別_cb19.Text <> "休" Then
            休息變化19()
        End If
    End Sub
    Private Sub NumericUpDown20_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown20.ValueChanged
        If 班別_cb20.Text <> "休" Then
            休息變化20()
        End If
    End Sub
    Private Sub NUP1_ValueChanged(sender As Object, e As EventArgs) Handles NUP1.ValueChanged
        If 班別_cb1.Text <> "休" Then : 休息變化1() : A_pb1.Visible = True : A_pb2.Visible = True : ComboBox1.Visible = True : ComboBox2.Visible = True
        Else : A_pb1.Visible = False : A_pb2.Visible = False : ComboBox1.Visible = False : ComboBox2.Visible = False : End If
    End Sub
    Private Sub NUP2_ValueChanged(sender As Object, e As EventArgs) Handles NUP2.ValueChanged
        If 班別_cb2.Text <> "休" Then : 休息變化2() : A_pb3.Visible = True : A_pb4.Visible = True : ComboBox3.Visible = True : ComboBox4.Visible = True
        Else : A_pb3.Visible = False : A_pb4.Visible = False : ComboBox3.Visible = False : ComboBox4.Visible = False : End If
    End Sub
    Private Sub NUP3_ValueChanged(sender As Object, e As EventArgs) Handles NUP3.ValueChanged
        If 班別_cb3.Text <> "休" Then : 休息變化3() : A_pb5.Visible = True : A_pb6.Visible = True : ComboBox5.Visible = True : ComboBox6.Visible = True
        Else : A_pb5.Visible = False : A_pb6.Visible = False : ComboBox5.Visible = False : ComboBox6.Visible = False : End If
    End Sub
    Private Sub NUP4_ValueChanged(sender As Object, e As EventArgs) Handles NUP4.ValueChanged
        If 班別_cb4.Text <> "休" Then : 休息變化4() : A_pb7.Visible = True : A_pb8.Visible = True : ComboBox7.Visible = True : ComboBox8.Visible = True
        Else : A_pb7.Visible = False : A_pb8.Visible = False : ComboBox7.Visible = False : ComboBox8.Visible = False : End If
    End Sub
    Private Sub NUP5_ValueChanged(sender As Object, e As EventArgs) Handles NUP5.ValueChanged
        If 班別_cb5.Text <> "休" Then : 休息變化5() : A_pb9.Visible = True : A_pb10.Visible = True : ComboBox9.Visible = True : ComboBox10.Visible = True
        Else : A_pb9.Visible = False : A_pb10.Visible = False : ComboBox9.Visible = False : ComboBox10.Visible = False : End If
    End Sub
    Private Sub NUP6_ValueChanged(sender As Object, e As EventArgs) Handles NUP6.ValueChanged
        If 班別_cb6.Text <> "休" Then : 休息變化6() : A_pb11.Visible = True : A_pb12.Visible = True : ComboBox11.Visible = True : ComboBox12.Visible = True
        Else : A_pb11.Visible = False : A_pb12.Visible = False : ComboBox11.Visible = False : ComboBox12.Visible = False : End If
    End Sub
    Private Sub NUP7_ValueChanged(sender As Object, e As EventArgs) Handles NUP7.ValueChanged
        If 班別_cb7.Text <> "休" Then : 休息變化7() : A_pb13.Visible = True : A_pb14.Visible = True : ComboBox13.Visible = True : ComboBox14.Visible = True
        Else : A_pb13.Visible = False : A_pb14.Visible = False : ComboBox13.Visible = False : ComboBox14.Visible = False : End If
    End Sub
    Private Sub NUP8_ValueChanged(sender As Object, e As EventArgs) Handles NUP8.ValueChanged
        If 班別_cb8.Text <> "休" Then : 休息變化8() : A_pb15.Visible = True : A_pb16.Visible = True : ComboBox15.Visible = True : ComboBox16.Visible = True
        Else : A_pb15.Visible = False : A_pb16.Visible = False : ComboBox15.Visible = False : ComboBox16.Visible = False : End If
    End Sub
    Private Sub NUP9_ValueChanged(sender As Object, e As EventArgs) Handles NUP9.ValueChanged
        If 班別_cb9.Text <> "休" Then : 休息變化9() : A_pb17.Visible = True : A_pb18.Visible = True : ComboBox17.Visible = True : ComboBox18.Visible = True
        Else : A_pb17.Visible = False : A_pb18.Visible = False : ComboBox17.Visible = False : ComboBox18.Visible = False : End If
    End Sub
    Private Sub NUP10_ValueChanged(sender As Object, e As EventArgs) Handles NUP10.ValueChanged
        If 班別_cb10.Text <> "休" Then : 休息變化10() : A_pb19.Visible = True : A_pb20.Visible = True : ComboBox19.Visible = True : ComboBox20.Visible = True
        Else : A_pb19.Visible = False : A_pb20.Visible = False : ComboBox19.Visible = False : ComboBox20.Visible = False : End If
    End Sub
    Private Sub NUP11_ValueChanged(sender As Object, e As EventArgs) Handles NUP11.ValueChanged
        If 班別_cb11.Text <> "休" Then : 休息變化11() : A_pb21.Visible = True : A_pb22.Visible = True : ComboBox21.Visible = True : ComboBox22.Visible = True
        Else : A_pb21.Visible = False : A_pb22.Visible = False : ComboBox21.Visible = False : ComboBox22.Visible = False : End If
    End Sub
    Private Sub NUP12_ValueChanged(sender As Object, e As EventArgs) Handles NUP12.ValueChanged
        If 班別_cb12.Text <> "休" Then : 休息變化12() : A_pb23.Visible = True : A_pb24.Visible = True : ComboBox23.Visible = True : ComboBox24.Visible = True
        Else : A_pb23.Visible = False : A_pb24.Visible = False : ComboBox23.Visible = False : ComboBox24.Visible = False : End If
    End Sub
    Private Sub NUP13_ValueChanged(sender As Object, e As EventArgs) Handles NUP13.ValueChanged
        If 班別_cb13.Text <> "休" Then : 休息變化13() : A_pb25.Visible = True : A_pb26.Visible = True : ComboBox25.Visible = True : ComboBox26.Visible = True
        Else : A_pb25.Visible = False : A_pb26.Visible = False : ComboBox25.Visible = False : ComboBox26.Visible = False : End If
    End Sub
    Private Sub NUP14_ValueChanged(sender As Object, e As EventArgs) Handles NUP14.ValueChanged
        If 班別_cb14.Text <> "休" Then : 休息變化14() : A_pb27.Visible = True : A_pb28.Visible = True : ComboBox27.Visible = True : ComboBox28.Visible = True
        Else : A_pb27.Visible = False : A_pb28.Visible = False : ComboBox27.Visible = False : ComboBox28.Visible = False : End If
    End Sub
    Private Sub NUP15_ValueChanged(sender As Object, e As EventArgs) Handles NUP15.ValueChanged
        If 班別_cb15.Text <> "休" Then : 休息變化15() : A_pb29.Visible = True : A_pb30.Visible = True : ComboBox29.Visible = True : ComboBox30.Visible = True
        Else : A_pb29.Visible = False : A_pb30.Visible = False : ComboBox29.Visible = False : ComboBox30.Visible = False : End If
    End Sub
    Private Sub NUP16_ValueChanged(sender As Object, e As EventArgs) Handles NUP16.ValueChanged
        If 班別_cb16.Text <> "休" Then : 休息變化16() : A_pb31.Visible = True : A_pb32.Visible = True : ComboBox31.Visible = True : ComboBox32.Visible = True
        Else : A_pb31.Visible = False : A_pb32.Visible = False : ComboBox31.Visible = False : ComboBox32.Visible = False : End If
    End Sub
    Private Sub NUP17_ValueChanged(sender As Object, e As EventArgs) Handles NUP17.ValueChanged
        If 班別_cb17.Text <> "休" Then : 休息變化17() : A_pb33.Visible = True : A_pb34.Visible = True : ComboBox33.Visible = True : ComboBox34.Visible = True
        Else : A_pb33.Visible = False : A_pb34.Visible = False : ComboBox33.Visible = False : ComboBox34.Visible = False : End If
    End Sub
    Private Sub NUP18_ValueChanged(sender As Object, e As EventArgs) Handles NUP18.ValueChanged
        If 班別_cb18.Text <> "休" Then : 休息變化18() : A_pb35.Visible = True : A_pb36.Visible = True : ComboBox35.Visible = True : ComboBox36.Visible = True
        Else : A_pb35.Visible = False : A_pb36.Visible = False : ComboBox35.Visible = False : ComboBox36.Visible = False : End If
    End Sub
    Private Sub NUP19_ValueChanged(sender As Object, e As EventArgs) Handles NUP19.ValueChanged
        If 班別_cb19.Text <> "休" Then : 休息變化19() : A_pb37.Visible = True : A_pb38.Visible = True : ComboBox37.Visible = True : ComboBox38.Visible = True
        Else : A_pb37.Visible = False : A_pb38.Visible = False : ComboBox37.Visible = False : ComboBox38.Visible = False : End If
    End Sub
    Private Sub NUP20_ValueChanged(sender As Object, e As EventArgs) Handles NUP20.ValueChanged
        If 班別_cb20.Text <> "休" Then : 休息變化20() : A_pb39.Visible = False : A_pb40.Visible = False : ComboBox39.Visible = False : ComboBox40.Visible = False
        Else : A_pb39.Visible = False : A_pb40.Visible = False : ComboBox39.Visible = False : ComboBox40.Visible = False : End If
    End Sub
    Private Sub 全_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全_ch.CheckedChanged
        讀取人員資料表()
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
        If ComboBox1.Text = "" Then : ComboBox1.DropDownStyle = 1 : Else : ComboBox1.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
        If ComboBox2.Text = "" Then : ComboBox2.DropDownStyle = 1 : Else : ComboBox2.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
        If ComboBox3.Text = "" Then : ComboBox3.DropDownStyle = 1 : Else : ComboBox3.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
        If ComboBox4.Text = "" Then : ComboBox4.DropDownStyle = 1 : Else : ComboBox4.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
        If ComboBox5.Text = "" Then : ComboBox5.DropDownStyle = 1 : Else : ComboBox5.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.TextChanged
        If ComboBox6.Text = "" Then : ComboBox6.DropDownStyle = 1 : Else : ComboBox6.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.TextChanged
        If ComboBox7.Text = "" Then : ComboBox7.DropDownStyle = 1 : Else : ComboBox7.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.TextChanged
        If ComboBox8.Text = "" Then : ComboBox8.DropDownStyle = 1 : Else : ComboBox8.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox9_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox9.TextChanged
        If ComboBox9.Text = "" Then : ComboBox9.DropDownStyle = 1 : Else : ComboBox9.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.TextChanged
        If ComboBox10.Text = "" Then : ComboBox10.DropDownStyle = 1 : Else : ComboBox10.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox11_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox11.TextChanged
        If ComboBox11.Text = "" Then : ComboBox11.DropDownStyle = 1 : Else : ComboBox11.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox12_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox12.TextChanged
        If ComboBox12.Text = "" Then : ComboBox12.DropDownStyle = 1 : Else : ComboBox12.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox13_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox13.TextChanged
        If ComboBox13.Text = "" Then : ComboBox13.DropDownStyle = 1 : Else : ComboBox13.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox14_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox14.TextChanged
        If ComboBox14.Text = "" Then : ComboBox14.DropDownStyle = 1 : Else : ComboBox14.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox15_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox15.TextChanged
        If ComboBox15.Text = "" Then : ComboBox15.DropDownStyle = 1 : Else : ComboBox15.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox16_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox16.TextChanged
        If ComboBox16.Text = "" Then : ComboBox16.DropDownStyle = 1 : Else : ComboBox16.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox17_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox17.TextChanged
        If ComboBox17.Text = "" Then : ComboBox17.DropDownStyle = 1 : Else : ComboBox17.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox18_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox18.TextChanged
        If ComboBox18.Text = "" Then : ComboBox18.DropDownStyle = 1 : Else : ComboBox18.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox19_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox19.TextChanged
        If ComboBox19.Text = "" Then : ComboBox19.DropDownStyle = 1 : Else : ComboBox19.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox20_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox20.TextChanged
        If ComboBox20.Text = "" Then : ComboBox20.DropDownStyle = 1 : Else : ComboBox20.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox21_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox21.TextChanged
        If ComboBox21.Text = "" Then : ComboBox21.DropDownStyle = 1 : Else : ComboBox21.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox22_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox22.TextChanged
        If ComboBox22.Text = "" Then : ComboBox22.DropDownStyle = 1 : Else : ComboBox22.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox23_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox23.TextChanged
        If ComboBox23.Text = "" Then : ComboBox23.DropDownStyle = 1 : Else : ComboBox23.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox24_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox24.TextChanged
        If ComboBox24.Text = "" Then : ComboBox24.DropDownStyle = 1 : Else : ComboBox24.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox25_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox25.TextChanged
        If ComboBox25.Text = "" Then : ComboBox25.DropDownStyle = 1 : Else : ComboBox25.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox26_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox26.TextChanged
        If ComboBox26.Text = "" Then : ComboBox26.DropDownStyle = 1 : Else : ComboBox26.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox27_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox27.TextChanged
        If ComboBox27.Text = "" Then : ComboBox27.DropDownStyle = 1 : Else : ComboBox27.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox28_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox28.TextChanged
        If ComboBox28.Text = "" Then : ComboBox28.DropDownStyle = 1 : Else : ComboBox28.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox29_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox29.TextChanged
        If ComboBox29.Text = "" Then : ComboBox29.DropDownStyle = 1 : Else : ComboBox29.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox30_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox30.TextChanged
        If ComboBox30.Text = "" Then : ComboBox30.DropDownStyle = 1 : Else : ComboBox30.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox31_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox31.TextChanged
        If ComboBox31.Text = "" Then : ComboBox31.DropDownStyle = 1 : Else : ComboBox31.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox32_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox32.TextChanged
        If ComboBox32.Text = "" Then : ComboBox32.DropDownStyle = 1 : Else : ComboBox32.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox33_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox33.TextChanged
        If ComboBox33.Text = "" Then : ComboBox33.DropDownStyle = 1 : Else : ComboBox33.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox34_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox34.TextChanged
        If ComboBox34.Text = "" Then : ComboBox34.DropDownStyle = 1 : Else : ComboBox34.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox35_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox35.TextChanged
        If ComboBox35.Text = "" Then : ComboBox35.DropDownStyle = 1 : Else : ComboBox35.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox36_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox36.TextChanged
        If ComboBox36.Text = "" Then : ComboBox36.DropDownStyle = 1 : Else : ComboBox36.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox37_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox37.TextChanged
        If ComboBox37.Text = "" Then : ComboBox37.DropDownStyle = 1 : Else : ComboBox37.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox38_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox38.TextChanged
        If ComboBox38.Text = "" Then : ComboBox38.DropDownStyle = 1 : Else : ComboBox38.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox39_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox39.TextChanged
        If ComboBox39.Text = "" Then : ComboBox39.DropDownStyle = 1 : Else : ComboBox39.DropDownStyle = 0 : End If
    End Sub
    Private Sub 減一天_bt_Click(sender As Object, e As EventArgs) Handles 減一天_bt.Click
        DTP1.Value = 年_lb.Text & "/" & 月_lb.Text & "/" & 日_lb.Text
        DTP1.Value = DTP1.Value.AddDays(-1)
        PA = Format(DTP1.Value, "yyyy/MM/dd")
        年_lb.Text = Strings.Left(PA, 4) : 月_lb.Text = Strings.Mid(PA, 6, 2) : PA2 = Strings.Right(PA, 2)
        '----------------回復預設-----------------------------------------------------------------------------------------------
        If Val(PA2) > 9 Then : 日_lb.Text = PA2 : Else : 日_lb.Text = "0" & Val(PA2) : End If
        回復預設() : 重新讀取()
    End Sub
    Private Sub 加一天_bt1_Click(sender As Object, e As EventArgs) Handles 加一天_bt1.Click
        DTP1.Value = 年_lb.Text & "/" & 月_lb.Text & "/" & 日_lb.Text
        DTP1.Value = DTP1.Value.AddDays(+1)
        PA = Format(DTP1.Value, "yyyy/MM/dd")
        年_lb.Text = Strings.Left(PA, 4) : 月_lb.Text = Strings.Mid(PA, 6, 2) : PA2 = Strings.Right(PA, 2)
        '----------------回復預設-----------------------------------------------------------------------------------------------
        If Val(PA2) > 9 Then : 日_lb.Text = PA2 : Else : 日_lb.Text = "0" & Val(PA2) : End If
        回復預設() : 重新讀取()
    End Sub
    Private Sub ComboBox41_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox41.SelectedIndexChanged
        If ComboBox41.SelectedIndex = 0 Then : ComboBox1.BackColor = Color.LawnGreen
        ElseIf ComboBox41.SelectedIndex = 1 Then : ComboBox1.BackColor = Color.LightBlue
        ElseIf ComboBox41.SelectedIndex = 2 Then : ComboBox1.BackColor = Color.LightCoral
        ElseIf ComboBox41.SelectedIndex = 3 Then : ComboBox1.BackColor = Color.LightCyan
        ElseIf ComboBox41.SelectedIndex = 4 Then : ComboBox1.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox41.SelectedIndex = 5 Then : ComboBox1.BackColor = Color.LightGray
        ElseIf ComboBox41.SelectedIndex = 6 Then : ComboBox1.BackColor = Color.LightGreen
        ElseIf ComboBox41.SelectedIndex = 7 Then : ComboBox1.BackColor = Color.LightPink
        ElseIf ComboBox41.SelectedIndex = 8 Then : ComboBox1.BackColor = Color.LightSalmon
        ElseIf ComboBox41.SelectedIndex = 9 Then : ComboBox1.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox42_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox42.SelectedIndexChanged
        If ComboBox42.SelectedIndex = 0 Then : ComboBox2.BackColor = Color.LawnGreen
        ElseIf ComboBox42.SelectedIndex = 1 Then : ComboBox2.BackColor = Color.LightBlue
        ElseIf ComboBox42.SelectedIndex = 2 Then : ComboBox2.BackColor = Color.LightCoral
        ElseIf ComboBox42.SelectedIndex = 3 Then : ComboBox2.BackColor = Color.LightCyan
        ElseIf ComboBox42.SelectedIndex = 4 Then : ComboBox2.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox42.SelectedIndex = 5 Then : ComboBox2.BackColor = Color.LightGray
        ElseIf ComboBox42.SelectedIndex = 6 Then : ComboBox2.BackColor = Color.LightGreen
        ElseIf ComboBox42.SelectedIndex = 7 Then : ComboBox2.BackColor = Color.LightPink
        ElseIf ComboBox42.SelectedIndex = 8 Then : ComboBox2.BackColor = Color.LightSalmon
        ElseIf ComboBox42.SelectedIndex = 9 Then : ComboBox2.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox43_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox43.SelectedIndexChanged
        If ComboBox43.SelectedIndex = 0 Then : ComboBox3.BackColor = Color.LawnGreen
        ElseIf ComboBox43.SelectedIndex = 1 Then : ComboBox3.BackColor = Color.LightBlue
        ElseIf ComboBox43.SelectedIndex = 2 Then : ComboBox3.BackColor = Color.LightCoral
        ElseIf ComboBox43.SelectedIndex = 3 Then : ComboBox3.BackColor = Color.LightCyan
        ElseIf ComboBox43.SelectedIndex = 4 Then : ComboBox3.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox43.SelectedIndex = 5 Then : ComboBox3.BackColor = Color.LightGray
        ElseIf ComboBox43.SelectedIndex = 6 Then : ComboBox3.BackColor = Color.LightGreen
        ElseIf ComboBox43.SelectedIndex = 7 Then : ComboBox3.BackColor = Color.LightPink
        ElseIf ComboBox43.SelectedIndex = 8 Then : ComboBox3.BackColor = Color.LightSalmon
        ElseIf ComboBox43.SelectedIndex = 9 Then : ComboBox3.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox44_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox44.SelectedIndexChanged
        If ComboBox44.SelectedIndex = 0 Then : ComboBox4.BackColor = Color.LawnGreen
        ElseIf ComboBox44.SelectedIndex = 1 Then : ComboBox4.BackColor = Color.LightBlue
        ElseIf ComboBox44.SelectedIndex = 2 Then : ComboBox4.BackColor = Color.LightCoral
        ElseIf ComboBox44.SelectedIndex = 3 Then : ComboBox4.BackColor = Color.LightCyan
        ElseIf ComboBox44.SelectedIndex = 4 Then : ComboBox4.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox44.SelectedIndex = 5 Then : ComboBox4.BackColor = Color.LightGray
        ElseIf ComboBox44.SelectedIndex = 6 Then : ComboBox4.BackColor = Color.LightGreen
        ElseIf ComboBox44.SelectedIndex = 7 Then : ComboBox4.BackColor = Color.LightPink
        ElseIf ComboBox44.SelectedIndex = 8 Then : ComboBox4.BackColor = Color.LightSalmon
        ElseIf ComboBox44.SelectedIndex = 9 Then : ComboBox4.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox45_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox45.SelectedIndexChanged
        If ComboBox45.SelectedIndex = 0 Then : ComboBox5.BackColor = Color.LawnGreen
        ElseIf ComboBox45.SelectedIndex = 1 Then : ComboBox5.BackColor = Color.LightBlue
        ElseIf ComboBox45.SelectedIndex = 2 Then : ComboBox5.BackColor = Color.LightCoral
        ElseIf ComboBox45.SelectedIndex = 3 Then : ComboBox5.BackColor = Color.LightCyan
        ElseIf ComboBox45.SelectedIndex = 4 Then : ComboBox5.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox45.SelectedIndex = 5 Then : ComboBox5.BackColor = Color.LightGray
        ElseIf ComboBox45.SelectedIndex = 6 Then : ComboBox5.BackColor = Color.LightGreen
        ElseIf ComboBox45.SelectedIndex = 7 Then : ComboBox5.BackColor = Color.LightPink
        ElseIf ComboBox45.SelectedIndex = 8 Then : ComboBox5.BackColor = Color.LightSalmon
        ElseIf ComboBox45.SelectedIndex = 9 Then : ComboBox5.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox46_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox46.SelectedIndexChanged
        If ComboBox46.SelectedIndex = 0 Then : ComboBox6.BackColor = Color.LawnGreen
        ElseIf ComboBox46.SelectedIndex = 1 Then : ComboBox6.BackColor = Color.LightBlue
        ElseIf ComboBox46.SelectedIndex = 2 Then : ComboBox6.BackColor = Color.LightCoral
        ElseIf ComboBox46.SelectedIndex = 3 Then : ComboBox6.BackColor = Color.LightCyan
        ElseIf ComboBox46.SelectedIndex = 4 Then : ComboBox6.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox46.SelectedIndex = 5 Then : ComboBox6.BackColor = Color.LightGray
        ElseIf ComboBox46.SelectedIndex = 6 Then : ComboBox6.BackColor = Color.LightGreen
        ElseIf ComboBox46.SelectedIndex = 7 Then : ComboBox6.BackColor = Color.LightPink
        ElseIf ComboBox46.SelectedIndex = 8 Then : ComboBox6.BackColor = Color.LightSalmon
        ElseIf ComboBox46.SelectedIndex = 9 Then : ComboBox6.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox47_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox47.SelectedIndexChanged
        If ComboBox47.SelectedIndex = 0 Then : ComboBox7.BackColor = Color.LawnGreen
        ElseIf ComboBox47.SelectedIndex = 1 Then : ComboBox7.BackColor = Color.LightBlue
        ElseIf ComboBox47.SelectedIndex = 2 Then : ComboBox7.BackColor = Color.LightCoral
        ElseIf ComboBox47.SelectedIndex = 3 Then : ComboBox7.BackColor = Color.LightCyan
        ElseIf ComboBox47.SelectedIndex = 4 Then : ComboBox7.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox47.SelectedIndex = 5 Then : ComboBox7.BackColor = Color.LightGray
        ElseIf ComboBox47.SelectedIndex = 6 Then : ComboBox7.BackColor = Color.LightGreen
        ElseIf ComboBox47.SelectedIndex = 7 Then : ComboBox7.BackColor = Color.LightPink
        ElseIf ComboBox47.SelectedIndex = 8 Then : ComboBox7.BackColor = Color.LightSalmon
        ElseIf ComboBox47.SelectedIndex = 9 Then : ComboBox7.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox48_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox48.SelectedIndexChanged
        If ComboBox48.SelectedIndex = 0 Then : ComboBox8.BackColor = Color.LawnGreen
        ElseIf ComboBox48.SelectedIndex = 1 Then : ComboBox8.BackColor = Color.LightBlue
        ElseIf ComboBox48.SelectedIndex = 2 Then : ComboBox8.BackColor = Color.LightCoral
        ElseIf ComboBox48.SelectedIndex = 3 Then : ComboBox8.BackColor = Color.LightCyan
        ElseIf ComboBox48.SelectedIndex = 4 Then : ComboBox8.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox48.SelectedIndex = 5 Then : ComboBox8.BackColor = Color.LightGray
        ElseIf ComboBox48.SelectedIndex = 6 Then : ComboBox8.BackColor = Color.LightGreen
        ElseIf ComboBox48.SelectedIndex = 7 Then : ComboBox8.BackColor = Color.LightPink
        ElseIf ComboBox48.SelectedIndex = 8 Then : ComboBox8.BackColor = Color.LightSalmon
        ElseIf ComboBox48.SelectedIndex = 9 Then : ComboBox8.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox49_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox49.SelectedIndexChanged
        If ComboBox49.SelectedIndex = 0 Then : ComboBox9.BackColor = Color.LawnGreen
        ElseIf ComboBox49.SelectedIndex = 1 Then : ComboBox9.BackColor = Color.LightBlue
        ElseIf ComboBox49.SelectedIndex = 2 Then : ComboBox9.BackColor = Color.LightCoral
        ElseIf ComboBox49.SelectedIndex = 3 Then : ComboBox9.BackColor = Color.LightCyan
        ElseIf ComboBox49.SelectedIndex = 4 Then : ComboBox9.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox49.SelectedIndex = 5 Then : ComboBox9.BackColor = Color.LightGray
        ElseIf ComboBox49.SelectedIndex = 6 Then : ComboBox9.BackColor = Color.LightGreen
        ElseIf ComboBox49.SelectedIndex = 7 Then : ComboBox9.BackColor = Color.LightPink
        ElseIf ComboBox49.SelectedIndex = 8 Then : ComboBox9.BackColor = Color.LightSalmon
        ElseIf ComboBox49.SelectedIndex = 9 Then : ComboBox9.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox50_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox50.SelectedIndexChanged
        If ComboBox50.SelectedIndex = 0 Then : ComboBox10.BackColor = Color.LawnGreen
        ElseIf ComboBox50.SelectedIndex = 1 Then : ComboBox10.BackColor = Color.LightBlue
        ElseIf ComboBox50.SelectedIndex = 2 Then : ComboBox10.BackColor = Color.LightCoral
        ElseIf ComboBox50.SelectedIndex = 3 Then : ComboBox10.BackColor = Color.LightCyan
        ElseIf ComboBox50.SelectedIndex = 4 Then : ComboBox10.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox50.SelectedIndex = 5 Then : ComboBox10.BackColor = Color.LightGray
        ElseIf ComboBox50.SelectedIndex = 6 Then : ComboBox10.BackColor = Color.LightGreen
        ElseIf ComboBox50.SelectedIndex = 7 Then : ComboBox10.BackColor = Color.LightPink
        ElseIf ComboBox50.SelectedIndex = 8 Then : ComboBox10.BackColor = Color.LightSalmon
        ElseIf ComboBox50.SelectedIndex = 9 Then : ComboBox10.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox51_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox51.SelectedIndexChanged
        If ComboBox51.SelectedIndex = 0 Then : ComboBox11.BackColor = Color.LawnGreen
        ElseIf ComboBox51.SelectedIndex = 1 Then : ComboBox11.BackColor = Color.LightBlue
        ElseIf ComboBox51.SelectedIndex = 2 Then : ComboBox11.BackColor = Color.LightCoral
        ElseIf ComboBox51.SelectedIndex = 3 Then : ComboBox11.BackColor = Color.LightCyan
        ElseIf ComboBox51.SelectedIndex = 4 Then : ComboBox11.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox51.SelectedIndex = 5 Then : ComboBox11.BackColor = Color.LightGray
        ElseIf ComboBox51.SelectedIndex = 6 Then : ComboBox11.BackColor = Color.LightGreen
        ElseIf ComboBox51.SelectedIndex = 7 Then : ComboBox11.BackColor = Color.LightPink
        ElseIf ComboBox51.SelectedIndex = 8 Then : ComboBox11.BackColor = Color.LightSalmon
        ElseIf ComboBox51.SelectedIndex = 9 Then : ComboBox11.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox52_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox52.SelectedIndexChanged
        If ComboBox52.SelectedIndex = 0 Then : ComboBox12.BackColor = Color.LawnGreen
        ElseIf ComboBox52.SelectedIndex = 1 Then : ComboBox12.BackColor = Color.LightBlue
        ElseIf ComboBox52.SelectedIndex = 2 Then : ComboBox12.BackColor = Color.LightCoral
        ElseIf ComboBox52.SelectedIndex = 3 Then : ComboBox12.BackColor = Color.LightCyan
        ElseIf ComboBox52.SelectedIndex = 4 Then : ComboBox12.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox52.SelectedIndex = 5 Then : ComboBox12.BackColor = Color.LightGray
        ElseIf ComboBox52.SelectedIndex = 6 Then : ComboBox12.BackColor = Color.LightGreen
        ElseIf ComboBox52.SelectedIndex = 7 Then : ComboBox12.BackColor = Color.LightPink
        ElseIf ComboBox52.SelectedIndex = 8 Then : ComboBox12.BackColor = Color.LightSalmon
        ElseIf ComboBox52.SelectedIndex = 9 Then : ComboBox12.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox53_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox53.SelectedIndexChanged
        If ComboBox53.SelectedIndex = 0 Then : ComboBox13.BackColor = Color.LawnGreen
        ElseIf ComboBox53.SelectedIndex = 1 Then : ComboBox13.BackColor = Color.LightBlue
        ElseIf ComboBox53.SelectedIndex = 2 Then : ComboBox13.BackColor = Color.LightCoral
        ElseIf ComboBox53.SelectedIndex = 3 Then : ComboBox13.BackColor = Color.LightCyan
        ElseIf ComboBox53.SelectedIndex = 4 Then : ComboBox13.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox53.SelectedIndex = 5 Then : ComboBox13.BackColor = Color.LightGray
        ElseIf ComboBox53.SelectedIndex = 6 Then : ComboBox13.BackColor = Color.LightGreen
        ElseIf ComboBox53.SelectedIndex = 7 Then : ComboBox13.BackColor = Color.LightPink
        ElseIf ComboBox53.SelectedIndex = 8 Then : ComboBox13.BackColor = Color.LightSalmon
        ElseIf ComboBox53.SelectedIndex = 9 Then : ComboBox13.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox54_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox54.SelectedIndexChanged
        If ComboBox54.SelectedIndex = 0 Then : ComboBox14.BackColor = Color.LawnGreen
        ElseIf ComboBox54.SelectedIndex = 1 Then : ComboBox14.BackColor = Color.LightBlue
        ElseIf ComboBox54.SelectedIndex = 2 Then : ComboBox14.BackColor = Color.LightCoral
        ElseIf ComboBox54.SelectedIndex = 3 Then : ComboBox14.BackColor = Color.LightCyan
        ElseIf ComboBox54.SelectedIndex = 4 Then : ComboBox14.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox54.SelectedIndex = 5 Then : ComboBox14.BackColor = Color.LightGray
        ElseIf ComboBox54.SelectedIndex = 6 Then : ComboBox14.BackColor = Color.LightGreen
        ElseIf ComboBox54.SelectedIndex = 7 Then : ComboBox14.BackColor = Color.LightPink
        ElseIf ComboBox54.SelectedIndex = 8 Then : ComboBox14.BackColor = Color.LightSalmon
        ElseIf ComboBox54.SelectedIndex = 9 Then : ComboBox14.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox55_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox55.SelectedIndexChanged
        If ComboBox55.SelectedIndex = 0 Then : ComboBox15.BackColor = Color.LawnGreen
        ElseIf ComboBox55.SelectedIndex = 1 Then : ComboBox15.BackColor = Color.LightBlue
        ElseIf ComboBox55.SelectedIndex = 2 Then : ComboBox15.BackColor = Color.LightCoral
        ElseIf ComboBox55.SelectedIndex = 3 Then : ComboBox15.BackColor = Color.LightCyan
        ElseIf ComboBox55.SelectedIndex = 4 Then : ComboBox15.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox55.SelectedIndex = 5 Then : ComboBox15.BackColor = Color.LightGray
        ElseIf ComboBox55.SelectedIndex = 6 Then : ComboBox15.BackColor = Color.LightGreen
        ElseIf ComboBox55.SelectedIndex = 7 Then : ComboBox15.BackColor = Color.LightPink
        ElseIf ComboBox55.SelectedIndex = 8 Then : ComboBox15.BackColor = Color.LightSalmon
        ElseIf ComboBox55.SelectedIndex = 9 Then : ComboBox15.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox56_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox56.SelectedIndexChanged
        If ComboBox56.SelectedIndex = 0 Then : ComboBox16.BackColor = Color.LawnGreen
        ElseIf ComboBox56.SelectedIndex = 1 Then : ComboBox16.BackColor = Color.LightBlue
        ElseIf ComboBox56.SelectedIndex = 2 Then : ComboBox16.BackColor = Color.LightCoral
        ElseIf ComboBox56.SelectedIndex = 3 Then : ComboBox16.BackColor = Color.LightCyan
        ElseIf ComboBox56.SelectedIndex = 4 Then : ComboBox16.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox56.SelectedIndex = 5 Then : ComboBox16.BackColor = Color.LightGray
        ElseIf ComboBox56.SelectedIndex = 6 Then : ComboBox16.BackColor = Color.LightGreen
        ElseIf ComboBox56.SelectedIndex = 7 Then : ComboBox16.BackColor = Color.LightPink
        ElseIf ComboBox56.SelectedIndex = 8 Then : ComboBox16.BackColor = Color.LightSalmon
        ElseIf ComboBox56.SelectedIndex = 9 Then : ComboBox16.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox57_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox57.SelectedIndexChanged
        If ComboBox57.SelectedIndex = 0 Then : ComboBox17.BackColor = Color.LawnGreen
        ElseIf ComboBox57.SelectedIndex = 1 Then : ComboBox17.BackColor = Color.LightBlue
        ElseIf ComboBox57.SelectedIndex = 2 Then : ComboBox17.BackColor = Color.LightCoral
        ElseIf ComboBox57.SelectedIndex = 3 Then : ComboBox17.BackColor = Color.LightCyan
        ElseIf ComboBox57.SelectedIndex = 4 Then : ComboBox17.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox57.SelectedIndex = 5 Then : ComboBox17.BackColor = Color.LightGray
        ElseIf ComboBox57.SelectedIndex = 6 Then : ComboBox17.BackColor = Color.LightGreen
        ElseIf ComboBox57.SelectedIndex = 7 Then : ComboBox17.BackColor = Color.LightPink
        ElseIf ComboBox57.SelectedIndex = 8 Then : ComboBox17.BackColor = Color.LightSalmon
        ElseIf ComboBox57.SelectedIndex = 9 Then : ComboBox17.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox58_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox58.SelectedIndexChanged
        If ComboBox58.SelectedIndex = 0 Then : ComboBox18.BackColor = Color.LawnGreen
        ElseIf ComboBox58.SelectedIndex = 1 Then : ComboBox18.BackColor = Color.LightBlue
        ElseIf ComboBox58.SelectedIndex = 2 Then : ComboBox18.BackColor = Color.LightCoral
        ElseIf ComboBox58.SelectedIndex = 3 Then : ComboBox18.BackColor = Color.LightCyan
        ElseIf ComboBox58.SelectedIndex = 4 Then : ComboBox18.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox58.SelectedIndex = 5 Then : ComboBox18.BackColor = Color.LightGray
        ElseIf ComboBox58.SelectedIndex = 6 Then : ComboBox18.BackColor = Color.LightGreen
        ElseIf ComboBox58.SelectedIndex = 7 Then : ComboBox18.BackColor = Color.LightPink
        ElseIf ComboBox58.SelectedIndex = 8 Then : ComboBox18.BackColor = Color.LightSalmon
        ElseIf ComboBox58.SelectedIndex = 9 Then : ComboBox18.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox59_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox59.SelectedIndexChanged
        If ComboBox59.SelectedIndex = 0 Then : ComboBox19.BackColor = Color.LawnGreen
        ElseIf ComboBox59.SelectedIndex = 1 Then : ComboBox19.BackColor = Color.LightBlue
        ElseIf ComboBox59.SelectedIndex = 2 Then : ComboBox19.BackColor = Color.LightCoral
        ElseIf ComboBox59.SelectedIndex = 3 Then : ComboBox19.BackColor = Color.LightCyan
        ElseIf ComboBox59.SelectedIndex = 4 Then : ComboBox19.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox59.SelectedIndex = 5 Then : ComboBox19.BackColor = Color.LightGray
        ElseIf ComboBox59.SelectedIndex = 6 Then : ComboBox19.BackColor = Color.LightGreen
        ElseIf ComboBox59.SelectedIndex = 7 Then : ComboBox19.BackColor = Color.LightPink
        ElseIf ComboBox59.SelectedIndex = 8 Then : ComboBox19.BackColor = Color.LightSalmon
        ElseIf ComboBox59.SelectedIndex = 9 Then : ComboBox19.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox60_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox60.SelectedIndexChanged
        If ComboBox60.SelectedIndex = 0 Then : ComboBox20.BackColor = Color.LawnGreen
        ElseIf ComboBox60.SelectedIndex = 1 Then : ComboBox20.BackColor = Color.LightBlue
        ElseIf ComboBox60.SelectedIndex = 2 Then : ComboBox20.BackColor = Color.LightCoral
        ElseIf ComboBox60.SelectedIndex = 3 Then : ComboBox20.BackColor = Color.LightCyan
        ElseIf ComboBox60.SelectedIndex = 4 Then : ComboBox20.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox60.SelectedIndex = 5 Then : ComboBox20.BackColor = Color.LightGray
        ElseIf ComboBox60.SelectedIndex = 6 Then : ComboBox20.BackColor = Color.LightGreen
        ElseIf ComboBox60.SelectedIndex = 7 Then : ComboBox20.BackColor = Color.LightPink
        ElseIf ComboBox60.SelectedIndex = 8 Then : ComboBox20.BackColor = Color.LightSalmon
        ElseIf ComboBox60.SelectedIndex = 9 Then : ComboBox20.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox61_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox61.SelectedIndexChanged
        If ComboBox61.SelectedIndex = 0 Then : ComboBox21.BackColor = Color.LawnGreen
        ElseIf ComboBox61.SelectedIndex = 1 Then : ComboBox21.BackColor = Color.LightBlue
        ElseIf ComboBox61.SelectedIndex = 2 Then : ComboBox21.BackColor = Color.LightCoral
        ElseIf ComboBox61.SelectedIndex = 3 Then : ComboBox21.BackColor = Color.LightCyan
        ElseIf ComboBox61.SelectedIndex = 4 Then : ComboBox21.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox61.SelectedIndex = 5 Then : ComboBox21.BackColor = Color.LightGray
        ElseIf ComboBox61.SelectedIndex = 6 Then : ComboBox21.BackColor = Color.LightGreen
        ElseIf ComboBox61.SelectedIndex = 7 Then : ComboBox21.BackColor = Color.LightPink
        ElseIf ComboBox61.SelectedIndex = 8 Then : ComboBox21.BackColor = Color.LightSalmon
        ElseIf ComboBox61.SelectedIndex = 9 Then : ComboBox21.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox62_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox62.SelectedIndexChanged
        If ComboBox62.SelectedIndex = 0 Then : ComboBox22.BackColor = Color.LawnGreen
        ElseIf ComboBox62.SelectedIndex = 1 Then : ComboBox22.BackColor = Color.LightBlue
        ElseIf ComboBox62.SelectedIndex = 2 Then : ComboBox22.BackColor = Color.LightCoral
        ElseIf ComboBox62.SelectedIndex = 3 Then : ComboBox22.BackColor = Color.LightCyan
        ElseIf ComboBox62.SelectedIndex = 4 Then : ComboBox22.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox62.SelectedIndex = 5 Then : ComboBox22.BackColor = Color.LightGray
        ElseIf ComboBox62.SelectedIndex = 6 Then : ComboBox22.BackColor = Color.LightGreen
        ElseIf ComboBox62.SelectedIndex = 7 Then : ComboBox22.BackColor = Color.LightPink
        ElseIf ComboBox62.SelectedIndex = 8 Then : ComboBox22.BackColor = Color.LightSalmon
        ElseIf ComboBox62.SelectedIndex = 9 Then : ComboBox22.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox63_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox63.SelectedIndexChanged
        If ComboBox63.SelectedIndex = 0 Then : ComboBox23.BackColor = Color.LawnGreen
        ElseIf ComboBox63.SelectedIndex = 1 Then : ComboBox23.BackColor = Color.LightBlue
        ElseIf ComboBox63.SelectedIndex = 2 Then : ComboBox23.BackColor = Color.LightCoral
        ElseIf ComboBox63.SelectedIndex = 3 Then : ComboBox23.BackColor = Color.LightCyan
        ElseIf ComboBox63.SelectedIndex = 4 Then : ComboBox23.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox63.SelectedIndex = 5 Then : ComboBox23.BackColor = Color.LightGray
        ElseIf ComboBox63.SelectedIndex = 6 Then : ComboBox23.BackColor = Color.LightGreen
        ElseIf ComboBox63.SelectedIndex = 7 Then : ComboBox23.BackColor = Color.LightPink
        ElseIf ComboBox63.SelectedIndex = 8 Then : ComboBox23.BackColor = Color.LightSalmon
        ElseIf ComboBox63.SelectedIndex = 9 Then : ComboBox23.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox64_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox64.SelectedIndexChanged
        If ComboBox64.SelectedIndex = 0 Then : ComboBox24.BackColor = Color.LawnGreen
        ElseIf ComboBox64.SelectedIndex = 1 Then : ComboBox24.BackColor = Color.LightBlue
        ElseIf ComboBox64.SelectedIndex = 2 Then : ComboBox24.BackColor = Color.LightCoral
        ElseIf ComboBox64.SelectedIndex = 3 Then : ComboBox24.BackColor = Color.LightCyan
        ElseIf ComboBox64.SelectedIndex = 4 Then : ComboBox24.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox64.SelectedIndex = 5 Then : ComboBox24.BackColor = Color.LightGray
        ElseIf ComboBox64.SelectedIndex = 6 Then : ComboBox24.BackColor = Color.LightGreen
        ElseIf ComboBox64.SelectedIndex = 7 Then : ComboBox24.BackColor = Color.LightPink
        ElseIf ComboBox64.SelectedIndex = 8 Then : ComboBox24.BackColor = Color.LightSalmon
        ElseIf ComboBox64.SelectedIndex = 9 Then : ComboBox24.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox65_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox65.SelectedIndexChanged
        If ComboBox65.SelectedIndex = 0 Then : ComboBox25.BackColor = Color.LawnGreen
        ElseIf ComboBox65.SelectedIndex = 1 Then : ComboBox25.BackColor = Color.LightBlue
        ElseIf ComboBox65.SelectedIndex = 2 Then : ComboBox25.BackColor = Color.LightCoral
        ElseIf ComboBox65.SelectedIndex = 3 Then : ComboBox25.BackColor = Color.LightCyan
        ElseIf ComboBox65.SelectedIndex = 4 Then : ComboBox25.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox65.SelectedIndex = 5 Then : ComboBox25.BackColor = Color.LightGray
        ElseIf ComboBox65.SelectedIndex = 6 Then : ComboBox25.BackColor = Color.LightGreen
        ElseIf ComboBox65.SelectedIndex = 7 Then : ComboBox25.BackColor = Color.LightPink
        ElseIf ComboBox65.SelectedIndex = 8 Then : ComboBox25.BackColor = Color.LightSalmon
        ElseIf ComboBox65.SelectedIndex = 9 Then : ComboBox25.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox66_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox66.SelectedIndexChanged
        If ComboBox66.SelectedIndex = 0 Then : ComboBox26.BackColor = Color.LawnGreen
        ElseIf ComboBox66.SelectedIndex = 1 Then : ComboBox26.BackColor = Color.LightBlue
        ElseIf ComboBox66.SelectedIndex = 2 Then : ComboBox26.BackColor = Color.LightCoral
        ElseIf ComboBox66.SelectedIndex = 3 Then : ComboBox26.BackColor = Color.LightCyan
        ElseIf ComboBox66.SelectedIndex = 4 Then : ComboBox26.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox66.SelectedIndex = 5 Then : ComboBox26.BackColor = Color.LightGray
        ElseIf ComboBox66.SelectedIndex = 6 Then : ComboBox26.BackColor = Color.LightGreen
        ElseIf ComboBox66.SelectedIndex = 7 Then : ComboBox26.BackColor = Color.LightPink
        ElseIf ComboBox66.SelectedIndex = 8 Then : ComboBox26.BackColor = Color.LightSalmon
        ElseIf ComboBox66.SelectedIndex = 9 Then : ComboBox26.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox67_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox67.SelectedIndexChanged
        If ComboBox67.SelectedIndex = 0 Then : ComboBox27.BackColor = Color.LawnGreen
        ElseIf ComboBox67.SelectedIndex = 1 Then : ComboBox27.BackColor = Color.LightBlue
        ElseIf ComboBox67.SelectedIndex = 2 Then : ComboBox27.BackColor = Color.LightCoral
        ElseIf ComboBox67.SelectedIndex = 3 Then : ComboBox27.BackColor = Color.LightCyan
        ElseIf ComboBox67.SelectedIndex = 4 Then : ComboBox27.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox67.SelectedIndex = 5 Then : ComboBox27.BackColor = Color.LightGray
        ElseIf ComboBox67.SelectedIndex = 6 Then : ComboBox27.BackColor = Color.LightGreen
        ElseIf ComboBox67.SelectedIndex = 7 Then : ComboBox27.BackColor = Color.LightPink
        ElseIf ComboBox67.SelectedIndex = 8 Then : ComboBox27.BackColor = Color.LightSalmon
        ElseIf ComboBox67.SelectedIndex = 9 Then : ComboBox27.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox68_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox68.SelectedIndexChanged
        If ComboBox68.SelectedIndex = 0 Then : ComboBox28.BackColor = Color.LawnGreen
        ElseIf ComboBox68.SelectedIndex = 1 Then : ComboBox28.BackColor = Color.LightBlue
        ElseIf ComboBox68.SelectedIndex = 2 Then : ComboBox28.BackColor = Color.LightCoral
        ElseIf ComboBox68.SelectedIndex = 3 Then : ComboBox28.BackColor = Color.LightCyan
        ElseIf ComboBox68.SelectedIndex = 4 Then : ComboBox28.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox68.SelectedIndex = 5 Then : ComboBox28.BackColor = Color.LightGray
        ElseIf ComboBox68.SelectedIndex = 6 Then : ComboBox28.BackColor = Color.LightGreen
        ElseIf ComboBox68.SelectedIndex = 7 Then : ComboBox28.BackColor = Color.LightPink
        ElseIf ComboBox68.SelectedIndex = 8 Then : ComboBox28.BackColor = Color.LightSalmon
        ElseIf ComboBox68.SelectedIndex = 9 Then : ComboBox28.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox69_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox69.SelectedIndexChanged
        If ComboBox69.SelectedIndex = 0 Then : ComboBox29.BackColor = Color.LawnGreen
        ElseIf ComboBox69.SelectedIndex = 1 Then : ComboBox29.BackColor = Color.LightBlue
        ElseIf ComboBox69.SelectedIndex = 2 Then : ComboBox29.BackColor = Color.LightCoral
        ElseIf ComboBox69.SelectedIndex = 3 Then : ComboBox29.BackColor = Color.LightCyan
        ElseIf ComboBox69.SelectedIndex = 4 Then : ComboBox29.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox69.SelectedIndex = 5 Then : ComboBox29.BackColor = Color.LightGray
        ElseIf ComboBox69.SelectedIndex = 6 Then : ComboBox29.BackColor = Color.LightGreen
        ElseIf ComboBox69.SelectedIndex = 7 Then : ComboBox29.BackColor = Color.LightPink
        ElseIf ComboBox69.SelectedIndex = 8 Then : ComboBox29.BackColor = Color.LightSalmon
        ElseIf ComboBox69.SelectedIndex = 9 Then : ComboBox29.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox70_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox70.SelectedIndexChanged
        If ComboBox70.SelectedIndex = 0 Then : ComboBox30.BackColor = Color.LawnGreen
        ElseIf ComboBox70.SelectedIndex = 1 Then : ComboBox30.BackColor = Color.LightBlue
        ElseIf ComboBox70.SelectedIndex = 2 Then : ComboBox30.BackColor = Color.LightCoral
        ElseIf ComboBox70.SelectedIndex = 3 Then : ComboBox30.BackColor = Color.LightCyan
        ElseIf ComboBox70.SelectedIndex = 4 Then : ComboBox30.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox70.SelectedIndex = 5 Then : ComboBox30.BackColor = Color.LightGray
        ElseIf ComboBox70.SelectedIndex = 6 Then : ComboBox30.BackColor = Color.LightGreen
        ElseIf ComboBox70.SelectedIndex = 7 Then : ComboBox30.BackColor = Color.LightPink
        ElseIf ComboBox70.SelectedIndex = 8 Then : ComboBox30.BackColor = Color.LightSalmon
        ElseIf ComboBox70.SelectedIndex = 9 Then : ComboBox30.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox71_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox71.SelectedIndexChanged
        If ComboBox71.SelectedIndex = 0 Then : ComboBox31.BackColor = Color.LawnGreen
        ElseIf ComboBox71.SelectedIndex = 1 Then : ComboBox31.BackColor = Color.LightBlue
        ElseIf ComboBox71.SelectedIndex = 2 Then : ComboBox31.BackColor = Color.LightCoral
        ElseIf ComboBox71.SelectedIndex = 3 Then : ComboBox31.BackColor = Color.LightCyan
        ElseIf ComboBox71.SelectedIndex = 4 Then : ComboBox31.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox71.SelectedIndex = 5 Then : ComboBox31.BackColor = Color.LightGray
        ElseIf ComboBox71.SelectedIndex = 6 Then : ComboBox31.BackColor = Color.LightGreen
        ElseIf ComboBox71.SelectedIndex = 7 Then : ComboBox31.BackColor = Color.LightPink
        ElseIf ComboBox71.SelectedIndex = 8 Then : ComboBox31.BackColor = Color.LightSalmon
        ElseIf ComboBox71.SelectedIndex = 9 Then : ComboBox31.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox72_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox72.SelectedIndexChanged
        If ComboBox72.SelectedIndex = 0 Then : ComboBox32.BackColor = Color.LawnGreen
        ElseIf ComboBox72.SelectedIndex = 1 Then : ComboBox32.BackColor = Color.LightBlue
        ElseIf ComboBox72.SelectedIndex = 2 Then : ComboBox32.BackColor = Color.LightCoral
        ElseIf ComboBox72.SelectedIndex = 3 Then : ComboBox32.BackColor = Color.LightCyan
        ElseIf ComboBox72.SelectedIndex = 4 Then : ComboBox32.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox72.SelectedIndex = 5 Then : ComboBox32.BackColor = Color.LightGray
        ElseIf ComboBox72.SelectedIndex = 6 Then : ComboBox32.BackColor = Color.LightGreen
        ElseIf ComboBox72.SelectedIndex = 7 Then : ComboBox32.BackColor = Color.LightPink
        ElseIf ComboBox72.SelectedIndex = 8 Then : ComboBox32.BackColor = Color.LightSalmon
        ElseIf ComboBox72.SelectedIndex = 9 Then : ComboBox32.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox73_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox73.SelectedIndexChanged
        If ComboBox73.SelectedIndex = 0 Then : ComboBox33.BackColor = Color.LawnGreen
        ElseIf ComboBox73.SelectedIndex = 1 Then : ComboBox33.BackColor = Color.LightBlue
        ElseIf ComboBox73.SelectedIndex = 2 Then : ComboBox33.BackColor = Color.LightCoral
        ElseIf ComboBox73.SelectedIndex = 3 Then : ComboBox33.BackColor = Color.LightCyan
        ElseIf ComboBox73.SelectedIndex = 4 Then : ComboBox33.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox73.SelectedIndex = 5 Then : ComboBox33.BackColor = Color.LightGray
        ElseIf ComboBox73.SelectedIndex = 6 Then : ComboBox33.BackColor = Color.LightGreen
        ElseIf ComboBox73.SelectedIndex = 7 Then : ComboBox33.BackColor = Color.LightPink
        ElseIf ComboBox73.SelectedIndex = 8 Then : ComboBox33.BackColor = Color.LightSalmon
        ElseIf ComboBox73.SelectedIndex = 9 Then : ComboBox33.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox74_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox74.SelectedIndexChanged
        If ComboBox74.SelectedIndex = 0 Then : ComboBox34.BackColor = Color.LawnGreen
        ElseIf ComboBox74.SelectedIndex = 1 Then : ComboBox34.BackColor = Color.LightBlue
        ElseIf ComboBox74.SelectedIndex = 2 Then : ComboBox34.BackColor = Color.LightCoral
        ElseIf ComboBox74.SelectedIndex = 3 Then : ComboBox34.BackColor = Color.LightCyan
        ElseIf ComboBox74.SelectedIndex = 4 Then : ComboBox34.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox74.SelectedIndex = 5 Then : ComboBox34.BackColor = Color.LightGray
        ElseIf ComboBox74.SelectedIndex = 6 Then : ComboBox34.BackColor = Color.LightGreen
        ElseIf ComboBox74.SelectedIndex = 7 Then : ComboBox34.BackColor = Color.LightPink
        ElseIf ComboBox74.SelectedIndex = 8 Then : ComboBox34.BackColor = Color.LightSalmon
        ElseIf ComboBox74.SelectedIndex = 9 Then : ComboBox34.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox75_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox75.SelectedIndexChanged
        If ComboBox75.SelectedIndex = 0 Then : ComboBox35.BackColor = Color.LawnGreen
        ElseIf ComboBox75.SelectedIndex = 1 Then : ComboBox35.BackColor = Color.LightBlue
        ElseIf ComboBox75.SelectedIndex = 2 Then : ComboBox35.BackColor = Color.LightCoral
        ElseIf ComboBox75.SelectedIndex = 3 Then : ComboBox35.BackColor = Color.LightCyan
        ElseIf ComboBox75.SelectedIndex = 4 Then : ComboBox35.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox75.SelectedIndex = 5 Then : ComboBox35.BackColor = Color.LightGray
        ElseIf ComboBox75.SelectedIndex = 6 Then : ComboBox35.BackColor = Color.LightGreen
        ElseIf ComboBox75.SelectedIndex = 7 Then : ComboBox35.BackColor = Color.LightPink
        ElseIf ComboBox75.SelectedIndex = 8 Then : ComboBox35.BackColor = Color.LightSalmon
        ElseIf ComboBox75.SelectedIndex = 9 Then : ComboBox35.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox76_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox76.SelectedIndexChanged
        If ComboBox76.SelectedIndex = 0 Then : ComboBox36.BackColor = Color.LawnGreen
        ElseIf ComboBox76.SelectedIndex = 1 Then : ComboBox36.BackColor = Color.LightBlue
        ElseIf ComboBox76.SelectedIndex = 2 Then : ComboBox36.BackColor = Color.LightCoral
        ElseIf ComboBox76.SelectedIndex = 3 Then : ComboBox36.BackColor = Color.LightCyan
        ElseIf ComboBox76.SelectedIndex = 4 Then : ComboBox36.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox76.SelectedIndex = 5 Then : ComboBox36.BackColor = Color.LightGray
        ElseIf ComboBox76.SelectedIndex = 6 Then : ComboBox36.BackColor = Color.LightGreen
        ElseIf ComboBox76.SelectedIndex = 7 Then : ComboBox36.BackColor = Color.LightPink
        ElseIf ComboBox76.SelectedIndex = 8 Then : ComboBox36.BackColor = Color.LightSalmon
        ElseIf ComboBox76.SelectedIndex = 9 Then : ComboBox36.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox77_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox77.SelectedIndexChanged
        If ComboBox77.SelectedIndex = 0 Then : ComboBox37.BackColor = Color.LawnGreen
        ElseIf ComboBox77.SelectedIndex = 1 Then : ComboBox37.BackColor = Color.LightBlue
        ElseIf ComboBox77.SelectedIndex = 2 Then : ComboBox37.BackColor = Color.LightCoral
        ElseIf ComboBox77.SelectedIndex = 3 Then : ComboBox37.BackColor = Color.LightCyan
        ElseIf ComboBox77.SelectedIndex = 4 Then : ComboBox37.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox77.SelectedIndex = 5 Then : ComboBox37.BackColor = Color.LightGray
        ElseIf ComboBox77.SelectedIndex = 6 Then : ComboBox37.BackColor = Color.LightGreen
        ElseIf ComboBox77.SelectedIndex = 7 Then : ComboBox37.BackColor = Color.LightPink
        ElseIf ComboBox77.SelectedIndex = 8 Then : ComboBox37.BackColor = Color.LightSalmon
        ElseIf ComboBox77.SelectedIndex = 9 Then : ComboBox37.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox78_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox78.SelectedIndexChanged
        If ComboBox78.SelectedIndex = 0 Then : ComboBox38.BackColor = Color.LawnGreen
        ElseIf ComboBox78.SelectedIndex = 1 Then : ComboBox38.BackColor = Color.LightBlue
        ElseIf ComboBox78.SelectedIndex = 2 Then : ComboBox38.BackColor = Color.LightCoral
        ElseIf ComboBox78.SelectedIndex = 3 Then : ComboBox38.BackColor = Color.LightCyan
        ElseIf ComboBox78.SelectedIndex = 4 Then : ComboBox38.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox78.SelectedIndex = 5 Then : ComboBox38.BackColor = Color.LightGray
        ElseIf ComboBox78.SelectedIndex = 6 Then : ComboBox38.BackColor = Color.LightGreen
        ElseIf ComboBox78.SelectedIndex = 7 Then : ComboBox38.BackColor = Color.LightPink
        ElseIf ComboBox78.SelectedIndex = 8 Then : ComboBox38.BackColor = Color.LightSalmon
        ElseIf ComboBox78.SelectedIndex = 9 Then : ComboBox38.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox79_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox79.SelectedIndexChanged
        If ComboBox79.SelectedIndex = 0 Then : ComboBox39.BackColor = Color.LawnGreen
        ElseIf ComboBox79.SelectedIndex = 1 Then : ComboBox39.BackColor = Color.LightBlue
        ElseIf ComboBox79.SelectedIndex = 2 Then : ComboBox39.BackColor = Color.LightCoral
        ElseIf ComboBox79.SelectedIndex = 3 Then : ComboBox39.BackColor = Color.LightCyan
        ElseIf ComboBox79.SelectedIndex = 4 Then : ComboBox39.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox79.SelectedIndex = 5 Then : ComboBox39.BackColor = Color.LightGray
        ElseIf ComboBox79.SelectedIndex = 6 Then : ComboBox39.BackColor = Color.LightGreen
        ElseIf ComboBox79.SelectedIndex = 7 Then : ComboBox39.BackColor = Color.LightPink
        ElseIf ComboBox79.SelectedIndex = 8 Then : ComboBox39.BackColor = Color.LightSalmon
        ElseIf ComboBox79.SelectedIndex = 9 Then : ComboBox39.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox80_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox80.SelectedIndexChanged
        If ComboBox80.SelectedIndex = 0 Then : ComboBox40.BackColor = Color.LawnGreen
        ElseIf ComboBox80.SelectedIndex = 1 Then : ComboBox40.BackColor = Color.LightBlue
        ElseIf ComboBox80.SelectedIndex = 2 Then : ComboBox40.BackColor = Color.LightCoral
        ElseIf ComboBox80.SelectedIndex = 3 Then : ComboBox40.BackColor = Color.LightCyan
        ElseIf ComboBox80.SelectedIndex = 4 Then : ComboBox40.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox80.SelectedIndex = 5 Then : ComboBox40.BackColor = Color.LightGray
        ElseIf ComboBox80.SelectedIndex = 6 Then : ComboBox40.BackColor = Color.LightGreen
        ElseIf ComboBox80.SelectedIndex = 7 Then : ComboBox40.BackColor = Color.LightPink
        ElseIf ComboBox80.SelectedIndex = 8 Then : ComboBox40.BackColor = Color.LightSalmon
        ElseIf ComboBox80.SelectedIndex = 9 Then : ComboBox40.BackColor = Color.Gray
        End If
    End Sub
    Private Sub 簽核_bt_Click(sender As Object, e As EventArgs) Handles 簽核_bt.Click
        PA = 年_lb.Text & "/" & 月_lb.Text & "/" & 日_lb.Text : SQL_排班簽核() : MsgBox("簽核完畢!!!")
        簽核_bt.Enabled = False
        班表鎖定變化()
    End Sub
    Private Sub 解鎖_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 解鎖_ch.Click
        If 解鎖_ch.Checked = True Then
            PA = InputBox("修改已鎖定班表請輸入密碼!!")
            If PA = "753582" Then
                解鎖_ch.Checked = True
                簽核_bt.Enabled = True
                班表鎖定變化()
            Else
                MsgBox("密碼錯誤!!")
                解鎖_ch.Checked = False
                簽核_bt.Enabled = False
                班表鎖定變化()
            End If
        ElseIf 解鎖_ch.Checked = False Then
            解鎖_ch.Checked = False
            簽核_bt.Enabled = False
            班表鎖定變化()
        End If
    End Sub
    Private Sub ComboBox40_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox40.TextChanged
        If ComboBox40.Text = "" Then : ComboBox40.DropDownStyle = 1 : Else : ComboBox40.DropDownStyle = 0 : End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        PA = 年_lb.Text & "/" & 月_lb.Text & "/" & 日_lb.Text
        SQL_排班明細_判斷是否有資料()
        If dr.Read() Then
            SQL_排班明細_刪除當天()
        End If
        Q = 0
        For no As Integer = 1 To 20
            Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
            Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
            Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
            Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
            Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
            Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
            Dim ComboBoxsS1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 40 + Q).ToString(), True)(0), ComboBox)
            Dim ComboBoxsS2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 40 + 1 + Q).ToString(), True)(0), ComboBox)
            Dim ComboBoxs1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + Q).ToString(), True)(0), ComboBox)
            Dim ComboBoxs2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 1 + Q).ToString(), True)(0), ComboBox) : Q += 1

            PA1 = A_lbS.Text : PA2 = 姓名_tbS.Text : PA3 = 班別_cbS.Text : BL1 = CheckBoxS.Checked : Do1 = NUPS.Value
            PA5 = ComboBoxs1.Text : PA6 = ComboBoxs2.Text : PA7 = ComboBoxsS1.Text : PA8 = ComboBoxsS2.Text
            SQL_排班明細_上午上班()
            If dr.Read() Then : PA4 = dr("上午上班") : End If
            If CheckBoxS.Checked = False Then
                Do3 = 8
            Else
                Do3 = NumericUpDownS.Value
            End If
            Do2 = NumericUpDownS.Value
            SQL_排班明細_新增當天()
        Next
        PA = 年_lb.Text & "/" & 月_lb.Text & "/" & 日_lb.Text : PA13 = 值日生1_bt.Text : PA14 = 值日生2_bt.Text
        SQL_值日生存檔()
        解鎖_ch.Checked = False : 重新讀取()
        MsgBox("存檔完成!!")
    End Sub
    Private Sub 複製班表_bt_Click(sender As Object, e As EventArgs) Handles 複製班表_bt.Click
        Dim FF = MsgBox("確定要已該班表做模板複製到  " & Format(指定日期_dtp.Value, "yyyy/MM/dd") & "  去嗎 ?", MsgBoxStyle.OkCancel)
        If FF = MsgBoxResult.Ok Then
            PA = Format(指定日期_dtp.Value, "yyyy/MM/dd")
            SQL_排班明細_判斷是否有資料()
            If dr.Read() Then
                SQL_排班明細_刪除當天()
            End If
            Q = 0
            For no As Integer = 1 To 20
                Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
                Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                Dim ComboBoxsS1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 40 + Q).ToString(), True)(0), ComboBox)
                Dim ComboBoxsS2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 40 + 1 + Q).ToString(), True)(0), ComboBox)
                Dim ComboBoxs1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + Q).ToString(), True)(0), ComboBox)
                Dim ComboBoxs2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 1 + Q).ToString(), True)(0), ComboBox) : Q += 1

                PA1 = A_lbS.Text : PA2 = 姓名_tbS.Text : PA3 = 班別_cbS.Text : BL1 = CheckBoxS.Checked : Do1 = NUPS.Value
                PA5 = ComboBoxs1.Text : PA6 = ComboBoxs2.Text : PA7 = ComboBoxsS1.Text : PA8 = ComboBoxsS2.Text
                SQL_排班明細_上午上班()
                If dr.Read() Then : PA4 = dr("上午上班") : End If
                If CheckBoxS.Checked = False Then
                    Do3 = 8
                Else
                    Do3 = NumericUpDownS.Value
                End If
                Do2 = NumericUpDownS.Value
                SQL_排班明細_新增當天()
            Next : MsgBox("存檔完成，請切換到指定日期去查看!!")
        End If
    End Sub
    Private Sub 人員_dgv_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles 人員_dgv.CellDoubleClick
        If e.RowIndex = -1 Then : Else
            PA = 人員_dgv("編號", e.RowIndex).Value.ToString : PA1 = 人員_dgv("姓名", e.RowIndex).Value.ToString
        End If
        For no As Integer = 1 To 20
            Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
            If 姓名_tbS.Text = PA1 Then
                MsgBox("該人員已在班表內，無須再新增!!") : Exit Sub
            End If
        Next
        For no As Integer = 1 To 20
            Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
            If 姓名_tbS.Text <> "" Then
            Else
                姓名_tbS.Text = PA1 : Exit For
            End If
        Next
    End Sub
End Class