HX-PGS-ERP_New/04、工程管理系統/派工人數紀錄表.vb

Imports System.Windows.Forms.DataVisualization.Charting
Public Class 派工人數紀錄表
    ReadOnly ds8 As New DataSet
    Dim ESTR As String
    Dim EDR As Integer
    Dim 開始計算 As Boolean
    DIM 對話框(0) As String
    Private Sub Set_派工清單()
        Dim ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 25
        PA2 = Strings.Left(Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd"), 4) : PA3 = Strings.Mid(Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd"), 6, 2)
        PA4 = Strings.Right(Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd"), 2) : PA5 = 合約編號2_tb.Text
        If 已完工顯示_ch.Checked = False Then : SQL2 = "AND (工程進度表.專案結束 IS NULL OR 工程進度表.專案結束 = 0)" : Else : SQL2 = "" : End If
        SQL_派工人數紀錄表()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        'Set_清單_dgv_下拉式清單1()

        清單_dgv.Columns(0).FillWeight = 40 : 清單_dgv.Columns(1).Visible = False : 清單_dgv.Columns(2).Visible = False : 清單_dgv.Columns(3).Visible = False
        清單_dgv.Columns(4).FillWeight = 80 : 清單_dgv.Columns(5).FillWeight = 40 : 清單_dgv.Columns(6).FillWeight = 200 : 清單_dgv.Columns(7).FillWeight = 80
        清單_dgv.Columns(8).FillWeight = 50 : 清單_dgv.Columns(9).FillWeight = 80 : 清單_dgv.Columns(10).FillWeight = 80 : 清單_dgv.Columns(11).FillWeight = 200
        清單_dgv.Columns(12).FillWeight = 50
        清單_dgv.Columns(13).Visible = False : 清單_dgv.Columns(14).Visible = False ': 清單_dgv.Columns(15).Visible = False

        清單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        For i As Integer = 1 To 11 : 清單_dgv.Columns(i).ReadOnly = True : Next
        For I As Integer = 0 To 清單_dgv.Rows.Count - 1
            If IsDBNull(清單_dgv.Rows(I).Cells(表頭(0)).Value) = True Then : 清單_dgv.Rows(I).Cells(表頭(0)).Value = False : End If
            清單_dgv.Rows(I).Cells(表頭(73)).Value = Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd")
            If 清單_dgv.Rows(I).Cells(表頭(15)).Value.ToString = "" Then : 清單_dgv.Rows(I).Cells(表頭(15)).Value = "0" : 清單_dgv.Rows(I).Cells("原始").Value = "0" : End If
        Next
    End Sub
    Private Sub Set_清單_dgv_下拉式清單1()
        Dim Col As New DataGridViewComboBoxColumn With {
            .FillWeight = 200,
            .DataPropertyName = "案件主管"
        }
        SQL執行主管下拉()
        Col.Items.Clear() : Col.Items.Add("")
        While (dr.Read()) : Col.Items.Add(dr("姓名")) : End While : conn.Close()
        Col.HeaderText = 表頭(120) : Col.Name = "案件主管"
        清單_dgv.Columns.Insert(12, Col)
    End Sub
    Private Sub 彙總清單()
        Set_日期清單()
        If 日期_dgv.Rows.Count > 0 Then
            Dim ds1 As New DataSet
            彙總_dgv.DataSource = Nothing : ds1.Clear()
            彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            彙總_dgv.ColumnHeadersHeight = 35 : 彙總_dgv.AllowUserToAddRows = False : 彙總_dgv.RowTemplate.Height = 25
            PA5 = 查詢日期_cb.Text : PA6 = 查詢日期1_cb.Text : PA7 = 工程執行主管1_cb.Text : PA8 = 合約編號_tb.Text
            SQL_人員統計彙總表()
            da.Fill(ds1) : 彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
            彙總_dgv.Columns(0).Visible = False : 彙總_dgv.Columns(1).Width = 80 : 彙總_dgv.Columns(2).Width = 30
            彙總_dgv.Columns(3).Width = 120 : 彙總_dgv.Columns(4).Width = 50
            彙總_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            彙總_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            For II As Integer = 5 To NN1 + 5
                彙總_dgv.Columns(II).FillWeight = 50 : 彙總_dgv.Columns(II).DefaultCellStyle.Format = "#,##0"
                彙總_dgv.Columns(II).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            Next
            Set_彙總計算() : Set_彙總畫面() : 表格繪製2()
            If 彙總_dgv.Rows.Count = 0 Then : Chart3.Series.Clear() : End If
        End If
    End Sub
    Private Sub Set_彙總計算()
        For I As Integer = 0 To 彙總_dgv.Rows.Count - 1
            彙總_dgv.Rows(I).Cells(4).Value = "0"
            For II As Integer = 5 To NN1 + 5
                If 彙總_dgv.Rows(I).Cells(II).Value.ToString() = "" Then : 彙總_dgv.Rows(I).Cells(II).Value = "0" : End If
                彙總_dgv.Rows(I).Cells(4).Value = CInt(彙總_dgv.Rows(I).Cells(4).Value.ToString) + CInt(彙總_dgv.Rows(I).Cells(II).Value.ToString())
            Next
        Next
    End Sub
    Private Sub Set_彙總畫面()
        For I As Integer = 0 To 彙總_dgv.Rows.Count - 1
            For II As Integer = 5 To NN1 + 5
                If IsDBNull(彙總_dgv.Rows(I).Cells(II).Value) Then
                    彙總_dgv.Rows(I).Cells(II).Style.ForeColor = 彙總_dgv.Rows(I).Cells(II).Style.BackColor
                Else
                    If 彙總_dgv.Rows(I).Cells(II).Value = 0 Then
                        彙總_dgv.Rows(I).Cells(II).Style.ForeColor = 彙總_dgv.Rows(I).Cells(II).Style.BackColor
                    Else
                        If 深色風格 = False Then
                            彙總_dgv.Rows(I).Cells(II).Style.ForeColor = Color.Black
                        Else
                            彙總_dgv.Rows(I).Cells(II).Style.ForeColor = Color.White
                        End If
                    End If
                End If
            Next
        Next
    End Sub
    Private Sub 表格繪製2()
        '-------線狀圖------------------------------------------------------
        Chart3.Series.Clear() : Chart3.ChartAreas(0).AxisX.Minimum = 0
        Chart3.ChartAreas(0).BackColor = Color.Transparent : Chart3.Legends(0).BackColor = Color.Transparent
        Chart3.Series.Add("每日派工總數") : Chart3.Series("每日派工總數").ChartType = SeriesChartType.Column
        Chart3.Series("每日派工總數").IsVisibleInLegend = False
        Chart3.Series("每日派工總數").IsValueShownAsLabel = True
        Chart3.Series("每日派工總數").IsXValueIndexed = True
        For i As Integer = 0 To 日期_dgv.Rows.Count - 1
            Chart3.Series("每日派工總數").Points.AddXY(日期_dgv.Rows(i).Cells("日").Value.ToString, 日期_dgv.Rows(i).Cells("人數").Value.ToString)
        Next
        Chart3.Series.Add("每日總數") : Chart3.Series("每日總數").ChartType = SeriesChartType.Line
        Chart3.Series("每日總數").IsVisibleInLegend = False
        For i As Integer = 0 To 日期_dgv.Rows.Count - 1
            Chart3.Series("每日總數").Points.AddXY(日期_dgv.Rows(i).Cells("日").Value.ToString, 日期_dgv.Rows(i).Cells("人數").Value.ToString)
        Next
        Chart3.ChartAreas(0).BackColor = Color.Transparent : Chart3.Legends(0).BackColor = Color.Transparent
        If 深色風格 = False Then
            Chart3.Series("每日派工總數").LabelForeColor = Color.Black
            Chart3.Series("每日總數").LabelForeColor = Color.Black
            Chart3.Legends(0).ForeColor = Color.Black
            Chart3.ChartAreas(0).AxisX.LineColor = Color.Black : Chart3.ChartAreas(0).AxisY.LineColor = Color.Black
            Chart3.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.Black : Chart3.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.Black
        Else
            Chart3.Series("每日派工總數").LabelForeColor = Color.White
            Chart3.Series("每日總數").LabelForeColor = Color.White
            Chart3.Legends(0).ForeColor = Color.White
            Chart3.ChartAreas(0).AxisX.LineColor = Color.White : Chart3.ChartAreas(0).AxisY.LineColor = Color.White
            Chart3.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.White : Chart3.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.White
        End If
    End Sub
    Private Sub Set_日期清單()
        Dim ds1 As New DataSet : 日期_dgv.DataSource = Nothing : ds1.Clear()
        日期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        日期_dgv.ColumnHeadersHeight = 25 : 日期_dgv.AllowUserToAddRows = False
        PA5 = 查詢日期_cb.Text : PA6 = 查詢日期1_cb.Text
        SQL_派工日期人數()
        da.Fill(ds1) : 日期_dgv.DataSource = ds1.Tables(0) : conn.Close()
        For I As Integer = 0 To 日期_dgv.Rows.Count - 1
            If I = 0 Then : 清單列表 = "[" & 日期_dgv.Rows(I).Cells(0).Value.ToString()
            Else : 清單列表 = 清單列表 & "], [" & 日期_dgv.Rows(I).Cells(0).Value.ToString() : End If
            If I = 日期_dgv.Rows.Count - 1 Then : 清單列表 &= "]" : End If : NN1 = I
        Next
    End Sub
    Private Sub Set_進度表清單()
        Dim ds1 As New DataSet : 進度表清單_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執行主管下拉() : 主管_cb.Items.Clear() : 主管_cb.Items.Add("") : While (dr.Read()) : 主管_cb.Items.Add(dr("姓名")) : End While : conn.Close()
    End Sub
    Private Sub 執行主管下拉清單讀取()
        SQL執行主管下拉() : 工程執行主管_cb.Items.Clear() : 工程執行主管1_cb.Items.Clear() : 工程執行主管_cb.Items.Add("") : 工程執行主管1_cb.Items.Add("")
        While (dr.Read()) : 工程執行主管_cb.Items.Add(dr("姓名")) : 工程執行主管1_cb.Items.Add(dr("姓名")) : End While : conn.Close()
    End Sub
    Private Sub 年份清單下拉清單讀取()
        SQL_年份清單() : 查詢日期_cb.Items.Clear() : While (dr.Read()) : 查詢日期_cb.Items.Add(dr("年份")) : End While : conn.Close()
    End Sub
    Private Sub 甲方條件下拉清單讀取()
        SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : 合約編號2_cb.Items.Clear() : 合約編號2_cb.Items.Add("")
        While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : 合約編號2_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-176-" & 語言) : 甲方_lb.Text = 系統語言字典("H110-118-" & 語言) : 甲方1_lb.Text = 系統語言字典("H110-118-" & 語言)
        控制表_tp.Text = 系統語言字典("H405-100-" & 語言) : 彙總表_tp.Text = 系統語言字典("H405-101-" & 語言) : 工程執行主管_lb.Text = 系統語言字典("G000-200-" & 語言)
        工程執行主管1_lb.Text = 系統語言字典("G000-200-" & 語言) : 合約編號清單_bt.Text = 系統語言字典("H405-102-" & 語言) : 合約編號清單2_bt.Text = 系統語言字典("H405-102-" & 語言)
        報工日期_lb.Text = 系統語言字典("H405-103-" & 語言) : 下一天_bt.Text = 系統語言字典("H405-106-" & 語言)
        指定存檔_bt.Text = 系統語言字典("G000-110-" & 語言) : 已完工顯示_ch.Text = 系統語言字典("H405-107-" & 語言) : 派工月份_lb.Text = 系統語言字典("H405-108-" & 語言)
        表頭(0) = 系統語言字典("H405-109-" & 語言) : 表頭(134) = 系統語言字典("H501-152-" & 語言) : 表頭(11) = 系統語言字典("H511-116-" & 語言)
        表頭(155) = 系統語言字典("H405-110-" & 語言) : 表頭(1) = 系統語言字典("H405-111-" & 語言) : 表頭(2) = 系統語言字典("H405-112-" & 語言)
        表頭(3) = 系統語言字典("H405-113-" & 語言) : 表頭(73) = 系統語言字典("H405-114-" & 語言) : 表頭(120) = 系統語言字典("H405-115-" & 語言)
        表頭(15) = 系統語言字典("H405-116-" & 語言) : 表頭(83) = 系統語言字典("H405-117-" & 語言) : 對話框(0) = 系統語言字典("H204-133-" & 語言)
    End Sub
    Private Sub 派工人數紀錄表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(405) = True : 介面 = "H405" : 語言轉換讀取() : 顯示說明(999, False)
        彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub 派工人數紀錄表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        地方主管下拉清單讀取() : 甲方條件下拉清單讀取() : 年份清單下拉清單讀取() : 執行主管下拉清單讀取() : 工程執行主管_cb.Text = gUserName
        If CInt(登入人級別) <= 3 Then : PA1 = "%%" : ElseIf CInt(登入人級別) > 3 Then : PA1 = gUserName : End If
        Set_派工清單() : 開始計算 = False : 查詢日期_cb.Text = Year(Today) : 查詢日期1_cb.SelectedIndex = Month(Today) - 1 : 彙總清單() : 開始計算 = True
    End Sub
    Private Sub 派工人數紀錄表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(405) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H405" : 語言轉換讀取() : Set_派工清單() : 彙總清單()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 彙總_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 彙總_dgv.RowPostPaint
        Dim linePen As New  Pen(Color.Blue, 2) : Set_彙總畫面()
        If e.RowIndex = 彙總_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 彙總_dgv(表頭(134), e.RowIndex).Value.ToString <> 彙總_dgv(表頭(134), e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(彙總_dgv.RowHeadersVisible, 彙總_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單_dgv.RowPostPaint
        Dim linePen As New  Pen(Color.Blue, 2)
        If e.RowIndex = 清單_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 清單_dgv(表頭(134), e.RowIndex).Value.ToString <> 清單_dgv(表頭(134), e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(清單_dgv.RowHeadersVisible, 清單_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 清單_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 清單_dgv.MouseUp
        'If 清單_dgv.SelectedCells.Count = 1 Then : MsgBox(清單_dgv.SelectedCells(0).ColumnIndex & "  " & 清單_dgv.SelectedCells(0).RowIndex) : End If
        If 清單_dgv.SelectedCells.Count > 0 Then
            If 清單_dgv.SelectedCells(0).ColumnIndex = 11 Then
                CB選擇清單(主管_cb) : 清單_dgv(11, 清單_dgv.SelectedCells(0).RowIndex).Value = 主管_cb.Text
            End If
        End If
    End Sub
    Private Sub 工程執行主管_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程執行主管_cb.SelectedIndexChanged
        If 工程執行主管_cb.Text = "" Then : PA1 = "%%" : Else : PA1 = 工程執行主管_cb.Text : End If : Set_派工清單()
    End Sub
    Private Sub 工程執行主管_cb_Click(sender As Object, e As EventArgs) Handles 工程執行主管_cb.Click
        CB選擇清單(工程執行主管_cb)
    End Sub
    Private Sub 報工日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 報工日期_dtp.ValueChanged
        If 工程執行主管_cb.Text = "" Then : PA1 = "%%" : Else : PA1 = 工程執行主管_cb.Text : End If : Set_派工清單()
    End Sub
    Private Sub 上一天_bt_Click(sender As Object, e As EventArgs) Handles 上一天_bt.Click
        報工日期_dtp.Value = 報工日期_dtp.Value.AddDays(-1)
    End Sub
    Private Sub 今天_bt_Click(sender As Object, e As EventArgs) Handles 今天_bt.Click
        報工日期_dtp.Value = Today()
    End Sub
    Private Sub 下一天_bt_Click(sender As Object, e As EventArgs) Handles 下一天_bt.Click
        報工日期_dtp.Value = 報工日期_dtp.Value.AddDays(1)
    End Sub
    Private Sub 人員統計表流水號()
        SQL_人員統計表_最後一筆資料()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
        conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "PE" & "00000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PE" & "0000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PE" & "000000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PE" & "00000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PE" & "0000" & EDR : ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PE" & "000" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PE" & "00" & EDR : ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "PE" & "0" & EDR
        ElseIf EDR > 99999999 Then : ESTR = "PE" & EDR : End If : PA9 = ESTR
    End Sub
    Private Sub 指定存檔_bt_Click(sender As Object, e As EventArgs) Handles 指定存檔_bt.Click
        For I As Integer = 0 To 清單_dgv.Rows.Count - 1
            If 清單_dgv.Rows(I).Cells(表頭(15)).Value.ToString = "" Then : 清單_dgv.Rows(I).Cells(表頭(15)).Value = "0" : End If
            If 清單_dgv.Rows(I).Cells(表頭(15)).Value.ToString = "0" And 清單_dgv.Rows(I).Cells("原始").Value.ToString = "0" Then : Else
                PA = 清單_dgv.Rows(I).Cells("專案流水").Value.ToString : PA2 = Strings.Left(Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd"), 4)
                PA3 = Strings.Mid(Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd"), 6, 2) : PA4 = Strings.Right(Strings.Format(報工日期_dtp.Value, "yyyy/MM/dd"), 2)
                PA6 = 清單_dgv.Rows(I).Cells(表頭(15)).Value.ToString : PA7 = 清單_dgv.Rows(I).Cells("案件主管").Value.ToString : PA8 = 清單_dgv.Rows(I).Cells(表頭(134)).Value.ToString
                If 清單_dgv.Rows(I).Cells("流水號").Value.ToString = "" Then
                    人員統計表流水號() : SQL_人員統計表_新增資料()
                Else
                    PA9 = 清單_dgv.Rows(I).Cells("流水號").Value.ToString : SQL_人員統計表_修改資料()
                End If
            End If
            PA = 清單_dgv.Rows(I).Cells("專案流水").Value.ToString : BL1 = 清單_dgv.Rows(I).Cells(表頭(0)).Value : SQL_工程進度表_派工開關()
        Next : Set_派工清單() : MGB(對話框(0),1)
    End Sub
    Private Sub 查詢日期_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期_cb.SelectedIndexChanged
        If 開始計算 = True Then : 彙總清單() : End If
    End Sub
    Private Sub 查詢日期_cb_Click(sender As Object, e As EventArgs) Handles 查詢日期_cb.Click
        CB選擇清單(查詢日期_cb)
    End Sub
    Private Sub 查詢日期1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期1_cb.SelectedIndexChanged
        If 開始計算 = True Then : 彙總清單() : End If
    End Sub
    Private Sub 查詢日期1_cb_Click(sender As Object, e As EventArgs) Handles 查詢日期1_cb.Click
        CB選擇清單(查詢日期1_cb)
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        合約編號_tb.Text = "" : PA = 合約編號1_cb.Text : Set_進度表清單() : If 合約編號1_cb.Text = "" Then : 彙總清單() : End If
    End Sub
    Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click
        CB選擇清單(合約編號1_cb)
    End Sub
    Private Sub 合約編號2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號2_cb.SelectedIndexChanged
        合約編號2_tb.Text = "" : PA = 合約編號2_cb.Text : Set_進度表清單() : If 合約編號2_cb.Text = "" Then : Set_派工清單() : End If
    End Sub
    Private Sub 合約編號2_cb_Click(sender As Object, e As EventArgs) Handles 合約編號2_cb.Click
        CB選擇清單(合約編號2_cb)
    End Sub
    Private Sub 合約編號清單2_bt_Click(sender As Object, e As EventArgs) Handles 合約編號清單2_bt.Click
        If 進度表清單_dgv.Rows.Count > 2999 Then : MGB(系統語言字典("G000-153-" & 語言), 1) : Else
            For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
            For I As Integer = 0 To 進度表清單_dgv.Rows.Count - 1 : PPBB(I) = 進度表清單_dgv(表頭(134), I).Value.ToString : NN1 = I : Next
            下拉清單_1.ShowDialog()
            For I As Integer = 0 To 進度表清單_dgv.Rows.Count - 1
                If PPAA = 進度表清單_dgv(表頭(134), I).Value.ToString Then : 合約編號2_tb.Text = 進度表清單_dgv(表頭(134), I).Value.ToString : Exit For : End If
            Next : Set_派工清單()
        End If
    End Sub
    Private Sub 工程執行主管1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程執行主管1_cb.SelectedIndexChanged
        彙總清單()
    End Sub
    Private Sub 工程執行主管1_cb_Click(sender As Object, e As EventArgs) Handles 工程執行主管1_cb.Click
        CB選擇清單(工程執行主管1_cb)
    End Sub
    Private Sub 合約編號清單_bt_Click(sender As Object, e As EventArgs) Handles 合約編號清單_bt.Click
        If 進度表清單_dgv.Rows.Count > 2999 Then : MGB(系統語言字典("G000-153-" & 語言), 1) : Else
            For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
            For I As Integer = 0 To 進度表清單_dgv.Rows.Count - 1 : PPBB(I) = 進度表清單_dgv(表頭(134), I).Value.ToString : NN1 = I : Next
            下拉清單_1.ShowDialog()
            For I As Integer = 0 To 進度表清單_dgv.Rows.Count - 1
                If PPAA = 進度表清單_dgv(表頭(134), I).Value.ToString Then : 合約編號_tb.Text = 進度表清單_dgv(表頭(134), I).Value.ToString : Exit For : End If
            Next : 彙總清單()
        End If
    End Sub
    Private Sub 已完工顯示_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已完工顯示_ch.Click
        Set_派工清單()
    End Sub
    Private Sub TabControl1_ChangeUICues(ByVal sender As Object, ByVal e As EventArgs) Handles TabControl1.SelectedIndexChanged
        If TabControl1.SelectedIndex = 1 Then : 彙總清單() : End If
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control : 控制表_tp.BackColor = SystemColors.Control : 彙總表_tp.BackColor = SystemColors.Control

            工程執行主管_lb.ForeColor = Color.FromArgb(192, 0, 0) : 工程執行主管1_lb.ForeColor = Color.FromArgb(192, 0, 0)
            報工日期_lb.ForeColor = Color.FromArgb(192, 0, 192)
            派工月份_lb.ForeColor = Color.Blue
            甲方_lb.ForeColor = Color.Black : 甲方1_lb.ForeColor = Color.Black : 已完工顯示_ch.ForeColor = Color.Black
            甲方_lb.BackColor = SystemColors.Control : 甲方1_lb.BackColor = SystemColors.Control

            工程執行主管_cb.BackColor = Color.White : 工程執行主管_cb.ForeColor = Color.Blue : 合約編號2_cb.BackColor = Color.White : 合約編號2_cb.ForeColor = Color.Blue
            工程執行主管1_cb.BackColor = Color.White : 工程執行主管1_cb.ForeColor = Color.Blue : 合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Blue
            合約編號2_tb.BackColor = Color.White : 合約編號2_tb.ForeColor = Color.Black : 查詢日期_cb.BackColor = Color.White : 查詢日期_cb.ForeColor = Color.Black
            查詢日期1_cb.BackColor = Color.White : 查詢日期1_cb.ForeColor = Color.Black : 合約編號_tb.BackColor = Color.White : 合約編號_tb.ForeColor = Color.Black

            合約編號清單2_bt.BackColor = Color.White : 合約編號清單2_bt.ForeColor = Color.Black : 指定存檔_bt.BackColor = Color.White : 指定存檔_bt.ForeColor = Color.Black
            合約編號清單_bt.BackColor = Color.White : 合約編號清單_bt.ForeColor = Color.Black : 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black

            上一天_bt.BackColor = Color.White : 上一天_bt.ForeColor = Color.Blue : 今天_bt.BackColor = Color.White : 今天_bt.ForeColor = Color.Blue
            下一天_bt.BackColor = Color.White : 下一天_bt.ForeColor = Color.Blue

            清單_dgv.EnableHeadersVisualStyles = True : 清單_dgv.BackgroundColor = Color.White : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
            清單_dgv.DefaultCellStyle.BackColor = Color.White : 清單_dgv.DefaultCellStyle.ForeColor = Color.Black
            彙總_dgv.EnableHeadersVisualStyles = True : 彙總_dgv.BackgroundColor = Color.White : 彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            彙總_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
            彙總_dgv.DefaultCellStyle.BackColor = Color.White : 彙總_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black : 控制表_tp.BackColor = Color.Black : 彙總表_tp.BackColor = Color.Black

            工程執行主管_lb.ForeColor = Color.LightPink : 工程執行主管1_lb.ForeColor = Color.LightPink
            報工日期_lb.ForeColor = Color.Violet
            派工月份_lb.ForeColor = Color.LightBlue
            甲方_lb.ForeColor = Color.White : 甲方1_lb.ForeColor = Color.White : 已完工顯示_ch.ForeColor = Color.White
            甲方_lb.BackColor = Color.Black : 甲方1_lb.BackColor = Color.Black

            工程執行主管_cb.BackColor = Color.DimGray : 工程執行主管_cb.ForeColor = Color.LightBlue : 合約編號2_cb.BackColor = Color.DimGray : 合約編號2_cb.ForeColor = Color.LightBlue
            工程執行主管1_cb.BackColor = Color.DimGray : 工程執行主管1_cb.ForeColor = Color.LightBlue : 合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.LightBlue
            合約編號2_tb.BackColor = Color.DimGray : 合約編號2_tb.ForeColor = Color.White : 查詢日期_cb.BackColor = Color.DimGray : 查詢日期_cb.ForeColor = Color.White
            查詢日期1_cb.BackColor = Color.DimGray : 查詢日期1_cb.ForeColor = Color.White : 合約編號_tb.BackColor = Color.DimGray : 合約編號_tb.ForeColor = Color.White

            合約編號清單2_bt.BackColor = Color.DimGray : 合約編號清單2_bt.ForeColor = Color.White : 指定存檔_bt.BackColor = Color.DimGray : 指定存檔_bt.ForeColor = Color.White
            合約編號清單_bt.BackColor = Color.DimGray : 合約編號清單_bt.ForeColor = Color.White : 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White

            上一天_bt.BackColor = Color.DimGray : 上一天_bt.ForeColor = Color.LightBlue : 今天_bt.BackColor = Color.DimGray : 今天_bt.ForeColor = Color.LightBlue
            下一天_bt.BackColor = Color.DimGray : 下一天_bt.ForeColor = Color.LightBlue

            清單_dgv.EnableHeadersVisualStyles = False : 清單_dgv.BackgroundColor = Color.DimGray : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            清單_dgv.DefaultCellStyle.BackColor = Color.Black : 清單_dgv.DefaultCellStyle.ForeColor = Color.White
            彙總_dgv.EnableHeadersVisualStyles = False : 彙總_dgv.BackgroundColor = Color.DimGray : 彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            彙總_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 彙總_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            彙總_dgv.DefaultCellStyle.BackColor = Color.Black : 彙總_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class