MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/生產系統管理/生產控制表.vb

Option Strict Off
Public Class 生產控制表
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
    Dim screenWidth As Integer : Dim screenHeight As Integer : Dim newWidth1 As Integer : Dim newHeight1 As Integer
    Private Sub Set_清單()
        部分清單_dgv.DataSource = Nothing : ds.Clear()
        部分清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        部分清單_dgv.ColumnHeadersHeight = 25
        部分清單_dgv.AllowUserToAddRows = False
        PA = "1" : SQL_生產控制表清單() : PA = ""
        da.Fill(ds) : 部分清單_dgv.DataSource = ds.Tables(0) : conn.Close()

        部分清單_dgv.Columns(0).Width = 120 : 部分清單_dgv.Columns(1).Visible = False : 部分清單_dgv.Columns(2).Width = 80 : 部分清單_dgv.Columns(3).Visible = False
        部分清單_dgv.Columns(4).Width = 80 : 部分清單_dgv.Columns(5).Visible = False : 部分清單_dgv.Columns(6).Width = 200 : 部分清單_dgv.Columns(7).Width = 83
        部分清單_dgv.Columns(8).Width = 83 : 部分清單_dgv.Columns(9).Visible = False : 部分清單_dgv.Columns(10).Width = 60 : 部分清單_dgv.Columns(11).Width = 60
        部分清單_dgv.Columns(12).Visible = False : 部分清單_dgv.Columns(13).Width = 60 : 部分清單_dgv.Columns(14).Width = 60 : 部分清單_dgv.Columns(15).Width = 85
        部分清單_dgv.Columns(16).Width = 85 : 部分清單_dgv.Columns(17).Width = 85 : 部分清單_dgv.Columns(18).Width = 85 : 部分清單_dgv.Columns(20).Width = 80 : 部分清單_dgv.Columns(21).Width = 80

        If 顯示彙總_ch.Checked = True Then : 部分清單_dgv.Columns(19).Width = 71 : Else : 部分清單_dgv.Columns(19).Width = 489 : End If

        部分清單_dgv.Columns(0).Frozen = True : 部分清單_dgv.Columns(1).Frozen = True : 部分清單_dgv.Columns(2).Frozen = True : 部分清單_dgv.Columns(3).Frozen = True
        部分清單_dgv.Columns(4).Frozen = True : 部分清單_dgv.Columns(5).Frozen = True : 部分清單_dgv.Columns(6).Frozen = True

        部分清單_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 部分清單_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 部分清單_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
        部分清單_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 部分清單_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 部分清單_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
        部分清單_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        部分清單_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 部分清單_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        部分清單_dgv.Columns(0).ReadOnly = True : 部分清單_dgv.Columns(2).ReadOnly = True : 部分清單_dgv.Columns(4).ReadOnly = True : 部分清單_dgv.Columns(6).ReadOnly = True
        部分清單_dgv.Columns(7).ReadOnly = True : 部分清單_dgv.Columns(8).ReadOnly = True : 部分清單_dgv.Columns(9).ReadOnly = True : 部分清單_dgv.Columns(10).ReadOnly = True
        部分清單_dgv.Columns(11).ReadOnly = True : 部分清單_dgv.Columns(12).ReadOnly = True : 部分清單_dgv.Columns(13).ReadOnly = True : 部分清單_dgv.Columns(14).ReadOnly = True
        部分清單_dgv.Columns(15).ReadOnly = True : 部分清單_dgv.Columns(16).ReadOnly = True : 部分清單_dgv.Columns(17).ReadOnly = True : 部分清單_dgv.Columns(18).ReadOnly = True
        部分清單_dgv.Columns(19).ReadOnly = True : 部分清單_dgv.Columns(20).ReadOnly = True

        部分清單_dgv.Columns(9).DefaultCellStyle.BackColor = Color.LightYellow : 部分清單_dgv.Columns(10).DefaultCellStyle.BackColor = Color.LightYellow
        部分清單_dgv.Columns(14).DefaultCellStyle.BackColor = Color.LightGreen : 部分清單_dgv.Columns(13).DefaultCellStyle.BackColor = Color.LightGreen
        部分清單_dgv.Columns(12).DefaultCellStyle.BackColor = Color.LightGreen

        未完成_成本_tb.Text = "0" : 已完成_成本_tb.Text = "0" : 總成本_tb.Text = "0"
        For i As Integer = 0 To 部分清單_dgv.Rows.Count - 1
            If 部分清單_dgv.Rows(i).Cells("開始組裝").Value.ToString = "" Then : 未完成_成本_tb.Text = Val(未完成_成本_tb.Text) + 部分清單_dgv.Rows(i).Cells("物料成本").Value : End If
            If 部分清單_dgv.Rows(i).Cells("開始組裝").Value.ToString <> "" Then : 已完成_成本_tb.Text = Val(已完成_成本_tb.Text) + 部分清單_dgv.Rows(i).Cells("物料成本").Value : End If
        Next
        總成本_tb.Text = Val(未完成_成本_tb.Text) + Val(已完成_成本_tb.Text)
        未完成_成本_tb.Text = Format(Val(未完成_成本_tb.Text), "#,##0") : 已完成_成本_tb.Text = Format(Val(已完成_成本_tb.Text), "#,##0") : 總成本_tb.Text = Format(Val(總成本_tb.Text), "#,##0")
    End Sub
    Private Sub Set_清單1()
        彙總_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()

        彙總_dgv.Columns(0).FillWeight = 80 : 彙總_dgv.Columns(1).FillWeight = 80 : 彙總_dgv.Columns(2).FillWeight = 80 : 彙總_dgv.Columns(3).FillWeight = 80
        彙總_dgv.Columns(4).FillWeight = 70 : 彙總_dgv.Columns(5).Visible = False

        彙總_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 彙總_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        彙總_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 彙總_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        彙總_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 彙總_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        彙總_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 彙總_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        彙總_dgv.Columns(0).ReadOnly = True : 彙總_dgv.Columns(1).ReadOnly = True : 彙總_dgv.Columns(2).ReadOnly = True : 彙總_dgv.Columns(3).ReadOnly = True
        彙總_dgv.Columns(4).ReadOnly = True
    End Sub
    Private Sub Set_清單2()
        完整清單_dgv.DataSource = Nothing : ds2.Clear()
        完整清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        完整清單_dgv.ColumnHeadersHeight = 25
        完整清單_dgv.AllowUserToAddRows = False
        PA = "2" : SQL_生產控制表清單() : PA = ""
        da.Fill(ds2) : 完整清單_dgv.DataSource = ds2.Tables(0) : conn.Close()

        完整清單_dgv.Columns(0).Width = 120 : 完整清單_dgv.Columns(1).Visible = False : 完整清單_dgv.Columns(2).Width = 80 : 完整清單_dgv.Columns(3).Visible = False
        完整清單_dgv.Columns(4).Width = 80 : 完整清單_dgv.Columns(5).Visible = False : 完整清單_dgv.Columns(6).Width = 200 : 完整清單_dgv.Columns(7).Width = 83
        完整清單_dgv.Columns(8).Width = 83 : 完整清單_dgv.Columns(9).Visible = False : 完整清單_dgv.Columns(10).Width = 60 : 完整清單_dgv.Columns(11).Width = 60
        完整清單_dgv.Columns(12).Visible = False : 完整清單_dgv.Columns(13).Width = 60 : 完整清單_dgv.Columns(14).Width = 60 : 完整清單_dgv.Columns(15).Width = 85
        完整清單_dgv.Columns(16).Width = 85 : 完整清單_dgv.Columns(17).Width = 85 : 完整清單_dgv.Columns(18).Width = 85 : 完整清單_dgv.Columns(20).Width = 80 : 完整清單_dgv.Columns(21).Width = 80

        If 顯示彙總_ch.Checked = True Then : 完整清單_dgv.Columns(19).Width = 71 : Else : 完整清單_dgv.Columns(19).Width = 489 : End If

        完整清單_dgv.Columns(0).Frozen = True : 完整清單_dgv.Columns(1).Frozen = True : 完整清單_dgv.Columns(2).Frozen = True : 完整清單_dgv.Columns(3).Frozen = True
        完整清單_dgv.Columns(4).Frozen = True : 完整清單_dgv.Columns(5).Frozen = True : 完整清單_dgv.Columns(6).Frozen = True

        完整清單_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 完整清單_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 完整清單_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
        完整清單_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 完整清單_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 完整清單_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
        完整清單_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        完整清單_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 完整清單_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        完整清單_dgv.Columns(0).ReadOnly = True : 完整清單_dgv.Columns(2).ReadOnly = True : 完整清單_dgv.Columns(4).ReadOnly = True : 完整清單_dgv.Columns(6).ReadOnly = True
        完整清單_dgv.Columns(7).ReadOnly = True : 完整清單_dgv.Columns(8).ReadOnly = True : 完整清單_dgv.Columns(9).ReadOnly = True : 完整清單_dgv.Columns(10).ReadOnly = True
        完整清單_dgv.Columns(11).ReadOnly = True : 完整清單_dgv.Columns(12).ReadOnly = True : 完整清單_dgv.Columns(13).ReadOnly = True : 完整清單_dgv.Columns(14).ReadOnly = True
        完整清單_dgv.Columns(15).ReadOnly = True : 完整清單_dgv.Columns(16).ReadOnly = True : 完整清單_dgv.Columns(17).ReadOnly = True : 完整清單_dgv.Columns(18).ReadOnly = True
        完整清單_dgv.Columns(19).ReadOnly = True : 完整清單_dgv.Columns(20).ReadOnly = True

        完整清單_dgv.Columns(9).DefaultCellStyle.BackColor = Color.LightYellow : 完整清單_dgv.Columns(10).DefaultCellStyle.BackColor = Color.LightYellow
        完整清單_dgv.Columns(14).DefaultCellStyle.BackColor = Color.LightGreen : 完整清單_dgv.Columns(13).DefaultCellStyle.BackColor = Color.LightGreen
        完整清單_dgv.Columns(12).DefaultCellStyle.BackColor = Color.LightGreen
    End Sub
    Private Sub 格式設定()
        screenWidth = MAOJI_ERP_SYS.Width
        screenHeight = MAOJI_ERP_SYS.Height
        If 顯示彙總_ch.Checked = True Then
            彙總_dgv.Visible = True : 完整清單_dgv.Location = New Point(423, 55) : 部分清單_dgv.Location = New Point(423, 55)
            newWidth1 = screenWidth - 448 : newHeight1 = screenHeight - 150
            完整清單_dgv.Size = New Size(newWidth1, newHeight1) : 部分清單_dgv.Size = New Size(newWidth1, newHeight1)
        Else
            彙總_dgv.Visible = False : 完整清單_dgv.Location = New Point(7, 55) : 部分清單_dgv.Location = New Point(7, 55)
            newWidth1 = screenWidth - 30 : newHeight1 = screenHeight - 150
            完整清單_dgv.Size = New Size(newWidth1, newHeight1) : 部分清單_dgv.Size = New Size(newWidth1, newHeight1)
        End If
        If 顯示彙總_ch.Checked = True Then : 完整清單_dgv.Columns(19).Width = 71 : 部分清單_dgv.Columns(19).Width = 71
        Else : 完整清單_dgv.Columns(19).Width = 489 : 部分清單_dgv.Columns(19).Width = 489 : End If
    End Sub
    Private Sub 格式設定1()
        If 隱藏供應商_ch.Checked = True Then : 完整清單_dgv.Columns(4).Visible = False : 部分清單_dgv.Columns(4).Visible = False
        Else : 完整清單_dgv.Columns(4).Visible = True : 部分清單_dgv.Columns(4).Visible = True : End If
    End Sub
    Private Sub 格式設定2()
        If 隱藏單據編號_ch.Checked = True Then : 完整清單_dgv.Columns(0).Visible = False : 部分清單_dgv.Columns(0).Visible = False
        Else : 完整清單_dgv.Columns(0).Visible = True : 部分清單_dgv.Columns(0).Visible = True : End If
    End Sub
    Private Sub 格式設定3()
        If 隱藏尺寸材質_ch.Checked = True Then
            完整清單_dgv.Columns(7).Visible = False : 完整清單_dgv.Columns(8).Visible = False : 部分清單_dgv.Columns(7).Visible = False : 部分清單_dgv.Columns(8).Visible = False
        Else
            完整清單_dgv.Columns(7).Visible = True : 完整清單_dgv.Columns(8).Visible = True : 部分清單_dgv.Columns(7).Visible = True : 部分清單_dgv.Columns(8).Visible = True
        End If
    End Sub
    Private Sub 日期格式()
        If 會計月_ch.Checked = True Then
            '-------------日期一----------------------------------------------------------------------------------------
            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
        Else
            '-------------日期一----------------------------------------------------------------------------------------
            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
        End If
    End Sub
    Private Sub 生產控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        部分清單_dgv.Visible = False : 日期格式() : 顯示彙總_ch.Checked = True : 隱藏完成資料_ch.Checked = True : 中間日期_dtp.Visible = False
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 部分清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            客戶名稱_tb.Text = 部分清單_dgv.Rows(e.RowIndex).Cells("客戶").Value : 依客戶_成本_tb.Text = "0"
            For i As Integer = 0 To 部分清單_dgv.Rows.Count - 1
                If 部分清單_dgv.Rows(i).Cells("客戶").Value.ToString = 客戶名稱_tb.Text Then : 依客戶_成本_tb.Text = Val(依客戶_成本_tb.Text) + 部分清單_dgv.Rows(i).Cells("物料成本").Value : End If
            Next : 依客戶_成本_tb.Text = Format(Val(依客戶_成本_tb.Text), "#,##0")
        End If
    End Sub
    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 完整清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            客戶名稱_tb.Text = 完整清單_dgv.Rows(e.RowIndex).Cells("客戶").Value : 依客戶_成本_tb.Text = "0"
            For i As Integer = 0 To 部分清單_dgv.Rows.Count - 1
                If 部分清單_dgv.Rows(i).Cells("客戶").Value.ToString = 客戶名稱_tb.Text Then : 依客戶_成本_tb.Text = Val(依客戶_成本_tb.Text) + 部分清單_dgv.Rows(i).Cells("物料成本").Value : End If
            Next : 依客戶_成本_tb.Text = Format(Val(依客戶_成本_tb.Text), "#,##0")
        End If
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 彙總_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            客戶名稱_tb.Text = 彙總_dgv.Rows(e.RowIndex).Cells("客戶").Value : 依客戶_成本_tb.Text = "0"
            For i As Integer = 0 To 部分清單_dgv.Rows.Count - 1
                If 部分清單_dgv.Rows(i).Cells("客戶").Value.ToString = 客戶名稱_tb.Text Then : 依客戶_成本_tb.Text = Val(依客戶_成本_tb.Text) + 部分清單_dgv.Rows(i).Cells("物料成本").Value : End If
            Next : 依客戶_成本_tb.Text = Format(Val(依客戶_成本_tb.Text), "#,##0")
        End If
    End Sub
    Private Sub DataGridView1_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(0, e.RowIndex).Value.ToString <> 部分清單_dgv(0, 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
        For i As Integer = 0 To 部分清單_dgv.Rows.Count - 1
            If 部分清單_dgv.Rows(i).Cells("開始組裝").Value.ToString = "" And 部分清單_dgv.Rows(i).Cells("組裝完工").Value.ToString = "" Then
                部分清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.MistyRose
            End If
        Next
    End Sub
    Private Sub DataGridView3_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(0, e.RowIndex).Value.ToString <> 完整清單_dgv(0, 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
        For i As Integer = 0 To 完整清單_dgv.Rows.Count - 1
            If 完整清單_dgv.Rows(i).Cells("開始組裝").Value.ToString = "" And 完整清單_dgv.Rows(i).Cells("組裝完工").Value.ToString = "" Then
                完整清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.MistyRose
            End If
        Next
    End Sub
    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 彙總_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 彙總_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 彙總_dgv(0, e.RowIndex).Value.ToString <> 彙總_dgv(0, 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
            If 彙總_dgv(5, e.RowIndex).Value.ToString <> 彙總_dgv(5, 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(linePen1, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
        If 會計月_ch.Checked = True Then
            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
            開始日期_dtp.Value = 中間日期_dtp.Value
            結束日期_dtp.Value = 中間日期_dtp.Value
        Else
            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
            結束日期_dtp.Value = 中間日期_dtp.Value
        End If
        日期格式()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
        If 會計月_ch.Checked = True Then
            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
            開始日期_dtp.Value = 中間日期_dtp.Value
            結束日期_dtp.Value = 中間日期_dtp.Value
        Else
            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
            結束日期_dtp.Value = 中間日期_dtp.Value
        End If
        日期格式()
    End Sub
    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
        Set_清單() : Set_清單1() : Set_清單2() : 格式設定() : 格式設定1() : 格式設定2() : 格式設定3()
    End Sub
    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
        Set_清單() : Set_清單1() : Set_清單2() : 格式設定() : 格式設定1() : 格式設定2() : 格式設定3()
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示彙總_ch.CheckedChanged
        格式設定()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏供應商_ch.CheckedChanged
        格式設定1()
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏單據編號_ch.CheckedChanged
        格式設定2()
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏尺寸材質_ch.CheckedChanged
        格式設定3()
    End Sub
    Private Sub CheckBox5_CheckedChanged_1(sender As Object, e As EventArgs) Handles 隱藏完成資料_ch.CheckedChanged
        If 隱藏完成資料_ch.Checked = False Then : 部分清單_dgv.Visible = True : 完整清單_dgv.Visible = False
        Else : 部分清單_dgv.Visible = False : 完整清單_dgv.Visible = True : End If
    End Sub
    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
    End Sub
    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        Set_清單() : Set_清單1() : Set_清單2() : 格式設定() : 格式設定1() : 格式設定2() : 格式設定3()
    End Sub
End Class