TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/量產訂單管理/業務資料庫管理.vb

Option Strict Off
Public Class 業務資料庫管理
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
    ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet : ReadOnly ds7 As New DataSet
    Private Sub Set_DGV1載入前設定()
        訂單控制表暫存檔_dgv.DataSource = Nothing : ds.Clear()
        訂單控制表暫存檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單控制表暫存檔_dgv.ColumnHeadersHeight = 25
        訂單控制表暫存檔_dgv.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub Set_DGV1載入後設定()
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單控制表暫存檔_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_訂單控制表清單()
        Set_DGV1載入前設定()
        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, " &
               "工廠回復交期, CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, " &
               "驗貨時間, 實際離廠日, 資料流水號, 明細建檔 FROM 訂單控制表暫存檔 ORDER BY 形體號, 顏色, 楦型"
        Set_DGV1載入後設定()
    End Sub
    Private Sub Set_DGV2載入前設定()
        訂單明細表暫存檔_dgv.DataSource = Nothing : ds1.Clear()
        訂單明細表暫存檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單明細表暫存檔_dgv.ColumnHeadersHeight = 25
        訂單明細表暫存檔_dgv.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub Set_DGV2載入後設定()
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 訂單明細表暫存檔_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_訂單明細表清單()
        Set_DGV2載入前設定()
        SQL1 = "SELECT 天盾流水號, 客戶訂單號, ItemNumber, ProductName, ProductDescription, Color, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], [10], [10.5], " &
               "[11], [11.5], [12], [12.5], [13], [14], [5] + [5.5] + [6] + [6.5] + [7] + [7.5] + [8] + [8.5] + [9] + [9.5] + [10] + [10.5] + [11] + [11.5] + [12] + " &
               "[12.5] + [13] + [14] AS TOTAL FROM 訂單明細表暫存檔 ORDER BY ProductName, Color, DM"
        Set_DGV2載入後設定()
    End Sub
    Private Sub Set_訂單流水號清單()
        訂單流水號暫存檔1_dgv.DataSource = Nothing : ds2.Clear()
        訂單流水號暫存檔1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單流水號暫存檔1_dgv.ColumnHeadersHeight = 25
        訂單流水號暫存檔1_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 訂單流水號 FROM 訂單流水號暫存"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 訂單流水號暫存檔1_dgv.DataSource = ds2.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_訂單流水號清單1()
        訂單流水號暫存檔2_dgv.DataSource = Nothing : ds7.Clear()
        訂單流水號暫存檔2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單流水號暫存檔2_dgv.ColumnHeadersHeight = 25
        訂單流水號暫存檔2_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 訂單流水號 FROM 訂單流水號暫存_非VIONIC"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds7) : 訂單流水號暫存檔2_dgv.DataSource = ds7.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_控制與明細比對()
        訂單控制表比對訂單明細表差異資料_dgv.DataSource = Nothing : ds3.Clear()
        訂單控制表比對訂單明細表差異資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單控制表比對訂單明細表差異資料_dgv.ColumnHeadersHeight = 25
        訂單控制表比對訂單明細表差異資料_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, SUM(訂單控制表.訂單數量) AS 訂單數量, SUM(訂單明細表.[5]) + SUM(訂單明細表.[5.5]) + SUM(訂單明細表.[6]) + SUM(訂單明細表.[6.5]) + " &
               "SUM(訂單明細表.[7]) + SUM(訂單明細表.[7.5]) + SUM(訂單明細表.[8]) + SUM(訂單明細表.[8.5]) + SUM(訂單明細表.[9]) + SUM(訂單明細表.[9.5]) + SUM(訂單明細表.[10]) + SUM(訂單明細表.[10.5]) + " &
               "SUM(訂單明細表.[11]) + SUM(訂單明細表.[11.5]) + SUM(訂單明細表.[12]) + SUM(訂單明細表.[12.5]) + SUM(訂單明細表.[13]) + SUM(訂單明細表.[14]) AS 明細數量, " &
               "SUM(CONVERT(float, 訂單控制表.訂單數量)) - CONVERT(float, SUM(訂單明細表.[5]) + " &
               "SUM(訂單明細表.[5.5]) + SUM(訂單明細表.[6]) + SUM(訂單明細表.[6.5]) + SUM(訂單明細表.[7]) + SUM(訂單明細表.[7.5]) + SUM(訂單明細表.[8]) + SUM(訂單明細表.[8.5]) + SUM(訂單明細表.[9]) + " &
               "SUM(訂單明細表.[9.5]) + SUM(訂單明細表.[10]) + SUM(訂單明細表.[10.5]) + SUM(訂單明細表.[11]) + SUM(訂單明細表.[11.5]) + SUM(訂單明細表.[12]) + SUM(訂單明細表.[12.5]) + " &
               "SUM(訂單明細表.[13]) + SUM(訂單明細表.[14])) AS 差異 " &
               "FROM 訂單控制表 INNER JOIN 訂單明細表 ON 訂單控制表.形體號 = 訂單明細表.ProductName AND 訂單控制表.顏色 = 訂單明細表.Color AND 訂單控制表.楦型 = 訂單明細表.DM AND 訂單控制表.訂單流水號 = " &
               "訂單明細表.天盾流水號 GROUP BY   訂單控制表.訂單流水號, 訂單控制表.客戶訂單號 HAVING (SUM(CONVERT(float, 訂單控制表.訂單數量)) - CONVERT(float, SUM(訂單明細表.[5]) + SUM(訂單明細表.[5.5]) + " &
               "SUM(訂單明細表.[6]) + SUM(訂單明細表.[6.5]) + SUM(訂單明細表.[7]) + SUM(訂單明細表.[7.5]) + SUM(訂單明細表.[8]) + SUM(訂單明細表.[8.5]) + SUM(訂單明細表.[9]) + SUM(訂單明細表.[9.5]) + " &
               "SUM(訂單明細表.[10]) + SUM(訂單明細表.[10.5]) + SUM(訂單明細表.[11]) + SUM(訂單明細表.[11.5]) + SUM(訂單明細表.[12]) + SUM(訂單明細表.[12.5]) + SUM(訂單明細表.[13]) + " &
               "SUM(訂單明細表.[14])) NOT LIKE '0') ORDER BY   訂單控制表.訂單流水號 DESC"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3)
        訂單控制表比對訂單明細表差異資料_dgv.DataSource = ds3.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_已使用天盾流水號()
        已使用的天盾流水號_dgv.DataSource = Nothing : ds4.Clear()
        已使用的天盾流水號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        已使用的天盾流水號_dgv.ColumnHeadersHeight = 25
        已使用的天盾流水號_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 訂單流水號 FROM 訂單控制表 GROUP BY 訂單流水號 ORDER BY 訂單流水號 DESC"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 已使用的天盾流水號_dgv.DataSource = ds4.Tables(0) : conn.Close()
        資料筆數_tb.Text = Format(已使用的天盾流水號_dgv.Rows.Count, "#,##0")
    End Sub
    Private Sub Set_訂單明細表修改紀錄()
        訂單明細表修改紀錄_dgv.DataSource = Nothing : ds5.Clear()
        訂單明細表修改紀錄_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單明細表修改紀錄_dgv.ColumnHeadersHeight = 25
        訂單明細表修改紀錄_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 流水號, 編輯者, 編輯時間, 編輯次數 AS 次數 FROM 訂單明細表修改紀錄 ORDER BY   編輯時間 DESC"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 訂單明細表修改紀錄_dgv.DataSource = ds5.Tables(0) : conn.Close()
        資料筆數2_tb.Text = Format(訂單明細表修改紀錄_dgv.Rows.Count, "#,##0")
    End Sub
    Private Sub Set_訂單控制表修改紀錄()
        訂單控制表修改紀錄_dgv.DataSource = Nothing : ds6.Clear()
        訂單控制表修改紀錄_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        訂單控制表修改紀錄_dgv.ColumnHeadersHeight = 25
        訂單控制表修改紀錄_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 流水號, 編輯者, 編輯時間, 編輯次數 AS 次數 FROM 訂單控制表修改紀錄 ORDER BY   編輯時間 DESC"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6) : 訂單控制表修改紀錄_dgv.DataSource = ds6.Tables(0) : conn.Close()
        資料筆數1_tb.Text = Format(訂單控制表修改紀錄_dgv.Rows.Count, "#,##0")
    End Sub
    Private Sub Set_grid1()
        訂單控制表暫存檔_dgv.Columns(0).FillWeight = 85 : 訂單控制表暫存檔_dgv.Columns(1).FillWeight = 80 : 訂單控制表暫存檔_dgv.Columns(2).FillWeight = 130
        訂單控制表暫存檔_dgv.Columns(3).FillWeight = 145 : 訂單控制表暫存檔_dgv.Columns(4).FillWeight = 90 : 訂單控制表暫存檔_dgv.Columns(5).FillWeight = 90
        訂單控制表暫存檔_dgv.Columns(6).FillWeight = 90 : 訂單控制表暫存檔_dgv.Columns(7).FillWeight = 90
        訂單控制表暫存檔_dgv.Columns(8).Visible = False : 訂單控制表暫存檔_dgv.Columns(9).Visible = False : 訂單控制表暫存檔_dgv.Columns(10).Visible = False
        訂單控制表暫存檔_dgv.Columns(11).FillWeight = 90 : 訂單控制表暫存檔_dgv.Columns(12).FillWeight = 90 : 訂單控制表暫存檔_dgv.Columns(13).FillWeight = 90
        訂單控制表暫存檔_dgv.Columns(14).Visible = False : 訂單控制表暫存檔_dgv.Columns(15).Visible = False : 訂單控制表暫存檔_dgv.Columns(16).Visible = False
        訂單控制表暫存檔_dgv.Columns(17).Visible = False : 訂單控制表暫存檔_dgv.Columns(18).Visible = False : 訂單控制表暫存檔_dgv.Columns(19).Visible = False
        訂單控制表暫存檔_dgv.Columns(20).Visible = False : 訂單控制表暫存檔_dgv.Columns(21).Visible = False : 訂單控制表暫存檔_dgv.Columns(22).Visible = False
        訂單控制表暫存檔_dgv.Columns(23).Visible = False : 訂單控制表暫存檔_dgv.Columns(24).Visible = False : 訂單控制表暫存檔_dgv.Columns(25).Visible = False
        訂單控制表暫存檔_dgv.Columns(26).Visible = False : 訂單控制表暫存檔_dgv.Columns(27).Visible = False
        訂單控制表暫存檔_dgv.Columns(28).FillWeight = 60
        訂單控制表暫存檔_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
    End Sub
    Private Sub Set_grid2()
        訂單明細表暫存檔_dgv.Columns(0).Visible = False : 訂單明細表暫存檔_dgv.Columns(1).Visible = False
        訂單明細表暫存檔_dgv.Columns(2).FillWeight = 80 : 訂單明細表暫存檔_dgv.Columns(3).FillWeight = 115 : 訂單明細表暫存檔_dgv.Columns(4).FillWeight = 159
        訂單明細表暫存檔_dgv.Columns(5).FillWeight = 80 : 訂單明細表暫存檔_dgv.Columns(6).FillWeight = 55 : 訂單明細表暫存檔_dgv.Columns(7).FillWeight = 32
        訂單明細表暫存檔_dgv.Columns(8).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(9).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(10).FillWeight = 32
        訂單明細表暫存檔_dgv.Columns(11).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(12).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(13).FillWeight = 32
        訂單明細表暫存檔_dgv.Columns(14).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(15).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(16).FillWeight = 32
        訂單明細表暫存檔_dgv.Columns(17).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(18).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(19).FillWeight = 32
        訂單明細表暫存檔_dgv.Columns(20).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(21).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(22).FillWeight = 32
        訂單明細表暫存檔_dgv.Columns(23).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(24).FillWeight = 32 : 訂單明細表暫存檔_dgv.Columns(25).FillWeight = 64
        訂單明細表暫存檔_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 訂單明細表暫存檔_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
        訂單明細表暫存檔_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(15).DefaultCellStyle.Format = "#,##0"
        訂單明細表暫存檔_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 訂單明細表暫存檔_dgv.Columns(17).DefaultCellStyle.Format = "#,##0"
        訂單明細表暫存檔_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        訂單明細表暫存檔_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 訂單明細表暫存檔_dgv.Columns(20).DefaultCellStyle.Format = "#,##0"
        訂單明細表暫存檔_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
        訂單明細表暫存檔_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 訂單明細表暫存檔_dgv.Columns(23).DefaultCellStyle.Format = "#,##0"
        訂單明細表暫存檔_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"
        訂單明細表暫存檔_dgv.Columns(25).DefaultCellStyle.Format = "#,##0"
    End Sub
    Private Sub Set_grid3()
        訂單控制表比對訂單明細表差異資料_dgv.Columns(0).FillWeight = 90 : 訂單控制表比對訂單明細表差異資料_dgv.Columns(1).FillWeight = 120 : 訂單控制表比對訂單明細表差異資料_dgv.Columns(2).FillWeight = 90
        訂單控制表比對訂單明細表差異資料_dgv.Columns(3).FillWeight = 90 : 訂單控制表比對訂單明細表差異資料_dgv.Columns(4).FillWeight = 90
        訂單控制表比對訂單明細表差異資料_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 訂單控制表比對訂單明細表差異資料_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
        訂單控制表比對訂單明細表差異資料_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
    End Sub
    Private Sub Set_grid4()
        訂單明細表修改紀錄_dgv.Columns(0).FillWeight = 80 : 訂單明細表修改紀錄_dgv.Columns(1).FillWeight = 60 : 訂單明細表修改紀錄_dgv.Columns(2).FillWeight = 80
        訂單明細表修改紀錄_dgv.Columns(3).FillWeight = 45
    End Sub
    Private Sub Set_grid5()
        訂單控制表修改紀錄_dgv.Columns(0).FillWeight = 80 : 訂單控制表修改紀錄_dgv.Columns(1).FillWeight = 60 : 訂單控制表修改紀錄_dgv.Columns(2).FillWeight = 80
        訂單控制表修改紀錄_dgv.Columns(3).FillWeight = 45
    End Sub
    Private Sub 自動加總()
        Dim 金額加總(0) As Double
        For i As Integer = 0 To 訂單控制表暫存檔_dgv.Rows.Count - 1 : If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 金額加總(0) += 0 : Else
                金額加總(0) += 訂單控制表暫存檔_dgv.Rows(i).Cells("訂單數量").Value : End If : Next i
        資料筆數3_tb.Text = Format(Val(金額加總(0)), "#,##0.00")
        數量1_tb.Text = 訂單控制表暫存檔_dgv.Rows.Count
        Dim 加總(16) As Double
        加總(0) = 0 : 加總(1) = 0 : 加總(2) = 0 : 加總(3) = 0 : 加總(4) = 0 : 加總(5) = 0 : 加總(6) = 0 : 加總(7) = 0 : 加總(8) = 0
        加總(9) = 0 : 加總(10) = 0 : 加總(11) = 0 : 加總(12) = 0 : 加總(13) = 0 : 加總(14) = 0 : 加總(15) = 0
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(0) += 0 : Else : 加總(0) += 訂單明細表暫存檔_dgv.Rows(i).Cells("5").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(1) += 0 : Else : 加總(1) += 訂單明細表暫存檔_dgv.Rows(i).Cells("5.5").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(2) += 0 : Else : 加總(2) += 訂單明細表暫存檔_dgv.Rows(i).Cells("6").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(3) += 0 : Else : 加總(3) += 訂單明細表暫存檔_dgv.Rows(i).Cells("6.5").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(4) += 0 : Else : 加總(4) += 訂單明細表暫存檔_dgv.Rows(i).Cells("7").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(5) += 0 : Else : 加總(5) += 訂單明細表暫存檔_dgv.Rows(i).Cells("7.5").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(6) += 0 : Else : 加總(6) += 訂單明細表暫存檔_dgv.Rows(i).Cells("8").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(7) += 0 : Else : 加總(7) += 訂單明細表暫存檔_dgv.Rows(i).Cells("8.5").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(8) += 0 : Else : 加總(8) += 訂單明細表暫存檔_dgv.Rows(i).Cells("9").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(9) += 0 : Else : 加總(9) += 訂單明細表暫存檔_dgv.Rows(i).Cells("9.5").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(10) += 0 : Else : 加總(10) += 訂單明細表暫存檔_dgv.Rows(i).Cells("10").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(11) += 0 : Else : 加總(11) += 訂單明細表暫存檔_dgv.Rows(i).Cells("10.5").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(12) += 0 : Else : 加總(12) += 訂單明細表暫存檔_dgv.Rows(i).Cells("11").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(13) += 0 : Else : 加總(13) += 訂單明細表暫存檔_dgv.Rows(i).Cells("12").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(14) += 0 : Else : 加總(14) += 訂單明細表暫存檔_dgv.Rows(i).Cells("13").Value : End If : Next i
        For i As Integer = 0 To 訂單明細表暫存檔_dgv.Rows.Count - 1
            If 訂單明細表暫存檔_dgv.RowCount = 0 Then : 加總(15) += 0 : Else : 加總(15) += 訂單明細表暫存檔_dgv.Rows(i).Cells("14").Value : End If : Next i
        加總(16) = 加總(0) + 加總(1) + 加總(2) + 加總(3) + 加總(4) + 加總(5) + 加總(6) + 加總(7) + 加總(8) + 加總(9) + 加總(10) + 加總(11) + 加總(12) + 加總(13) + 加總(14) + 加總(15)
        資料筆數4_tb.Text = Format(Val(加總(16)), "#,##0")
        數量2_tb.Text = 訂單明細表暫存檔_dgv.Rows.Count
    End Sub
    Private Sub 業務資料庫管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_訂單控制表清單() : Set_訂單明細表清單() : Set_訂單流水號清單() : Set_訂單流水號清單1() : Set_grid1() : Set_grid2()
        Set_控制與明細比對() : Set_grid3() : Set_已使用天盾流水號()

        訂單流水號暫存檔1_dgv.Columns(0).FillWeight = 120
        已使用的天盾流水號_dgv.Columns(0).FillWeight = 120

        Set_訂單明細表修改紀錄() : Set_grid4() : Set_訂單控制表修改紀錄() : Set_grid5()

        ConnOpen()
        SQL1 = "SELECT 編號生成初始數  FROM 系統流水編號初始設定 WHERE 使用頁面 LIKE '量產訂單導入'"
        CmdSet_For_dr()
        If dr.Read() Then
            訂單導入流水號初始數_tb.Text = dr("編號生成初始數")
        End If : conn.Close()
    End Sub
    Private Sub DataGridView4_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單控制表比對訂單明細表差異資料_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            天盾流水號_tb.Text = 訂單控制表比對訂單明細表差異資料_dgv(0, e.RowIndex).Value.ToString : 客戶訂單耗_tb.Text = 訂單控制表比對訂單明細表差異資料_dgv(1, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 知道天盾流水號與客戶訂單號_cb.Click
        知道天盾流水號與客戶訂單號_cb.Checked = True : 不知道天盾流水號與客戶訂單號_cb.Checked = False : 天盾流水號_tb.Enabled = True : 客戶訂單耗_tb.Text = "" : 客戶訂單耗_tb.Enabled = True
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 不知道天盾流水號與客戶訂單號_cb.Click
        知道天盾流水號與客戶訂單號_cb.Checked = False : 不知道天盾流水號與客戶訂單號_cb.Checked = True : 天盾流水號_tb.Text = "" : 天盾流水號_tb.Enabled = False : 客戶訂單耗_tb.Text = ""
        客戶訂單耗_tb.Enabled = False
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 確定清除_bt.Click
        If 知道天盾流水號與客戶訂單號_cb.Checked = True Then
            ConnOpen()
            SQL1 = "DELETE FROM 訂單流水號暫存 WHERE (訂單流水號 = '" & Strings.Right(天盾流水號_tb.Text, 6) & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM 訂單流水號暫存_非VIONIC WHERE (訂單流水號 = '" & Strings.Right(天盾流水號_tb.Text, 6) & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM 訂單控制表暫存檔 WHERE (客戶訂單號 LIKE '" & 客戶訂單耗_tb.Text & "') AND (訂單流水號 LIKE '" & 天盾流水號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM 訂單明細表暫存檔 WHERE (客戶訂單號 LIKE '" & 客戶訂單耗_tb.Text & "') AND (天盾流水號 LIKE '" & 天盾流水號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
        Else
            ConnOpen()
            SQL1 = "DELETE FROM 訂單流水號暫存"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM 訂單流水號暫存_非VIONIC"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM 訂單控制表暫存檔"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM 訂單明細表暫存檔"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
        End If
        Set_訂單控制表清單() : Set_訂單明細表清單() : Set_訂單流水號清單() : Set_grid1() : Set_grid2()
        MsgBox("清除完成")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 訂單控制表與明細表暫存檔查詢_bt.Click
        Set_DGV1載入前設定()
        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, " &
               "工廠回復交期, CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, " &
               "驗貨時間, 實際離廠日, 資料流水號, 明細建檔 FROM 訂單控制表 WHERE 訂單流水號 LIKE '" & 天盾流水號_tb.Text & "' ORDER BY 形體號, 顏色, 楦型"
        Set_DGV1載入後設定()
        Set_DGV2載入前設定()
        SQL1 = "SELECT 天盾流水號, 客戶訂單號, ItemNumber, ProductName, ProductDescription, Color, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], " &
               "[9.5], [10], [10.5], [11], [11.5], [12], [12.5], [13], [14], [5] + [5.5] + [6] + [6.5] + [7] + [7.5] + [8] + [8.5] + [9] + [9.5] + [10] + [10.5] + [11] + [11.5] + [12] + " &
                       "[12.5] + [13] + [14] AS TOTAL FROM 訂單明細表 WHERE 天盾流水號 LIKE '" & 天盾流水號_tb.Text & "' ORDER BY ProductName, Color, DM"
        Set_DGV2載入後設定()
        Set_grid1() : Set_grid2() : 自動加總()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        ConnOpen()
        SQL1 = "UPDATE 系統流水編號初始設定 SET 編號生成初始數 = N'" & 訂單導入流水號初始數_tb.Text & "' WHERE 使用頁面 LIKE N'量產訂單導入'"
        CmdSet_For_dr()
        conn.Close()

        ConnOpen()
        SQL1 = "SELECT 編號生成初始數  FROM 系統流水編號初始設定 WHERE 使用頁面 LIKE N'量產訂單導入'"
        CmdSet_For_dr()
        If dr.Read() Then
            訂單導入流水號初始數_tb.Text = dr("編號生成初始數")
        End If : conn.Close()
        MsgBox("修改完成")
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        業務資料日期除錯.ShowDialog()
    End Sub
End Class