版本號 : 2020092501

更新內容如下 :
1、樣品單(開發介面)新增階段分類 - Proto
2、樣品單列印新增 - 後套裡印刷 - 選項
3、訂單控制表列印成EXCEL功能中新增自動彙總表功能

Signed-off-by: B70340 <b70340@gmail.com>

TENDEN-MES-SYS/Module/Module1.vb

@@ -4,7 +4,7 @@
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
     Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020072401"
+    Public 版本 As String = "2020092501"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public SQL1 As String
     Public 匯率 As Double

TENDEN-MES-SYS/彙總報表管理/訂單分析報表一.vb

@@ -9,14 +9,14 @@ Public Class 訂單分析報表一
     Dim dr As SqlDataReader
     Dim 條件 As String
     Private  Sub Set_DGV1載入前設定()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+        圖片資料庫_dgv.DataSource = Nothing : ds.Clear()
+        圖片資料庫_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        圖片資料庫_dgv.ColumnHeadersHeight = 25
+        圖片資料庫_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV1載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 圖片資料庫_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_圖片清單()
         Set_DGV1載入前設定()
@@ -24,19 +24,19 @@ Public Class 訂單分析報表一
         Set_DGV1載入後設定()
     End Sub
     Private  Sub Set_grid1()
-        DataGridView1.Columns(0).Width = 90 : DataGridView1.Columns(1).Width = 60
-        DataGridView1.Columns(1).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        圖片資料庫_dgv.Columns(0).Width = 90 : 圖片資料庫_dgv.Columns(1).Width = 60
+        圖片資料庫_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        圖片資料庫_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 圖片資料庫_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     End Sub
     Private  Sub Set_DGV2載入前設定()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+        中文樣品單資料庫_dgv.DataSource = Nothing : ds1.Clear()
+        中文樣品單資料庫_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        中文樣品單資料庫_dgv.ColumnHeadersHeight = 25
+        中文樣品單資料庫_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV2載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 中文樣品單資料庫_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_樣品單清單()
         Set_DGV2載入前設定()
@@ -47,21 +47,24 @@ Public Class 訂單分析報表一
         Set_DGV2載入後設定()
     End Sub
     Private  Sub Set_grid2()
-        DataGridView2.Columns(0).Width = 50 : DataGridView2.Columns(1).Width = 50 : DataGridView2.Columns(2).Width = 50 : DataGridView2.Columns(3).Width = 60 : DataGridView2.Columns(4).Width = 60
-        DataGridView2.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView2.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(4).DefaultCellStyle.Format = "#,##0"
-        DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        中文樣品單資料庫_dgv.Columns(0).Width = 50 : 中文樣品單資料庫_dgv.Columns(1).Width = 50 : 中文樣品單資料庫_dgv.Columns(2).Width = 50 : 中文樣品單資料庫_dgv.Columns(3).Width = 60
+        中文樣品單資料庫_dgv.Columns(4).Width = 60
+        中文樣品單資料庫_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        中文樣品單資料庫_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        中文樣品單資料庫_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        中文樣品單資料庫_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        中文樣品單資料庫_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        中文樣品單資料庫_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     End Sub
     Private  Sub Set_DGV3載入前設定()
-        DataGridView3.DataSource = Nothing : ds2.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = 25
-        DataGridView3.AllowUserToAddRows = False
+        掛牌資料庫_dgv.DataSource = Nothing : ds2.Clear()
+        掛牌資料庫_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        掛牌資料庫_dgv.ColumnHeadersHeight = 25
+        掛牌資料庫_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV3載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 掛牌資料庫_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_吊牌清單()
         Set_DGV3載入前設定()
@@ -72,21 +75,24 @@ Public Class 訂單分析報表一
         Set_DGV3載入後設定()
     End Sub
     Private  Sub Set_grid3()
-        DataGridView3.Columns(0).Width = 50 : DataGridView3.Columns(1).Width = 50 : DataGridView3.Columns(2).Width = 50 : DataGridView3.Columns(3).Width = 60 : DataGridView3.Columns(4).Width = 60
-        DataGridView3.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView3.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(4).DefaultCellStyle.Format = "#,##0"
-        DataGridView3.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        掛牌資料庫_dgv.Columns(0).Width = 50 : 掛牌資料庫_dgv.Columns(1).Width = 50 : 掛牌資料庫_dgv.Columns(2).Width = 50 : 掛牌資料庫_dgv.Columns(3).Width = 60
+        掛牌資料庫_dgv.Columns(4).Width = 60
+        掛牌資料庫_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        掛牌資料庫_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        掛牌資料庫_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        掛牌資料庫_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        掛牌資料庫_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        掛牌資料庫_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     End Sub
     Private  Sub Set_DGV4載入前設定()
-        DataGridView4.DataSource = Nothing : ds3.Clear()
-        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView4.ColumnHeadersHeight = 25
-        DataGridView4.AllowUserToAddRows = False
+        確認通知書_dgv.DataSource = Nothing : ds3.Clear()
+        確認通知書_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        確認通知書_dgv.ColumnHeadersHeight = 25
+        確認通知書_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV4載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 確認通知書_dgv.DataSource = ds3.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_確認通知單()
         Set_DGV4載入前設定()
@@ -96,17 +102,18 @@ Public Class 訂單分析報表一
         Set_DGV4載入後設定()
     End Sub
     Private  Sub Set_grid4()
-        DataGridView4.Columns(0).Width = 50 : DataGridView4.Columns(1).Width = 50 : DataGridView4.Columns(2).Width = 90 : DataGridView4.Columns(3).Width = 90
+        確認通知書_dgv.Columns(0).Width = 50 : 確認通知書_dgv.Columns(1).Width = 50 : 確認通知書_dgv.Columns(2).Width = 90 : 確認通知書_dgv.Columns(3).Width = 90
     End Sub
     Private  Sub Set_DGV5載入前設定()
-        DataGridView5.DataSource = Nothing : ds4.Clear()
-        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView5.ColumnHeadersHeight = 25
-        DataGridView5.AllowUserToAddRows = False
+        量產樣品控制表未出貨數_dgv.DataSource = Nothing : ds4.Clear()
+        量產樣品控制表未出貨數_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        量產樣品控制表未出貨數_dgv.ColumnHeadersHeight = 25
+        量產樣品控制表未出貨數_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV5載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4)
+        量產樣品控制表未出貨數_dgv.DataSource = ds4.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_量產樣品控制表未出貨數()
         Set_DGV5載入前設定()
@@ -116,75 +123,84 @@ Public Class 訂單分析報表一
         Set_DGV5載入後設定()
     End Sub
     Private  Sub Set_grid5()
-        DataGridView5.Columns(0).Width = 45 : DataGridView5.Columns(1).Width = 120 : DataGridView5.Columns(2).Width = 40 : DataGridView5.Columns(3).Width = 58 : DataGridView5.Columns(4).Width = 58
-        DataGridView5.Columns(5).Width = 58
-        DataGridView5.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView5.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(4).DefaultCellStyle.Format = "#,##0"
-        DataGridView5.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView5.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(5).DefaultCellStyle.Format = "#,##0"
-        DataGridView5.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView5.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        量產樣品控制表未出貨數_dgv.Columns(0).Width = 45 : 量產樣品控制表未出貨數_dgv.Columns(1).Width = 120 : 量產樣品控制表未出貨數_dgv.Columns(2).Width = 40
+        量產樣品控制表未出貨數_dgv.Columns(3).Width = 58 : 量產樣品控制表未出貨數_dgv.Columns(4).Width = 58
+        量產樣品控制表未出貨數_dgv.Columns(5).Width = 58
+        量產樣品控制表未出貨數_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        量產樣品控制表未出貨數_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        量產樣品控制表未出貨數_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        量產樣品控制表未出貨數_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        量產樣品控制表未出貨數_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        量產樣品控制表未出貨數_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        量產樣品控制表未出貨數_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        量產樣品控制表未出貨數_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     End Sub
     Private  Sub Set_DGV6載入前設定()
-        DataGridView6.DataSource = Nothing : ds5.Clear()
-        DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView6.ColumnHeadersHeight = 25
-        DataGridView6.AllowUserToAddRows = False
+        CXL數_dgv.DataSource = Nothing : ds5.Clear()
+        CXL數_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        CXL數_dgv.ColumnHeadersHeight = 25
+        CXL數_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV6載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : DataGridView6.DataSource = ds5.Tables(0) : conn.Close()
+    Private Sub Set_DGV6載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : CXL數_dgv.DataSource = ds5.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_量產樣品控制表CXL數()
+    Private Sub Set_量產樣品控制表CXL數()
         Set_DGV6載入前設定()
         SQL1 = "SELECT 年份, Sample_Type, FTY, COUNT(Style) AS 樣品單數, SUM(資料筆數) AS 顏色筆數, SUM(總雙數) AS 總雙數 FROM (SELECT 年份, Sample_Type, FTY, Style, COUNT(Style) AS 資料筆數, " &
                "SUM(QTY) AS 總雙數 FROM 量產樣品控制表 WHERE (CXL = 1) AND (年份 LIKE '" & 季度_cb.Text & "') GROUP BY 年份, Sample_Type, FTY, Style) AS Q " &
                "GROUP BY 年份, Sample_Type, FTY"
         Set_DGV6載入後設定()
     End Sub
-    Private  Sub Set_grid6()
-        DataGridView6.Columns(0).Width = 45 : DataGridView6.Columns(1).Width = 120 : DataGridView6.Columns(2).Width = 40 : DataGridView6.Columns(3).Width = 58 : DataGridView6.Columns(4).Width = 58
-        DataGridView6.Columns(5).Width = 58
-        DataGridView6.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView6.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(4).DefaultCellStyle.Format = "#,##0"
-        DataGridView6.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView6.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(5).DefaultCellStyle.Format = "#,##0"
-        DataGridView6.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView6.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-    End Sub
-    Private  Sub Set_DGV7載入前設定()
-        DataGridView7.DataSource = Nothing : ds6.Clear()
-        DataGridView7.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView7.ColumnHeadersHeight = 25
-        DataGridView7.AllowUserToAddRows = False
+    Private Sub Set_grid6()
+        CXL數_dgv.Columns(0).Width = 45 : CXL數_dgv.Columns(1).Width = 120 : CXL數_dgv.Columns(2).Width = 40 : CXL數_dgv.Columns(3).Width = 58 : CXL數_dgv.Columns(4).Width = 58
+        CXL數_dgv.Columns(5).Width = 58
+        CXL數_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : CXL數_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        CXL數_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        CXL數_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : CXL數_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        CXL數_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        CXL數_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : CXL數_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_DGV7載入前設定()
+        量產樣品控制表已出貨數_dgv.DataSource = Nothing : ds6.Clear()
+        量產樣品控制表已出貨數_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        量產樣品控制表已出貨數_dgv.ColumnHeadersHeight = 25
+        量產樣品控制表已出貨數_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV7載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6) : DataGridView7.DataSource = ds6.Tables(0) : conn.Close()
+    Private Sub Set_DGV7載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6)
+        量產樣品控制表已出貨數_dgv.DataSource = ds6.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_量產樣品控制表已出貨數()
+    Private Sub Set_量產樣品控制表已出貨數()
         Set_DGV7載入前設定()
         SQL1 = "SELECT 年份, Sample_Type, FTY, COUNT(Style) AS 樣品單數, SUM(資料筆數) AS 顏色筆數, SUM(總雙數) AS 總雙數 FROM (SELECT 年份, Sample_Type, FTY, Style, COUNT(Style) AS 資料筆數, " &
                "SUM(QTY) AS 總雙數 FROM 量產樣品控制表 WHERE (CXL = 0) AND (QTY - 出貨數量 = 0) AND (年份 LIKE '" & 季度_cb.Text & "') GROUP BY 年份, Sample_Type, FTY, Style) AS Q " &
                "GROUP BY 年份, Sample_Type, FTY"
         Set_DGV7載入後設定()
     End Sub
-    Private  Sub Set_grid7()
-        DataGridView7.Columns(0).Width = 45 : DataGridView7.Columns(1).Width = 120 : DataGridView7.Columns(2).Width = 40 : DataGridView7.Columns(3).Width = 58 : DataGridView7.Columns(4).Width = 58
-        DataGridView7.Columns(5).Width = 58
-        DataGridView7.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView7.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView7.Columns(4).DefaultCellStyle.Format = "#,##0"
-        DataGridView7.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView7.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-    End Sub
-    Private  Sub Set_DGV8載入前設定()
-        DataGridView8.DataSource = Nothing : ds7.Clear()
-        DataGridView8.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView8.ColumnHeadersHeight = 25
-        DataGridView8.AllowUserToAddRows = False
+    Private Sub Set_grid7()
+        量產樣品控制表已出貨數_dgv.Columns(0).Width = 45 : 量產樣品控制表已出貨數_dgv.Columns(1).Width = 120 : 量產樣品控制表已出貨數_dgv.Columns(2).Width = 40
+        量產樣品控制表已出貨數_dgv.Columns(3).Width = 58 : 量產樣品控制表已出貨數_dgv.Columns(4).Width = 58
+        量產樣品控制表已出貨數_dgv.Columns(5).Width = 58
+        量產樣品控制表已出貨數_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        量產樣品控制表已出貨數_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        量產樣品控制表已出貨數_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        量產樣品控制表已出貨數_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        量產樣品控制表已出貨數_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_DGV8載入前設定()
+        訂單控制表未出貨數_dgv.DataSource = Nothing : ds7.Clear()
+        訂單控制表未出貨數_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單控制表未出貨數_dgv.ColumnHeadersHeight = 25
+        訂單控制表未出貨數_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV8載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds7) : DataGridView8.DataSource = ds7.Tables(0) : conn.Close()
+    Private Sub Set_DGV8載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds7)
+        訂單控制表未出貨數_dgv.DataSource = ds7.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_訂單控制表未出貨數()
+    Private Sub Set_訂單控制表未出貨數()
         Set_DGV8載入前設定()
         If 量產訂單依季度篩選_cb.Checked = True Then
             SQL1 = "SELECT 交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 FROM (SELECT LEFT(客戶交期, 7) AS 交期, " &
@@ -204,23 +220,27 @@ Public Class 訂單分析報表一
         End If
         Set_DGV8載入後設定()
     End Sub
-    Private  Sub Set_grid8()
-        DataGridView8.Columns(0).Width = 65 : DataGridView8.Columns(1).Width = 60 : DataGridView8.Columns(2).Width = 60 : DataGridView8.Columns(3).Width = 60 : DataGridView8.Columns(4).Width = 60
-        DataGridView8.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView8.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView8.Columns(4).DefaultCellStyle.Format = "#,##0"
-        DataGridView8.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView8.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-    End Sub
-    Private  Sub Set_DGV9載入前設定()
-        DataGridView9.DataSource = Nothing : ds8.Clear()
-        DataGridView9.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView9.ColumnHeadersHeight = 25
-        DataGridView9.AllowUserToAddRows = False
+    Private Sub Set_grid8()
+        訂單控制表未出貨數_dgv.Columns(0).Width = 65 : 訂單控制表未出貨數_dgv.Columns(1).Width = 60 : 訂單控制表未出貨數_dgv.Columns(2).Width = 60
+        訂單控制表未出貨數_dgv.Columns(3).Width = 60 : 訂單控制表未出貨數_dgv.Columns(4).Width = 60
+        訂單控制表未出貨數_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單控制表未出貨數_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單控制表未出貨數_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        訂單控制表未出貨數_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單控制表未出貨數_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_DGV9載入前設定()
+        訂單控制表已出貨數_dgv.DataSource = Nothing : ds8.Clear()
+        訂單控制表已出貨數_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單控制表已出貨數_dgv.ColumnHeadersHeight = 25
+        訂單控制表已出貨數_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV9載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
+    Private Sub Set_DGV9載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8)
+        訂單控制表已出貨數_dgv.DataSource = ds8.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_訂單控制表已出貨數()
+    Private Sub Set_訂單控制表已出貨數()
         Set_DGV9載入前設定()
         If 量產訂單依季度篩選_cb.Checked = True Then
             SQL1 = "SELECT 交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 FROM (SELECT LEFT(客戶交期, 7) AS 交期, " &
@@ -235,28 +255,33 @@ Public Class 訂單分析報表一
             End If
             SQL1 = "SELECT 交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 FROM (SELECT LEFT(" & 條件 & ", 7) AS 交期, " &
                    "LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 " &
-                   "FROM 訂單控制表 WHERE (LEFT(" & 條件 & ", 4) LIKE '" & 年度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 = 0) GROUP BY LEFT(" & 條件 & ", 7), LEFT(年份季度,4), " &
-                   "生產工廠, 形體號) AS Q GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
+                   "FROM 訂單控制表 
+                   WHERE (LEFT(" & 條件 & ", 4) LIKE '" & 年度_cb.Text & "%') AND (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 = 0) 
+                   GROUP BY LEFT(" & 條件 & ", 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
         End If
         Set_DGV9載入後設定()
     End Sub
-    Private  Sub Set_grid9()
-        DataGridView9.Columns(0).Width = 65 : DataGridView9.Columns(1).Width = 60 : DataGridView9.Columns(2).Width = 60 : DataGridView9.Columns(3).Width = 60 : DataGridView9.Columns(4).Width = 60
-        DataGridView9.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView9.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView9.Columns(4).DefaultCellStyle.Format = "#,##0"
-        DataGridView9.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView9.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-    End Sub
-    Private  Sub Set_DGV10載入前設定()
-        DataGridView10.DataSource = Nothing : ds9.Clear()
-        DataGridView10.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView10.ColumnHeadersHeight = 25
-        DataGridView10.AllowUserToAddRows = False
+    Private Sub Set_grid9()
+        訂單控制表已出貨數_dgv.Columns(0).Width = 65 : 訂單控制表已出貨數_dgv.Columns(1).Width = 60 : 訂單控制表已出貨數_dgv.Columns(2).Width = 60
+        訂單控制表已出貨數_dgv.Columns(3).Width = 60 : 訂單控制表已出貨數_dgv.Columns(4).Width = 60
+        訂單控制表已出貨數_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單控制表已出貨數_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單控制表已出貨數_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        訂單控制表已出貨數_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單控制表已出貨數_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_DGV10載入前設定()
+        訂單控制表CXL數_dgv.DataSource = Nothing : ds9.Clear()
+        訂單控制表CXL數_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單控制表CXL數_dgv.ColumnHeadersHeight = 25
+        訂單控制表CXL數_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV10載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds9) : DataGridView10.DataSource = ds9.Tables(0) : conn.Close()
+    Private Sub Set_DGV10載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds9)
+        訂單控制表CXL數_dgv.DataSource = ds9.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_訂單控制表CXL數()
+    Private Sub Set_訂單控制表CXL數()
         Set_DGV10載入前設定()
         If 量產訂單依季度篩選_cb.Checked = True Then
             SQL1 = "SELECT 交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 FROM (SELECT LEFT(客戶交期, 7) AS 交期, " &
@@ -276,13 +301,16 @@ Public Class 訂單分析報表一
         End If
         Set_DGV10載入後設定()
     End Sub
-    Private  Sub Set_grid10()
-        DataGridView10.Columns(0).Width = 65 : DataGridView10.Columns(1).Width = 60 : DataGridView10.Columns(2).Width = 60 : DataGridView10.Columns(3).Width = 60 : DataGridView10.Columns(4).Width = 60
-        DataGridView10.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView10.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView10.Columns(4).DefaultCellStyle.Format = "#,##0"
-        DataGridView10.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView10.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+    Private Sub Set_grid10()
+        訂單控制表CXL數_dgv.Columns(0).Width = 65 : 訂單控制表CXL數_dgv.Columns(1).Width = 60 : 訂單控制表CXL數_dgv.Columns(2).Width = 60
+        訂單控制表CXL數_dgv.Columns(3).Width = 60 : 訂單控制表CXL數_dgv.Columns(4).Width = 60
+        訂單控制表CXL數_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單控制表CXL數_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單控制表CXL數_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        訂單控制表CXL數_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單控制表CXL數_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     End Sub
-    Private  Sub ComboBox2下拉表單資料載入()
+    Private Sub ComboBox2下拉表單資料載入()
         conn.Close()
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 年份季度 FROM 訂單控制表年份季度清單 ORDER BY 年份季度 DESC"
@@ -290,100 +318,107 @@ Public Class 訂單分析報表一
         季度_cb.Items.Clear()
         While (dr.Read()) : 季度_cb.Items.Add(dr("年份季度")) : End While : conn.Close()
     End Sub
-    Private  Sub 查詢()
+    Private Sub 查詢()
         Set_圖片清單() : Set_grid1() : Set_樣品單清單() : Set_grid2() : Set_吊牌清單() : Set_grid3() : Set_確認通知單() : Set_grid4() : Set_量產樣品控制表未出貨數() : Set_grid5()
         Set_量產樣品控制表CXL數() : Set_grid6() : Set_量產樣品控制表已出貨數() : Set_grid7() : Set_訂單控制表未出貨數() : Set_grid8() : Set_訂單控制表已出貨數() : Set_grid9()
         Set_訂單控制表CXL數() : Set_grid10() : Set_自動彙總1()
     End Sub
-    Private  Sub Set_自動彙總1()
+    Private Sub Set_自動彙總1()
         Dim 加總(34) As Double
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1.RowCount = 0 Then : 加總(0) += 0 : Else : 加總(0) += DataGridView1.Rows(i).Cells("圖片數量").Value : End If
+        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
         加總(1) = 0 : 加總(2) = 0 : 加總(3) = 0 : 加總(4) = 0 : 加總(5) = 0 : 加總(6) = 0 : 加總(7) = 0 : 加總(8) = 0 : 加總(9) = 0 : 加總(10) = 0
-        For i As Integer = 0 To DataGridView2.Rows.Count - 1
-            If DataGridView2.Rows(i).Cells("階段").Value = "ILR" Then
-                If DataGridView2.RowCount = 0 Then : 加總(1) += 0 : Else : 加總(1) += DataGridView2.Rows(i).Cells("樣品單數").Value : End If
-                If DataGridView2.RowCount = 0 Then : 加總(2) += 0 : Else : 加總(2) += DataGridView2.Rows(i).Cells("顏色筆數").Value : End If
-            ElseIf DataGridView2.Rows(i).Cells("階段").Value = "FLR" Then
-                If DataGridView2.RowCount = 0 Then : 加總(3) += 0 : Else : 加總(3) += DataGridView2.Rows(i).Cells("樣品單數").Value : End If
-                If DataGridView2.RowCount = 0 Then : 加總(4) += 0 : Else : 加總(4) += DataGridView2.Rows(i).Cells("顏色筆數").Value : End If
-            ElseIf DataGridView2.Rows(i).Cells("階段").Value = "SMS" Then
-                If DataGridView2.RowCount = 0 Then : 加總(5) += 0 : Else : 加總(5) += DataGridView2.Rows(i).Cells("樣品單數").Value : End If
-                If DataGridView2.RowCount = 0 Then : 加總(6) += 0 : Else : 加總(6) += DataGridView2.Rows(i).Cells("顏色筆數").Value : End If
-            ElseIf DataGridView2.Rows(i).Cells("階段").Value = "SMU" Then
-                If DataGridView2.RowCount = 0 Then : 加總(7) += 0 : Else : 加總(7) += DataGridView2.Rows(i).Cells("樣品單數").Value : End If
-                If DataGridView2.RowCount = 0 Then : 加總(8) += 0 : Else : 加總(8) += DataGridView2.Rows(i).Cells("顏色筆數").Value : End If
-            ElseIf DataGridView2.Rows(i).Cells("階段").Value = "CFM" Then
-                If DataGridView2.RowCount = 0 Then : 加總(9) += 0 : Else : 加總(9) += DataGridView2.Rows(i).Cells("樣品單數").Value : End If
-                If DataGridView2.RowCount = 0 Then : 加總(10) += 0 : Else : 加總(10) += DataGridView2.Rows(i).Cells("顏色筆數").Value : End If
+        For i As Integer = 0 To 中文樣品單資料庫_dgv.Rows.Count - 1
+            If 中文樣品單資料庫_dgv.Rows(i).Cells("階段").Value = "ILR" Then
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(1) += 0 : Else : 加總(1) += 中文樣品單資料庫_dgv.Rows(i).Cells("樣品單數").Value : End If
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(2) += 0 : Else : 加總(2) += 中文樣品單資料庫_dgv.Rows(i).Cells("顏色筆數").Value : End If
+            ElseIf 中文樣品單資料庫_dgv.Rows(i).Cells("階段").Value = "FLR" Then
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(3) += 0 : Else : 加總(3) += 中文樣品單資料庫_dgv.Rows(i).Cells("樣品單數").Value : End If
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(4) += 0 : Else : 加總(4) += 中文樣品單資料庫_dgv.Rows(i).Cells("顏色筆數").Value : End If
+            ElseIf 中文樣品單資料庫_dgv.Rows(i).Cells("階段").Value = "SMS" Then
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(5) += 0 : Else : 加總(5) += 中文樣品單資料庫_dgv.Rows(i).Cells("樣品單數").Value : End If
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(6) += 0 : Else : 加總(6) += 中文樣品單資料庫_dgv.Rows(i).Cells("顏色筆數").Value : End If
+            ElseIf 中文樣品單資料庫_dgv.Rows(i).Cells("階段").Value = "SMU" Then
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(7) += 0 : Else : 加總(7) += 中文樣品單資料庫_dgv.Rows(i).Cells("樣品單數").Value : End If
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(8) += 0 : Else : 加總(8) += 中文樣品單資料庫_dgv.Rows(i).Cells("顏色筆數").Value : End If
+            ElseIf 中文樣品單資料庫_dgv.Rows(i).Cells("階段").Value = "CFM" Then
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(9) += 0 : Else : 加總(9) += 中文樣品單資料庫_dgv.Rows(i).Cells("樣品單數").Value : End If
+                If 中文樣品單資料庫_dgv.RowCount = 0 Then : 加總(10) += 0 : Else : 加總(10) += 中文樣品單資料庫_dgv.Rows(i).Cells("顏色筆數").Value : End If
             End If
         Next i
-        For i As Integer = 0 To DataGridView5.Rows.Count - 1
-            If DataGridView5.RowCount = 0 Then : 加總(11) += 0 : Else : 加總(11) += DataGridView5.Rows(i).Cells("樣品單數").Value : End If
-            If DataGridView5.RowCount = 0 Then : 加總(12) += 0 : Else : 加總(12) += DataGridView5.Rows(i).Cells("總雙數").Value : End If
+        For i As Integer = 0 To 量產樣品控制表未出貨數_dgv.Rows.Count - 1
+            If 量產樣品控制表未出貨數_dgv.RowCount = 0 Then : 加總(11) += 0 : Else : 加總(11) += 量產樣品控制表未出貨數_dgv.Rows(i).Cells("樣品單數").Value : End If
+            If 量產樣品控制表未出貨數_dgv.RowCount = 0 Then : 加總(12) += 0 : Else : 加總(12) += 量產樣品控制表未出貨數_dgv.Rows(i).Cells("總雙數").Value : End If
         Next i
-        For i As Integer = 0 To DataGridView6.Rows.Count - 1
-            If DataGridView6.RowCount = 0 Then : 加總(13) += 0 : Else : 加總(13) += DataGridView6.Rows(i).Cells("樣品單數").Value : End If
-            If DataGridView6.RowCount = 0 Then : 加總(14) += 0 : Else : 加總(14) += DataGridView6.Rows(i).Cells("總雙數").Value : End If
+        For i As Integer = 0 To CXL數_dgv.Rows.Count - 1
+            If CXL數_dgv.RowCount = 0 Then : 加總(13) += 0 : Else : 加總(13) += CXL數_dgv.Rows(i).Cells("樣品單數").Value : End If
+            If CXL數_dgv.RowCount = 0 Then : 加總(14) += 0 : Else : 加總(14) += CXL數_dgv.Rows(i).Cells("總雙數").Value : End If
         Next i
-        For i As Integer = 0 To DataGridView7.Rows.Count - 1
-            If DataGridView7.RowCount = 0 Then : 加總(15) += 0 : Else : 加總(15) += DataGridView7.Rows(i).Cells("樣品單數").Value : End If
-            If DataGridView7.RowCount = 0 Then : 加總(16) += 0 : Else : 加總(16) += DataGridView7.Rows(i).Cells("總雙數").Value : End If
+        For i As Integer = 0 To 量產樣品控制表已出貨數_dgv.Rows.Count - 1
+            If 量產樣品控制表已出貨數_dgv.RowCount = 0 Then : 加總(15) += 0 : Else : 加總(15) += 量產樣品控制表已出貨數_dgv.Rows(i).Cells("樣品單數").Value : End If
+            If 量產樣品控制表已出貨數_dgv.RowCount = 0 Then : 加總(16) += 0 : Else : 加總(16) += 量產樣品控制表已出貨數_dgv.Rows(i).Cells("總雙數").Value : End If
         Next i
-        For i As Integer = 0 To DataGridView8.Rows.Count - 1
-            If DataGridView8.Rows(i).Cells("工廠").Value = "NJ" Then
-                If DataGridView8.RowCount = 0 Then : 加總(17) += 0 : Else : 加總(17) += DataGridView8.Rows(i).Cells("訂單數量").Value : End If
-                If DataGridView8.RowCount = 0 Then : 加總(18) += 0 : Else : 加總(18) += DataGridView8.Rows(i).Cells("訂單總數").Value : End If
-            ElseIf DataGridView8.Rows(i).Cells("工廠").Value = "JH" Then
-                If DataGridView8.RowCount = 0 Then : 加總(19) += 0 : Else : 加總(19) += DataGridView8.Rows(i).Cells("訂單數量").Value : End If
-                If DataGridView8.RowCount = 0 Then : 加總(20) += 0 : Else : 加總(20) += DataGridView8.Rows(i).Cells("訂單總數").Value : End If
-            ElseIf DataGridView8.Rows(i).Cells("工廠").Value = "SK" Then
-                If DataGridView8.RowCount = 0 Then : 加總(21) += 0 : Else : 加總(21) += DataGridView8.Rows(i).Cells("訂單數量").Value : End If
-                If DataGridView8.RowCount = 0 Then : 加總(22) += 0 : Else : 加總(22) += DataGridView8.Rows(i).Cells("訂單總數").Value : End If
+        For i As Integer = 0 To 訂單控制表未出貨數_dgv.Rows.Count - 1
+            If 訂單控制表未出貨數_dgv.Rows(i).Cells("工廠").Value = "NJ" Then
+                If 訂單控制表未出貨數_dgv.RowCount = 0 Then : 加總(17) += 0 : Else : 加總(17) += 訂單控制表未出貨數_dgv.Rows(i).Cells("訂單數量").Value : End If
+                If 訂單控制表未出貨數_dgv.RowCount = 0 Then : 加總(18) += 0 : Else : 加總(18) += 訂單控制表未出貨數_dgv.Rows(i).Cells("訂單總數").Value : End If
+            ElseIf 訂單控制表未出貨數_dgv.Rows(i).Cells("工廠").Value = "JH" Then
+                If 訂單控制表未出貨數_dgv.RowCount = 0 Then : 加總(19) += 0 : Else : 加總(19) += 訂單控制表未出貨數_dgv.Rows(i).Cells("訂單數量").Value : End If
+                If 訂單控制表未出貨數_dgv.RowCount = 0 Then : 加總(20) += 0 : Else : 加總(20) += 訂單控制表未出貨數_dgv.Rows(i).Cells("訂單總數").Value : End If
+            ElseIf 訂單控制表未出貨數_dgv.Rows(i).Cells("工廠").Value = "SK" Then
+                If 訂單控制表未出貨數_dgv.RowCount = 0 Then : 加總(21) += 0 : Else : 加總(21) += 訂單控制表未出貨數_dgv.Rows(i).Cells("訂單數量").Value : End If
+                If 訂單控制表未出貨數_dgv.RowCount = 0 Then : 加總(22) += 0 : Else : 加總(22) += 訂單控制表未出貨數_dgv.Rows(i).Cells("訂單總數").Value : End If
             End If
         Next i
-        For i As Integer = 0 To DataGridView9.Rows.Count - 1
-            If DataGridView9.Rows(i).Cells("工廠").Value = "NJ" Then
-                If DataGridView9.RowCount = 0 Then : 加總(23) += 0 : Else : 加總(23) += DataGridView9.Rows(i).Cells("訂單數量").Value : End If
-                If DataGridView9.RowCount = 0 Then : 加總(24) += 0 : Else : 加總(24) += DataGridView9.Rows(i).Cells("訂單總數").Value : End If
-            ElseIf DataGridView9.Rows(i).Cells("工廠").Value = "JH" Then
-                If DataGridView9.RowCount = 0 Then : 加總(25) += 0 : Else : 加總(25) += DataGridView9.Rows(i).Cells("訂單數量").Value : End If
-                If DataGridView9.RowCount = 0 Then : 加總(26) += 0 : Else : 加總(26) += DataGridView9.Rows(i).Cells("訂單總數").Value : End If
-            ElseIf DataGridView9.Rows(i).Cells("工廠").Value = "SK" Then
-                If DataGridView9.RowCount = 0 Then : 加總(27) += 0 : Else : 加總(27) += DataGridView9.Rows(i).Cells("訂單數量").Value : End If
-                If DataGridView9.RowCount = 0 Then : 加總(28) += 0 : Else : 加總(28) += DataGridView9.Rows(i).Cells("訂單總數").Value : End If
+        For i As Integer = 0 To 訂單控制表已出貨數_dgv.Rows.Count - 1
+            If 訂單控制表已出貨數_dgv.Rows(i).Cells("工廠").Value = "NJ" Then
+                If 訂單控制表已出貨數_dgv.RowCount = 0 Then : 加總(23) += 0 : Else : 加總(23) += 訂單控制表已出貨數_dgv.Rows(i).Cells("訂單數量").Value : End If
+                If 訂單控制表已出貨數_dgv.RowCount = 0 Then : 加總(24) += 0 : Else : 加總(24) += 訂單控制表已出貨數_dgv.Rows(i).Cells("訂單總數").Value : End If
+            ElseIf 訂單控制表已出貨數_dgv.Rows(i).Cells("工廠").Value = "JH" Then
+                If 訂單控制表已出貨數_dgv.RowCount = 0 Then : 加總(25) += 0 : Else : 加總(25) += 訂單控制表已出貨數_dgv.Rows(i).Cells("訂單數量").Value : End If
+                If 訂單控制表已出貨數_dgv.RowCount = 0 Then : 加總(26) += 0 : Else : 加總(26) += 訂單控制表已出貨數_dgv.Rows(i).Cells("訂單總數").Value : End If
+            ElseIf 訂單控制表已出貨數_dgv.Rows(i).Cells("工廠").Value = "SK" Then
+                If 訂單控制表已出貨數_dgv.RowCount = 0 Then : 加總(27) += 0 : Else : 加總(27) += 訂單控制表已出貨數_dgv.Rows(i).Cells("訂單數量").Value : End If
+                If 訂單控制表已出貨數_dgv.RowCount = 0 Then : 加總(28) += 0 : Else : 加總(28) += 訂單控制表已出貨數_dgv.Rows(i).Cells("訂單總數").Value : End If
             End If
         Next i
-        For i As Integer = 0 To DataGridView10.Rows.Count - 1
-            If DataGridView10.Rows(i).Cells("工廠").Value = "NJ" Then
-                If DataGridView10.RowCount = 0 Then : 加總(29) += 0 : Else : 加總(29) += DataGridView10.Rows(i).Cells("訂單數量").Value : End If
-                If DataGridView10.RowCount = 0 Then : 加總(30) += 0 : Else : 加總(30) += DataGridView10.Rows(i).Cells("訂單總數").Value : End If
-            ElseIf DataGridView10.Rows(i).Cells("工廠").Value = "JH" Then
-                If DataGridView10.RowCount = 0 Then : 加總(31) += 0 : Else : 加總(31) += DataGridView10.Rows(i).Cells("訂單數量").Value : End If
-                If DataGridView10.RowCount = 0 Then : 加總(32) += 0 : Else : 加總(32) += DataGridView10.Rows(i).Cells("訂單總數").Value : End If
-            ElseIf DataGridView10.Rows(i).Cells("工廠").Value = "SK" Then
-                If DataGridView10.RowCount = 0 Then : 加總(33) += 0 : Else : 加總(33) += DataGridView10.Rows(i).Cells("訂單數量").Value : End If
-                If DataGridView10.RowCount = 0 Then : 加總(34) += 0 : Else : 加總(34) += DataGridView10.Rows(i).Cells("訂單總數").Value : End If
+        For i As Integer = 0 To 訂單控制表CXL數_dgv.Rows.Count - 1
+            If 訂單控制表CXL數_dgv.Rows(i).Cells("工廠").Value = "NJ" Then
+                If 訂單控制表CXL數_dgv.RowCount = 0 Then : 加總(29) += 0 : Else : 加總(29) += 訂單控制表CXL數_dgv.Rows(i).Cells("訂單數量").Value : End If
+                If 訂單控制表CXL數_dgv.RowCount = 0 Then : 加總(30) += 0 : Else : 加總(30) += 訂單控制表CXL數_dgv.Rows(i).Cells("訂單總數").Value : End If
+            ElseIf 訂單控制表CXL數_dgv.Rows(i).Cells("工廠").Value = "JH" Then
+                If 訂單控制表CXL數_dgv.RowCount = 0 Then : 加總(31) += 0 : Else : 加總(31) += 訂單控制表CXL數_dgv.Rows(i).Cells("訂單數量").Value : End If
+                If 訂單控制表CXL數_dgv.RowCount = 0 Then : 加總(32) += 0 : Else : 加總(32) += 訂單控制表CXL數_dgv.Rows(i).Cells("訂單總數").Value : End If
+            ElseIf 訂單控制表CXL數_dgv.Rows(i).Cells("工廠").Value = "SK" Then
+                If 訂單控制表CXL數_dgv.RowCount = 0 Then : 加總(33) += 0 : Else : 加總(33) += 訂單控制表CXL數_dgv.Rows(i).Cells("訂單數量").Value : End If
+                If 訂單控制表CXL數_dgv.RowCount = 0 Then : 加總(34) += 0 : Else : 加總(34) += 訂單控制表CXL數_dgv.Rows(i).Cells("訂單總數").Value : End If
             End If
         Next i
-        TextBox1.Text = Format(Val(加總(0)), "#,##0") : TextBox2.Text = Format(Val(加總(1)), "#,##0") : TextBox38.Text = Format(Val(加總(2)), "#,##0") : TextBox3.Text = Format(Val(加總(3)), "#,##0")
-        TextBox39.Text = Format(Val(加總(4)), "#,##0") : TextBox4.Text = Format(Val(加總(5)), "#,##0") : TextBox40.Text = Format(Val(加總(6)), "#,##0") : TextBox5.Text = Format(Val(加總(7)), "#,##0")
-        TextBox41.Text = Format(Val(加總(8)), "#,##0") : TextBox6.Text = Format(Val(加總(9)), "#,##0") : TextBox42.Text = Format(Val(加總(10)), "#,##0") : TextBox7.Text = DataGridView4.Rows.Count
-        TextBox8.Text = Format(Val(加總(11)), "#,##0") : TextBox9.Text = Format(Val(加總(12)), "#,##0") : TextBox10.Text = Format(Val(加總(15)), "#,##0") : TextBox11.Text = Format(Val(加總(16)), "#,##0")
-        TextBox12.Text = Format(Val(加總(13)), "#,##0") : TextBox13.Text = Format(Val(加總(14)), "#,##0")
+        圖片資料庫_tb.Text = Format(Val(加總(0)), "#,##0") : 開發ILR中文樣品單數量_tb.Text = Format(Val(加總(1)), "#,##0")
+        開發ILR樣品單顏色總數_tb.Text = Format(Val(加總(2)), "#,##0") : 開發FLR中文樣品單數量_tb.Text = Format(Val(加總(3)), "#,##0")
+        開發FLR樣品單顏色總數_tb.Text = Format(Val(加總(4)), "#,##0") : 開發SMS中文樣品單數量_tb.Text = Format(Val(加總(5)), "#,##0")
+        開發SMS樣品單顏色總數_tb.Text = Format(Val(加總(6)), "#,##0") : 開發SMU中文樣品單數量_tb.Text = Format(Val(加總(7)), "#,##0")
+        開發SMU樣品單顏色總數_tb.Text = Format(Val(加總(8)), "#,##0") : 確認CFM中文樣品單數量_tb.Text = Format(Val(加總(9)), "#,##0")
+        確認CFM樣品單顏色總數_tb.Text = Format(Val(加總(10)), "#,##0") : 確認通知書單量_tb.Text = 確認通知書_dgv.Rows.Count
+        量產樣品未出貨樣品單數_tb.Text = Format(Val(加總(11)), "#,##0") : 量產樣品未出貨總雙數_tb.Text = Format(Val(加總(12)), "#,##0")
+        量產樣品已出貨樣品單數_tb.Text = Format(Val(加總(15)), "#,##0") : 量產樣品已出貨總雙數_tb.Text = Format(Val(加總(16)), "#,##0")
+        量產樣品CXL樣品單數_tb.Text = Format(Val(加總(13)), "#,##0") : 量產樣品CXL總雙數_tb.Text = Format(Val(加總(14)), "#,##0")
 
-        NJ未出貨訂單數_tb.Text = Format(Val(加總(17)), "#,##0") : NJ未出貨總雙數_tb.Text = Format(Val(加總(18)), "#,##0") : JH未出貨訂單數_tb.Text = Format(Val(加總(19)), "#,##0") : JH未出貨總雙數_tb.Text = Format(Val(加總(20)), "#,##0")
+        NJ未出貨訂單數_tb.Text = Format(Val(加總(17)), "#,##0") : NJ未出貨總雙數_tb.Text = Format(Val(加總(18)), "#,##0")
+        JH未出貨訂單數_tb.Text = Format(Val(加總(19)), "#,##0") : JH未出貨總雙數_tb.Text = Format(Val(加總(20)), "#,##0")
         SK未出貨訂單數_tb.Text = Format(Val(加總(21)), "#,##0") : SK未出貨總雙數_tb.Text = Format(Val(加總(22)), "#,##0")
         未出貨訂單數_tb.Text = Format(Val(加總(17) + 加總(19) + 加總(21)), "#,##0")
         未出貨總雙數_tb.Text = Format(Val(加總(18) + 加總(20) + 加總(22)), "#,##0")
 
-        NJ已出貨訂單數_tb.Text = Format(Val(加總(23)), "#,##0") : NJ已出貨總雙數_tb.Text = Format(Val(加總(24)), "#,##0") : JH已出貨訂單數_tb.Text = Format(Val(加總(25)), "#,##0") : JH已出貨總雙數_tb.Text = Format(Val(加總(26)), "#,##0")
+        NJ已出貨訂單數_tb.Text = Format(Val(加總(23)), "#,##0") : NJ已出貨總雙數_tb.Text = Format(Val(加總(24)), "#,##0")
+        JH已出貨訂單數_tb.Text = Format(Val(加總(25)), "#,##0") : JH已出貨總雙數_tb.Text = Format(Val(加總(26)), "#,##0")
         SK已出貨訂單數_tb.Text = Format(Val(加總(27)), "#,##0") : SK已出貨總雙數_tb.Text = Format(Val(加總(28)), "#,##0")
         已出貨訂單數_tb.Text = Format(Val(加總(23) + 加總(25) + 加總(27)), "#,##0")
         已出貨總雙數_tb.Text = Format(Val(加總(24) + 加總(26) + 加總(28)), "#,##0")
 
-        NJCXL訂單數_tb.Text = Format(Val(加總(29)), "#,##0") : NJCXL總雙數_tb.Text = Format(Val(加總(30)), "#,##0") : JHCXL訂單數_tb.Text = Format(Val(加總(31)), "#,##0") : JHCXL總雙數_tb.Text = Format(Val(加總(32)), "#,##0")
+        NJCXL訂單數_tb.Text = Format(Val(加總(29)), "#,##0") : NJCXL總雙數_tb.Text = Format(Val(加總(30)), "#,##0")
+        JHCXL訂單數_tb.Text = Format(Val(加總(31)), "#,##0") : JHCXL總雙數_tb.Text = Format(Val(加總(32)), "#,##0")
         SKCXL訂單數_tb.Text = Format(Val(加總(33)), "#,##0") : SKCXL總雙數_tb.Text = Format(Val(加總(34)), "#,##0")
         CXL訂單數_tb.Text = Format(Val(加總(29) + 加總(31) + 加總(33)), "#,##0")
         CXL總雙數_tb.Text = Format(Val(加總(30) + 加總(32) + 加總(34)), "#,##0")
@@ -394,7 +429,7 @@ Public Class 訂單分析報表一
         ComboBox2下拉表單資料載入() : 季度_cb.SelectedIndex = 0
         年度_cb.Text = Year(Today)
     End Sub
-    Private  Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private  Sub Button1_Click(sender As Object, e As EventArgs) Handles 樣品資料庫管理_bt.Click
         樣品資料庫管理.Close() : 樣品資料庫管理.Show()
     End Sub
     Private  Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 季度_cb.SelectedIndexChanged
@@ -422,43 +457,43 @@ Public Class 訂單分析報表一
         End If
         查詢()
     End Sub
-    Private  Sub DataGridView8_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView8.RowPostPaint
+    Private  Sub DataGridView8_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 訂單控制表未出貨數_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView8.Rows.Count - 1 Then
+        If e.RowIndex = 訂單控制表未出貨數_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView8(2, e.RowIndex).Value.ToString <> DataGridView8(2, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView8.RowHeadersVisible, DataGridView8.RowHeadersWidth, 0)
+            If 訂單控制表未出貨數_dgv(2, e.RowIndex).Value.ToString <> 訂單控制表未出貨數_dgv(2, 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 + DataGridView8.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView8.HorizontalScrollingOffset
+                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 DataGridView9_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView9.RowPostPaint
+    Private  Sub DataGridView9_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 訂單控制表已出貨數_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView9.Rows.Count - 1 Then
+        If e.RowIndex = 訂單控制表已出貨數_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView9(2, e.RowIndex).Value.ToString <> DataGridView9(2, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView9.RowHeadersVisible, DataGridView9.RowHeadersWidth, 0)
+            If 訂單控制表已出貨數_dgv(2, e.RowIndex).Value.ToString <> 訂單控制表已出貨數_dgv(2, 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 + DataGridView9.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView9.HorizontalScrollingOffset
+                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 DataGridView10_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView10.RowPostPaint
+    Private  Sub DataGridView10_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 訂單控制表CXL數_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView10.Rows.Count - 1 Then
+        If e.RowIndex = 訂單控制表CXL數_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView10(2, e.RowIndex).Value.ToString <> DataGridView10(2, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView10.RowHeadersVisible, DataGridView10.RowHeadersWidth, 0)
+            If 訂單控制表CXL數_dgv(2, e.RowIndex).Value.ToString <> 訂單控制表CXL數_dgv(2, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(訂單控制表CXL數_dgv.RowHeadersVisible, 訂單控制表CXL數_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView10.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView10.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 訂單控制表CXL數_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 訂單控制表CXL數_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If

TENDEN-MES-SYS/彙總報表管理/訂單分析報表七.Designer.vb

@@ -22,59 +22,59 @@ Partial Class 訂單分析報表七
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.Button2 = New System.Windows.Forms.Button()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.當月_bt = New System.Windows.Forms.Button()
+        Me.當日_bt = New System.Windows.Forms.Button()
         Me.Label4 = New System.Windows.Forms.Label()
-        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
-        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.日期1_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.每種形體有賺頭前50名_dgv = New System.Windows.Forms.DataGridView()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.每種形體做爽的倒數50名_dgv = New System.Windows.Forms.DataGridView()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.DataGridView3 = New System.Windows.Forms.DataGridView()
+        Me.每種形體開發來玩的倒數50名_dgv = New System.Windows.Forms.DataGridView()
         Me.Label5 = New System.Windows.Forms.Label()
-        Me.DataGridView4 = New System.Windows.Forms.DataGridView()
+        Me.每種形體數量大前50名_dgv = New System.Windows.Forms.DataGridView()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.DataGridView5 = New System.Windows.Forms.DataGridView()
+        Me.時間區間內倒數50名聊尾仔_dgv = New System.Windows.Forms.DataGridView()
         Me.Label7 = New System.Windows.Forms.Label()
-        Me.DataGridView6 = New System.Windows.Forms.DataGridView()
-        Me.Button3 = New System.Windows.Forms.Button()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.時間區間內有前途_dgv = New System.Windows.Forms.DataGridView()
+        Me.列印_bt = New System.Windows.Forms.Button()
+        CType(Me.每種形體有賺頭前50名_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.每種形體做爽的倒數50名_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.每種形體開發來玩的倒數50名_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.每種形體數量大前50名_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.時間區間內倒數50名聊尾仔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.時間區間內有前途_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'Button2
+        '當月_bt
         '
-        Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button2.Location = New System.Drawing.Point(370, 6)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(117, 24)
-        Me.Button2.TabIndex = 1093
-        Me.Button2.Text = "當月"
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.當月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.當月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.當月_bt.Location = New System.Drawing.Point(370, 6)
+        Me.當月_bt.Name = "當月_bt"
+        Me.當月_bt.Size = New System.Drawing.Size(117, 24)
+        Me.當月_bt.TabIndex = 1093
+        Me.當月_bt.Text = "當月"
+        Me.當月_bt.UseVisualStyleBackColor = True
         '
-        'Button1
+        '當日_bt
         '
-        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button1.Location = New System.Drawing.Point(249, 6)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(117, 24)
-        Me.Button1.TabIndex = 1092
-        Me.Button1.Text = "當日"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.當日_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.當日_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.當日_bt.Location = New System.Drawing.Point(249, 6)
+        Me.當日_bt.Name = "當日_bt"
+        Me.當日_bt.Size = New System.Drawing.Size(117, 24)
+        Me.當日_bt.TabIndex = 1092
+        Me.當日_bt.Text = "當日"
+        Me.當日_bt.UseVisualStyleBackColor = True
         '
         'Label4
         '
@@ -85,35 +85,35 @@ Partial Class 訂單分析報表七
         Me.Label4.TabIndex = 1091
         Me.Label4.Text = "到"
         '
-        'DateTimePicker2
+        '日期1_dtp
         '
-        Me.DateTimePicker2.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
-        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker2.Location = New System.Drawing.Point(138, 6)
-        Me.DateTimePicker2.Name = "DateTimePicker2"
-        Me.DateTimePicker2.Size = New System.Drawing.Size(105, 23)
-        Me.DateTimePicker2.TabIndex = 1090
+        Me.日期1_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.日期1_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期1_dtp.Location = New System.Drawing.Point(138, 6)
+        Me.日期1_dtp.Name = "日期1_dtp"
+        Me.日期1_dtp.Size = New System.Drawing.Size(105, 23)
+        Me.日期1_dtp.TabIndex = 1090
         '
-        'DateTimePicker1
+        '日期_dtp
         '
-        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker1.Location = New System.Drawing.Point(6, 6)
-        Me.DateTimePicker1.Name = "DateTimePicker1"
-        Me.DateTimePicker1.Size = New System.Drawing.Size(105, 23)
-        Me.DateTimePicker1.TabIndex = 1089
+        Me.日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期_dtp.Location = New System.Drawing.Point(6, 6)
+        Me.日期_dtp.Name = "日期_dtp"
+        Me.日期_dtp.Size = New System.Drawing.Size(105, 23)
+        Me.日期_dtp.TabIndex = 1089
         '
-        'DataGridView1
+        '每種形體有賺頭前50名_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
-        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(8, 67)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(628, 435)
-        Me.DataGridView1.TabIndex = 1094
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.每種形體有賺頭前50名_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.每種形體有賺頭前50名_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.每種形體有賺頭前50名_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.每種形體有賺頭前50名_dgv.Location = New System.Drawing.Point(8, 67)
+        Me.每種形體有賺頭前50名_dgv.Name = "每種形體有賺頭前50名_dgv"
+        Me.每種形體有賺頭前50名_dgv.RowHeadersWidth = 5
+        Me.每種形體有賺頭前50名_dgv.RowTemplate.Height = 24
+        Me.每種形體有賺頭前50名_dgv.Size = New System.Drawing.Size(628, 435)
+        Me.每種形體有賺頭前50名_dgv.TabIndex = 1094
         '
         'Label1
         '
@@ -137,18 +137,18 @@ Partial Class 訂單分析報表七
         Me.Label2.TabIndex = 1097
         Me.Label2.Text = "每種形體，加權平均利潤， (做爽的) 倒數 50 名"
         '
-        'DataGridView2
+        '每種形體做爽的倒數50名_dgv
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
-        Me.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(8, 540)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(628, 435)
-        Me.DataGridView2.TabIndex = 1096
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.每種形體做爽的倒數50名_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.每種形體做爽的倒數50名_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.每種形體做爽的倒數50名_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.每種形體做爽的倒數50名_dgv.Location = New System.Drawing.Point(8, 540)
+        Me.每種形體做爽的倒數50名_dgv.Name = "每種形體做爽的倒數50名_dgv"
+        Me.每種形體做爽的倒數50名_dgv.RowHeadersWidth = 5
+        Me.每種形體做爽的倒數50名_dgv.RowTemplate.Height = 24
+        Me.每種形體做爽的倒數50名_dgv.Size = New System.Drawing.Size(628, 435)
+        Me.每種形體做爽的倒數50名_dgv.TabIndex = 1096
         '
         'Label3
         '
@@ -161,18 +161,18 @@ Partial Class 訂單分析報表七
         Me.Label3.TabIndex = 1101
         Me.Label3.Text = "每種形體，訂單加總數， (開發來玩的) 倒數 50 名"
         '
-        'DataGridView3
+        '每種形體開發來玩的倒數50名_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
-        Me.DataGridView3.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView3.Location = New System.Drawing.Point(642, 540)
-        Me.DataGridView3.Name = "DataGridView3"
-        Me.DataGridView3.RowHeadersWidth = 5
-        Me.DataGridView3.RowTemplate.Height = 24
-        Me.DataGridView3.Size = New System.Drawing.Size(628, 435)
-        Me.DataGridView3.TabIndex = 1100
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.每種形體開發來玩的倒數50名_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.每種形體開發來玩的倒數50名_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.每種形體開發來玩的倒數50名_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.每種形體開發來玩的倒數50名_dgv.Location = New System.Drawing.Point(642, 540)
+        Me.每種形體開發來玩的倒數50名_dgv.Name = "每種形體開發來玩的倒數50名_dgv"
+        Me.每種形體開發來玩的倒數50名_dgv.RowHeadersWidth = 5
+        Me.每種形體開發來玩的倒數50名_dgv.RowTemplate.Height = 24
+        Me.每種形體開發來玩的倒數50名_dgv.Size = New System.Drawing.Size(628, 435)
+        Me.每種形體開發來玩的倒數50名_dgv.TabIndex = 1100
         '
         'Label5
         '
@@ -185,18 +185,18 @@ Partial Class 訂單分析報表七
         Me.Label5.TabIndex = 1099
         Me.Label5.Text = "每種形體，訂單加總數， (數量大) 前 50 名"
         '
-        'DataGridView4
+        '每種形體數量大前50名_dgv
         '
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView4.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
-        Me.DataGridView4.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView4.Location = New System.Drawing.Point(642, 67)
-        Me.DataGridView4.Name = "DataGridView4"
-        Me.DataGridView4.RowHeadersWidth = 5
-        Me.DataGridView4.RowTemplate.Height = 24
-        Me.DataGridView4.Size = New System.Drawing.Size(628, 435)
-        Me.DataGridView4.TabIndex = 1098
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.每種形體數量大前50名_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.每種形體數量大前50名_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.每種形體數量大前50名_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.每種形體數量大前50名_dgv.Location = New System.Drawing.Point(642, 67)
+        Me.每種形體數量大前50名_dgv.Name = "每種形體數量大前50名_dgv"
+        Me.每種形體數量大前50名_dgv.RowHeadersWidth = 5
+        Me.每種形體數量大前50名_dgv.RowTemplate.Height = 24
+        Me.每種形體數量大前50名_dgv.Size = New System.Drawing.Size(628, 435)
+        Me.每種形體數量大前50名_dgv.TabIndex = 1098
         '
         'Label6
         '
@@ -209,18 +209,18 @@ Partial Class 訂單分析報表七
         Me.Label6.TabIndex = 1105
         Me.Label6.Text = "時間區間內，每總形體，創造利潤，倒數 50 名 (聊尾仔)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
-        'DataGridView5
+        '時間區間內倒數50名聊尾仔_dgv
         '
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView5.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
-        Me.DataGridView5.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView5.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView5.Location = New System.Drawing.Point(1276, 540)
-        Me.DataGridView5.Name = "DataGridView5"
-        Me.DataGridView5.RowHeadersWidth = 5
-        Me.DataGridView5.RowTemplate.Height = 24
-        Me.DataGridView5.Size = New System.Drawing.Size(628, 435)
-        Me.DataGridView5.TabIndex = 1104
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.時間區間內倒數50名聊尾仔_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.時間區間內倒數50名聊尾仔_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.時間區間內倒數50名聊尾仔_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.時間區間內倒數50名聊尾仔_dgv.Location = New System.Drawing.Point(1276, 540)
+        Me.時間區間內倒數50名聊尾仔_dgv.Name = "時間區間內倒數50名聊尾仔_dgv"
+        Me.時間區間內倒數50名聊尾仔_dgv.RowHeadersWidth = 5
+        Me.時間區間內倒數50名聊尾仔_dgv.RowTemplate.Height = 24
+        Me.時間區間內倒數50名聊尾仔_dgv.Size = New System.Drawing.Size(628, 435)
+        Me.時間區間內倒數50名聊尾仔_dgv.TabIndex = 1104
         '
         'Label7
         '
@@ -233,84 +233,84 @@ Partial Class 訂單分析報表七
         Me.Label7.TabIndex = 1103
         Me.Label7.Text = "時間區間內，每總形體，創造利潤，前 50 名  (有前途)"
         '
-        'DataGridView6
-        '
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView6.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
-        Me.DataGridView6.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView6.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView6.Location = New System.Drawing.Point(1276, 67)
-        Me.DataGridView6.Name = "DataGridView6"
-        Me.DataGridView6.RowHeadersWidth = 5
-        Me.DataGridView6.RowTemplate.Height = 24
-        Me.DataGridView6.Size = New System.Drawing.Size(628, 435)
-        Me.DataGridView6.TabIndex = 1102
-        '
-        'Button3
-        '
-        Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button3.Location = New System.Drawing.Point(493, 5)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(117, 24)
-        Me.Button3.TabIndex = 1106
-        Me.Button3.Text = "列印"
-        Me.Button3.UseVisualStyleBackColor = True
+        '時間區間內有前途_dgv
+        '
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.時間區間內有前途_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.時間區間內有前途_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.時間區間內有前途_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.時間區間內有前途_dgv.Location = New System.Drawing.Point(1276, 67)
+        Me.時間區間內有前途_dgv.Name = "時間區間內有前途_dgv"
+        Me.時間區間內有前途_dgv.RowHeadersWidth = 5
+        Me.時間區間內有前途_dgv.RowTemplate.Height = 24
+        Me.時間區間內有前途_dgv.Size = New System.Drawing.Size(628, 435)
+        Me.時間區間內有前途_dgv.TabIndex = 1102
+        '
+        '列印_bt
+        '
+        Me.列印_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.列印_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.列印_bt.Location = New System.Drawing.Point(493, 5)
+        Me.列印_bt.Name = "列印_bt"
+        Me.列印_bt.Size = New System.Drawing.Size(117, 24)
+        Me.列印_bt.TabIndex = 1106
+        Me.列印_bt.Text = "列印"
+        Me.列印_bt.UseVisualStyleBackColor = True
         '
         '訂單分析報表七
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 991)
-        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.列印_bt)
         Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.DataGridView5)
+        Me.Controls.Add(Me.時間區間內倒數50名聊尾仔_dgv)
         Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.DataGridView6)
+        Me.Controls.Add(Me.時間區間內有前途_dgv)
         Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.DataGridView3)
+        Me.Controls.Add(Me.每種形體開發來玩的倒數50名_dgv)
         Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.DataGridView4)
+        Me.Controls.Add(Me.每種形體數量大前50名_dgv)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.DataGridView2)
+        Me.Controls.Add(Me.每種形體做爽的倒數50名_dgv)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.DataGridView1)
-        Me.Controls.Add(Me.Button2)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.每種形體有賺頭前50名_dgv)
+        Me.Controls.Add(Me.當月_bt)
+        Me.Controls.Add(Me.當日_bt)
         Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.DateTimePicker2)
-        Me.Controls.Add(Me.DateTimePicker1)
+        Me.Controls.Add(Me.日期1_dtp)
+        Me.Controls.Add(Me.日期_dtp)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "訂單分析報表七"
         Me.Text = "Product sales profit analysis table"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.每種形體有賺頭前50名_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.每種形體做爽的倒數50名_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.每種形體開發來玩的倒數50名_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.每種形體數量大前50名_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.時間區間內倒數50名聊尾仔_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.時間區間內有前途_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
-    Friend WithEvents Button2 As Button
-    Friend WithEvents Button1 As Button
+    Friend WithEvents 當月_bt As Button
+    Friend WithEvents 當日_bt As Button
     Friend WithEvents Label4 As Label
-    Friend WithEvents DateTimePicker2 As DateTimePicker
-    Friend WithEvents DateTimePicker1 As DateTimePicker
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 日期1_dtp As DateTimePicker
+    Friend WithEvents 日期_dtp As DateTimePicker
+    Friend WithEvents 每種形體有賺頭前50名_dgv As DataGridView
     Friend WithEvents Label1 As Label
     Friend WithEvents Label2 As Label
-    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents 每種形體做爽的倒數50名_dgv As DataGridView
     Friend WithEvents Label3 As Label
-    Friend WithEvents DataGridView3 As DataGridView
+    Friend WithEvents 每種形體開發來玩的倒數50名_dgv As DataGridView
     Friend WithEvents Label5 As Label
-    Friend WithEvents DataGridView4 As DataGridView
+    Friend WithEvents 每種形體數量大前50名_dgv As DataGridView
     Friend WithEvents Label6 As Label
-    Friend WithEvents DataGridView5 As DataGridView
+    Friend WithEvents 時間區間內倒數50名聊尾仔_dgv As DataGridView
     Friend WithEvents Label7 As Label
-    Friend WithEvents DataGridView6 As DataGridView
-    Friend WithEvents Button3 As Button
+    Friend WithEvents 時間區間內有前途_dgv As DataGridView
+    Friend WithEvents 列印_bt As Button
 End Class

TENDEN-MES-SYS/彙總報表管理/訂單分析報表七.vb

@@ -27,197 +27,261 @@ Public Class 訂單分析報表七
                             - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                 FROM        訂單價格利潤明細表 FULL OUTER JOIN
                             訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
-                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 
+                WHERE     (訂單控制表.客戶交期 BETWEEN '" & Strings.Format(日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(日期1_dtp.Value, "yyyy/MM/dd") & "') AND 
                           (訂單價格利潤明細表.FTYPrice > 0) AND  (訂單控制表.訂單數量 > 0)
                 GROUP BY   訂單控制表.形體號"
     End Sub
     Private Sub Set_訂單清單1()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = RR
-        DataGridView1.AllowUserToAddRows = False : DataGridView1.RowTemplate.Height = SS
+        每種形體有賺頭前50名_dgv.DataSource = Nothing : ds.Clear()
+        每種形體有賺頭前50名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        每種形體有賺頭前50名_dgv.ColumnHeadersHeight = RR
+        每種形體有賺頭前50名_dgv.AllowUserToAddRows = False : 每種形體有賺頭前50名_dgv.RowTemplate.Height = SS
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         Set_SQL()
         SQL1 = MYSQL1 & " ORDER BY   加權平均利潤 DESC"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds)
+        每種形體有賺頭前50名_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        DataGridView1.Columns(0).FillWeight = 40 : DataGridView1.Columns(1).FillWeight = 170 : DataGridView1.Columns(2).FillWeight = 100 : DataGridView1.Columns(3).FillWeight = 100
-        DataGridView1.Columns(4).FillWeight = 100 : DataGridView1.Columns(5).FillWeight = 100 : DataGridView1.Columns(6).FillWeight = 100
+        每種形體有賺頭前50名_dgv.Columns(0).FillWeight = 40 : 每種形體有賺頭前50名_dgv.Columns(1).FillWeight = 170 : 每種形體有賺頭前50名_dgv.Columns(2).FillWeight = 100
+        每種形體有賺頭前50名_dgv.Columns(4).FillWeight = 100 : 每種形體有賺頭前50名_dgv.Columns(5).FillWeight = 100 : 每種形體有賺頭前50名_dgv.Columns(6).FillWeight = 100
+        每種形體有賺頭前50名_dgv.Columns(3).FillWeight = 100
 
-        DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            DataGridView1(0, i).Value = i + 1
+        每種形體有賺頭前50名_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 每種形體有賺頭前50名_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        每種形體有賺頭前50名_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 每種形體有賺頭前50名_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        每種形體有賺頭前50名_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+
+        每種形體有賺頭前50名_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體有賺頭前50名_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體有賺頭前50名_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體有賺頭前50名_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體有賺頭前50名_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體有賺頭前50名_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體有賺頭前50名_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體有賺頭前50名_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體有賺頭前50名_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體有賺頭前50名_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For i As Integer = 0 To 每種形體有賺頭前50名_dgv.Rows.Count - 1
+            每種形體有賺頭前50名_dgv(0, i).Value = i + 1
         Next
     End Sub
     Private Sub Set_訂單清單2()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = RR
-        DataGridView2.AllowUserToAddRows = False : DataGridView2.RowTemplate.Height = SS
+        每種形體做爽的倒數50名_dgv.DataSource = Nothing : ds1.Clear()
+        每種形體做爽的倒數50名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        每種形體做爽的倒數50名_dgv.ColumnHeadersHeight = RR
+        每種形體做爽的倒數50名_dgv.AllowUserToAddRows = False : 每種形體做爽的倒數50名_dgv.RowTemplate.Height = SS
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         Set_SQL()
         SQL1 = MYSQL1 & " ORDER BY   加權平均利潤"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1)
+        每種形體做爽的倒數50名_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        每種形體做爽的倒數50名_dgv.Columns(0).FillWeight = 40 : 每種形體做爽的倒數50名_dgv.Columns(1).FillWeight = 170 : 每種形體做爽的倒數50名_dgv.Columns(2).FillWeight = 100
+        每種形體做爽的倒數50名_dgv.Columns(4).FillWeight = 100 : 每種形體做爽的倒數50名_dgv.Columns(5).FillWeight = 100 : 每種形體做爽的倒數50名_dgv.Columns(6).FillWeight = 100
+        每種形體做爽的倒數50名_dgv.Columns(3).FillWeight = 100
 
-        DataGridView2.Columns(0).FillWeight = 40 : DataGridView2.Columns(1).FillWeight = 170 : DataGridView2.Columns(2).FillWeight = 100 : DataGridView2.Columns(3).FillWeight = 100
-        DataGridView2.Columns(4).FillWeight = 100 : DataGridView2.Columns(5).FillWeight = 100 : DataGridView2.Columns(6).FillWeight = 100
+        每種形體做爽的倒數50名_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 每種形體做爽的倒數50名_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        每種形體做爽的倒數50名_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 每種形體做爽的倒數50名_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        每種形體做爽的倒數50名_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
 
-        DataGridView2.Columns(6).DefaultCellStyle.Format = "#,##0.00" : DataGridView2.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView2.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(5).DefaultCellStyle.Format = "#,##0"
-        DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        For i As Integer = 0 To DataGridView2.Rows.Count - 1
-            DataGridView2(0, i).Value = i + 1
+        每種形體做爽的倒數50名_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體做爽的倒數50名_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體做爽的倒數50名_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體做爽的倒數50名_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體做爽的倒數50名_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體做爽的倒數50名_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體做爽的倒數50名_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體做爽的倒數50名_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體做爽的倒數50名_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體做爽的倒數50名_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For i As Integer = 0 To 每種形體做爽的倒數50名_dgv.Rows.Count - 1
+            每種形體做爽的倒數50名_dgv(0, i).Value = i + 1
         Next
     End Sub
     Private Sub Set_訂單清單3()
-        DataGridView4.DataSource = Nothing : ds2.Clear()
-        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView4.ColumnHeadersHeight = RR
-        DataGridView4.AllowUserToAddRows = False : DataGridView4.RowTemplate.Height = SS
+        每種形體數量大前50名_dgv.DataSource = Nothing : ds2.Clear()
+        每種形體數量大前50名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        每種形體數量大前50名_dgv.ColumnHeadersHeight = RR
+        每種形體數量大前50名_dgv.AllowUserToAddRows = False : 每種形體數量大前50名_dgv.RowTemplate.Height = SS
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         Set_SQL()
         SQL1 = MYSQL1 & " ORDER BY   訂單數量 DESC"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : DataGridView4.DataSource = ds2.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2)
+        每種形體數量大前50名_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        每種形體數量大前50名_dgv.Columns(0).FillWeight = 40 : 每種形體數量大前50名_dgv.Columns(1).FillWeight = 170 : 每種形體數量大前50名_dgv.Columns(2).FillWeight = 100
+        每種形體數量大前50名_dgv.Columns(4).FillWeight = 100 : 每種形體數量大前50名_dgv.Columns(5).FillWeight = 100 : 每種形體數量大前50名_dgv.Columns(6).FillWeight = 100
+        每種形體數量大前50名_dgv.Columns(3).FillWeight = 100
 
-        DataGridView4.Columns(0).FillWeight = 40 : DataGridView4.Columns(1).FillWeight = 170 : DataGridView4.Columns(2).FillWeight = 100 : DataGridView4.Columns(3).FillWeight = 100
-        DataGridView4.Columns(4).FillWeight = 100 : DataGridView4.Columns(5).FillWeight = 100 : DataGridView4.Columns(6).FillWeight = 100
+        每種形體數量大前50名_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 每種形體數量大前50名_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        每種形體數量大前50名_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 每種形體數量大前50名_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        每種形體數量大前50名_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
 
-        DataGridView4.Columns(6).DefaultCellStyle.Format = "#,##0.00" : DataGridView4.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView4.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView4.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView4.Columns(5).DefaultCellStyle.Format = "#,##0"
-        DataGridView4.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView4.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView4.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView4.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView4.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView4.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView4.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView4.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView4.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView4.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        For i As Integer = 0 To DataGridView4.Rows.Count - 1
-            DataGridView4(0, i).Value = i + 1
+        每種形體數量大前50名_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體數量大前50名_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體數量大前50名_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體數量大前50名_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體數量大前50名_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體數量大前50名_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體數量大前50名_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體數量大前50名_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體數量大前50名_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體數量大前50名_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For i As Integer = 0 To 每種形體數量大前50名_dgv.Rows.Count - 1
+            每種形體數量大前50名_dgv(0, i).Value = i + 1
         Next
     End Sub
     Private Sub Set_訂單清單4()
-        DataGridView3.DataSource = Nothing : ds3.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = RR
-        DataGridView3.AllowUserToAddRows = False : DataGridView3.RowTemplate.Height = SS
+        每種形體開發來玩的倒數50名_dgv.DataSource = Nothing : ds3.Clear()
+        每種形體開發來玩的倒數50名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        每種形體開發來玩的倒數50名_dgv.ColumnHeadersHeight = RR
+        每種形體開發來玩的倒數50名_dgv.AllowUserToAddRows = False : 每種形體開發來玩的倒數50名_dgv.RowTemplate.Height = SS
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         Set_SQL()
         SQL1 = MYSQL1 & " ORDER BY   訂單數量"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : DataGridView3.DataSource = ds3.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3)
+        每種形體開發來玩的倒數50名_dgv.DataSource = ds3.Tables(0) : conn.Close()
 
-        DataGridView3.Columns(0).FillWeight = 40 : DataGridView3.Columns(1).FillWeight = 170 : DataGridView3.Columns(2).FillWeight = 100 : DataGridView3.Columns(3).FillWeight = 100
-        DataGridView3.Columns(4).FillWeight = 100 : DataGridView3.Columns(5).FillWeight = 100 : DataGridView3.Columns(6).FillWeight = 100
+        每種形體開發來玩的倒數50名_dgv.Columns(0).FillWeight = 40 : 每種形體開發來玩的倒數50名_dgv.Columns(1).FillWeight = 170 : 每種形體開發來玩的倒數50名_dgv.Columns(2).FillWeight = 100
+        每種形體開發來玩的倒數50名_dgv.Columns(4).FillWeight = 100 : 每種形體開發來玩的倒數50名_dgv.Columns(5).FillWeight = 100 : 每種形體開發來玩的倒數50名_dgv.Columns(6).FillWeight = 100
+        每種形體開發來玩的倒數50名_dgv.Columns(3).FillWeight = 100
 
-        DataGridView3.Columns(6).DefaultCellStyle.Format = "#,##0.00" : DataGridView3.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView3.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(5).DefaultCellStyle.Format = "#,##0"
-        DataGridView3.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        For i As Integer = 0 To DataGridView3.Rows.Count - 1
-            DataGridView3(0, i).Value = i + 1
+        每種形體開發來玩的倒數50名_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 每種形體開發來玩的倒數50名_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        每種形體開發來玩的倒數50名_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 每種形體開發來玩的倒數50名_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        每種形體開發來玩的倒數50名_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+
+        每種形體開發來玩的倒數50名_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體開發來玩的倒數50名_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體開發來玩的倒數50名_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體開發來玩的倒數50名_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體開發來玩的倒數50名_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體開發來玩的倒數50名_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體開發來玩的倒數50名_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體開發來玩的倒數50名_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體開發來玩的倒數50名_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        每種形體開發來玩的倒數50名_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For i As Integer = 0 To 每種形體開發來玩的倒數50名_dgv.Rows.Count - 1
+            每種形體開發來玩的倒數50名_dgv(0, i).Value = i + 1
         Next
     End Sub
     Private Sub Set_訂單清單5()
-        DataGridView6.DataSource = Nothing : ds4.Clear()
-        DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView6.ColumnHeadersHeight = RR
-        DataGridView6.AllowUserToAddRows = False : DataGridView6.RowTemplate.Height = SS
+        時間區間內有前途_dgv.DataSource = Nothing : ds4.Clear()
+        時間區間內有前途_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        時間區間內有前途_dgv.ColumnHeadersHeight = RR
+        時間區間內有前途_dgv.AllowUserToAddRows = False : 時間區間內有前途_dgv.RowTemplate.Height = SS
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         Set_SQL()
         SQL1 = MYSQL1 & " ORDER BY   利潤 DESC"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : DataGridView6.DataSource = ds4.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 時間區間內有前途_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+        時間區間內有前途_dgv.Columns(0).FillWeight = 40 : 時間區間內有前途_dgv.Columns(1).FillWeight = 170 : 時間區間內有前途_dgv.Columns(2).FillWeight = 100
+        時間區間內有前途_dgv.Columns(4).FillWeight = 100 : 時間區間內有前途_dgv.Columns(5).FillWeight = 100 : 時間區間內有前途_dgv.Columns(6).FillWeight = 100
+        時間區間內有前途_dgv.Columns(3).FillWeight = 100
 
-        DataGridView6.Columns(0).FillWeight = 40 : DataGridView6.Columns(1).FillWeight = 170 : DataGridView6.Columns(2).FillWeight = 100 : DataGridView6.Columns(3).FillWeight = 100
-        DataGridView6.Columns(4).FillWeight = 100 : DataGridView6.Columns(5).FillWeight = 100 : DataGridView6.Columns(6).FillWeight = 100
+        時間區間內有前途_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 時間區間內有前途_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        時間區間內有前途_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 時間區間內有前途_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        時間區間內有前途_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
 
-        DataGridView6.Columns(6).DefaultCellStyle.Format = "#,##0.00" : DataGridView6.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView6.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView6.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView6.Columns(5).DefaultCellStyle.Format = "#,##0"
-        DataGridView6.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView6.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView6.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView6.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView6.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView6.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView6.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView6.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView6.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView6.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        For i As Integer = 0 To DataGridView6.Rows.Count - 1
-            DataGridView6(0, i).Value = i + 1
+        時間區間內有前途_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內有前途_dgv.Columns(6).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(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內有前途_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For i As Integer = 0 To 時間區間內有前途_dgv.Rows.Count - 1
+            時間區間內有前途_dgv(0, i).Value = i + 1
         Next
     End Sub
     Private Sub Set_訂單清單6()
-        DataGridView5.DataSource = Nothing : ds5.Clear()
-        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView5.ColumnHeadersHeight = RR
-        DataGridView5.AllowUserToAddRows = False : DataGridView5.RowTemplate.Height = SS
+        時間區間內倒數50名聊尾仔_dgv.DataSource = Nothing : ds5.Clear()
+        時間區間內倒數50名聊尾仔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        時間區間內倒數50名聊尾仔_dgv.ColumnHeadersHeight = RR
+        時間區間內倒數50名聊尾仔_dgv.AllowUserToAddRows = False : 時間區間內倒數50名聊尾仔_dgv.RowTemplate.Height = SS
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         Set_SQL()
         SQL1 = MYSQL1 & " ORDER BY   利潤"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : DataGridView5.DataSource = ds5.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5)
+        時間區間內倒數50名聊尾仔_dgv.DataSource = ds5.Tables(0) : conn.Close()
+
+        時間區間內倒數50名聊尾仔_dgv.Columns(0).FillWeight = 40 : 時間區間內倒數50名聊尾仔_dgv.Columns(1).FillWeight = 170 : 時間區間內倒數50名聊尾仔_dgv.Columns(2).FillWeight = 100
+        時間區間內倒數50名聊尾仔_dgv.Columns(4).FillWeight = 100 : 時間區間內倒數50名聊尾仔_dgv.Columns(5).FillWeight = 100 : 時間區間內倒數50名聊尾仔_dgv.Columns(6).FillWeight = 100
+        時間區間內倒數50名聊尾仔_dgv.Columns(3).FillWeight = 100
 
-        DataGridView5.Columns(0).FillWeight = 40 : DataGridView5.Columns(1).FillWeight = 170 : DataGridView5.Columns(2).FillWeight = 100 : DataGridView5.Columns(3).FillWeight = 100
-        DataGridView5.Columns(4).FillWeight = 100 : DataGridView5.Columns(5).FillWeight = 100 : DataGridView5.Columns(6).FillWeight = 100
+        時間區間內倒數50名聊尾仔_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 時間區間內倒數50名聊尾仔_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        時間區間內倒數50名聊尾仔_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 時間區間內倒數50名聊尾仔_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        時間區間內倒數50名聊尾仔_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
 
-        DataGridView5.Columns(6).DefaultCellStyle.Format = "#,##0.00" : DataGridView5.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView5.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(5).DefaultCellStyle.Format = "#,##0"
-        DataGridView5.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView5.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView5.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView5.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView5.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView5.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        For i As Integer = 0 To DataGridView5.Rows.Count - 1
-            DataGridView5(0, i).Value = i + 1
+        時間區間內倒數50名聊尾仔_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內倒數50名聊尾仔_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內倒數50名聊尾仔_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內倒數50名聊尾仔_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內倒數50名聊尾仔_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內倒數50名聊尾仔_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內倒數50名聊尾仔_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內倒數50名聊尾仔_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內倒數50名聊尾仔_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        時間區間內倒數50名聊尾仔_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For i As Integer = 0 To 時間區間內倒數50名聊尾仔_dgv.Rows.Count - 1
+            時間區間內倒數50名聊尾仔_dgv(0, i).Value = i + 1
         Next
     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
-        'DataGridView1.Enabled = False : DataGridView2.Enabled = False : DataGridView3.Enabled = False : DataGridView4.Enabled = False : DataGridView5.Enabled = False : DataGridView6.Enabled = False
         Set_訂單清單1() : Set_訂單清單2() : Set_訂單清單3() : Set_訂單清單4() : Set_訂單清單5() : Set_訂單清單6()
     End Sub
-    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
+    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles 日期_dtp.ValueChanged
         Set_訂單清單1() : Set_訂單清單2() : Set_訂單清單3() : Set_訂單清單4() : Set_訂單清單5() : Set_訂單清單6()
     End Sub
-    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
+    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles 日期1_dtp.ValueChanged
         Set_訂單清單1() : Set_訂單清單2() : Set_訂單清單3() : Set_訂單清單4() : Set_訂單清單5() : Set_訂單清單6()
     End Sub
-    Private Sub DataGridView1_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles DataGridView1.Scroll
-        DataGridView2.FirstDisplayedScrollingRowIndex = DataGridView1.FirstDisplayedScrollingRowIndex : DataGridView3.FirstDisplayedScrollingRowIndex = DataGridView1.FirstDisplayedScrollingRowIndex
-        DataGridView4.FirstDisplayedScrollingRowIndex = DataGridView1.FirstDisplayedScrollingRowIndex : DataGridView5.FirstDisplayedScrollingRowIndex = DataGridView1.FirstDisplayedScrollingRowIndex
-        DataGridView6.FirstDisplayedScrollingRowIndex = DataGridView1.FirstDisplayedScrollingRowIndex
+    Private Sub DataGridView1_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 每種形體有賺頭前50名_dgv.Scroll
+        每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex
+        每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex
+        每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex = 每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex = 每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex
     End Sub
-    Private Sub DataGridView2_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles DataGridView2.Scroll
-        DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView2.FirstDisplayedScrollingRowIndex : DataGridView3.FirstDisplayedScrollingRowIndex = DataGridView2.FirstDisplayedScrollingRowIndex
-        DataGridView4.FirstDisplayedScrollingRowIndex = DataGridView2.FirstDisplayedScrollingRowIndex : DataGridView5.FirstDisplayedScrollingRowIndex = DataGridView2.FirstDisplayedScrollingRowIndex
-        DataGridView6.FirstDisplayedScrollingRowIndex = DataGridView2.FirstDisplayedScrollingRowIndex
+    Private Sub DataGridView2_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 每種形體做爽的倒數50名_dgv.Scroll
+        每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex
+        每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex
+        每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex = 每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex = 每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex
     End Sub
-    Private Sub DataGridView3_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles DataGridView3.Scroll
-        DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView3.FirstDisplayedScrollingRowIndex : DataGridView2.FirstDisplayedScrollingRowIndex = DataGridView3.FirstDisplayedScrollingRowIndex
-        DataGridView4.FirstDisplayedScrollingRowIndex = DataGridView3.FirstDisplayedScrollingRowIndex : DataGridView5.FirstDisplayedScrollingRowIndex = DataGridView3.FirstDisplayedScrollingRowIndex
-        DataGridView6.FirstDisplayedScrollingRowIndex = DataGridView3.FirstDisplayedScrollingRowIndex
+    Private Sub DataGridView3_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 每種形體開發來玩的倒數50名_dgv.Scroll
+        每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex
+        每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex
+        每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex = 每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex = 每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex
     End Sub
-    Private Sub DataGridView4_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles DataGridView4.Scroll
-        DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView4.FirstDisplayedScrollingRowIndex : DataGridView2.FirstDisplayedScrollingRowIndex = DataGridView4.FirstDisplayedScrollingRowIndex
-        DataGridView3.FirstDisplayedScrollingRowIndex = DataGridView4.FirstDisplayedScrollingRowIndex : DataGridView5.FirstDisplayedScrollingRowIndex = DataGridView4.FirstDisplayedScrollingRowIndex
-        DataGridView6.FirstDisplayedScrollingRowIndex = DataGridView4.FirstDisplayedScrollingRowIndex
+    Private Sub DataGridView4_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 每種形體數量大前50名_dgv.Scroll
+        每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex
+        每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex
+        每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex = 每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex = 每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex
     End Sub
-    Private Sub DataGridView5_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles DataGridView5.Scroll
-        DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView5.FirstDisplayedScrollingRowIndex : DataGridView2.FirstDisplayedScrollingRowIndex = DataGridView5.FirstDisplayedScrollingRowIndex
-        DataGridView3.FirstDisplayedScrollingRowIndex = DataGridView5.FirstDisplayedScrollingRowIndex : DataGridView4.FirstDisplayedScrollingRowIndex = DataGridView5.FirstDisplayedScrollingRowIndex
-        DataGridView6.FirstDisplayedScrollingRowIndex = DataGridView5.FirstDisplayedScrollingRowIndex
+    Private Sub DataGridView5_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 時間區間內倒數50名聊尾仔_dgv.Scroll
+        每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex = 時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex
+        每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex
+        每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex
+        每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex = 時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex = 時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex
     End Sub
-    Private Sub DataGridView6_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles DataGridView6.Scroll
-        DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView6.FirstDisplayedScrollingRowIndex : DataGridView2.FirstDisplayedScrollingRowIndex = DataGridView6.FirstDisplayedScrollingRowIndex
-        DataGridView3.FirstDisplayedScrollingRowIndex = DataGridView6.FirstDisplayedScrollingRowIndex : DataGridView4.FirstDisplayedScrollingRowIndex = DataGridView6.FirstDisplayedScrollingRowIndex
-        DataGridView5.FirstDisplayedScrollingRowIndex = DataGridView6.FirstDisplayedScrollingRowIndex
+    Private Sub DataGridView6_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 時間區間內有前途_dgv.Scroll
+        每種形體有賺頭前50名_dgv.FirstDisplayedScrollingRowIndex = 時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex
+        每種形體做爽的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex
+        每種形體開發來玩的倒數50名_dgv.FirstDisplayedScrollingRowIndex = 時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex
+        每種形體數量大前50名_dgv.FirstDisplayedScrollingRowIndex = 時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex
+        時間區間內倒數50名聊尾仔_dgv.FirstDisplayedScrollingRowIndex = 時間區間內有前途_dgv.FirstDisplayedScrollingRowIndex
     End Sub
 
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
         xlApp = CType(CreateObject("Excel.Application"), Application)
         xlBook = xlApp.Workbooks.Add
         xlApp.DisplayAlerts = True
@@ -227,25 +291,25 @@ Public Class 訂單分析報表七
         xlApp.Visible = True
         xlApp.Application.WindowState = xlMaximized
 
-        xlSheet.Cells(1, 1) = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 10) & " 到 " & Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 10) & " 產品營運排行榜"
+        xlSheet.Cells(1, 1) = Strings.Left(Strings.Format(日期_dtp.Value, "yyyy/MM/dd"), 10) & " 到 " & Strings.Left(Strings.Format(日期1_dtp.Value, "yyyy/MM/dd"), 10) & " 產品營運排行榜"
         xlSheet.Cells(2, 1) = Label1.Text : xlSheet.Cells(2, 5) = Label5.Text : xlSheet.Cells(2, 9) = Label7.Text
         xlSheet.Cells(3, 1) = "排名" : xlSheet.Cells(3, 5) = "排名" : xlSheet.Cells(3, 9) = "排名"
         xlSheet.Cells(3, 2) = "形體名稱" : xlSheet.Cells(3, 6) = "形體名稱" : xlSheet.Cells(3, 10) = "形體名稱"
         xlSheet.Cells(3, 3) = "訂單數量" : xlSheet.Cells(3, 7) = "訂單數量" : xlSheet.Cells(3, 11) = "訂單數量"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            xlSheet.Cells(i + 4, 1) = DataGridView1.Rows(i).Cells("排名").Value
-            xlSheet.Cells(i + 4, 2) = DataGridView1.Rows(i).Cells("形體號").Value
-            xlSheet.Cells(i + 4, 3) = DataGridView1.Rows(i).Cells("訂單數量").Value
+        For i As Integer = 0 To 每種形體有賺頭前50名_dgv.Rows.Count - 1
+            xlSheet.Cells(i + 4, 1) = 每種形體有賺頭前50名_dgv.Rows(i).Cells("排名").Value
+            xlSheet.Cells(i + 4, 2) = 每種形體有賺頭前50名_dgv.Rows(i).Cells("形體號").Value
+            xlSheet.Cells(i + 4, 3) = 每種形體有賺頭前50名_dgv.Rows(i).Cells("訂單數量").Value
         Next
-        For i As Integer = 0 To DataGridView4.Rows.Count - 1
-            xlSheet.Cells(i + 4, 5) = DataGridView4.Rows(i).Cells("排名").Value
-            xlSheet.Cells(i + 4, 6) = DataGridView4.Rows(i).Cells("形體號").Value
-            xlSheet.Cells(i + 4, 7) = DataGridView4.Rows(i).Cells("訂單數量").Value
+        For i As Integer = 0 To 每種形體數量大前50名_dgv.Rows.Count - 1
+            xlSheet.Cells(i + 4, 5) = 每種形體數量大前50名_dgv.Rows(i).Cells("排名").Value
+            xlSheet.Cells(i + 4, 6) = 每種形體數量大前50名_dgv.Rows(i).Cells("形體號").Value
+            xlSheet.Cells(i + 4, 7) = 每種形體數量大前50名_dgv.Rows(i).Cells("訂單數量").Value
         Next
-        For i As Integer = 0 To DataGridView6.Rows.Count - 1
-            xlSheet.Cells(i + 4, 9) = DataGridView6.Rows(i).Cells("排名").Value
-            xlSheet.Cells(i + 4, 10) = DataGridView6.Rows(i).Cells("形體號").Value
-            xlSheet.Cells(i + 4, 11) = DataGridView6.Rows(i).Cells("訂單數量").Value
+        For i As Integer = 0 To 時間區間內有前途_dgv.Rows.Count - 1
+            xlSheet.Cells(i + 4, 9) = 時間區間內有前途_dgv.Rows(i).Cells("排名").Value
+            xlSheet.Cells(i + 4, 10) = 時間區間內有前途_dgv.Rows(i).Cells("形體號").Value
+            xlSheet.Cells(i + 4, 11) = 時間區間內有前途_dgv.Rows(i).Cells("訂單數量").Value
         Next
         AA(xlApp, xlSheet)
 

TENDEN-MES-SYS/彙總報表管理/訂單分析報表三.vb

@@ -7,216 +7,216 @@ Public Class 訂單分析報表三
     Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet : Dim ds4 As New DataSet : Dim ds5 As New DataSet : Dim ds6 As New DataSet
     Dim dr As SqlDataReader
     Private  Sub Set_DGV1載入前設定()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+        IN_L_dgv.DataSource = Nothing : ds.Clear()
+        IN_L_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        IN_L_dgv.ColumnHeadersHeight = 25
+        IN_L_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV1載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : IN_L_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_分析清單1()
         Set_DGV1載入前設定()
         SQL1 = "SELECT LEFT(客戶交期, 7) AS CUST_XF, COUNT(*) AS POS, SUM(訂單數量) AS QTY, SUM(訂單數量) / COUNT(*) AS AVG_QTY " &
                "FROM (SELECT LEFT(客戶交期, 7) AS 客戶交期, 訂單流水號, SUM(訂單數量) AS 訂單數量 FROM 訂單控制表 " &
-               "WHERE (LEFT(客戶交期, 4) = '" & ComboBox1.Text & "') AND (CXL IS NULL) AND (訂單種類 LIKE 'INT-L')  GROUP BY LEFT(客戶交期, 7), 訂單流水號) AS Q " &
+               "WHERE (LEFT(客戶交期, 4) = '" & YEAR_cb.Text & "') AND (CXL IS NULL) AND (訂單種類 LIKE 'INT-L')  GROUP BY LEFT(客戶交期, 7), 訂單流水號) AS Q " &
                "GROUP BY   LEFT(客戶交期, 7) ORDER BY CUST_XF"
         Set_DGV1載入後設定()
     End Sub
     Private  Sub Set_DGV2載入前設定()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+        QVC_dgv.DataSource = Nothing : ds1.Clear()
+        QVC_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        QVC_dgv.ColumnHeadersHeight = 25
+        QVC_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV2載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : QVC_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_分析清單2()
         Set_DGV2載入前設定()
         SQL1 = "SELECT LEFT(客戶交期, 7) AS CUST_XF, COUNT(*) AS POS, SUM(訂單數量) AS QTY, SUM(訂單數量) / COUNT(*) AS AVG_QTY " &
                "FROM (SELECT LEFT(客戶交期, 7) AS 客戶交期, 訂單流水號, SUM(訂單數量) AS 訂單數量 FROM 訂單控制表 " &
-               "WHERE (LEFT(客戶交期, 4) = '" & ComboBox1.Text & "') AND (CXL IS NULL) AND (訂單種類 LIKE 'QVC')  GROUP BY LEFT(客戶交期, 7), 訂單流水號) AS Q " &
+               "WHERE (LEFT(客戶交期, 4) = '" & YEAR_cb.Text & "') AND (CXL IS NULL) AND (訂單種類 LIKE 'QVC')  GROUP BY LEFT(客戶交期, 7), 訂單流水號) AS Q " &
                "GROUP BY   LEFT(客戶交期, 7) ORDER BY CUST_XF"
         Set_DGV2載入後設定()
     End Sub
     Private  Sub Set_DGV3載入前設定()
-        DataGridView3.DataSource = Nothing : ds2.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = 25
-        DataGridView3.AllowUserToAddRows = False
+        DOMESTIC_dgv.DataSource = Nothing : ds2.Clear()
+        DOMESTIC_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DOMESTIC_dgv.ColumnHeadersHeight = 25
+        DOMESTIC_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV3載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : DOMESTIC_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_分析清單3()
         Set_DGV3載入前設定()
         SQL1 = "SELECT LEFT(客戶交期, 7) AS CUST_XF, COUNT(*) AS POS, SUM(訂單數量) AS QTY, SUM(訂單數量) / COUNT(*) AS AVG_QTY " &
                "FROM (SELECT LEFT(客戶交期, 7) AS 客戶交期, 訂單流水號, SUM(訂單數量) AS 訂單數量 FROM 訂單控制表 " &
-               "WHERE (LEFT(客戶交期, 4) = '" & ComboBox1.Text & "') AND (CXL IS NULL) AND (訂單種類 LIKE 'DOMESTIC')  GROUP BY LEFT(客戶交期, 7), 訂單流水號) AS Q " &
+               "WHERE (LEFT(客戶交期, 4) = '" & YEAR_cb.Text & "') AND (CXL IS NULL) AND (訂單種類 LIKE 'DOMESTIC')  GROUP BY LEFT(客戶交期, 7), 訂單流水號) AS Q " &
                "GROUP BY   LEFT(客戶交期, 7) ORDER BY CUST_XF"
         Set_DGV3載入後設定()
     End Sub
     Private  Sub Set_DGV4載入前設定()
-        DataGridView4.DataSource = Nothing : ds3.Clear()
-        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView4.ColumnHeadersHeight = 25
-        DataGridView4.AllowUserToAddRows = False
+        JH_dgv.DataSource = Nothing : ds3.Clear()
+        JH_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        JH_dgv.ColumnHeadersHeight = 25
+        JH_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV4載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : JH_dgv.DataSource = ds3.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_分析清單4()
         Set_DGV4載入前設定()
         SQL1 = "SELECT LEFT(工廠回復交期, 7) AS FTY_XF, COUNT(*) AS POS, SUM(訂單數量) AS QTY, SUM(訂單數量) / COUNT(*) AS AVG_QTY " &
                "FROM (SELECT LEFT(工廠回復交期, 7) AS 工廠回復交期, 訂單流水號, SUM(訂單數量) AS 訂單數量 FROM 訂單控制表 " &
-               "WHERE (LEFT(工廠回復交期, 4) = '" & ComboBox1.Text & "') AND (CXL IS NULL) AND (生產工廠 LIKE 'JH') GROUP BY LEFT(工廠回復交期, 7), 訂單流水號) AS Q " &
+               "WHERE (LEFT(工廠回復交期, 4) = '" & YEAR_cb.Text & "') AND (CXL IS NULL) AND (生產工廠 LIKE 'JH') GROUP BY LEFT(工廠回復交期, 7), 訂單流水號) AS Q " &
                "GROUP BY   LEFT(工廠回復交期, 7) ORDER BY   FTY_XF"
         Set_DGV4載入後設定()
     End Sub
     Private  Sub Set_DGV5載入前設定()
-        DataGridView5.DataSource = Nothing : ds4.Clear()
-        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView5.ColumnHeadersHeight = 25
-        DataGridView5.AllowUserToAddRows = False
+        NJ_dgv.DataSource = Nothing : ds4.Clear()
+        NJ_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        NJ_dgv.ColumnHeadersHeight = 25
+        NJ_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV5載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : NJ_dgv.DataSource = ds4.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_分析清單5()
         Set_DGV5載入前設定()
         SQL1 = "SELECT LEFT(工廠回復交期, 7) AS FTY_XF, COUNT(*) AS POS, SUM(訂單數量) AS QTY, SUM(訂單數量) / COUNT(*) AS AVG_QTY " &
                "FROM (SELECT LEFT(工廠回復交期, 7) AS 工廠回復交期, 訂單流水號, SUM(訂單數量) AS 訂單數量 FROM 訂單控制表 " &
-               "WHERE (LEFT(工廠回復交期, 4) = '" & ComboBox1.Text & "') AND (CXL IS NULL) AND (生產工廠 LIKE 'NJ') GROUP BY LEFT(工廠回復交期, 7), 訂單流水號) AS Q " &
+               "WHERE (LEFT(工廠回復交期, 4) = '" & YEAR_cb.Text & "') AND (CXL IS NULL) AND (生產工廠 LIKE 'NJ') GROUP BY LEFT(工廠回復交期, 7), 訂單流水號) AS Q " &
                "GROUP BY   LEFT(工廠回復交期, 7) ORDER BY   FTY_XF"
         Set_DGV5載入後設定()
     End Sub
     Private  Sub Set_DGV6載入前設定()
-        DataGridView6.DataSource = Nothing : ds5.Clear()
-        DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView6.ColumnHeadersHeight = 25
-        DataGridView6.AllowUserToAddRows = False
+        SK_dgv.DataSource = Nothing : ds5.Clear()
+        SK_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        SK_dgv.ColumnHeadersHeight = 25
+        SK_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV6載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : DataGridView6.DataSource = ds5.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : SK_dgv.DataSource = ds5.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_分析清單6()
         Set_DGV6載入前設定()
         SQL1 = "SELECT LEFT(工廠回復交期, 7) AS FTY_XF, COUNT(*) AS POS, SUM(訂單數量) AS QTY, SUM(訂單數量) / COUNT(*) AS AVG_QTY " &
                "FROM (SELECT LEFT(工廠回復交期, 7) AS 工廠回復交期, 訂單流水號, SUM(訂單數量) AS 訂單數量 FROM 訂單控制表 " &
-               "WHERE (LEFT(工廠回復交期, 4) = '" & ComboBox1.Text & "') AND (CXL IS NULL) AND (生產工廠 LIKE 'SK') GROUP BY LEFT(工廠回復交期, 7), 訂單流水號) AS Q " &
+               "WHERE (LEFT(工廠回復交期, 4) = '" & YEAR_cb.Text & "') AND (CXL IS NULL) AND (生產工廠 LIKE 'SK') GROUP BY LEFT(工廠回復交期, 7), 訂單流水號) AS Q " &
                "GROUP BY   LEFT(工廠回復交期, 7) ORDER BY   FTY_XF"
         Set_DGV6載入後設定()
     End Sub
     Private  Sub Set_grid()
-        DataGridView1.Columns(0).Width = 85 : DataGridView1.Columns(1).Width = 85 : DataGridView1.Columns(2).Width = 85 : DataGridView1.Columns(3).Width = 85
-        DataGridView1.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        IN_L_dgv.Columns(0).Width = 85 : IN_L_dgv.Columns(1).Width = 85 : IN_L_dgv.Columns(2).Width = 85 : IN_L_dgv.Columns(3).Width = 85
+        IN_L_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : IN_L_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : IN_L_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        IN_L_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        IN_L_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : IN_L_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        IN_L_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        IN_L_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : IN_L_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView2.Columns(0).Width = 85 : DataGridView2.Columns(1).Width = 85 : DataGridView2.Columns(2).Width = 85 : DataGridView2.Columns(3).Width = 85
-        DataGridView2.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView2.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        QVC_dgv.Columns(0).Width = 85 : QVC_dgv.Columns(1).Width = 85 : QVC_dgv.Columns(2).Width = 85 : QVC_dgv.Columns(3).Width = 85
+        QVC_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : QVC_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : QVC_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        QVC_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        QVC_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : QVC_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        QVC_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        QVC_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : QVC_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView3.Columns(0).Width = 85 : DataGridView3.Columns(1).Width = 85 : DataGridView3.Columns(2).Width = 85 : DataGridView3.Columns(3).Width = 85
-        DataGridView3.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView3.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        DOMESTIC_dgv.Columns(0).Width = 85 : DOMESTIC_dgv.Columns(1).Width = 85 : DOMESTIC_dgv.Columns(2).Width = 85 : DOMESTIC_dgv.Columns(3).Width = 85
+        DOMESTIC_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : DOMESTIC_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : DOMESTIC_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        DOMESTIC_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        DOMESTIC_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DOMESTIC_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        DOMESTIC_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        DOMESTIC_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DOMESTIC_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView4.Columns(0).Width = 85 : DataGridView4.Columns(1).Width = 85 : DataGridView4.Columns(2).Width = 85 : DataGridView4.Columns(3).Width = 85
-        DataGridView4.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView4.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView4.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView4.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView4.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView4.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView4.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView4.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView4.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        JH_dgv.Columns(0).Width = 85 : JH_dgv.Columns(1).Width = 85 : JH_dgv.Columns(2).Width = 85 : JH_dgv.Columns(3).Width = 85
+        JH_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : JH_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : JH_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        JH_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        JH_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : JH_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        JH_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        JH_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : JH_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView5.Columns(0).Width = 85 : DataGridView5.Columns(1).Width = 85 : DataGridView5.Columns(2).Width = 85 : DataGridView5.Columns(3).Width = 85
-        DataGridView5.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView5.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView5.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView5.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        NJ_dgv.Columns(0).Width = 85 : NJ_dgv.Columns(1).Width = 85 : NJ_dgv.Columns(2).Width = 85 : NJ_dgv.Columns(3).Width = 85
+        NJ_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : NJ_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : NJ_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        NJ_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        NJ_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : NJ_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        NJ_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        NJ_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : NJ_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView6.Columns(0).Width = 85 : DataGridView6.Columns(1).Width = 85 : DataGridView6.Columns(2).Width = 85 : DataGridView6.Columns(3).Width = 85
-        DataGridView6.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView6.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView6.Columns(3).DefaultCellStyle.Format = "#,##0"
-        DataGridView6.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView6.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView6.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        SK_dgv.Columns(0).Width = 85 : SK_dgv.Columns(1).Width = 85 : SK_dgv.Columns(2).Width = 85 : SK_dgv.Columns(3).Width = 85
+        SK_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : SK_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : SK_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        SK_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        SK_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : SK_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        SK_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        SK_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : SK_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     End Sub
     Private  Sub Set_自動彙總1()
         Dim 金額加總(11) As Double
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1.RowCount = 0 Then : 金額加總(0) += 0 : Else : 金額加總(0) += DataGridView1.Rows(i).Cells("POS").Value : End If
-            If DataGridView1.RowCount = 0 Then : 金額加總(1) += 0 : Else : 金額加總(1) += DataGridView1.Rows(i).Cells("QTY").Value : End If
+        For i As Integer = 0 To IN_L_dgv.Rows.Count - 1
+            If IN_L_dgv.RowCount = 0 Then : 金額加總(0) += 0 : Else : 金額加總(0) += IN_L_dgv.Rows(i).Cells("POS").Value : End If
+            If IN_L_dgv.RowCount = 0 Then : 金額加總(1) += 0 : Else : 金額加總(1) += IN_L_dgv.Rows(i).Cells("QTY").Value : End If
         Next i
-        For i As Integer = 0 To DataGridView2.Rows.Count - 1
-            If DataGridView2.RowCount = 0 Then : 金額加總(2) += 0 : Else : 金額加總(2) += DataGridView2.Rows(i).Cells("POS").Value : End If
-            If DataGridView2.RowCount = 0 Then : 金額加總(3) += 0 : Else : 金額加總(3) += DataGridView2.Rows(i).Cells("QTY").Value : End If
+        For i As Integer = 0 To QVC_dgv.Rows.Count - 1
+            If QVC_dgv.RowCount = 0 Then : 金額加總(2) += 0 : Else : 金額加總(2) += QVC_dgv.Rows(i).Cells("POS").Value : End If
+            If QVC_dgv.RowCount = 0 Then : 金額加總(3) += 0 : Else : 金額加總(3) += QVC_dgv.Rows(i).Cells("QTY").Value : End If
         Next i
-        For i As Integer = 0 To DataGridView3.Rows.Count - 1
-            If DataGridView3.RowCount = 0 Then : 金額加總(4) += 0 : Else : 金額加總(4) += DataGridView3.Rows(i).Cells("POS").Value : End If
-            If DataGridView3.RowCount = 0 Then : 金額加總(5) += 0 : Else : 金額加總(5) += DataGridView3.Rows(i).Cells("QTY").Value : End If
+        For i As Integer = 0 To DOMESTIC_dgv.Rows.Count - 1
+            If DOMESTIC_dgv.RowCount = 0 Then : 金額加總(4) += 0 : Else : 金額加總(4) += DOMESTIC_dgv.Rows(i).Cells("POS").Value : End If
+            If DOMESTIC_dgv.RowCount = 0 Then : 金額加總(5) += 0 : Else : 金額加總(5) += DOMESTIC_dgv.Rows(i).Cells("QTY").Value : End If
         Next i
-        For i As Integer = 0 To DataGridView4.Rows.Count - 1
-            If DataGridView4.RowCount = 0 Then : 金額加總(6) += 0 : Else : 金額加總(6) += DataGridView4.Rows(i).Cells("POS").Value : End If
-            If DataGridView4.RowCount = 0 Then : 金額加總(7) += 0 : Else : 金額加總(7) += DataGridView4.Rows(i).Cells("QTY").Value : End If
+        For i As Integer = 0 To JH_dgv.Rows.Count - 1
+            If JH_dgv.RowCount = 0 Then : 金額加總(6) += 0 : Else : 金額加總(6) += JH_dgv.Rows(i).Cells("POS").Value : End If
+            If JH_dgv.RowCount = 0 Then : 金額加總(7) += 0 : Else : 金額加總(7) += JH_dgv.Rows(i).Cells("QTY").Value : End If
         Next i
-        For i As Integer = 0 To DataGridView5.Rows.Count - 1
-            If DataGridView5.RowCount = 0 Then : 金額加總(8) += 0 : Else : 金額加總(8) += DataGridView5.Rows(i).Cells("POS").Value : End If
-            If DataGridView5.RowCount = 0 Then : 金額加總(9) += 0 : Else : 金額加總(9) += DataGridView5.Rows(i).Cells("QTY").Value : End If
+        For i As Integer = 0 To NJ_dgv.Rows.Count - 1
+            If NJ_dgv.RowCount = 0 Then : 金額加總(8) += 0 : Else : 金額加總(8) += NJ_dgv.Rows(i).Cells("POS").Value : End If
+            If NJ_dgv.RowCount = 0 Then : 金額加總(9) += 0 : Else : 金額加總(9) += NJ_dgv.Rows(i).Cells("QTY").Value : End If
         Next i
-        For i As Integer = 0 To DataGridView6.Rows.Count - 1
-            If DataGridView6.RowCount = 0 Then : 金額加總(10) += 0 : Else : 金額加總(10) += DataGridView6.Rows(i).Cells("POS").Value : End If
-            If DataGridView6.RowCount = 0 Then : 金額加總(11) += 0 : Else : 金額加總(11) += DataGridView6.Rows(i).Cells("QTY").Value : End If
+        For i As Integer = 0 To SK_dgv.Rows.Count - 1
+            If SK_dgv.RowCount = 0 Then : 金額加總(10) += 0 : Else : 金額加總(10) += SK_dgv.Rows(i).Cells("POS").Value : End If
+            If SK_dgv.RowCount = 0 Then : 金額加總(11) += 0 : Else : 金額加總(11) += SK_dgv.Rows(i).Cells("QTY").Value : End If
         Next i
-        TextBox1.Text = Format(Val(金額加總(0)), "#,##0")
-        TextBox2.Text = Format(Val(金額加總(1)), "#,##0")
-        TextBox4.Text = Format(Val(金額加總(2)), "#,##0")
-        TextBox5.Text = Format(Val(金額加總(3)), "#,##0")
-        TextBox7.Text = Format(Val(金額加總(4)), "#,##0")
-        TextBox8.Text = Format(Val(金額加總(5)), "#,##0")
-        TextBox10.Text = Format(Val(金額加總(0) + 金額加總(2) + 金額加總(4)), "#,##0")
-        TextBox11.Text = Format(Val(金額加總(1) + 金額加總(3) + 金額加總(5)), "#,##0")
-        TextBox24.Text = Format(Val(金額加總(6)), "#,##0")
-        TextBox23.Text = Format(Val(金額加總(7)), "#,##0")
-        TextBox21.Text = Format(Val(金額加總(8)), "#,##0")
-        TextBox20.Text = Format(Val(金額加總(9)), "#,##0")
-        TextBox18.Text = Format(Val(金額加總(10)), "#,##0")
-        TextBox17.Text = Format(Val(金額加總(11)), "#,##0")
-        TextBox15.Text = Format(Val(金額加總(6) + 金額加總(8) + 金額加總(10)), "#,##0")
-        TextBox14.Text = Format(Val(金額加總(7) + 金額加總(9) + 金額加總(11)), "#,##0")
-        If 金額加總(0) = 0 Then : TextBox3.Text = "0" : Else : TextBox3.Text = Format(Val(金額加總(1) / 金額加總(0)), "#,##0") : End If
-        If 金額加總(2) = 0 Then : TextBox6.Text = "0" : Else : TextBox6.Text = Format(Val(金額加總(3) / 金額加總(2)), "#,##0") : End If
-        If 金額加總(4) = 0 Then : TextBox9.Text = "0" : Else : TextBox9.Text = Format(Val(金額加總(5) / 金額加總(4)), "#,##0") : End If
-        If 金額加總(6) = 0 Then : TextBox22.Text = "0" : Else : TextBox22.Text = Format(Val(金額加總(7) / 金額加總(6)), "#,##0") : End If
-        If 金額加總(8) = 0 Then : TextBox19.Text = "0" : Else : TextBox19.Text = Format(Val(金額加總(9) / 金額加總(8)), "#,##0") : End If
-        If 金額加總(10) = 0 Then : TextBox16.Text = "0" : Else : TextBox16.Text = Format(Val(金額加總(11) / 金額加總(10)), "#,##0") : End If
-        If 金額加總(0) + 金額加總(2) + 金額加總(4) = 0 Then : TextBox12.Text = "0"
-        Else : TextBox12.Text = Format(Val((金額加總(1) + 金額加總(3) + 金額加總(5)) / (金額加總(0) + 金額加總(2) + 金額加總(4))), "#,##0") : End If
-        If 金額加總(6) + 金額加總(8) + 金額加總(10) = 0 Then : TextBox13.Text = "0"
-        Else : TextBox13.Text = Format(Val((金額加總(7) + 金額加總(9) + 金額加總(11)) / (金額加總(6) + 金額加總(8) + 金額加總(10))), "#,##0") : End If
+        INT_LTotalPOS_tb.Text = Format(Val(金額加總(0)), "#,##0")
+        INT_LTotalQTY_tb.Text = Format(Val(金額加總(1)), "#,##0")
+        QVCTotalPOS_tb.Text = Format(Val(金額加總(2)), "#,##0")
+        QVCTotalQTY_tb.Text = Format(Val(金額加總(3)), "#,##0")
+        DOMESTICTotalPOS_tb.Text = Format(Val(金額加總(4)), "#,##0")
+        DOMESTICTotalQTY_tb.Text = Format(Val(金額加總(5)), "#,##0")
+        ALLTotalPOS_tb.Text = Format(Val(金額加總(0) + 金額加總(2) + 金額加總(4)), "#,##0")
+        ALLTotalQTY_tb.Text = Format(Val(金額加總(1) + 金額加總(3) + 金額加總(5)), "#,##0")
+        JHTotalPOS_tb.Text = Format(Val(金額加總(6)), "#,##0")
+        JHTotalQTY_tb.Text = Format(Val(金額加總(7)), "#,##0")
+        NJTotalPOS_tb.Text = Format(Val(金額加總(8)), "#,##0")
+        NJTotalQTY_tb.Text = Format(Val(金額加總(9)), "#,##0")
+        SKTotalPOS_tb.Text = Format(Val(金額加總(10)), "#,##0")
+        SKTotalQTY_tb.Text = Format(Val(金額加總(11)), "#,##0")
+        ALLTotalPOS1_tb.Text = Format(Val(金額加總(6) + 金額加總(8) + 金額加總(10)), "#,##0")
+        ALLTotalQTY2_tb.Text = Format(Val(金額加總(7) + 金額加總(9) + 金額加總(11)), "#,##0")
+        If 金額加總(0) = 0 Then : INT_LTotalAvgQTY_tb.Text = "0" : Else : INT_LTotalAvgQTY_tb.Text = Format(Val(金額加總(1) / 金額加總(0)), "#,##0") : End If
+        If 金額加總(2) = 0 Then : QVCTotalAvgQTY_tb.Text = "0" : Else : QVCTotalAvgQTY_tb.Text = Format(Val(金額加總(3) / 金額加總(2)), "#,##0") : End If
+        If 金額加總(4) = 0 Then : DOMESTICTotalAvgQTY_tb.Text = "0" : Else : DOMESTICTotalAvgQTY_tb.Text = Format(Val(金額加總(5) / 金額加總(4)), "#,##0") : End If
+        If 金額加總(6) = 0 Then : JHTotalAvgQTY_tb.Text = "0" : Else : JHTotalAvgQTY_tb.Text = Format(Val(金額加總(7) / 金額加總(6)), "#,##0") : End If
+        If 金額加總(8) = 0 Then : NJTotalAvgQTY_tb.Text = "0" : Else : NJTotalAvgQTY_tb.Text = Format(Val(金額加總(9) / 金額加總(8)), "#,##0") : End If
+        If 金額加總(10) = 0 Then : SKTotalAvgQTY_tb.Text = "0" : Else : SKTotalAvgQTY_tb.Text = Format(Val(金額加總(11) / 金額加總(10)), "#,##0") : End If
+        If 金額加總(0) + 金額加總(2) + 金額加總(4) = 0 Then : ALLTotalAvgQTY_tb.Text = "0"
+        Else : ALLTotalAvgQTY_tb.Text = Format(Val((金額加總(1) + 金額加總(3) + 金額加總(5)) / (金額加總(0) + 金額加總(2) + 金額加總(4))), "#,##0") : End If
+        If 金額加總(6) + 金額加總(8) + 金額加總(10) = 0 Then : ALLTotalAvgQTY1_tb.Text = "0"
+        Else : ALLTotalAvgQTY1_tb.Text = Format(Val((金額加總(7) + 金額加總(9) + 金額加總(11)) / (金額加總(6) + 金額加總(8) + 金額加總(10))), "#,##0") : End If
     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
-        ComboBox1.Text = Year(Today)
+        YEAR_cb.Text = Year(Today)
         Set_分析清單1() : Set_分析清單2() : Set_分析清單3() : Set_分析清單4() : Set_分析清單5() : Set_分析清單6()
         Set_grid() : Set_自動彙總1()
     End Sub
-    Private  Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private  Sub Button1_Click(sender As Object, e As EventArgs) Handles Search_bt.Click
         Set_分析清單1() : Set_分析清單2() : Set_分析清單3() : Set_分析清單4() : Set_分析清單5() : Set_分析清單6()
         Set_grid() : Set_自動彙總1()
     End Sub

TENDEN-MES-SYS/彙總報表管理/訂單分析報表二.Designer.vb

@@ -29,41 +29,41 @@ Partial Class 訂單分析報表二
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.YEAR_cb = New System.Windows.Forms.ComboBox()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
-        Me.DataGridView3 = New System.Windows.Forms.DataGridView()
+        Me.Query_bt = New System.Windows.Forms.Button()
+        Me.分析清單1_dgv = New System.Windows.Forms.DataGridView()
+        Me.分析清單2_dgv = New System.Windows.Forms.DataGridView()
+        Me.分析清單3_dgv = New System.Windows.Forms.DataGridView()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
-        Me.DataGridView4 = New System.Windows.Forms.DataGridView()
-        Me.DataGridView5 = New System.Windows.Forms.DataGridView()
-        Me.DataGridView6 = New System.Windows.Forms.DataGridView()
+        Me.YEAR1_cb = New System.Windows.Forms.ComboBox()
+        Me.分析清單4_dgv = New System.Windows.Forms.DataGridView()
+        Me.分析清單5_dgv = New System.Windows.Forms.DataGridView()
+        Me.分析清單6_dgv = New System.Windows.Forms.DataGridView()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
-        Me.DataGridView7 = New System.Windows.Forms.DataGridView()
-        Me.Button2 = New System.Windows.Forms.Button()
-        Me.Button3 = New System.Windows.Forms.Button()
-        Me.Button4 = New System.Windows.Forms.Button()
-        Me.Button5 = New System.Windows.Forms.Button()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView7, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.YEAR2_cb = New System.Windows.Forms.ComboBox()
+        Me.分析清單7_dgv = New System.Windows.Forms.DataGridView()
+        Me.ADD_bt = New System.Windows.Forms.Button()
+        Me.MODIFY_bt = New System.Windows.Forms.Button()
+        Me.DELETE_bt = New System.Windows.Forms.Button()
+        Me.PRINT_bt = New System.Windows.Forms.Button()
+        CType(Me.分析清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.分析清單2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.分析清單3_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.分析清單4_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.分析清單5_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.分析清單6_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.分析清單7_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'ComboBox1
+        'YEAR_cb
         '
-        Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Items.AddRange(New Object() {"2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010", "2009", "2008"})
-        Me.ComboBox1.Location = New System.Drawing.Point(45, 6)
-        Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.Size = New System.Drawing.Size(104, 24)
-        Me.ComboBox1.TabIndex = 64
+        Me.YEAR_cb.FormattingEnabled = True
+        Me.YEAR_cb.Items.AddRange(New Object() {"2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010", "2009", "2008"})
+        Me.YEAR_cb.Location = New System.Drawing.Point(45, 6)
+        Me.YEAR_cb.Name = "YEAR_cb"
+        Me.YEAR_cb.Size = New System.Drawing.Size(104, 24)
+        Me.YEAR_cb.TabIndex = 64
         '
         'Label2
         '
@@ -74,50 +74,50 @@ Partial Class 訂單分析報表二
         Me.Label2.TabIndex = 65
         Me.Label2.Text = "YEAR"
         '
-        'Button1
+        'Query_bt
         '
-        Me.Button1.Location = New System.Drawing.Point(1375, 7)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(114, 24)
-        Me.Button1.TabIndex = 66
-        Me.Button1.Text = "Query"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.Query_bt.Location = New System.Drawing.Point(1375, 7)
+        Me.Query_bt.Name = "Query_bt"
+        Me.Query_bt.Size = New System.Drawing.Size(114, 24)
+        Me.Query_bt.TabIndex = 66
+        Me.Query_bt.Text = "Query"
+        Me.Query_bt.UseVisualStyleBackColor = True
         '
-        'DataGridView1
+        '分析清單1_dgv
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(7, 36)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(530, 329)
-        Me.DataGridView1.TabIndex = 67
+        Me.分析清單1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.分析清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.分析清單1_dgv.Location = New System.Drawing.Point(7, 36)
+        Me.分析清單1_dgv.Name = "分析清單1_dgv"
+        Me.分析清單1_dgv.RowHeadersWidth = 5
+        Me.分析清單1_dgv.RowTemplate.Height = 24
+        Me.分析清單1_dgv.Size = New System.Drawing.Size(530, 329)
+        Me.分析清單1_dgv.TabIndex = 67
         '
-        'DataGridView2
+        '分析清單2_dgv
         '
         DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(7, 371)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(530, 608)
-        Me.DataGridView2.TabIndex = 68
+        Me.分析清單2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.分析清單2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.分析清單2_dgv.Location = New System.Drawing.Point(7, 371)
+        Me.分析清單2_dgv.Name = "分析清單2_dgv"
+        Me.分析清單2_dgv.RowHeadersWidth = 5
+        Me.分析清單2_dgv.RowTemplate.Height = 24
+        Me.分析清單2_dgv.Size = New System.Drawing.Size(530, 608)
+        Me.分析清單2_dgv.TabIndex = 68
         '
-        'DataGridView3
+        '分析清單3_dgv
         '
         DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView3.Location = New System.Drawing.Point(543, 36)
-        Me.DataGridView3.Name = "DataGridView3"
-        Me.DataGridView3.RowHeadersWidth = 5
-        Me.DataGridView3.RowTemplate.Height = 24
-        Me.DataGridView3.Size = New System.Drawing.Size(530, 329)
-        Me.DataGridView3.TabIndex = 69
+        Me.分析清單3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.分析清單3_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.分析清單3_dgv.Location = New System.Drawing.Point(543, 36)
+        Me.分析清單3_dgv.Name = "分析清單3_dgv"
+        Me.分析清單3_dgv.RowHeadersWidth = 5
+        Me.分析清單3_dgv.RowTemplate.Height = 24
+        Me.分析清單3_dgv.Size = New System.Drawing.Size(530, 329)
+        Me.分析清單3_dgv.TabIndex = 69
         '
         'Label1
         '
@@ -128,50 +128,50 @@ Partial Class 訂單分析報表二
         Me.Label1.TabIndex = 71
         Me.Label1.Text = "YEAR"
         '
-        'ComboBox2
+        'YEAR1_cb
         '
-        Me.ComboBox2.FormattingEnabled = True
-        Me.ComboBox2.Items.AddRange(New Object() {"2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010", "2009", "2008"})
-        Me.ComboBox2.Location = New System.Drawing.Point(578, 7)
-        Me.ComboBox2.Name = "ComboBox2"
-        Me.ComboBox2.Size = New System.Drawing.Size(104, 24)
-        Me.ComboBox2.TabIndex = 70
+        Me.YEAR1_cb.FormattingEnabled = True
+        Me.YEAR1_cb.Items.AddRange(New Object() {"2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010", "2009", "2008"})
+        Me.YEAR1_cb.Location = New System.Drawing.Point(578, 7)
+        Me.YEAR1_cb.Name = "YEAR1_cb"
+        Me.YEAR1_cb.Size = New System.Drawing.Size(104, 24)
+        Me.YEAR1_cb.TabIndex = 70
         '
-        'DataGridView4
+        '分析清單4_dgv
         '
         DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView4.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView4.Location = New System.Drawing.Point(543, 371)
-        Me.DataGridView4.Name = "DataGridView4"
-        Me.DataGridView4.RowHeadersWidth = 5
-        Me.DataGridView4.RowTemplate.Height = 24
-        Me.DataGridView4.Size = New System.Drawing.Size(530, 608)
-        Me.DataGridView4.TabIndex = 72
+        Me.分析清單4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.分析清單4_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.分析清單4_dgv.Location = New System.Drawing.Point(543, 371)
+        Me.分析清單4_dgv.Name = "分析清單4_dgv"
+        Me.分析清單4_dgv.RowHeadersWidth = 5
+        Me.分析清單4_dgv.RowTemplate.Height = 24
+        Me.分析清單4_dgv.Size = New System.Drawing.Size(530, 608)
+        Me.分析清單4_dgv.TabIndex = 72
         '
-        'DataGridView5
+        '分析清單5_dgv
         '
         DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView5.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
-        Me.DataGridView5.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView5.Location = New System.Drawing.Point(1079, 36)
-        Me.DataGridView5.Name = "DataGridView5"
-        Me.DataGridView5.RowHeadersWidth = 5
-        Me.DataGridView5.RowTemplate.Height = 24
-        Me.DataGridView5.Size = New System.Drawing.Size(530, 329)
-        Me.DataGridView5.TabIndex = 73
+        Me.分析清單5_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.分析清單5_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.分析清單5_dgv.Location = New System.Drawing.Point(1079, 36)
+        Me.分析清單5_dgv.Name = "分析清單5_dgv"
+        Me.分析清單5_dgv.RowHeadersWidth = 5
+        Me.分析清單5_dgv.RowTemplate.Height = 24
+        Me.分析清單5_dgv.Size = New System.Drawing.Size(530, 329)
+        Me.分析清單5_dgv.TabIndex = 73
         '
-        'DataGridView6
+        '分析清單6_dgv
         '
         DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView6.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
-        Me.DataGridView6.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView6.Location = New System.Drawing.Point(1079, 371)
-        Me.DataGridView6.Name = "DataGridView6"
-        Me.DataGridView6.RowHeadersWidth = 5
-        Me.DataGridView6.RowTemplate.Height = 24
-        Me.DataGridView6.Size = New System.Drawing.Size(530, 608)
-        Me.DataGridView6.TabIndex = 74
+        Me.分析清單6_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.分析清單6_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.分析清單6_dgv.Location = New System.Drawing.Point(1079, 371)
+        Me.分析清單6_dgv.Name = "分析清單6_dgv"
+        Me.分析清單6_dgv.RowHeadersWidth = 5
+        Me.分析清單6_dgv.RowTemplate.Height = 24
+        Me.分析清單6_dgv.Size = New System.Drawing.Size(530, 608)
+        Me.分析清單6_dgv.TabIndex = 74
         '
         'Label3
         '
@@ -182,122 +182,122 @@ Partial Class 訂單分析報表二
         Me.Label3.TabIndex = 76
         Me.Label3.Text = "YEAR"
         '
-        'ComboBox3
+        'YEAR2_cb
         '
-        Me.ComboBox3.FormattingEnabled = True
-        Me.ComboBox3.Items.AddRange(New Object() {"2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010", "2009", "2008"})
-        Me.ComboBox3.Location = New System.Drawing.Point(1123, 7)
-        Me.ComboBox3.Name = "ComboBox3"
-        Me.ComboBox3.Size = New System.Drawing.Size(104, 24)
-        Me.ComboBox3.TabIndex = 75
+        Me.YEAR2_cb.FormattingEnabled = True
+        Me.YEAR2_cb.Items.AddRange(New Object() {"2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010", "2009", "2008"})
+        Me.YEAR2_cb.Location = New System.Drawing.Point(1123, 7)
+        Me.YEAR2_cb.Name = "YEAR2_cb"
+        Me.YEAR2_cb.Size = New System.Drawing.Size(104, 24)
+        Me.YEAR2_cb.TabIndex = 75
         '
-        'DataGridView7
+        '分析清單7_dgv
         '
         DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView7.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
-        Me.DataGridView7.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView7.Location = New System.Drawing.Point(1615, 36)
-        Me.DataGridView7.Name = "DataGridView7"
-        Me.DataGridView7.RowHeadersWidth = 5
-        Me.DataGridView7.RowTemplate.Height = 24
-        Me.DataGridView7.Size = New System.Drawing.Size(293, 943)
-        Me.DataGridView7.TabIndex = 77
-        '
-        'Button2
-        '
-        Me.Button2.ForeColor = System.Drawing.Color.Blue
-        Me.Button2.Location = New System.Drawing.Point(1615, 7)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(82, 24)
-        Me.Button2.TabIndex = 78
-        Me.Button2.Text = "ADD"
-        Me.Button2.UseVisualStyleBackColor = True
-        '
-        'Button3
-        '
-        Me.Button3.ForeColor = System.Drawing.Color.Green
-        Me.Button3.Location = New System.Drawing.Point(1703, 7)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(82, 24)
-        Me.Button3.TabIndex = 79
-        Me.Button3.Text = "MODIFY"
-        Me.Button3.UseVisualStyleBackColor = True
-        '
-        'Button4
-        '
-        Me.Button4.ForeColor = System.Drawing.Color.Red
-        Me.Button4.Location = New System.Drawing.Point(1791, 7)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(82, 24)
-        Me.Button4.TabIndex = 80
-        Me.Button4.Text = "DELETE"
-        Me.Button4.UseVisualStyleBackColor = True
-        '
-        'Button5
-        '
-        Me.Button5.Location = New System.Drawing.Point(1495, 7)
-        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(114, 24)
-        Me.Button5.TabIndex = 81
-        Me.Button5.Text = "PRINT"
-        Me.Button5.UseVisualStyleBackColor = True
+        Me.分析清單7_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.分析清單7_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.分析清單7_dgv.Location = New System.Drawing.Point(1615, 36)
+        Me.分析清單7_dgv.Name = "分析清單7_dgv"
+        Me.分析清單7_dgv.RowHeadersWidth = 5
+        Me.分析清單7_dgv.RowTemplate.Height = 24
+        Me.分析清單7_dgv.Size = New System.Drawing.Size(293, 943)
+        Me.分析清單7_dgv.TabIndex = 77
+        '
+        'ADD_bt
+        '
+        Me.ADD_bt.ForeColor = System.Drawing.Color.Blue
+        Me.ADD_bt.Location = New System.Drawing.Point(1615, 7)
+        Me.ADD_bt.Name = "ADD_bt"
+        Me.ADD_bt.Size = New System.Drawing.Size(82, 24)
+        Me.ADD_bt.TabIndex = 78
+        Me.ADD_bt.Text = "ADD"
+        Me.ADD_bt.UseVisualStyleBackColor = True
+        '
+        'MODIFY_bt
+        '
+        Me.MODIFY_bt.ForeColor = System.Drawing.Color.Green
+        Me.MODIFY_bt.Location = New System.Drawing.Point(1703, 7)
+        Me.MODIFY_bt.Name = "MODIFY_bt"
+        Me.MODIFY_bt.Size = New System.Drawing.Size(82, 24)
+        Me.MODIFY_bt.TabIndex = 79
+        Me.MODIFY_bt.Text = "MODIFY"
+        Me.MODIFY_bt.UseVisualStyleBackColor = True
+        '
+        'DELETE_bt
+        '
+        Me.DELETE_bt.ForeColor = System.Drawing.Color.Red
+        Me.DELETE_bt.Location = New System.Drawing.Point(1791, 7)
+        Me.DELETE_bt.Name = "DELETE_bt"
+        Me.DELETE_bt.Size = New System.Drawing.Size(82, 24)
+        Me.DELETE_bt.TabIndex = 80
+        Me.DELETE_bt.Text = "DELETE"
+        Me.DELETE_bt.UseVisualStyleBackColor = True
+        '
+        'PRINT_bt
+        '
+        Me.PRINT_bt.Location = New System.Drawing.Point(1495, 7)
+        Me.PRINT_bt.Name = "PRINT_bt"
+        Me.PRINT_bt.Size = New System.Drawing.Size(114, 24)
+        Me.PRINT_bt.TabIndex = 81
+        Me.PRINT_bt.Text = "PRINT"
+        Me.PRINT_bt.UseVisualStyleBackColor = True
         '
         '訂單分析報表二
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 991)
-        Me.Controls.Add(Me.Button5)
-        Me.Controls.Add(Me.Button4)
-        Me.Controls.Add(Me.Button3)
-        Me.Controls.Add(Me.Button2)
-        Me.Controls.Add(Me.DataGridView7)
+        Me.Controls.Add(Me.PRINT_bt)
+        Me.Controls.Add(Me.DELETE_bt)
+        Me.Controls.Add(Me.MODIFY_bt)
+        Me.Controls.Add(Me.ADD_bt)
+        Me.Controls.Add(Me.分析清單7_dgv)
         Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.ComboBox3)
-        Me.Controls.Add(Me.DataGridView6)
-        Me.Controls.Add(Me.DataGridView5)
-        Me.Controls.Add(Me.DataGridView4)
+        Me.Controls.Add(Me.YEAR2_cb)
+        Me.Controls.Add(Me.分析清單6_dgv)
+        Me.Controls.Add(Me.分析清單5_dgv)
+        Me.Controls.Add(Me.分析清單4_dgv)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.ComboBox2)
-        Me.Controls.Add(Me.DataGridView3)
-        Me.Controls.Add(Me.DataGridView2)
-        Me.Controls.Add(Me.DataGridView1)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.YEAR1_cb)
+        Me.Controls.Add(Me.分析清單3_dgv)
+        Me.Controls.Add(Me.分析清單2_dgv)
+        Me.Controls.Add(Me.分析清單1_dgv)
+        Me.Controls.Add(Me.Query_bt)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.YEAR_cb)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "訂單分析報表二"
         Me.Text = "Old Unit Comparison"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.分析清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.分析清單2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.分析清單3_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.分析清單4_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.分析清單5_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.分析清單6_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.分析清單7_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
-    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents YEAR_cb As ComboBox
     Friend WithEvents Label2 As Label
-    Friend WithEvents Button1 As Button
-    Friend WithEvents DataGridView1 As DataGridView
-    Friend WithEvents DataGridView2 As DataGridView
-    Friend WithEvents DataGridView3 As DataGridView
+    Friend WithEvents Query_bt As Button
+    Friend WithEvents 分析清單1_dgv As DataGridView
+    Friend WithEvents 分析清單2_dgv As DataGridView
+    Friend WithEvents 分析清單3_dgv As DataGridView
     Friend WithEvents Label1 As Label
-    Friend WithEvents ComboBox2 As ComboBox
-    Friend WithEvents DataGridView4 As DataGridView
-    Friend WithEvents DataGridView5 As DataGridView
-    Friend WithEvents DataGridView6 As DataGridView
+    Friend WithEvents YEAR1_cb As ComboBox
+    Friend WithEvents 分析清單4_dgv As DataGridView
+    Friend WithEvents 分析清單5_dgv As DataGridView
+    Friend WithEvents 分析清單6_dgv As DataGridView
     Friend WithEvents Label3 As Label
-    Friend WithEvents ComboBox3 As ComboBox
-    Friend WithEvents DataGridView7 As DataGridView
-    Friend WithEvents Button2 As Button
-    Friend WithEvents Button3 As Button
-    Friend WithEvents Button4 As Button
-    Friend WithEvents Button5 As Button
+    Friend WithEvents YEAR2_cb As ComboBox
+    Friend WithEvents 分析清單7_dgv As DataGridView
+    Friend WithEvents ADD_bt As Button
+    Friend WithEvents MODIFY_bt As Button
+    Friend WithEvents DELETE_bt As Button
+    Friend WithEvents PRINT_bt As Button
 End Class
 

TENDEN-MES-SYS/彙總報表管理/訂單分析報表二.vb

@@ -7,217 +7,217 @@ Public Class 訂單分析報表二
     Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet : Dim ds4 As New DataSet : Dim ds5 As New DataSet : Dim ds6 As New DataSet
     Dim dr As SqlDataReader
     Private  Sub Set_DGV1載入前設定()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+        分析清單1_dgv.DataSource = Nothing : ds.Clear()
+        分析清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單1_dgv.ColumnHeadersHeight = 25
+        分析清單1_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV1載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+    Private Sub Set_DGV1載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 分析清單1_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_分析清單1()
+    Private Sub Set_分析清單1()
         Set_DGV1載入前設定()
         SQL1 = "SELECT LEFT(客戶交期, 7) AS Year_Month , SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 " &
-               "WHERE (LEFT(客戶交期, 4) LIKE '" & ComboBox1.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   Year_Month"
+               "WHERE (LEFT(客戶交期, 4) LIKE '" & YEAR_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   Year_Month"
         Set_DGV1載入後設定()
     End Sub
-    Private  Sub Set_DGV2載入前設定()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+    Private Sub Set_DGV2載入前設定()
+        分析清單2_dgv.DataSource = Nothing : ds1.Clear()
+        分析清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單2_dgv.ColumnHeadersHeight = 25
+        分析清單2_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV2載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+    Private Sub Set_DGV2載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 分析清單2_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_分析清單2()
+    Private Sub Set_分析清單2()
         Set_DGV2載入前設定()
         SQL1 = "SELECT LEFT(客戶交期, 7) AS Year_Month, 訂單種類 AS Order_Type, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 " &
-               "WHERE (LEFT(客戶交期, 4) LIKE '" & ComboBox1.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   Year_Month"
+               "WHERE (LEFT(客戶交期, 4) LIKE '" & YEAR_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   Year_Month"
         Set_DGV2載入後設定()
     End Sub
-    Private  Sub Set_DGV3載入前設定()
-        DataGridView3.DataSource = Nothing : ds2.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = 25
-        DataGridView3.AllowUserToAddRows = False
+    Private Sub Set_DGV3載入前設定()
+        分析清單3_dgv.DataSource = Nothing : ds2.Clear()
+        分析清單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單3_dgv.ColumnHeadersHeight = 25
+        分析清單3_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV3載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+    Private Sub Set_DGV3載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 分析清單3_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_分析清單3()
+    Private Sub Set_分析清單3()
         Set_DGV3載入前設定()
         SQL1 = "SELECT LEFT(客戶交期, 7) AS Year_Month, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 " &
-               "WHERE (LEFT(客戶交期, 4) LIKE '" & ComboBox2.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   Year_Month"
+               "WHERE (LEFT(客戶交期, 4) LIKE '" & YEAR1_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   Year_Month"
         Set_DGV3載入後設定()
     End Sub
-    Private  Sub Set_DGV4載入前設定()
-        DataGridView4.DataSource = Nothing : ds3.Clear()
-        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView4.ColumnHeadersHeight = 25
-        DataGridView4.AllowUserToAddRows = False
+    Private Sub Set_DGV4載入前設定()
+        分析清單4_dgv.DataSource = Nothing : ds3.Clear()
+        分析清單4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單4_dgv.ColumnHeadersHeight = 25
+        分析清單4_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV4載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close()
+    Private Sub Set_DGV4載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 分析清單4_dgv.DataSource = ds3.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_分析清單4()
+    Private Sub Set_分析清單4()
         Set_DGV4載入前設定()
         SQL1 = "SELECT LEFT(客戶交期, 7) AS Year_Month, 訂單種類 AS Order_Type, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 " &
-               "WHERE (LEFT(客戶交期, 4) LIKE '" & ComboBox2.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   Year_Month"
+               "WHERE (LEFT(客戶交期, 4) LIKE '" & YEAR1_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   Year_Month"
         Set_DGV4載入後設定()
     End Sub
-    Private  Sub Set_DGV5載入前設定()
-        DataGridView5.DataSource = Nothing : ds4.Clear()
-        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView5.ColumnHeadersHeight = 25
-        DataGridView5.AllowUserToAddRows = False
+    Private Sub Set_DGV5載入前設定()
+        分析清單5_dgv.DataSource = Nothing : ds4.Clear()
+        分析清單5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單5_dgv.ColumnHeadersHeight = 25
+        分析清單5_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV5載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close()
+    Private Sub Set_DGV5載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 分析清單5_dgv.DataSource = ds4.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_分析清單5()
+    Private Sub Set_分析清單5()
         Set_DGV5載入前設定()
         SQL1 = "SELECT LEFT(客戶交期, 7) AS Year_Month, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 " &
-               "WHERE (LEFT(客戶交期, 4) LIKE '" & ComboBox3.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   Year_Month"
+               "WHERE (LEFT(客戶交期, 4) LIKE '" & YEAR2_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   Year_Month"
         Set_DGV5載入後設定()
     End Sub
-    Private  Sub Set_DGV6載入前設定()
-        DataGridView6.DataSource = Nothing : ds5.Clear()
-        DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView6.ColumnHeadersHeight = 25
-        DataGridView6.AllowUserToAddRows = False
+    Private Sub Set_DGV6載入前設定()
+        分析清單6_dgv.DataSource = Nothing : ds5.Clear()
+        分析清單6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單6_dgv.ColumnHeadersHeight = 25
+        分析清單6_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV6載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : DataGridView6.DataSource = ds5.Tables(0) : conn.Close()
+    Private Sub Set_DGV6載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 分析清單6_dgv.DataSource = ds5.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_分析清單6()
+    Private Sub Set_分析清單6()
         Set_DGV6載入前設定()
         SQL1 = "SELECT LEFT(客戶交期, 7) AS Year_Month, 訂單種類 AS Order_Type, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 " &
-               "WHERE (LEFT(客戶交期, 4) LIKE '" & ComboBox3.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   Year_Month"
+               "WHERE (LEFT(客戶交期, 4) LIKE '" & YEAR2_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   Year_Month"
         Set_DGV6載入後設定()
     End Sub
-    Private  Sub Set_DGV7載入前設定()
-        DataGridView7.DataSource = Nothing : ds6.Clear()
-        DataGridView7.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView7.ColumnHeadersHeight = 25
-        DataGridView7.AllowUserToAddRows = False
+    Private Sub Set_DGV7載入前設定()
+        分析清單7_dgv.DataSource = Nothing : ds6.Clear()
+        分析清單7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單7_dgv.ColumnHeadersHeight = 25
+        分析清單7_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV7載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6) : DataGridView7.DataSource = ds6.Tables(0) : conn.Close()
+    Private Sub Set_DGV7載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6) : 分析清單7_dgv.DataSource = ds6.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_分析清單7()
+    Private Sub Set_分析清單7()
         Set_DGV7載入前設定()
         SQL1 = "SELECT 年月份 AS Year_Month, 預估數量 AS Assess_QTY, 預估單價 AS Assess_Price FROM 訂單預估資料表 ORDER BY 年月份 DESC"
         Set_DGV7載入後設定()
     End Sub
-    Private  Sub Set_grid()
-        DataGridView1.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+    Private Sub Set_grid()
+        分析清單1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單1_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單1_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單1_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單1_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單1_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView2.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(3).DefaultCellStyle.Format = "#,##0.00" : DataGridView2.Columns(4).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單2_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 分析清單2_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00" : 分析清單2_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00"
+        分析清單2_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單2_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單2_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單2_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單2_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單2_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView3.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView3.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView3.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單3_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單3_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單3_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單3_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單3_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單3_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單3_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單3_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單3_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView4.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView4.Columns(3).DefaultCellStyle.Format = "#,##0.00" : DataGridView4.Columns(4).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView4.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView4.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView4.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView4.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView4.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView4.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單4_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 分析清單4_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00" : 分析清單4_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00"
+        分析清單4_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單4_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單4_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單4_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單4_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單4_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView5.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView5.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView5.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView5.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView5.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單5_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單5_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單5_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單5_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單5_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單5_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單5_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單5_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單5_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView6.Columns(2).DefaultCellStyle.Format = "#,##0" : DataGridView6.Columns(3).DefaultCellStyle.Format = "#,##0.00" : DataGridView6.Columns(4).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView6.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView6.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView6.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單6_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 分析清單6_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00" : 分析清單6_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00"
+        分析清單6_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單6_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單6_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單6_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單6_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單6_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView7.Columns(0).Width = 85 : DataGridView7.Columns(1).Width = 85 : DataGridView7.Columns(2).Width = 85
-        DataGridView7.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView7.Columns(2).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView7.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView7.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView7.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView7.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView7.EditMode = DataGridViewEditMode.EditOnEnter
+        分析清單7_dgv.Columns(0).Width = 85 : 分析清單7_dgv.Columns(1).Width = 85 : 分析清單7_dgv.Columns(2).Width = 85
+        分析清單7_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單7_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00"
+        分析清單7_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單7_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單7_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單7_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單7_dgv.EditMode = DataGridViewEditMode.EditOnEnter
     End Sub
-    Private  Sub 訂單分析報表二_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub 訂單分析報表二_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        ComboBox1.Text = Year(Now)
-        ComboBox2.Text = Year(Now) - 1
-        ComboBox3.Text = Year(Now) - 2
+        YEAR_cb.Text = Year(Now)
+        YEAR1_cb.Text = Year(Now) - 1
+        YEAR2_cb.Text = Year(Now) - 2
         Set_分析清單7()
         Set_分析清單1() : Set_分析清單2() : Set_分析清單3() : Set_分析清單4() : Set_分析清單5() : Set_分析清單6()
         Set_grid()
     End Sub
-    Private  Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Query_bt.Click
         Set_分析清單1() : Set_分析清單2() : Set_分析清單3() : Set_分析清單4() : Set_分析清單5() : Set_分析清單6() : Set_grid()
     End Sub
-    Private  Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
+    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 分析清單2_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView2.Rows.Count - 1 Then
+        If e.RowIndex = 分析清單2_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView2(0, e.RowIndex).Value.ToString <> DataGridView2(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
+            If 分析清單2_dgv(0, e.RowIndex).Value.ToString <> 分析清單2_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(分析清單2_dgv.RowHeadersVisible, 分析清單2_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 分析清單2_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 分析清單2_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If
         End If
     End Sub
-    Private  Sub DataGridView4_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView4.RowPostPaint
+    Private Sub DataGridView4_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 分析清單4_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView4.Rows.Count - 1 Then
+        If e.RowIndex = 分析清單4_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView4(0, e.RowIndex).Value.ToString <> DataGridView4(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView4.RowHeadersVisible, DataGridView4.RowHeadersWidth, 0)
+            If 分析清單4_dgv(0, e.RowIndex).Value.ToString <> 分析清單4_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(分析清單4_dgv.RowHeadersVisible, 分析清單4_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView4.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView4.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 分析清單4_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 分析清單4_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If
         End If
     End Sub
-    Private  Sub DataGridView6_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView6.RowPostPaint
+    Private Sub DataGridView6_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 分析清單6_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView6.Rows.Count - 1 Then
+        If e.RowIndex = 分析清單6_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView6(0, e.RowIndex).Value.ToString <> DataGridView6(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView6.RowHeadersVisible, DataGridView6.RowHeadersWidth, 0)
+            If 分析清單6_dgv(0, e.RowIndex).Value.ToString <> 分析清單6_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(分析清單6_dgv.RowHeadersVisible, 分析清單6_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView6.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView6.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 分析清單6_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 分析清單6_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If
         End If
     End Sub
-    Private  Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles PRINT_bt.Click
         列印_訂單分析二.Show()
     End Sub
-    Private  Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ADD_bt.Click
         Dim PA1 As String : Dim PA2 As String : Dim PA3 As String
         PA1 = InputBox("請輸入要欲新增之年月份")
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
@@ -238,17 +238,17 @@ Public Class 訂單分析報表二
         End If
         Set_分析清單7() : Set_grid()
     End Sub
-    Private  Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        For i As Integer = 0 To DataGridView7.Rows.Count - 1
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles MODIFY_bt.Click
+        For i As Integer = 0 To 分析清單7_dgv.Rows.Count - 1
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "UPDATE 訂單預估資料表 SET  預估數量 = '" & DataGridView7.Rows(i).Cells("Assess_QTY").Value & "', 預估單價 = '" & DataGridView7.Rows(i).Cells("Assess_Price").Value & "' " &
-                   "WHERE (年月份 LIKE '" & DataGridView7.Rows(i).Cells("Year_Month").Value & "')"
+            SQL1 = "UPDATE 訂單預估資料表 SET  預估數量 = '" & 分析清單7_dgv.Rows(i).Cells("Assess_QTY").Value & "', 預估單價 = '" & 分析清單7_dgv.Rows(i).Cells("Assess_Price").Value & "' " &
+                   "WHERE (年月份 LIKE '" & 分析清單7_dgv.Rows(i).Cells("Year_Month").Value & "')"
             cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
         Next i
         Set_分析清單7() : Set_grid()
         MsgBox("修改完成")
     End Sub
-    Private  Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+    Private  Sub Button4_Click(sender As Object, e As EventArgs) Handles DELETE_bt.Click
 
     End Sub
 End Class

TENDEN-MES-SYS/彙總報表管理/訂單分析報表五.vb

@@ -9,315 +9,317 @@ Public Class 訂單分析報表五
     Dim ds14 As New DataSet
     Dim dr As SqlDataReader
     Private  Sub Set_DGV1載入前設定()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+        訂單控制表_dgv.DataSource = Nothing : ds.Clear()
+        訂單控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單控制表_dgv.ColumnHeadersHeight = 25
+        訂單控制表_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV1載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+    Private Sub Set_DGV1載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_分析清單1()
+    Private Sub Set_分析清單1()
         Set_DGV1載入前設定()
-        SQL1 = "SELECT 年度 AS YEAR, P, 開始日期 AS Start_date, 結束日期 AS Closing_date FROM NEW_U_C_時間間格 WHERE (年度 LIKE '" & ComboBox1.Text & "') ORDER BY 開始日期"
+        SQL1 = "SELECT 年度 AS YEAR, P, 開始日期 AS Start_date, 結束日期 AS Closing_date FROM NEW_U_C_時間間格 WHERE (年度 LIKE '" & 年度_cb.Text & "') ORDER BY 開始日期"
         Set_DGV1載入後設定()
     End Sub
-    Private  Sub Set_DGV2載入前設定()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+    Private Sub Set_DGV2載入前設定()
+        分析清單_dgv.DataSource = Nothing : ds1.Clear()
+        分析清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單_dgv.ColumnHeadersHeight = 25
+        分析清單_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV2載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+    Private Sub Set_DGV2載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 分析清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV3載入前設定()
-        DataGridView3.DataSource = Nothing : ds2.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = 25
-        DataGridView3.AllowUserToAddRows = False
+    Private Sub Set_DGV3載入前設定()
+        分析清單1_dgv.DataSource = Nothing : ds2.Clear()
+        分析清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單1_dgv.ColumnHeadersHeight = 25
+        分析清單1_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV3載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+    Private Sub Set_DGV3載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 分析清單1_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV4載入前設定()
-        DataGridView4.DataSource = Nothing : ds3.Clear()
-        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView4.ColumnHeadersHeight = 25
-        DataGridView4.AllowUserToAddRows = False
+    Private Sub Set_DGV4載入前設定()
+        分析清單2_dgv.DataSource = Nothing : ds3.Clear()
+        分析清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單2_dgv.ColumnHeadersHeight = 25
+        分析清單2_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV4載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close()
+    Private Sub Set_DGV4載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 分析清單2_dgv.DataSource = ds3.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV5載入前設定()
-        DataGridView5.DataSource = Nothing : ds4.Clear()
-        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView5.ColumnHeadersHeight = 25
-        DataGridView5.AllowUserToAddRows = False
+    Private Sub Set_DGV5載入前設定()
+        分析清單3_dgv.DataSource = Nothing : ds4.Clear()
+        分析清單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單3_dgv.ColumnHeadersHeight = 25
+        分析清單3_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV5載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close()
+    Private Sub Set_DGV5載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 分析清單3_dgv.DataSource = ds4.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV6載入前設定()
-        DataGridView6.DataSource = Nothing : ds5.Clear()
-        DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView6.ColumnHeadersHeight = 25
-        DataGridView6.AllowUserToAddRows = False
+    Private Sub Set_DGV6載入前設定()
+        分析清單4_dgv.DataSource = Nothing : ds5.Clear()
+        分析清單4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單4_dgv.ColumnHeadersHeight = 25
+        分析清單4_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV6載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : DataGridView6.DataSource = ds5.Tables(0) : conn.Close()
+    Private Sub Set_DGV6載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 分析清單4_dgv.DataSource = ds5.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV7載入前設定()
-        DataGridView7.DataSource = Nothing : ds6.Clear()
-        DataGridView7.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView7.ColumnHeadersHeight = 25
-        DataGridView7.AllowUserToAddRows = False
+    Private Sub Set_DGV7載入前設定()
+        分析清單5_dgv.DataSource = Nothing : ds6.Clear()
+        分析清單5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單5_dgv.ColumnHeadersHeight = 25
+        分析清單5_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV7載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6) : DataGridView7.DataSource = ds6.Tables(0) : conn.Close()
+    Private Sub Set_DGV7載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds6) : 分析清單5_dgv.DataSource = ds6.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV8載入前設定()
-        DataGridView8.DataSource = Nothing : ds7.Clear()
-        DataGridView8.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView8.ColumnHeadersHeight = 25
-        DataGridView8.AllowUserToAddRows = False
+    Private Sub Set_DGV8載入前設定()
+        分析清單6_dgv.DataSource = Nothing : ds7.Clear()
+        分析清單6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單6_dgv.ColumnHeadersHeight = 25
+        分析清單6_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV8載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds7) : DataGridView8.DataSource = ds7.Tables(0) : conn.Close()
+    Private Sub Set_DGV8載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds7) : 分析清單6_dgv.DataSource = ds7.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV9載入前設定()
-        DataGridView9.DataSource = Nothing : ds8.Clear()
-        DataGridView9.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView9.ColumnHeadersHeight = 25
-        DataGridView9.AllowUserToAddRows = False
+    Private Sub Set_DGV9載入前設定()
+        分析清單7_dgv.DataSource = Nothing : ds8.Clear()
+        分析清單7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單7_dgv.ColumnHeadersHeight = 25
+        分析清單7_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV9載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
+    Private Sub Set_DGV9載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 分析清單7_dgv.DataSource = ds8.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV10載入前設定()
-        DataGridView10.DataSource = Nothing : ds9.Clear()
-        DataGridView10.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView10.ColumnHeadersHeight = 25
-        DataGridView10.AllowUserToAddRows = False
+    Private Sub Set_DGV10載入前設定()
+        分析清單8_dgv.DataSource = Nothing : ds9.Clear()
+        分析清單8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單8_dgv.ColumnHeadersHeight = 25
+        分析清單8_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV10載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds9) : DataGridView10.DataSource = ds9.Tables(0) : conn.Close()
+    Private Sub Set_DGV10載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds9) : 分析清單8_dgv.DataSource = ds9.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV11載入前設定()
-        DataGridView11.DataSource = Nothing : ds10.Clear()
-        DataGridView11.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView11.ColumnHeadersHeight = 25
-        DataGridView11.AllowUserToAddRows = False
+    Private Sub Set_DGV11載入前設定()
+        分析清單9_dgv.DataSource = Nothing : ds10.Clear()
+        分析清單9_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單9_dgv.ColumnHeadersHeight = 25
+        分析清單9_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV11載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds10) : DataGridView11.DataSource = ds10.Tables(0) : conn.Close()
+    Private Sub Set_DGV11載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds10) : 分析清單9_dgv.DataSource = ds10.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV12載入前設定()
-        DataGridView12.DataSource = Nothing : ds11.Clear()
-        DataGridView12.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView12.ColumnHeadersHeight = 25
-        DataGridView12.AllowUserToAddRows = False
+    Private Sub Set_DGV12載入前設定()
+        分析清單10_dgv.DataSource = Nothing : ds11.Clear()
+        分析清單10_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單10_dgv.ColumnHeadersHeight = 25
+        分析清單10_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV12載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds11) : DataGridView12.DataSource = ds11.Tables(0) : conn.Close()
+    Private Sub Set_DGV12載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds11) : 分析清單10_dgv.DataSource = ds11.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV13載入前設定()
-        DataGridView13.DataSource = Nothing : ds12.Clear()
-        DataGridView13.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView13.ColumnHeadersHeight = 25
-        DataGridView13.AllowUserToAddRows = False
+    Private Sub Set_DGV13載入前設定()
+        分析清單11_dgv.DataSource = Nothing : ds12.Clear()
+        分析清單11_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單11_dgv.ColumnHeadersHeight = 25
+        分析清單11_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV13載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds12) : DataGridView13.DataSource = ds12.Tables(0) : conn.Close()
+    Private Sub Set_DGV13載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds12) : 分析清單11_dgv.DataSource = ds12.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV14載入前設定()
-        DataGridView14.DataSource = Nothing : ds13.Clear()
-        DataGridView14.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView14.ColumnHeadersHeight = 25
-        DataGridView14.AllowUserToAddRows = False
+    Private Sub Set_DGV14載入前設定()
+        分析清單12_dgv.DataSource = Nothing : ds13.Clear()
+        分析清單12_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        分析清單12_dgv.ColumnHeadersHeight = 25
+        分析清單12_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV14載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds13) : DataGridView14.DataSource = ds13.Tables(0) : conn.Close()
+    Private Sub Set_DGV14載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds13) : 分析清單12_dgv.DataSource = ds13.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_DGV15載入前設定()
-        DataGridView15.DataSource = Nothing : ds14.Clear()
-        DataGridView15.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView15.ColumnHeadersHeight = 25
-        DataGridView15.AllowUserToAddRows = False
+    Private Sub Set_DGV15載入前設定()
+        訂單預估資料表2_dgv.DataSource = Nothing : ds14.Clear()
+        訂單預估資料表2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單預估資料表2_dgv.ColumnHeadersHeight = 25
+        訂單預估資料表2_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV15載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds14) : DataGridView15.DataSource = ds14.Tables(0) : conn.Close()
+    Private Sub Set_DGV15載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds14) : 訂單預估資料表2_dgv.DataSource = ds14.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_分析清單7()
+    Private Sub Set_分析清單7()
         Set_DGV15載入前設定()
         SQL1 = "SELECT YEAR_P, 預估數量 AS Assess_QTY, 預估單價 AS Assess_Price FROM 訂單預估資料表2 WHERE YEAR_P NOT LIKE '%2017%' AND YEAR_P NOT LIKE '%2018%' ORDER BY YEAR_P DESC"
         Set_DGV15載入後設定()
     End Sub
-    Private  Sub Set_grid()
-        DataGridView2.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView2.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView2.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+    Private Sub Set_grid()
+        分析清單_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView3.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView3.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView3.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView3.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單1_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單1_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單1_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單1_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單1_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView4.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView4.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView4.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView4.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView4.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView4.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView4.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView4.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView4.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單2_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單2_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單2_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單2_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單2_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單2_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單2_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單2_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單2_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView5.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView5.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView5.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView5.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView5.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView5.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView5.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單3_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單3_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單3_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單3_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單3_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單3_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單3_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單3_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單3_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView6.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView6.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView6.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView6.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView6.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView6.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView6.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單4_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單4_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單4_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單4_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單4_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單4_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單4_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單4_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單4_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView7.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView7.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView7.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView7.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView7.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView7.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView7.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView7.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView7.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單5_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單5_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單5_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單5_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單5_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單5_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單5_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單5_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單5_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView8.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView8.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView8.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView8.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView8.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView8.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView8.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView8.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView8.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單6_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單6_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單6_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單6_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單6_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單6_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單6_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單6_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單6_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView9.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView9.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView9.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView9.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView9.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView9.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView9.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView9.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView9.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單7_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單7_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單7_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單7_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單7_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單7_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單7_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單7_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單7_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView10.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView10.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView10.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView10.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView10.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView10.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView10.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView10.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView10.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單8_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單8_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單8_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單8_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單8_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單8_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單8_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單8_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單8_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView11.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView11.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView11.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView11.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView11.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView11.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView11.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView11.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView11.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單9_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單9_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單9_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單9_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單9_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單9_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單9_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單9_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單9_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView12.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView12.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView12.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView12.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView12.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView12.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView12.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView12.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView12.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單10_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單10_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單10_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單10_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單10_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單10_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單10_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單10_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單10_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView13.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView13.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView13.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView13.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView13.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView13.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView13.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView13.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView13.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單11_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單11_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單11_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單11_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單11_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單11_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單11_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單11_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單11_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView14.Columns(0).Width = 95 : DataGridView14.Columns(1).Width = 100 : DataGridView14.Columns(2).Width = 100 : DataGridView14.Columns(3).Width = 85
-        DataGridView14.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView14.Columns(2).DefaultCellStyle.Format = "#,##0.00" : DataGridView14.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView14.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView14.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView14.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView14.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView14.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView14.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單12_dgv.Columns(0).Width = 95 : 分析清單12_dgv.Columns(1).Width = 100 : 分析清單12_dgv.Columns(2).Width = 100 : 分析清單12_dgv.Columns(3).Width = 85
+        分析清單12_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 分析清單12_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00" : 分析清單12_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        分析清單12_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單12_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單12_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單12_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        分析清單12_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 分析清單12_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView15.Columns(0).Width = 125 : DataGridView15.Columns(1).Width = 130 : DataGridView15.Columns(2).Width = 130
-        DataGridView15.Columns(1).DefaultCellStyle.Format = "#,##0" : DataGridView15.Columns(2).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView15.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView15.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView15.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView15.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView15.EditMode = DataGridViewEditMode.EditOnEnter
-    End Sub
-    Private  Sub 訂單分析報表五_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        訂單預估資料表2_dgv.Columns(0).Width = 125 : 訂單預估資料表2_dgv.Columns(1).Width = 130 : 訂單預估資料表2_dgv.Columns(2).Width = 130
+        訂單預估資料表2_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 訂單預估資料表2_dgv.Columns(2).DefaultCellStyle.Format = "#,##0.00"
+        訂單預估資料表2_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單預估資料表2_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單預估資料表2_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單預估資料表2_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單預估資料表2_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+    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
-        TextBox37.Visible = False : TextBox38.Visible = False : TextBox39.Visible = False
+        客戶交期_tb.Visible = False : 訂單數量_tb.Visible = False : 總金額_tb.Visible = False
         Set_分析清單7()
-        ComboBox1.Text = Year(Now)
+        年度_cb.Text = Year(Now)
     End Sub
-    Private  Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年度_cb.SelectedIndexChanged
         Set_分析清單1()
-        TextBox40.Text = "0" : TextBox41.Text = "0" : TextBox42.Text = "0"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+        Summary_Order_Quantity_tb.Text = "0" : Summary_Total_Sum_tb.Text = "0" : Summary_Average_tb.Text = "0"
+        For i As Integer = 0 To 訂單控制表_dgv.Rows.Count - 1
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
             SQL1 = "SELECT SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 WHERE (CXL IS NULL OR
-                            CXL = 0) AND (客戶交期 BETWEEN '" & DataGridView1.Rows(i).Cells("Start_date").Value & "' AND '" & DataGridView1.Rows(i).Cells("Closing_date").Value & "')"
+                            CXL = 0) AND (客戶交期 BETWEEN '" & 訂單控制表_dgv.Rows(i).Cells("Start_date").Value & "' AND '" & 訂單控制表_dgv.Rows(i).Cells("Closing_date").Value & "')"
             cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
             If dr.Read() Then
-                TextBox37.Text = dr("Order_Quantity").ToString
-                TextBox38.Text = dr("Total_Sum").ToString
-                TextBox39.Text = dr("Average").ToString
+                客戶交期_tb.Text = dr("Order_Quantity").ToString
+                訂單數量_tb.Text = dr("Total_Sum").ToString
+                總金額_tb.Text = dr("Average").ToString
             End If : conn.Close()
 
-            If TextBox37.Text = "" Then : TextBox37.Text = "0" : End If
-            If TextBox38.Text = "" Then : TextBox38.Text = "0" : End If
-            If TextBox39.Text = "" Then : TextBox39.Text = "0" : End If
+            If 客戶交期_tb.Text = "" Then : 客戶交期_tb.Text = "0" : End If
+            If 訂單數量_tb.Text = "" Then : 訂單數量_tb.Text = "0" : End If
+            If 總金額_tb.Text = "" Then : 總金額_tb.Text = "0" : End If
 
-            TextBox40.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox40.Text)) + (Double.Parse(TextBox37.Text))))), "#,##0")
-            TextBox41.Text = Format(Val(CStr(Double.Parse(TextBox41.Text) + Double.Parse(TextBox38.Text))), "#,##0.00")
-            TextBox42.Text = Format(Val(CStr(Double.Parse(TextBox41.Text) / Double.Parse(TextBox40.Text))), "#,##0.00")
+            Summary_Order_Quantity_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(Summary_Order_Quantity_tb.Text)) + (Double.Parse(客戶交期_tb.Text))))), "#,##0")
+            Summary_Total_Sum_tb.Text = Format(Val(CStr(Double.Parse(Summary_Total_Sum_tb.Text) + Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+            Summary_Average_tb.Text = Format(Val(CStr(Double.Parse(Summary_Total_Sum_tb.Text) / Double.Parse(Summary_Order_Quantity_tb.Text))), "#,##0.00")
 
             If i = 0 Then
-                TextBox1.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox2.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox3.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 1 Then
-                TextBox4.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox5.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox6.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity1_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum1_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average1_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 2 Then
-                TextBox7.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox8.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox9.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity2_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum2_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average2_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 3 Then
-                TextBox10.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox11.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox12.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity3_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum3_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average3_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 4 Then
-                TextBox13.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox14.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox15.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity4_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum4_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average4_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 5 Then
-                TextBox16.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox17.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox18.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity5_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum5_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average5_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 6 Then
-                TextBox19.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox20.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox21.Text = Format(Val(CStr((Double.Parse(TextBox39.Text)))), "#,##0.00")
+                Order_Quantity6_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum6_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average6_tb.Text = Format(Val(CStr((Double.Parse(總金額_tb.Text)))), "#,##0.00")
             ElseIf i = 7 Then
-                TextBox22.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox23.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox24.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity7_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum7_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average7_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 8 Then
-                TextBox25.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox26.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox27.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity8_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum8_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average8_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 9 Then
-                TextBox28.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox29.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox30.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity9_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum9_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average9_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 10 Then
-                TextBox31.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox32.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox33.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity10_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum10_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average10_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             ElseIf i = 11 Then
-                TextBox34.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox37.Text))))), "#,##0") : TextBox35.Text = Format(Val(CStr(Double.Parse(TextBox38.Text))), "#,##0.00")
-                TextBox36.Text = Format(Val(CStr(Double.Parse(TextBox39.Text))), "#,##0.00")
+                Order_Quantity11_tb.Text = Format(Val(CStr(Math.Round((Double.Parse(客戶交期_tb.Text))))), "#,##0") : Total_Sum11_tb.Text = Format(Val(CStr(Double.Parse(訂單數量_tb.Text))), "#,##0.00")
+                Average11_tb.Text = Format(Val(CStr(Double.Parse(總金額_tb.Text))), "#,##0.00")
             End If
 
             If i = 0 Then : Set_DGV2載入前設定() : ElseIf i = 1 Then : Set_DGV3載入前設定() : ElseIf i = 2 Then : Set_DGV4載入前設定() : ElseIf i = 3 Then : Set_DGV5載入前設定()
@@ -325,7 +327,8 @@ Public Class 訂單分析報表五
             ElseIf i = 8 Then : Set_DGV10載入前設定() : ElseIf i = 9 Then : Set_DGV11載入前設定() : ElseIf i = 10 Then : Set_DGV12載入前設定() : ElseIf i = 11 Then : Set_DGV13載入前設定()
             End If
             SQL1 = "SELECT 訂單種類 AS Order_Type, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 WHERE (CXL IS NULL OR CXL = 0) " &
-                   "AND (客戶交期 BETWEEN '" & DataGridView1.Rows(i).Cells("Start_date").Value & "' AND '" & DataGridView1.Rows(i).Cells("Closing_date").Value & "') GROUP BY   訂單種類 ORDER BY   Order_Type"
+                   "AND (客戶交期 BETWEEN '" & 訂單控制表_dgv.Rows(i).Cells("Start_date").Value & "' AND '" & 訂單控制表_dgv.Rows(i).Cells("Closing_date").Value & "') 
+                   GROUP BY   訂單種類 ORDER BY   Order_Type"
             If i = 0 Then : Set_DGV2載入後設定() : ElseIf i = 1 Then : Set_DGV3載入後設定() : ElseIf i = 2 Then : Set_DGV4載入後設定() : ElseIf i = 3 Then : Set_DGV5載入後設定()
             ElseIf i = 4 Then : Set_DGV6載入後設定() : ElseIf i = 5 Then : Set_DGV7載入後設定() : ElseIf i = 6 Then : Set_DGV8載入後設定() : ElseIf i = 7 Then : Set_DGV9載入後設定()
             ElseIf i = 8 Then : Set_DGV10載入後設定() : ElseIf i = 9 Then : Set_DGV11載入後設定() : ElseIf i = 10 Then : Set_DGV12載入後設定() : ElseIf i = 11 Then : Set_DGV13載入後設定()
@@ -333,12 +336,13 @@ Public Class 訂單分析報表五
 
             Set_DGV14載入前設定()
             SQL1 = "SELECT 訂單種類 AS Order_Type, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 WHERE (CXL IS NULL OR CXL = 0) " &
-                   "AND (客戶交期 BETWEEN '" & DataGridView1.Rows(0).Cells("Start_date").Value & "' AND '" & DataGridView1.Rows(11).Cells("Closing_date").Value & "') GROUP BY   訂單種類 ORDER BY   Order_Type"
+                   "AND (客戶交期 BETWEEN '" & 訂單控制表_dgv.Rows(0).Cells("Start_date").Value & "' AND '" & 訂單控制表_dgv.Rows(11).Cells("Closing_date").Value & "') 
+                   GROUP BY   訂單種類 ORDER BY   Order_Type"
             Set_DGV14載入後設定()
         Next
         Set_grid()
     End Sub
-    Private  Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ADD_bt.Click
         Dim PA1 As String : Dim PA2 As String : Dim PA3 As String
         PA1 = InputBox("請輸入要欲新增之年月份，請注意格式為   xxxx_Pxx  ，例如 : 2019_P01。")
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
@@ -359,21 +363,22 @@ Public Class 訂單分析報表五
         End If
         Set_分析清單7() : Set_grid()
     End Sub
-    Private  Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        For i As Integer = 0 To DataGridView15.Rows.Count - 1
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles MODIFY_bt.Click
+        For i As Integer = 0 To 訂單預估資料表2_dgv.Rows.Count - 1
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "UPDATE 訂單預估資料表2 SET  預估數量 = '" & DataGridView15.Rows(i).Cells("Assess_QTY").Value & "', 預估單價 = '" & DataGridView15.Rows(i).Cells("Assess_Price").Value & "' " &
-                   "WHERE (YEAR_P LIKE '" & DataGridView15.Rows(i).Cells("YEAR_P").Value & "')"
+            SQL1 = "UPDATE 訂單預估資料表2 SET  預估數量 = '" & 訂單預估資料表2_dgv.Rows(i).Cells("Assess_QTY").Value & "', 
+                                                預估單價 = '" & 訂單預估資料表2_dgv.Rows(i).Cells("Assess_Price").Value & "' " &
+                   "WHERE (YEAR_P LIKE '" & 訂單預估資料表2_dgv.Rows(i).Cells("YEAR_P").Value & "')"
             cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
         Next i
         Set_分析清單7() : Set_grid()
         MsgBox("修改完成")
     End Sub
-    Private  Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles DELETE_bt.Click
 
     End Sub
-    Private  Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
-        列印用SQL = ComboBox1.Text
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles PRINT_bt.Click
+        列印用SQL = 年度_cb.Text
         列印_訂單分析五.Show()
     End Sub
 End Class

TENDEN-MES-SYS/彙總報表管理/訂單分析報表四.Designer.vb

@@ -22,42 +22,42 @@ Partial Class 訂單分析報表四
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.未完善訂單_dgv = New System.Windows.Forms.DataGridView()
+        Me.已完善訂單_dgv = New System.Windows.Forms.DataGridView()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.TextBox26 = New System.Windows.Forms.TextBox()
+        Me.資料筆數_tb = New System.Windows.Forms.TextBox()
         Me.Label42 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.訂單總數_tb = New System.Windows.Forms.TextBox()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.資料筆數1_tb = New System.Windows.Forms.TextBox()
         Me.Label4 = New System.Windows.Forms.Label()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.訂單總數1_tb = New System.Windows.Forms.TextBox()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.未完善訂單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.已完善訂單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'DataGridView1
+        '未完善訂單_dgv
         '
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(6, 32)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(1336, 295)
-        Me.DataGridView1.TabIndex = 78
+        Me.未完善訂單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.未完善訂單_dgv.Location = New System.Drawing.Point(6, 32)
+        Me.未完善訂單_dgv.Name = "未完善訂單_dgv"
+        Me.未完善訂單_dgv.RowHeadersWidth = 5
+        Me.未完善訂單_dgv.RowTemplate.Height = 24
+        Me.未完善訂單_dgv.Size = New System.Drawing.Size(1336, 295)
+        Me.未完善訂單_dgv.TabIndex = 78
         '
-        'DataGridView2
+        '已完善訂單_dgv
         '
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(6, 356)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(1336, 295)
-        Me.DataGridView2.TabIndex = 79
+        Me.已完善訂單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.已完善訂單_dgv.Location = New System.Drawing.Point(6, 356)
+        Me.已完善訂單_dgv.Name = "已完善訂單_dgv"
+        Me.已完善訂單_dgv.RowHeadersWidth = 5
+        Me.已完善訂單_dgv.RowTemplate.Height = 24
+        Me.已完善訂單_dgv.Size = New System.Drawing.Size(1336, 295)
+        Me.已完善訂單_dgv.TabIndex = 79
         '
         'Label1
         '
@@ -77,14 +77,14 @@ Partial Class 訂單分析報表四
         Me.Label2.TabIndex = 81
         Me.Label2.Text = "工廠交期即將到期且成型已完善訂單"
         '
-        'TextBox26
+        '資料筆數_tb
         '
-        Me.TextBox26.ForeColor = System.Drawing.Color.Black
-        Me.TextBox26.Location = New System.Drawing.Point(370, 330)
-        Me.TextBox26.Name = "TextBox26"
-        Me.TextBox26.Size = New System.Drawing.Size(90, 23)
-        Me.TextBox26.TabIndex = 122
-        Me.TextBox26.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.資料筆數_tb.ForeColor = System.Drawing.Color.Black
+        Me.資料筆數_tb.Location = New System.Drawing.Point(370, 330)
+        Me.資料筆數_tb.Name = "資料筆數_tb"
+        Me.資料筆數_tb.Size = New System.Drawing.Size(90, 23)
+        Me.資料筆數_tb.TabIndex = 122
+        Me.資料筆數_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label42
         '
@@ -95,14 +95,14 @@ Partial Class 訂單分析報表四
         Me.Label42.TabIndex = 121
         Me.Label42.Text = "資料筆數"
         '
-        'TextBox1
+        '訂單總數_tb
         '
-        Me.TextBox1.ForeColor = System.Drawing.Color.Black
-        Me.TextBox1.Location = New System.Drawing.Point(533, 330)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(90, 23)
-        Me.TextBox1.TabIndex = 124
-        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.訂單總數_tb.ForeColor = System.Drawing.Color.Black
+        Me.訂單總數_tb.Location = New System.Drawing.Point(533, 330)
+        Me.訂單總數_tb.Name = "訂單總數_tb"
+        Me.訂單總數_tb.Size = New System.Drawing.Size(90, 23)
+        Me.訂單總數_tb.TabIndex = 124
+        Me.訂單總數_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         'Label3
         '
@@ -113,14 +113,14 @@ Partial Class 訂單分析報表四
         Me.Label3.TabIndex = 123
         Me.Label3.Text = "訂單總數"
         '
-        'TextBox2
+        '資料筆數1_tb
         '
-        Me.TextBox2.ForeColor = System.Drawing.Color.Black
-        Me.TextBox2.Location = New System.Drawing.Point(370, 654)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(90, 23)
-        Me.TextBox2.TabIndex = 126
-        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.資料筆數1_tb.ForeColor = System.Drawing.Color.Black
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(370, 654)
+        Me.資料筆數1_tb.Name = "資料筆數1_tb"
+        Me.資料筆數1_tb.Size = New System.Drawing.Size(90, 23)
+        Me.資料筆數1_tb.TabIndex = 126
+        Me.資料筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label4
         '
@@ -131,14 +131,14 @@ Partial Class 訂單分析報表四
         Me.Label4.TabIndex = 125
         Me.Label4.Text = "資料筆數"
         '
-        'TextBox3
+        '訂單總數1_tb
         '
-        Me.TextBox3.ForeColor = System.Drawing.Color.Black
-        Me.TextBox3.Location = New System.Drawing.Point(533, 654)
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(90, 23)
-        Me.TextBox3.TabIndex = 128
-        Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.訂單總數1_tb.ForeColor = System.Drawing.Color.Black
+        Me.訂單總數1_tb.Location = New System.Drawing.Point(533, 654)
+        Me.訂單總數1_tb.Name = "訂單總數1_tb"
+        Me.訂單總數1_tb.Size = New System.Drawing.Size(90, 23)
+        Me.訂單總數1_tb.TabIndex = 128
+        Me.訂單總數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         'Label5
         '
@@ -164,40 +164,40 @@ Partial Class 訂單分析報表四
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1354, 681)
         Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.訂單總數1_tb)
         Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.資料筆數1_tb)
         Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.訂單總數_tb)
         Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.TextBox26)
+        Me.Controls.Add(Me.資料筆數_tb)
         Me.Controls.Add(Me.Label42)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.DataGridView2)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.已完善訂單_dgv)
+        Me.Controls.Add(Me.未完善訂單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "訂單分析報表四"
         Me.Text = "Deadline Report"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.未完善訂單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.已完善訂單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
-    Friend WithEvents DataGridView1 As DataGridView
-    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents 未完善訂單_dgv As DataGridView
+    Friend WithEvents 已完善訂單_dgv As DataGridView
     Friend WithEvents Label1 As Label
     Friend WithEvents Label2 As Label
-    Friend WithEvents TextBox26 As TextBox
+    Friend WithEvents 資料筆數_tb As TextBox
     Friend WithEvents Label42 As Label
-    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents 訂單總數_tb As TextBox
     Friend WithEvents Label3 As Label
-    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents 資料筆數1_tb As TextBox
     Friend WithEvents Label4 As Label
-    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents 訂單總數1_tb As TextBox
     Friend WithEvents Label5 As Label
     Friend WithEvents Button1 As Button
 End Class

TENDEN-MES-SYS/彙總報表管理/訂單分析報表四.vb

@@ -7,14 +7,14 @@ Public Class 訂單分析報表四
     Dim ds As New DataSet : Dim ds1 As New DataSet
     Dim dr As SqlDataReader
     Private  Sub Set_DGV1載入前設定()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+        未完善訂單_dgv.DataSource = Nothing : ds.Clear()
+        未完善訂單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        未完善訂單_dgv.ColumnHeadersHeight = 25
+        未完善訂單_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV1載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 未完善訂單_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_分析清單1()
         Set_DGV1載入前設定()
@@ -27,14 +27,14 @@ Public Class 訂單分析報表四
         Set_DGV1載入後設定()
     End Sub
     Private  Sub Set_DGV2載入前設定()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+        已完善訂單_dgv.DataSource = Nothing : ds1.Clear()
+        已完善訂單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        已完善訂單_dgv.ColumnHeadersHeight = 25
+        已完善訂單_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private  Sub Set_DGV2載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 已完善訂單_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
     Private  Sub Set_分析清單2()
         Set_DGV2載入前設定()
@@ -46,78 +46,78 @@ Public Class 訂單分析報表四
         Set_DGV2載入後設定()
     End Sub
     Private  Sub Set_grid()
-        DataGridView1.Columns(0).Width = 90 : DataGridView1.Columns(1).Width = 50 : DataGridView1.Columns(2).Width = 110 : DataGridView1.Columns(3).Width = 170 : DataGridView1.Columns(4).Width = 70
-        DataGridView1.Columns(5).Width = 50 : DataGridView1.Columns(6).Width = 70 : DataGridView1.Columns(7).Width = 50 : DataGridView1.Columns(8).Width = 85 : DataGridView1.Columns(9).Width = 85
-        DataGridView1.Columns(10).Width = 85 : DataGridView1.Columns(11).Width = 85
+        未完善訂單_dgv.Columns(0).Width = 90 : 未完善訂單_dgv.Columns(1).Width = 50 : 未完善訂單_dgv.Columns(2).Width = 110 : 未完善訂單_dgv.Columns(3).Width = 170 : 未完善訂單_dgv.Columns(4).Width = 70
+        未完善訂單_dgv.Columns(5).Width = 50 : 未完善訂單_dgv.Columns(6).Width = 70 : 未完善訂單_dgv.Columns(7).Width = 50 : 未完善訂單_dgv.Columns(8).Width = 85 : 未完善訂單_dgv.Columns(9).Width = 85
+        未完善訂單_dgv.Columns(10).Width = 85 : 未完善訂單_dgv.Columns(11).Width = 85
         If CC(62) = True Then
-            DataGridView1.Columns(12).Width = 85 : DataGridView1.Columns(13).Width = 70
-            DataGridView1.Columns(14).Width = 85 : DataGridView1.Columns(15).Width = 70
+            未完善訂單_dgv.Columns(12).Width = 85 : 未完善訂單_dgv.Columns(13).Width = 70
+            未完善訂單_dgv.Columns(14).Width = 85 : 未完善訂單_dgv.Columns(15).Width = 70
         Else
-            DataGridView1.Columns(12).Visible = False : DataGridView1.Columns(13).Visible = False
-            DataGridView1.Columns(14).Width = 170 : DataGridView1.Columns(15).Width = 140
+            未完善訂單_dgv.Columns(12).Visible = False : 未完善訂單_dgv.Columns(13).Visible = False
+            未完善訂單_dgv.Columns(14).Width = 170 : 未完善訂單_dgv.Columns(15).Width = 140
         End If
-        DataGridView1.Columns(16).Visible = False
+        未完善訂單_dgv.Columns(16).Visible = False
 
-        DataGridView2.Columns(0).Width = 90 : DataGridView2.Columns(1).Width = 50 : DataGridView2.Columns(2).Width = 110 : DataGridView2.Columns(3).Width = 170 : DataGridView2.Columns(4).Width = 70
-        DataGridView2.Columns(5).Width = 50 : DataGridView2.Columns(6).Width = 70 : DataGridView2.Columns(7).Width = 50 : DataGridView2.Columns(8).Width = 85 : DataGridView2.Columns(9).Width = 85
-        DataGridView2.Columns(10).Width = 85 : DataGridView2.Columns(11).Width = 85
+        已完善訂單_dgv.Columns(0).Width = 90 : 已完善訂單_dgv.Columns(1).Width = 50 : 已完善訂單_dgv.Columns(2).Width = 110 : 已完善訂單_dgv.Columns(3).Width = 170 : 已完善訂單_dgv.Columns(4).Width = 70
+        已完善訂單_dgv.Columns(5).Width = 50 : 已完善訂單_dgv.Columns(6).Width = 70 : 已完善訂單_dgv.Columns(7).Width = 50 : 已完善訂單_dgv.Columns(8).Width = 85 : 已完善訂單_dgv.Columns(9).Width = 85
+        已完善訂單_dgv.Columns(10).Width = 85 : 已完善訂單_dgv.Columns(11).Width = 85
         If CC(62) = True Then
-            DataGridView2.Columns(12).Width = 85 : DataGridView2.Columns(13).Width = 70
-            DataGridView2.Columns(14).Width = 85 : DataGridView2.Columns(15).Width = 70
+            已完善訂單_dgv.Columns(12).Width = 85 : 已完善訂單_dgv.Columns(13).Width = 70
+            已完善訂單_dgv.Columns(14).Width = 85 : 已完善訂單_dgv.Columns(15).Width = 70
         Else
-            DataGridView2.Columns(12).Visible = False : DataGridView2.Columns(13).Visible = False
-            DataGridView2.Columns(14).Width = 170 : DataGridView2.Columns(15).Width = 140
+            已完善訂單_dgv.Columns(12).Visible = False : 已完善訂單_dgv.Columns(13).Visible = False
+            已完善訂單_dgv.Columns(14).Width = 170 : 已完善訂單_dgv.Columns(15).Width = 140
         End If
-        DataGridView2.Columns(16).Visible = False
+        已完善訂單_dgv.Columns(16).Visible = False
 
-        DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(6).DefaultCellStyle.Format = "#,##0"
-        DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        未完善訂單_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
+        未完善訂單_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 未完善訂單_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        未完善訂單_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 未完善訂單_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        未完善訂單_dgv.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 未完善訂單_dgv.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        已完善訂單_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
+        已完善訂單_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 已完善訂單_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        已完善訂單_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 已完善訂單_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        已完善訂單_dgv.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 已完善訂單_dgv.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     End Sub
     Private  Sub Set_自動加總()
         Dim 加總(1) As Double
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1.RowCount = 0 Then : 加總(0) += 0 : Else : 加總(0) += DataGridView1.Rows(i).Cells("訂單數量").Value : End If
+        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
-        For i As Integer = 0 To DataGridView2.Rows.Count - 1
-            If DataGridView2.RowCount = 0 Then : 加總(1) += 0 : Else : 加總(1) += DataGridView2.Rows(i).Cells("訂單數量").Value : End If
+        For i As Integer = 0 To 已完善訂單_dgv.Rows.Count - 1
+            If 已完善訂單_dgv.RowCount = 0 Then : 加總(1) += 0 : Else : 加總(1) += 已完善訂單_dgv.Rows(i).Cells("訂單數量").Value : End If
         Next i
-        TextBox1.Text = Format(Val(加總(0)), "#,##0") : TextBox3.Text = Format(Val(加總(1)), "#,##0")
-        TextBox26.Text = DataGridView1.Rows.Count
-        TextBox2.Text = DataGridView2.Rows.Count
+        訂單總數_tb.Text = Format(Val(加總(0)), "#,##0") : 訂單總數1_tb.Text = Format(Val(加總(1)), "#,##0")
+        資料筆數_tb.Text = 未完善訂單_dgv.Rows.Count
+        資料筆數1_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_分析清單1() : Set_分析清單2() : Set_grid() : Set_自動加總()
     End Sub
-    Private  Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
+    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 = DataGridView1.Rows.Count - 1 Then
+        If e.RowIndex = 未完善訂單_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
+            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 + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
+                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 DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
+    Private  Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 已完善訂單_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView2.Rows.Count - 1 Then
+        If e.RowIndex = 已完善訂單_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView2(0, e.RowIndex).Value.ToString <> DataGridView2(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
+            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 + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 已完善訂單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 已完善訂單_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If

TENDEN-MES-SYS/樣品訂單管理/中文樣品單.Designer.vb

@@ -1421,7 +1421,7 @@ Partial Class 中文樣品單
         '
         Me.ComboBox9.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox9.FormattingEnabled = True
-        Me.ComboBox9.Items.AddRange(New Object() {"", "ILR", "FLR", "SS"})
+        Me.ComboBox9.Items.AddRange(New Object() {"", "ILR", "FLR", "SS", "Proto"})
         Me.ComboBox9.Location = New System.Drawing.Point(59, 112)
         Me.ComboBox9.Name = "ComboBox9"
         Me.ComboBox9.Size = New System.Drawing.Size(155, 24)

TENDEN-MES-SYS/樣品訂單管理/中文樣品單.vb

@@ -364,10 +364,12 @@ Public Class 中文樣品單
     Private  Sub ComboBox8下拉表單資料載入()
         ComboBox8.Items.Clear()
         If 開發部門 = False And 確認部門 = True Then
+            ComboBox16.Items.Clear() : ComboBox8.Items.Clear()
             ComboBox8.Items.Add("CFM") : ComboBox16.Items.Add("CFM")
         ElseIf 開發部門 = True And 確認部門 = False Then
-            ComboBox8.Items.Add("ILR") : ComboBox8.Items.Add("FLR") : ComboBox8.Items.Add("SMS") : ComboBox8.Items.Add("SMU")
-            ComboBox16.Items.Add("ILR") : ComboBox16.Items.Add("FLR") : ComboBox16.Items.Add("SMS") : ComboBox16.Items.Add("SMU")
+            ComboBox16.Items.Clear() : ComboBox8.Items.Clear()
+            ComboBox8.Items.Add("ILR") : ComboBox8.Items.Add("FLR") : ComboBox8.Items.Add("SMS") : ComboBox8.Items.Add("SMU") : ComboBox8.Items.Add("Proto")
+            ComboBox16.Items.Add("ILR") : ComboBox16.Items.Add("FLR") : ComboBox16.Items.Add("SMS") : ComboBox16.Items.Add("SMU") : ComboBox16.Items.Add("Proto")
         End If
     End Sub
     Private  Sub Set_格式設定()
@@ -714,7 +716,7 @@ Public Class 中文樣品單
                             Button35.Enabled = False : Button34.Enabled = False : Button38.Enabled = False : Button45.Enabled = False
                         End If
                     ElseIf 開發部門 = True And 確認部門 = False Then
-                        If QA = "ILR" Or QA = "FLR" Or QA = "SMS" Or QA = "SMU" Then
+                        If QA = "ILR" Or QA = "FLR" Or QA = "SMS" Or QA = "SMU" Or QA = "Proto" Then
                             Button35.Enabled = True : Button34.Enabled = True : Button38.Enabled = True : Button45.Enabled = True
                         Else
                             Button35.Enabled = False : Button34.Enabled = False : Button38.Enabled = False : Button45.Enabled = False
@@ -741,11 +743,13 @@ Public Class 中文樣品單
             ElseIf ComboBox8.Text = "FLR" Then : ComboBox9.Text = "FLR"
             ElseIf ComboBox8.Text = "SMS" Then : ComboBox9.Text = "SS"
             ElseIf ComboBox8.Text = "SMU" Or ComboBox8.Text = "SMU" Then : ComboBox9.Text = ""
+            ElseIf ComboBox8.Text = "Proto" Then : ComboBox9.Text = "Proto"
             End If
             If ComboBox8.Text = "ILR" Or ComboBox8.Text = "FLR" Then : CheckBox8.Checked = True : CheckBox7.Checked = False : CheckBox6.Checked = False
             ElseIf ComboBox8.Text = "CFM" Then : CheckBox8.Checked = False : CheckBox7.Checked = True : CheckBox6.Checked = False
             ElseIf ComboBox8.Text = "SMS" Then : CheckBox8.Checked = False : CheckBox7.Checked = False : CheckBox6.Checked = True
             ElseIf ComboBox8.Text = "SMU" Then : CheckBox8.Checked = False : CheckBox7.Checked = False : CheckBox6.Checked = False
+            ElseIf ComboBox8.Text = "Proto" Then : CheckBox8.Checked = False : CheckBox7.Checked = False : CheckBox6.Checked = False
             End If
         End If
     End Sub
@@ -787,11 +791,13 @@ Public Class 中文樣品單
             ElseIf ComboBox8.Text = "FLR" Then : ComboBox9.Text = "FLR"
             ElseIf ComboBox8.Text = "SMS" Then : ComboBox9.Text = "SS"
             ElseIf ComboBox8.Text = "SMU" Or ComboBox8.Text = "SMU" Then : ComboBox9.Text = ""
+            ElseIf ComboBox8.Text = "Proto" Then : ComboBox9.Text = "Proto"
             End If
             If ComboBox8.Text = "ILR" Or ComboBox8.Text = "FLR" Then : CheckBox8.Checked = True : CheckBox7.Checked = False : CheckBox6.Checked = False
             ElseIf ComboBox8.Text = "CFM" Then : CheckBox8.Checked = False : CheckBox7.Checked = True : CheckBox6.Checked = False
             ElseIf ComboBox8.Text = "SMS" Then : CheckBox8.Checked = False : CheckBox7.Checked = False : CheckBox6.Checked = True
             ElseIf ComboBox8.Text = "SMU" Then : CheckBox8.Checked = False : CheckBox7.Checked = False : CheckBox6.Checked = False
+            ElseIf ComboBox8.Text = "Proto" Then : CheckBox8.Checked = False : CheckBox7.Checked = False : CheckBox6.Checked = False
             End If
         End If
     End Sub
@@ -2273,7 +2279,7 @@ Public Class 中文樣品單
                 MsgBox("確認部門不能修改開發部門資料")
             End If
         ElseIf 開發部門 = True And 確認部門 = False Then
-            If QA = "ILR" Or QA = "FLR" Or QA = "SMS" Or QA = "SMU" Then
+            If QA = "ILR" Or QA = "FLR" Or QA = "SMS" Or QA = "SMU" Or QA = "Proto" Then
                 If 暫存模式 = False Then
                     Button24.Enabled = False : Button29.Enabled = False : Button35.Enabled = False : Button54.Enabled = False
                     Button20.Enabled = True : Button21.Enabled = True : Button22.Enabled = True : Button25.Enabled = True : Button37.Enabled = True
@@ -2307,11 +2313,13 @@ Public Class 中文樣品單
         ElseIf ComboBox8.Text = "FLR" Then : ComboBox9.Text = "FLR"
         ElseIf ComboBox8.Text = "SMS" Then : ComboBox9.Text = "SS"
         ElseIf ComboBox8.Text = "SMU" Or ComboBox8.Text = "SMU" Then : ComboBox9.Text = ""
+        ElseIf ComboBox8.Text = "Proto" Then : ComboBox9.Text = "Proto"
         End If
         If ComboBox8.Text = "ILR" Or ComboBox8.Text = "FLR" Then : CheckBox8.Checked = True : CheckBox7.Checked = False : CheckBox6.Checked = False
         ElseIf ComboBox8.Text = "CFM" Then : CheckBox8.Checked = False : CheckBox7.Checked = True : CheckBox6.Checked = False
         ElseIf ComboBox8.Text = "SMS" Then : CheckBox8.Checked = False : CheckBox7.Checked = False : CheckBox6.Checked = True
         ElseIf ComboBox8.Text = "SMU" Then : CheckBox8.Checked = False : CheckBox7.Checked = False : CheckBox6.Checked = False
+        ElseIf ComboBox8.Text = "Proto" Then : CheckBox8.Checked = False : CheckBox7.Checked = False : CheckBox6.Checked = False
         End If
         TextBox2.Focus()
     End Sub
@@ -2404,9 +2412,11 @@ Public Class 中文樣品單
 
         ComboBox16.Items.Clear()
         If 開發部門 = False And 確認部門 = True Then
+            ComboBox16.Items.Clear()
             ComboBox16.Items.Add("CFM")
         ElseIf 開發部門 = True And 確認部門 = False Then
-            ComboBox16.Items.Add("ILR") : ComboBox16.Items.Add("FLR") : ComboBox16.Items.Add("SMS") : ComboBox16.Items.Add("SMU")
+            ComboBox16.Items.Clear()
+            ComboBox16.Items.Add("ILR") : ComboBox16.Items.Add("FLR") : ComboBox16.Items.Add("SMS") : ComboBox16.Items.Add("SMU") : ComboBox16.Items.Add("Proto")
         End If
     End Sub
     Private  Sub Button60_Click(sender As Object, e As EventArgs) Handles Button60.Click

TENDEN-MES-SYS/樣品訂單管理/中文樣品單清單.Designer.vb

@@ -132,7 +132,7 @@ Partial Class 中文樣品單清單
         '
         Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Items.AddRange(New Object() {"ILR", "FLR", "SMS", "SMU", "CFM"})
+        Me.ComboBox1.Items.AddRange(New Object() {"ILR", "FLR", "SMS", "SMU", "CFM", "Proto"})
         Me.ComboBox1.Location = New System.Drawing.Point(449, 6)
         Me.ComboBox1.Name = "ComboBox1"
         Me.ComboBox1.Size = New System.Drawing.Size(68, 24)

TENDEN-MES-SYS/樣品訂單管理/中文樣品單階段.Designer.vb

@@ -27,6 +27,7 @@ Partial Class 中文樣品單階段
         Me.CheckBox3 = New System.Windows.Forms.CheckBox()
         Me.CheckBox4 = New System.Windows.Forms.CheckBox()
         Me.Button11 = New System.Windows.Forms.Button()
+        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
         Me.SuspendLayout()
         '
         'CheckBox1
@@ -75,16 +76,27 @@ Partial Class 中文樣品單階段
         Me.Button11.ForeColor = System.Drawing.Color.Blue
         Me.Button11.Location = New System.Drawing.Point(12, 38)
         Me.Button11.Name = "Button11"
-        Me.Button11.Size = New System.Drawing.Size(217, 28)
+        Me.Button11.Size = New System.Drawing.Size(274, 28)
         Me.Button11.TabIndex = 388
         Me.Button11.Text = "確定新增"
         Me.Button11.UseVisualStyleBackColor = True
         '
+        'CheckBox5
+        '
+        Me.CheckBox5.AutoSize = True
+        Me.CheckBox5.Location = New System.Drawing.Point(235, 12)
+        Me.CheckBox5.Name = "CheckBox5"
+        Me.CheckBox5.Size = New System.Drawing.Size(58, 20)
+        Me.CheckBox5.TabIndex = 389
+        Me.CheckBox5.Text = "Proto"
+        Me.CheckBox5.UseVisualStyleBackColor = True
+        '
         '中文樣品單階段
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(243, 77)
+        Me.ClientSize = New System.Drawing.Size(298, 77)
+        Me.Controls.Add(Me.CheckBox5)
         Me.Controls.Add(Me.Button11)
         Me.Controls.Add(Me.CheckBox4)
         Me.Controls.Add(Me.CheckBox3)
@@ -105,5 +117,6 @@ Partial Class 中文樣品單階段
     Friend WithEvents CheckBox3 As CheckBox
     Friend WithEvents CheckBox4 As CheckBox
     Friend WithEvents Button11 As Button
+    Friend WithEvents CheckBox5 As CheckBox
 End Class
 

TENDEN-MES-SYS/樣品訂單管理/中文樣品單階段.vb

@@ -4,12 +4,12 @@
         Button11.Enabled = False
     End Sub
     Private  Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
-        CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False
+        CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False : CheckBox5.Checked = False
         Me.Close()
     End Sub
     Private  Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click
         If CheckBox1.Checked = True Then
-            CheckBox1.Checked = True : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False : Button11.Enabled = True
+            CheckBox1.Checked = True : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False : CheckBox5.Checked = False : Button11.Enabled = True
             QA = "ILR"
         Else
             CheckBox1.Checked = False : Button11.Enabled = False
@@ -17,7 +17,7 @@
     End Sub
     Private  Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.Click
         If CheckBox2.Checked = True Then
-            CheckBox1.Checked = False : CheckBox2.Checked = True : CheckBox3.Checked = False : CheckBox4.Checked = False : Button11.Enabled = True
+            CheckBox1.Checked = False : CheckBox2.Checked = True : CheckBox3.Checked = False : CheckBox4.Checked = False : CheckBox5.Checked = False : Button11.Enabled = True
             QA = "FLR"
         Else
             CheckBox2.Checked = False : Button11.Enabled = False
@@ -25,18 +25,26 @@
     End Sub
     Private  Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.Click
         If CheckBox3.Checked = True Then
-            CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = True : CheckBox4.Checked = False : Button11.Enabled = True
+            CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = True : CheckBox4.Checked = False : CheckBox5.Checked = False : Button11.Enabled = True
             QA = "SMS"
         Else
             CheckBox3.Checked = False : Button11.Enabled = False
         End If
     End Sub
-    Private  Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.Click
+    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.Click
         If CheckBox4.Checked = True Then
-            CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = True : Button11.Enabled = True
+            CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = True : CheckBox5.Checked = False : Button11.Enabled = True
             QA = "SMU"
         Else
             CheckBox4.Checked = False : Button11.Enabled = False
         End If
     End Sub
+    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.Click
+        If CheckBox4.Checked = True Then
+            CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False : CheckBox5.Checked = True : Button11.Enabled = True
+            QA = "Proto"
+        Else
+            CheckBox4.Checked = False : Button11.Enabled = False
+        End If
+    End Sub
 End Class

TENDEN-MES-SYS/樣品訂單管理/列印_中文樣品單.Designer.vb

@@ -39,6 +39,7 @@ Partial Class 列印_中文樣品單
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -182,7 +183,7 @@ Partial Class 列印_中文樣品單
         'CheckBox2
         '
         Me.CheckBox2.AutoSize = True
-        Me.CheckBox2.Location = New System.Drawing.Point(95, 8)
+        Me.CheckBox2.Location = New System.Drawing.Point(87, 8)
         Me.CheckBox2.Name = "CheckBox2"
         Me.CheckBox2.Size = New System.Drawing.Size(75, 20)
         Me.CheckBox2.TabIndex = 393
@@ -192,18 +193,29 @@ Partial Class 列印_中文樣品單
         'CheckBox1
         '
         Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(14, 8)
+        Me.CheckBox1.Location = New System.Drawing.Point(10, 8)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(75, 20)
         Me.CheckBox1.TabIndex = 392
         Me.CheckBox1.Text = "內裏印刷"
         Me.CheckBox1.UseVisualStyleBackColor = True
         '
+        'CheckBox3
+        '
+        Me.CheckBox3.AutoSize = True
+        Me.CheckBox3.Location = New System.Drawing.Point(166, 8)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(87, 20)
+        Me.CheckBox3.TabIndex = 394
+        Me.CheckBox3.Text = "后套里印刷"
+        Me.CheckBox3.UseVisualStyleBackColor = True
+        '
         '列印_中文樣品單
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(252, 100)
+        Me.Controls.Add(Me.CheckBox3)
         Me.Controls.Add(Me.CheckBox2)
         Me.Controls.Add(Me.CheckBox1)
         Me.Controls.Add(Me.PictureBox5)
@@ -249,4 +261,5 @@ Partial Class 列印_中文樣品單
     Friend WithEvents PictureBox5 As PictureBox
     Friend WithEvents CheckBox2 As CheckBox
     Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents CheckBox3 As CheckBox
 End Class

TENDEN-MES-SYS/樣品訂單管理/列印_中文樣品單.vb

@@ -207,8 +207,8 @@ Public Class 列印_中文樣品單
         xlSheet.Cells(位置8 + 2, 1) = "FINISH : "
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
-        If CheckBox1.Checked = False And CheckBox2.Checked = False Then
-            MsgBox("請選擇內印刷或是大底印刷最少要選擇一個")
+        If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False Then
+            MsgBox("請選擇上面的選項，最少要選擇一個!!")
         Else
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
             If CheckBox1.Checked = True Then
@@ -217,6 +217,9 @@ Public Class 列印_中文樣品單
             ElseIf CheckBox2.Checked = True Then
                 SQL1 = "UPDATE 確認樣品單抬頭 SET 貼標印刷分類 = N'大底貼標：' " &
                        "WHERE (樣品流水號 = '" & DataGridView1.Rows(0).Cells("樣品流水號").Value & "')"
+            ElseIf CheckBox3.Checked = True Then
+                SQL1 = "UPDATE 確認樣品單抬頭 SET 貼標印刷分類 = N'后套里印刷：' " &
+                       "WHERE (樣品流水號 = '" & DataGridView1.Rows(0).Cells("樣品流水號").Value & "')"
             End If
             cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
             Set_訂單清單1()

TENDEN-MES-SYS/資料庫系統管理/FTP資料夾管理.Designer.vb

@@ -23,77 +23,77 @@ Partial Class FTP資料夾管理
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.Button3 = New System.Windows.Forms.Button()
-        Me.Button2 = New System.Windows.Forms.Button()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.刪除_bt = New System.Windows.Forms.Button()
+        Me.修改_bt = New System.Windows.Forms.Button()
+        Me.新增_bt = New System.Windows.Forms.Button()
+        Me.備註_tb = New System.Windows.Forms.TextBox()
+        Me.指定頁面_tb = New System.Windows.Forms.TextBox()
+        Me.資料夾名稱_tb = New System.Windows.Forms.TextBox()
+        Me.使用者清單_dgv = New System.Windows.Forms.DataGridView()
         Me.Label12 = New System.Windows.Forms.Label()
-        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.伺服器FTP文件夾_wb = New System.Windows.Forms.WebBrowser()
+        CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'Button3
+        '刪除_bt
         '
-        Me.Button3.Location = New System.Drawing.Point(678, 8)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(75, 23)
-        Me.Button3.TabIndex = 603
-        Me.Button3.Text = "刪除"
-        Me.Button3.UseVisualStyleBackColor = True
+        Me.刪除_bt.Location = New System.Drawing.Point(678, 8)
+        Me.刪除_bt.Name = "刪除_bt"
+        Me.刪除_bt.Size = New System.Drawing.Size(75, 23)
+        Me.刪除_bt.TabIndex = 603
+        Me.刪除_bt.Text = "刪除"
+        Me.刪除_bt.UseVisualStyleBackColor = True
         '
-        'Button2
+        '修改_bt
         '
-        Me.Button2.Location = New System.Drawing.Point(597, 8)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(75, 23)
-        Me.Button2.TabIndex = 602
-        Me.Button2.Text = "修改"
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.修改_bt.Location = New System.Drawing.Point(597, 8)
+        Me.修改_bt.Name = "修改_bt"
+        Me.修改_bt.Size = New System.Drawing.Size(75, 23)
+        Me.修改_bt.TabIndex = 602
+        Me.修改_bt.Text = "修改"
+        Me.修改_bt.UseVisualStyleBackColor = True
         '
-        'Button1
+        '新增_bt
         '
-        Me.Button1.Location = New System.Drawing.Point(516, 8)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 601
-        Me.Button1.Text = "新增"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.新增_bt.Location = New System.Drawing.Point(516, 8)
+        Me.新增_bt.Name = "新增_bt"
+        Me.新增_bt.Size = New System.Drawing.Size(75, 23)
+        Me.新增_bt.TabIndex = 601
+        Me.新增_bt.Text = "新增"
+        Me.新增_bt.UseVisualStyleBackColor = True
         '
-        'TextBox3
+        '備註_tb
         '
-        Me.TextBox3.Location = New System.Drawing.Point(307, 8)
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(200, 23)
-        Me.TextBox3.TabIndex = 600
+        Me.備註_tb.Location = New System.Drawing.Point(307, 8)
+        Me.備註_tb.Name = "備註_tb"
+        Me.備註_tb.Size = New System.Drawing.Size(200, 23)
+        Me.備註_tb.TabIndex = 600
         '
-        'TextBox2
+        '指定頁面_tb
         '
-        Me.TextBox2.Location = New System.Drawing.Point(101, 8)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(200, 23)
-        Me.TextBox2.TabIndex = 599
+        Me.指定頁面_tb.Location = New System.Drawing.Point(101, 8)
+        Me.指定頁面_tb.Name = "指定頁面_tb"
+        Me.指定頁面_tb.Size = New System.Drawing.Size(200, 23)
+        Me.指定頁面_tb.TabIndex = 599
         '
-        'TextBox1
+        '資料夾名稱_tb
         '
-        Me.TextBox1.Location = New System.Drawing.Point(25, 8)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(70, 23)
-        Me.TextBox1.TabIndex = 598
+        Me.資料夾名稱_tb.Location = New System.Drawing.Point(25, 8)
+        Me.資料夾名稱_tb.Name = "資料夾名稱_tb"
+        Me.資料夾名稱_tb.Size = New System.Drawing.Size(70, 23)
+        Me.資料夾名稱_tb.TabIndex = 598
         '
-        'DataGridView1
+        '使用者清單_dgv
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(12, 37)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(495, 945)
-        Me.DataGridView1.TabIndex = 597
+        Me.使用者清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.使用者清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.使用者清單_dgv.Location = New System.Drawing.Point(12, 37)
+        Me.使用者清單_dgv.Name = "使用者清單_dgv"
+        Me.使用者清單_dgv.RowHeadersWidth = 5
+        Me.使用者清單_dgv.RowTemplate.Height = 24
+        Me.使用者清單_dgv.Size = New System.Drawing.Size(495, 945)
+        Me.使用者清單_dgv.TabIndex = 597
         '
         'Label12
         '
@@ -105,47 +105,47 @@ Partial Class FTP資料夾管理
         Me.Label12.TabIndex = 596
         Me.Label12.Text = "伺服器FTP文件夾"
         '
-        'WebBrowser1
+        '伺服器FTP文件夾_wb
         '
-        Me.WebBrowser1.Location = New System.Drawing.Point(517, 37)
-        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.WebBrowser1.Name = "WebBrowser1"
-        Me.WebBrowser1.Size = New System.Drawing.Size(1386, 945)
-        Me.WebBrowser1.TabIndex = 595
-        Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
+        Me.伺服器FTP文件夾_wb.Location = New System.Drawing.Point(517, 37)
+        Me.伺服器FTP文件夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.伺服器FTP文件夾_wb.Name = "伺服器FTP文件夾_wb"
+        Me.伺服器FTP文件夾_wb.Size = New System.Drawing.Size(1386, 945)
+        Me.伺服器FTP文件夾_wb.TabIndex = 595
+        Me.伺服器FTP文件夾_wb.Url = New System.Uri("", System.UriKind.Relative)
         '
         'FTP資料夾管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 991)
-        Me.Controls.Add(Me.Button3)
-        Me.Controls.Add(Me.Button2)
-        Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.TextBox3)
-        Me.Controls.Add(Me.TextBox2)
-        Me.Controls.Add(Me.TextBox1)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.刪除_bt)
+        Me.Controls.Add(Me.修改_bt)
+        Me.Controls.Add(Me.新增_bt)
+        Me.Controls.Add(Me.備註_tb)
+        Me.Controls.Add(Me.指定頁面_tb)
+        Me.Controls.Add(Me.資料夾名稱_tb)
+        Me.Controls.Add(Me.使用者清單_dgv)
         Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.WebBrowser1)
+        Me.Controls.Add(Me.伺服器FTP文件夾_wb)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "FTP資料夾管理"
         Me.Text = "FTP資料夾管理"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
-    Friend WithEvents Button3 As Button
-    Friend WithEvents Button2 As Button
-    Friend WithEvents Button1 As Button
-    Friend WithEvents TextBox3 As TextBox
-    Friend WithEvents TextBox2 As TextBox
-    Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 刪除_bt As Button
+    Friend WithEvents 修改_bt As Button
+    Friend WithEvents 新增_bt As Button
+    Friend WithEvents 備註_tb As TextBox
+    Friend WithEvents 指定頁面_tb As TextBox
+    Friend WithEvents 資料夾名稱_tb As TextBox
+    Friend WithEvents 使用者清單_dgv As DataGridView
     Friend WithEvents Label12 As Label
-    Friend WithEvents WebBrowser1 As WebBrowser
+    Friend WithEvents 伺服器FTP文件夾_wb As WebBrowser
 End Class
 

TENDEN-MES-SYS/資料庫系統管理/FTP資料夾管理.vb

@@ -6,44 +6,46 @@ Public Class FTP資料夾管理
     Dim cmd As New SqlCommand
     Dim ds As New DataSet
     Dim dr As SqlDataReader
-    Private  Sub Set_使用者清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+    Private Sub Set_使用者清單()
+        使用者清單_dgv.DataSource = Nothing : ds.Clear()
+        使用者清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        使用者清單_dgv.ColumnHeadersHeight = 25
+        使用者清單_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註 FROM FTP資料夾管理"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds)
+        使用者清單_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
     End Sub
-    Private  Sub Set_grid()
-        DataGridView1.Columns(0).Width = 70 : DataGridView1.Columns(1).Width = 200 : DataGridView1.Columns(2).Width = 200
+    Private Sub Set_grid()
+        使用者清單_dgv.Columns(0).Width = 70 : 使用者清單_dgv.Columns(1).Width = 200 : 使用者清單_dgv.Columns(2).Width = 200
     End Sub
-    Private  Sub FTP資料夾管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub FTP資料夾管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         Target1 = Target
-        WebBrowser1.Url = New Uri(Target1)
+        伺服器FTP文件夾_wb.Url = New Uri(Target1)
         Set_使用者清單()
     End Sub
-    Private  Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
-        TextBox1.Text = DataGridView1(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView1(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView1(2, e.RowIndex).Value.ToString
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 使用者清單_dgv.CellClick
+        資料夾名稱_tb.Text = 使用者清單_dgv(0, e.RowIndex).Value.ToString : 指定頁面_tb.Text = 使用者清單_dgv(1, e.RowIndex).Value.ToString
+        備註_tb.Text = 使用者清單_dgv(2, e.RowIndex).Value.ToString
     End Sub
-    Private  Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註) " &
-               "VALUES (N'" & TextBox1.Text & "',N'" & TextBox2.Text & "',N'" & TextBox3.Text & "')"
+               "VALUES (N'" & 資料夾名稱_tb.Text & "',N'" & 指定頁面_tb.Text & "',N'" & 備註_tb.Text & "')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
         conn.Close()
         Set_使用者清單()
     End Sub
-    Private  Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & TextBox2.Text & "', 備註 = N'" & TextBox3.Text & "' WHERE (資料夾名稱 = N'" & TextBox1.Text & "')"
+        SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & 指定頁面_tb.Text & "', 備註 = N'" & 備註_tb.Text & "' WHERE (資料夾名稱 = N'" & 資料夾名稱_tb.Text & "')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
         conn.Close()
         Set_使用者清單()
     End Sub
-    Private  Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & TextBox1.Text & "')"
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & 資料夾名稱_tb.Text & "')"
         cmd.CommandText = SQL1 : cmd.Connection = conn
         If conn.State = ConnectionState.Closed Then : conn.Open() : End If
         Dim aa As MsgBoxResult
@@ -52,5 +54,4 @@ Public Class FTP資料夾管理
         conn.Close()
         Set_使用者清單()
     End Sub
-
 End Class

TENDEN-MES-SYS/資料庫系統管理/人員ID卡系統配置設定.Designer.vb

@@ -22,36 +22,36 @@ Partial Class 人員ID卡系統配置設定
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private  Sub InitializeComponent()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.卡片配對_bt = New System.Windows.Forms.Button()
+        Me.ID卡號_tb = New System.Windows.Forms.TextBox()
         Me.Label4 = New System.Windows.Forms.Label()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.帳號_tb = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.姓名_tb = New System.Windows.Forms.TextBox()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.人事資料表清單_dgv = New System.Windows.Forms.DataGridView()
+        CType(Me.人事資料表清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'Button1
+        '卡片配對_bt
         '
-        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button1.Location = New System.Drawing.Point(501, 126)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(233, 128)
-        Me.Button1.TabIndex = 726
-        Me.Button1.Text = "卡片配對"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.卡片配對_bt.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.卡片配對_bt.Location = New System.Drawing.Point(501, 126)
+        Me.卡片配對_bt.Name = "卡片配對_bt"
+        Me.卡片配對_bt.Size = New System.Drawing.Size(233, 128)
+        Me.卡片配對_bt.TabIndex = 726
+        Me.卡片配對_bt.Text = "卡片配對"
+        Me.卡片配對_bt.UseVisualStyleBackColor = True
         '
-        'TextBox3
+        'ID卡號_tb
         '
-        Me.TextBox3.ImeMode = System.Windows.Forms.ImeMode.Disable
-        Me.TextBox3.Location = New System.Drawing.Point(548, 97)
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(186, 23)
-        Me.TextBox3.TabIndex = 725
+        Me.ID卡號_tb.ImeMode = System.Windows.Forms.ImeMode.Disable
+        Me.ID卡號_tb.Location = New System.Drawing.Point(548, 97)
+        Me.ID卡號_tb.Name = "ID卡號_tb"
+        Me.ID卡號_tb.Size = New System.Drawing.Size(186, 23)
+        Me.ID卡號_tb.TabIndex = 725
         '
         'Label4
         '
@@ -62,12 +62,12 @@ Partial Class 人員ID卡系統配置設定
         Me.Label4.TabIndex = 724
         Me.Label4.Text = "ID卡號"
         '
-        'TextBox2
+        '帳號_tb
         '
-        Me.TextBox2.Location = New System.Drawing.Point(548, 68)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(186, 23)
-        Me.TextBox2.TabIndex = 723
+        Me.帳號_tb.Location = New System.Drawing.Point(548, 68)
+        Me.帳號_tb.Name = "帳號_tb"
+        Me.帳號_tb.Size = New System.Drawing.Size(186, 23)
+        Me.帳號_tb.TabIndex = 723
         '
         'Label1
         '
@@ -78,12 +78,12 @@ Partial Class 人員ID卡系統配置設定
         Me.Label1.TabIndex = 722
         Me.Label1.Text = "帳號"
         '
-        'TextBox1
+        '姓名_tb
         '
-        Me.TextBox1.Location = New System.Drawing.Point(548, 39)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(186, 23)
-        Me.TextBox1.TabIndex = 721
+        Me.姓名_tb.Location = New System.Drawing.Point(548, 39)
+        Me.姓名_tb.Name = "姓名_tb"
+        Me.姓名_tb.Size = New System.Drawing.Size(186, 23)
+        Me.姓名_tb.TabIndex = 721
         '
         'Label3
         '
@@ -104,49 +104,49 @@ Partial Class 人員ID卡系統配置設定
         Me.Label2.TabIndex = 719
         Me.Label2.Text = "人事資料表清單"
         '
-        'DataGridView2
+        '人事資料表清單_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(17, 42)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(475, 934)
-        Me.DataGridView2.TabIndex = 718
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.人事資料表清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.人事資料表清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.人事資料表清單_dgv.Location = New System.Drawing.Point(17, 42)
+        Me.人事資料表清單_dgv.Name = "人事資料表清單_dgv"
+        Me.人事資料表清單_dgv.RowHeadersWidth = 5
+        Me.人事資料表清單_dgv.RowTemplate.Height = 24
+        Me.人事資料表清單_dgv.Size = New System.Drawing.Size(475, 934)
+        Me.人事資料表清單_dgv.TabIndex = 718
         '
         '人員ID卡系統配置設定
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 991)
-        Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.卡片配對_bt)
+        Me.Controls.Add(Me.ID卡號_tb)
         Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.帳號_tb)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.姓名_tb)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.DataGridView2)
+        Me.Controls.Add(Me.人事資料表清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "人員ID卡系統配置設定"
         Me.Text = "人員ID卡系統配置設定"
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.人事資料表清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
-    Friend WithEvents Button1 As Button
-    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents 卡片配對_bt As Button
+    Friend WithEvents ID卡號_tb As TextBox
     Friend WithEvents Label4 As Label
-    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents 帳號_tb As TextBox
     Friend WithEvents Label1 As Label
-    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents 姓名_tb As TextBox
     Friend WithEvents Label3 As Label
     Friend WithEvents Label2 As Label
-    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents 人事資料表清單_dgv As DataGridView
 End Class

TENDEN-MES-SYS/資料庫系統管理/人員ID卡系統配置設定.vb

@@ -8,37 +8,37 @@ Public Class 人員ID卡系統配置設定
     Dim dr As SqlDataReader
     Dim 編號 As String
     Private  Sub Set_人員清單()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+        人事資料表清單_dgv.DataSource = Nothing : ds1.Clear()
+        人事資料表清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        人事資料表清單_dgv.ColumnHeadersHeight = 25
+        人事資料表清單_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 姓名, 帳號, ID卡號 FROM 使用者 ORDER BY 姓名"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close() : Set_grid1()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 人事資料表清單_dgv.DataSource = ds1.Tables(0) : conn.Close() : Set_grid1()
     End Sub
     Private  Sub Set_grid1()
-        DataGridView2.Columns(0).Width = 150 : DataGridView2.Columns(1).Width = 150 : DataGridView2.Columns(2).Width = 150
+        人事資料表清單_dgv.Columns(0).Width = 150 : 人事資料表清單_dgv.Columns(1).Width = 150 : 人事資料表清單_dgv.Columns(2).Width = 150
     End Sub
     Private  Sub 人員ID卡系統配置設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        Set_人員清單() : TextBox1.Enabled = False : TextBox2.Enabled = False
-        TextBox3.Focus()
+        Set_人員清單() : 姓名_tb.Enabled = False : 帳號_tb.Enabled = False
+        ID卡號_tb.Focus()
     End Sub
-    Private  Sub DataGridView2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+    Private  Sub DataGridView2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人事資料表清單_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView2(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView2(1, e.RowIndex).Value.ToString
-            TextBox3.Focus()
+            姓名_tb.Text = 人事資料表清單_dgv(0, e.RowIndex).Value.ToString : 帳號_tb.Text = 人事資料表清單_dgv(1, e.RowIndex).Value.ToString
+            ID卡號_tb.Focus()
         End If
     End Sub
-    Private  Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
+    Private  Sub Button1_Click(sender As Object, e As EventArgs) Handles 卡片配對_bt.Click
+        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or ID卡號_tb.Text = "" Then
             MsgBox("輸入資料有誤")
         Else
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "UPDATE 使用者 SET ID卡號 = N'" & TextBox3.Text & "' WHERE (帳號 = N'" & TextBox2.Text & "') AND (姓名 = N'" & TextBox1.Text & "')"
+            SQL1 = "UPDATE 使用者 SET ID卡號 = N'" & ID卡號_tb.Text & "' WHERE (帳號 = N'" & 帳號_tb.Text & "') AND (姓名 = N'" & 姓名_tb.Text & "')"
             cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close() : conn.Close()
-            MsgBox("卡片與系統帳號配對完成") : TextBox3.Text = ""
+            MsgBox("卡片與系統帳號配對完成") : ID卡號_tb.Text = ""
         End If
-        Set_人員清單() : TextBox3.Focus()
+        Set_人員清單() : ID卡號_tb.Focus()
     End Sub
 End Class

TENDEN-MES-SYS/量產訂單管理/訂單列印選擇.resx

@@ -117,4 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

TENDEN-MES-SYS/量產訂單管理/訂單列印選擇.vb

@@ -9,34 +9,36 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Public Class 訂單列印選擇
-    Dim conn As New SqlConnection
-    Dim da As New SqlDataAdapter
-    Dim cmd As New SqlCommand
-    Dim ds As New DataSet
-    Dim dr As SqlDataReader
-    Dim OPEXC(2) As Boolean
+    ReadOnly conn As New SqlConnection
+    ReadOnly da As New SqlDataAdapter
+    ReadOnly cmd As New SqlCommand
+    ReadOnly ds As New DataSet
+    ReadOnly dr As SqlDataReader
+    ReadOnly OPEXC(2) As Boolean
+    Dim selectdate As Date : Dim DTP As Date
     Dim P As Integer = 0 : Dim R As Integer = 0 : Dim A As Integer = 0 : Dim Q As Integer = 0
+    Dim Index_PRS As Integer = 0 : Dim Index_FTY_XF As Integer = 0 : Dim Index_月_total As Integer = 0
     Dim 位置1 As String : Dim 位置2 As String : Dim 位置3 As String : Dim 位置4 As String
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
-    Dim SQL字串1 As String = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, 工廠回復交期, CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, " &
+    ReadOnly SQL字串1 As String = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, 工廠回復交期, CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, " &
                    "TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 資料流水號, 明細建檔, GOODBOX, LEATHER, LEA_Note, 出貨數量, PO_S_Date AS 接單日, " &
                    "Requested_XF AS 需求日期, Confirm_XF AS 確認日期, Revised_XF AS 修訂日期, 工廠回復交期 AS 工廠交期, Special_Packaging, Remarks, 出貨地, TVW, 楦頭號, 材質, 七號模具, TRIAL1 AS T1, " &
                    "TRIAL2 AS T2, 長期試穿 AS WEAR_TEST, CFMSAMPLE AS CFM, TRIAL3 AS T3, TRIAL4 AS T4, CFMSPEC AS TEST, 面料, 副料, 中底, 鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, " &
                    "針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1, 工廠進度表備註2, 客戶包裝確認, 東莞業務備註, 工廠確認, 利威確認, 結關日 FROM 訂單控制表"
-    Dim SQL字串2 As String = " ORDER BY SUBSTRING(訂單流水號, 4, 6) DESC"
-    Private  Sub Set_DGV1載入前設定()
+    ReadOnly SQL字串2 As String = " ORDER BY SUBSTRING(訂單流水號, 4, 6) DESC"
+    Private Sub Set_DGV1載入前設定()
         DataGridView1.DataSource = Nothing : ds.Clear()
         DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         DataGridView1.ColumnHeadersHeight = 25
         DataGridView1.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV1載入後設定()
+    Private Sub Set_DGV1載入後設定()
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_訂單清單()
+    Private Sub Set_訂單清單()
         Set_DGV1載入前設定()
         If OPEXC(0) = True Then
             SQL1 = SQL字串1 & 列印用SQL & "AND (生產工廠 LIKE 'JH')" & SQL字串2
@@ -47,132 +49,272 @@ Public Class 訂單列印選擇
         End If
         Set_DGV1載入後設定()
     End Sub
-    Private  Sub Set_格式設定()
-        DataGridView1.Visible = False
+    Private Sub Set_格式設定()
+        DataGridView1.Visible = True
         If CC(7) = False Then
             CheckBox9.Visible = False : Label9.Visible = False : CheckBox10.Visible = False : Label10.Visible = False
         End If
     End Sub
-    Private  Sub Set_循環列印()
+    Private Sub Set_循環列印()
         Dim W As Integer = 2
-        If CheckBox1.Checked = True Then : xlSheet.Cells(3, W) = "TENDENZA PO#" : Q = W : W = W + 1 : End If
-        If CheckBox2.Checked = True Then : xlSheet.Cells(3, W) = "SEASON" : Q = W : W = W + 1 : End If
-        If CheckBox3.Checked = True Then : xlSheet.Cells(3, W) = "VIONIC PO#" : Q = W : W = W + 1 : End If
-        If CheckBox4.Checked = True Then : xlSheet.Cells(3, W) = "STYLE" : Q = W : W = W + 1 : End If
-        If CheckBox5.Checked = True Then : xlSheet.Cells(3, W) = "COLOR" : Q = W : W = W + 1 : End If
-        If CheckBox6.Checked = True Then : xlSheet.Cells(3, W) = "DM" : Q = W : W = W + 1 : End If
-        If CheckBox7.Checked = True Then : xlSheet.Cells(3, W) = "PRS" : Q = W : W = W + 1 : End If
-        If CheckBox8.Checked = True Then : xlSheet.Cells(3, W) = "CUST X/F" : Q = W : W = W + 1 : End If
-        If CheckBox9.Checked = True Then : xlSheet.Cells(3, W) = "PRICE" : Q = W : W = W + 1 : End If
-        If CheckBox10.Checked = True Then : xlSheet.Cells(3, W) = "AMOUNT" : Q = W : W = W + 1 : End If
-        If CheckBox11.Checked = True Then : xlSheet.Cells(3, W) = "REMARK" : Q = W : W = W + 1 : End If
-        If CheckBox12.Checked = True Then : xlSheet.Cells(3, W) = "FTY" : Q = W : W = W + 1 : End If
-        If CheckBox13.Checked = True Then : xlSheet.Cells(3, W) = "DIV" : Q = W : W = W + 1 : End If
-        If CheckBox14.Checked = True Then : xlSheet.Cells(3, W) = "GOODBOX" : Q = W : W = W + 1 : End If
-        If CheckBox15.Checked = True Then : xlSheet.Cells(3, W) = "LEATHER" : Q = W : W = W + 1 : End If
-        If CheckBox16.Checked = True Then : xlSheet.Cells(3, W) = "LEA_Note" : Q = W : W = W + 1 : End If
-        If CheckBox17.Checked = True Then : xlSheet.Cells(3, W) = "PO_S_Date" : Q = W : W = W + 1 : End If
-        If CheckBox18.Checked = True Then : xlSheet.Cells(3, W) = "Requested_XF" : Q = W : W = W + 1 : End If
-        If CheckBox19.Checked = True Then : xlSheet.Cells(3, W) = "Confirm_XF" : Q = W : W = W + 1 : End If
-        If CheckBox20.Checked = True Then : xlSheet.Cells(3, W) = "Revised_XF" : Q = W : W = W + 1 : End If
-        If CheckBox21.Checked = True Then : xlSheet.Cells(3, W) = "FTY X/F" : Q = W : W = W + 1 : End If
-        If CheckBox22.Checked = True Then : xlSheet.Cells(3, W) = "Special_Packaging" : Q = W : W = W + 1 : End If
-        If CheckBox23.Checked = True Then : xlSheet.Cells(3, W) = "Remarks" : Q = W : W = W + 1 : End If
-        If CheckBox24.Checked = True Then : xlSheet.Cells(3, W) = "TVW" : Q = W : W = W + 1 : End If
-        If CheckBox25.Checked = True Then : xlSheet.Cells(3, W) = "楦頭號" : Q = W : W = W + 1 : End If
-        If CheckBox26.Checked = True Then : xlSheet.Cells(3, W) = "材質" : Q = W : W = W + 1 : End If
-        If CheckBox27.Checked = True Then : xlSheet.Cells(3, W) = "七號模具" : Q = W : W = W + 1 : End If
-        If CheckBox28.Checked = True Then : xlSheet.Cells(3, W) = "T1" : Q = W : W = W + 1 : End If
-        If CheckBox29.Checked = True Then : xlSheet.Cells(3, W) = "T2" : Q = W : W = W + 1 : End If
-        If CheckBox30.Checked = True Then : xlSheet.Cells(3, W) = "WEAR_TEST" : Q = W : W = W + 1 : End If
-        If CheckBox31.Checked = True Then : xlSheet.Cells(3, W) = "CFM" : Q = W : W = W + 1 : End If
-        If CheckBox32.Checked = True Then : xlSheet.Cells(3, W) = "T3" : Q = W : W = W + 1 : End If
-        If CheckBox33.Checked = True Then : xlSheet.Cells(3, W) = "T4" : Q = W : W = W + 1 : End If
-        If CheckBox34.Checked = True Then : xlSheet.Cells(3, W) = "TEST" : Q = W : W = W + 1 : End If
-        If CheckBox35.Checked = True Then : xlSheet.Cells(3, W) = "面料" : Q = W : W = W + 1 : End If
-        If CheckBox36.Checked = True Then : xlSheet.Cells(3, W) = "副料" : Q = W : W = W + 1 : End If
-        If CheckBox37.Checked = True Then : xlSheet.Cells(3, W) = "中底" : Q = W : W = W + 1 : End If
-        If CheckBox38.Checked = True Then : xlSheet.Cells(3, W) = "鞋墊" : Q = W : W = W + 1 : End If
-        If CheckBox39.Checked = True Then : xlSheet.Cells(3, W) = "大底" : Q = W : W = W + 1 : End If
-        If CheckBox40.Checked = True Then : xlSheet.Cells(3, W) = "跟" : Q = W : W = W + 1 : End If
-        If CheckBox41.Checked = True Then : xlSheet.Cells(3, W) = "包裝" : Q = W : W = W + 1 : End If
-        If CheckBox42.Checked = True Then : xlSheet.Cells(3, W) = "裁斷" : Q = W : W = W + 1 : End If
-        If CheckBox43.Checked = True Then : xlSheet.Cells(3, W) = "針車" : Q = W : W = W + 1 : End If
-        If CheckBox44.Checked = True Then : xlSheet.Cells(3, W) = "成型" : Q = W : W = W + 1 : End If
-        If CheckBox45.Checked = True Then : xlSheet.Cells(3, W) = "驗貨" : Q = W : W = W + 1 : End If
-        If CheckBox46.Checked = True Then : xlSheet.Cells(3, W) = "工廠進度表備註1" : Q = W : W = W + 1 : End If
-        If CheckBox47.Checked = True Then : xlSheet.Cells(3, W) = "工廠進度表備註2" : Q = W : W = W + 1 : End If
-        If CheckBox48.Checked = True Then : xlSheet.Cells(3, W) = "客戶包裝確認" : Q = W : W = W + 1 : End If
-        If CheckBox50.Checked = True Then : xlSheet.Cells(3, W) = "工廠包裝確認" : Q = W : W = W + 1 : End If
-        If CheckBox51.Checked = True Then : xlSheet.Cells(3, W) = "利威驗貨確認" : Q = W : W = W + 1 : End If
-        If CheckBox52.Checked = True Then : xlSheet.Cells(3, W) = "結關日" : Q = W : W = W + 1 : End If
-        If CheckBox49.Checked = True Then : xlSheet.Cells(3, W) = "東莞業務備註" : Q = W : W = W + 1 : End If
+        If CheckBox1.Checked = True Then : xlSheet.Cells(3, W) = "TENDENZA PO#" : Q = W : W += 1 : End If
+        If CheckBox2.Checked = True Then : xlSheet.Cells(3, W) = "SEASON" : Q = W : W += 1 : End If
+        If CheckBox3.Checked = True Then : xlSheet.Cells(3, W) = "VIONIC PO#" : Q = W : W += 1 : End If
+        If CheckBox4.Checked = True Then : xlSheet.Cells(3, W) = "STYLE" : Q = W : W += 1 : End If
+        If CheckBox5.Checked = True Then : xlSheet.Cells(3, W) = "COLOR" : Q = W : W += 1 : End If
+        If CheckBox6.Checked = True Then : xlSheet.Cells(3, W) = "DM" : Q = W : W += 1 : End If
+        If CheckBox7.Checked = True Then : xlSheet.Cells(3, W) = "PRS" : Q = W : W += 1 : Index_PRS = Q : End If
+        If CheckBox8.Checked = True Then : xlSheet.Cells(3, W) = "CUST X/F" : Q = W : W += 1 : End If
+        If CheckBox9.Checked = True Then : xlSheet.Cells(3, W) = "PRICE" : Q = W : W += 1 : End If
+        If CheckBox10.Checked = True Then : xlSheet.Cells(3, W) = "AMOUNT" : Q = W : W += 1 : End If
+        If CheckBox11.Checked = True Then : xlSheet.Cells(3, W) = "REMARK" : Q = W : W += 1 : End If
+        If CheckBox12.Checked = True Then : xlSheet.Cells(3, W) = "FTY" : Q = W : W += 1 : End If
+        If CheckBox13.Checked = True Then : xlSheet.Cells(3, W) = "DIV" : Q = W : W += 1 : End If
+        If CheckBox14.Checked = True Then : xlSheet.Cells(3, W) = "GOODBOX" : Q = W : W += 1 : End If
+        If CheckBox15.Checked = True Then : xlSheet.Cells(3, W) = "LEATHER" : Q = W : W += 1 : End If
+        If CheckBox16.Checked = True Then : xlSheet.Cells(3, W) = "LEA_Note" : Q = W : W += 1 : End If
+        If CheckBox17.Checked = True Then : xlSheet.Cells(3, W) = "PO_S_Date" : Q = W : W += 1 : End If
+        If CheckBox18.Checked = True Then : xlSheet.Cells(3, W) = "Requested_XF" : Q = W : W += 1 : End If
+        If CheckBox19.Checked = True Then : xlSheet.Cells(3, W) = "Confirm_XF" : Q = W : W += 1 : End If
+        If CheckBox20.Checked = True Then : xlSheet.Cells(3, W) = "Revised_XF" : Q = W : W += 1 : End If
+        If CheckBox21.Checked = True Then : xlSheet.Cells(3, W) = "FTY X/F" : Q = W : W += 1 : Index_FTY_XF = Q : End If
+        If CheckBox22.Checked = True Then : xlSheet.Cells(3, W) = "Special_Packaging" : Q = W : W += 1 : End If
+        If CheckBox23.Checked = True Then : xlSheet.Cells(3, W) = "Remarks" : Q = W : W += 1 : End If
+        If CheckBox24.Checked = True Then : xlSheet.Cells(3, W) = "TVW" : Q = W : W += 1 : End If
+        If CheckBox25.Checked = True Then : xlSheet.Cells(3, W) = "楦頭號" : Q = W : W += 1 : End If
+        If CheckBox26.Checked = True Then : xlSheet.Cells(3, W) = "材質" : Q = W : W += 1 : End If
+        If CheckBox27.Checked = True Then : xlSheet.Cells(3, W) = "七號模具" : Q = W : W += 1 : End If
+        If CheckBox28.Checked = True Then : xlSheet.Cells(3, W) = "T1" : Q = W : W += 1 : End If
+        If CheckBox29.Checked = True Then : xlSheet.Cells(3, W) = "T2" : Q = W : W += 1 : End If
+        If CheckBox30.Checked = True Then : xlSheet.Cells(3, W) = "WEAR_TEST" : Q = W : W += 1 : End If
+        If CheckBox31.Checked = True Then : xlSheet.Cells(3, W) = "CFM" : Q = W : W += 1 : End If
+        If CheckBox32.Checked = True Then : xlSheet.Cells(3, W) = "T3" : Q = W : W += 1 : End If
+        If CheckBox33.Checked = True Then : xlSheet.Cells(3, W) = "T4" : Q = W : W += 1 : End If
+        If CheckBox34.Checked = True Then : xlSheet.Cells(3, W) = "TEST" : Q = W : W += 1 : End If
+        If CheckBox35.Checked = True Then : xlSheet.Cells(3, W) = "面料" : Q = W : W += 1 : End If
+        If CheckBox36.Checked = True Then : xlSheet.Cells(3, W) = "副料" : Q = W : W += 1 : End If
+        If CheckBox37.Checked = True Then : xlSheet.Cells(3, W) = "中底" : Q = W : W += 1 : End If
+        If CheckBox38.Checked = True Then : xlSheet.Cells(3, W) = "鞋墊" : Q = W : W += 1 : End If
+        If CheckBox39.Checked = True Then : xlSheet.Cells(3, W) = "大底" : Q = W : W += 1 : End If
+        If CheckBox40.Checked = True Then : xlSheet.Cells(3, W) = "跟" : Q = W : W += 1 : End If
+        If CheckBox41.Checked = True Then : xlSheet.Cells(3, W) = "包裝" : Q = W : W += 1 : End If
+        If CheckBox42.Checked = True Then : xlSheet.Cells(3, W) = "裁斷" : Q = W : W += 1 : End If
+        If CheckBox43.Checked = True Then : xlSheet.Cells(3, W) = "針車" : Q = W : W += 1 : End If
+        If CheckBox44.Checked = True Then : xlSheet.Cells(3, W) = "成型" : Q = W : W += 1 : End If
+        If CheckBox45.Checked = True Then : xlSheet.Cells(3, W) = "驗貨" : Q = W : W += 1 : End If
+        If CheckBox46.Checked = True Then : xlSheet.Cells(3, W) = "工廠進度表備註1" : Q = W : W += 1 : End If
+        If CheckBox47.Checked = True Then : xlSheet.Cells(3, W) = "工廠進度表備註2" : Q = W : W += 1 : End If
+        If CheckBox48.Checked = True Then : xlSheet.Cells(3, W) = "客戶包裝確認" : Q = W : W += 1 : End If
+        If CheckBox50.Checked = True Then : xlSheet.Cells(3, W) = "工廠包裝確認" : Q = W : W += 1 : End If
+        If CheckBox51.Checked = True Then : xlSheet.Cells(3, W) = "利威驗貨確認" : Q = W : W += 1 : End If
+        If CheckBox52.Checked = True Then : xlSheet.Cells(3, W) = "結關日" : Q = W : W += 1 : End If
+        If CheckBox49.Checked = True Then : xlSheet.Cells(3, W) = "東莞業務備註" : Q = W : W += 1 : End If
         Set_訂單清單()
         For i As Integer = 0 To DataGridView1.Rows.Count - 1
             W = 2
-            If CheckBox1.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("訂單流水號").Value : W = W + 1 : End If
-            If CheckBox2.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("年份季度").Value : W = W + 1 : End If
-            If CheckBox3.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("客戶訂單號").Value : W = W + 1 : End If
-            If CheckBox4.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("形體號").Value : W = W + 1 : End If
-            If CheckBox5.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("顏色").Value : W = W + 1 : End If
-            If CheckBox6.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("楦型").Value : W = W + 1 : End If
-            If CheckBox7.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("訂單數量").Value : P = W : W = W + 1 : End If
-            If CheckBox8.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("客戶交期").Value : W = W + 1 : End If
-            If CheckBox9.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("單價").Value : R = W : W = W + 1 : End If
-            If CheckBox10.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("總金額").Value : A = W : W = W + 1 : End If
-            If CheckBox11.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("備註").Value : W = W + 1 : End If
-            If CheckBox12.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("生產工廠").Value : W = W + 1 : End If
-            If CheckBox13.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("訂單種類").Value : W = W + 1 : End If
-            If CheckBox14.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("GOODBOX").Value : W = W + 1 : End If
-            If CheckBox15.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("LEATHER").Value : W = W + 1 : End If
-            If CheckBox16.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("LEA_Note").Value : W = W + 1 : End If
-            If CheckBox17.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("接單日").Value : W = W + 1 : End If
-            If CheckBox18.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("需求日期").Value : W = W + 1 : End If
-            If CheckBox19.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("確認日期").Value : W = W + 1 : End If
-            If CheckBox20.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("修訂日期").Value : W = W + 1 : End If
-            If CheckBox21.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("工廠交期").Value : W = W + 1 : End If
-            If CheckBox22.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("Special_Packaging").Value : W = W + 1 : End If
-            If CheckBox23.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("Remarks").Value : W = W + 1 : End If
-            If CheckBox24.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("TVW").Value : W = W + 1 : End If
-            If CheckBox25.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("楦頭號").Value : W = W + 1 : End If
-            If CheckBox26.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("材質").Value : W = W + 1 : End If
-            If CheckBox27.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("七號模具").Value : W = W + 1 : End If
-            If CheckBox28.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("T1").Value : W = W + 1 : End If
-            If CheckBox29.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("T2").Value : W = W + 1 : End If
-            If CheckBox30.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("WEAR_TEST").Value : W = W + 1 : End If
-            If CheckBox31.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("CFM").Value : W = W + 1 : End If
-            If CheckBox32.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("T3").Value : W = W + 1 : End If
-            If CheckBox33.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("T4").Value : W = W + 1 : End If
-            If CheckBox34.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("TEST").Value : W = W + 1 : End If
-            If CheckBox35.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("面料").Value : W = W + 1 : End If
-            If CheckBox36.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("副料").Value : W = W + 1 : End If
-            If CheckBox37.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("中底").Value : W = W + 1 : End If
-            If CheckBox38.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("鞋墊").Value : W = W + 1 : End If
-            If CheckBox39.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("大底").Value : W = W + 1 : End If
-            If CheckBox40.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("跟").Value : W = W + 1 : End If
-            If CheckBox41.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("包裝").Value : W = W + 1 : End If
-            If CheckBox42.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("裁斷").Value : W = W + 1 : End If
-            If CheckBox43.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("針車").Value : W = W + 1 : End If
-            If CheckBox44.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("成型").Value : W = W + 1 : End If
-            If CheckBox45.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("驗貨").Value : W = W + 1 : End If
-            If CheckBox46.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("工廠進度表備註1").Value : W = W + 1 : End If
-            If CheckBox47.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("工廠進度表備註2").Value : W = W + 1 : End If
-            If CheckBox48.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("客戶包裝確認").Value : W = W + 1 : End If
-            If CheckBox50.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("工廠確認").Value : W = W + 1 : End If
-            If CheckBox51.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("利威確認").Value : W = W + 1 : End If
-            If CheckBox52.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("結關日").Value : W = W + 1 : End If
-            If CheckBox49.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("東莞業務備註").Value : W = W + 1 : End If
+            If CheckBox1.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("訂單流水號").Value : W += 1 : End If
+            If CheckBox2.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("年份季度").Value : W += 1 : End If
+            If CheckBox3.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("客戶訂單號").Value : W += 1 : End If
+            If CheckBox4.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("形體號").Value : W += 1 : End If
+            If CheckBox5.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("顏色").Value : W += 1 : End If
+            If CheckBox6.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("楦型").Value : W += 1 : End If
+            If CheckBox7.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("訂單數量").Value : P = W : W += 1 : End If
+            If CheckBox8.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("客戶交期").Value : W += 1 : End If
+            If CheckBox9.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("單價").Value : R = W : W += 1 : End If
+            If CheckBox10.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("總金額").Value : A = W : W += 1 : End If
+            If CheckBox11.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("備註").Value : W += 1 : End If
+            If CheckBox12.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("生產工廠").Value : W += 1 : End If
+            If CheckBox13.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("訂單種類").Value : W += 1 : End If
+            If CheckBox14.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("GOODBOX").Value : W += 1 : End If
+            If CheckBox15.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("LEATHER").Value : W += 1 : End If
+            If CheckBox16.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("LEA_Note").Value : W += 1 : End If
+            If CheckBox17.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("接單日").Value : W += 1 : End If
+            If CheckBox18.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("需求日期").Value : W += 1 : End If
+            If CheckBox19.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("確認日期").Value : W += 1 : End If
+            If CheckBox20.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("修訂日期").Value : W += 1 : End If
+            If CheckBox21.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("工廠交期").Value : W += 1 : End If
+            If CheckBox22.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("Special_Packaging").Value : W += 1 : End If
+            If CheckBox23.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("Remarks").Value : W += 1 : End If
+            If CheckBox24.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("TVW").Value : W += 1 : End If
+            If CheckBox25.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("楦頭號").Value : W += 1 : End If
+            If CheckBox26.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("材質").Value : W += 1 : End If
+            If CheckBox27.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("七號模具").Value : W += 1 : End If
+            If CheckBox28.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("T1").Value : W += 1 : End If
+            If CheckBox29.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("T2").Value : W += 1 : End If
+            If CheckBox30.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("WEAR_TEST").Value : W += 1 : End If
+            If CheckBox31.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("CFM").Value : W += 1 : End If
+            If CheckBox32.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("T3").Value : W += 1 : End If
+            If CheckBox33.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("T4").Value : W += 1 : End If
+            If CheckBox34.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("TEST").Value : W += 1 : End If
+            If CheckBox35.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("面料").Value : W += 1 : End If
+            If CheckBox36.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("副料").Value : W += 1 : End If
+            If CheckBox37.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("中底").Value : W += 1 : End If
+            If CheckBox38.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("鞋墊").Value : W += 1 : End If
+            If CheckBox39.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("大底").Value : W += 1 : End If
+            If CheckBox40.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("跟").Value : W += 1 : End If
+            If CheckBox41.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("包裝").Value : W += 1 : End If
+            If CheckBox42.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("裁斷").Value : W += 1 : End If
+            If CheckBox43.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("針車").Value : W += 1 : End If
+            If CheckBox44.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("成型").Value : W += 1 : End If
+            If CheckBox45.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("驗貨").Value : W += 1 : End If
+            If CheckBox46.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("工廠進度表備註1").Value : W += 1 : End If
+            If CheckBox47.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("工廠進度表備註2").Value : W += 1 : End If
+            If CheckBox48.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("客戶包裝確認").Value : W += 1 : End If
+            If CheckBox50.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("工廠確認").Value : W += 1 : End If
+            If CheckBox51.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("利威確認").Value : W += 1 : End If
+            If CheckBox52.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("結關日").Value : W += 1 : End If
+            If CheckBox49.Checked = True Then : xlSheet.Cells(i + 4, W) = DataGridView1.Rows(i).Cells("東莞業務備註").Value : W += 1 : End If
             With xlApp.Selection
                 .Font.Bold = True
             End With
         Next i
         BB(xlApp, xlSheet)
     End Sub
-    Private  Sub 列印選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub 列印選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         FormBorderStyle = FormBorderStyle.SizableToolWindow
+        月選_起始_dtp.Value = Today() : 月選_結束_dtp.Value = Today()
+        週選_日期_CB.Text = DateAndTime.Day(Today)
+        週選_月份_CB.Text = DateAndTime.Month(Today)
+        週選_年份_CB.Text = DateAndTime.Year(Today)
+        週選_週數_cb.Text = "7"
+        月選_起始月_cb.Text = DateAndTime.Month(Today)
+        月選_結束月_cb.Text = DateAndTime.Month(Today)
+        月選_年_cb.Text = DateAndTime.Year(Today)
+        月選_結束年_cb.Text = DateAndTime.Year(Today)
         Set_格式設定()
     End Sub
-    Private  Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+    Private Sub 週選_年份_CB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 週選_年份_CB.SelectedIndexChanged
+        selectdate = CDate((週選_月份_CB.Text) & "/" & (週選_日期_CB.Text) & "/" & (週選_年份_CB.Text))
+        週選_DTP.Value = selectdate
+        週選_起日_tb.Text = Strings.Left(Strings.Format(週選_DTP.Value, "yyyy/MM/dd"), 10)
+    End Sub
+    Private Sub 週選_月份_CB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 週選_月份_CB.SelectedIndexChanged
+        If 週選_年份_CB.Text = "" Then
+            Exit Sub
+        Else
+            selectdate = CDate((週選_月份_CB.Text) & "/" & (週選_日期_CB.Text) & "/" & (週選_年份_CB.Text))
+            週選_DTP.Value = selectdate
+            週選_起日_tb.Text = Strings.Left(Strings.Format(週選_DTP.Value, "yyyy/MM/dd"), 10)
+        End If
+    End Sub
+    Private Sub 週選_日期_CB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 週選_日期_CB.SelectedIndexChanged
+        If 週選_年份_CB.Text = "" Then
+            Exit Sub
+        ElseIf 週選_月份_CB.Text = "" Then
+            Exit Sub
+        Else
+            selectdate = CDate((週選_月份_CB.Text) & "/" & (週選_日期_CB.Text) & "/" & (週選_年份_CB.Text))
+            週選_DTP.Value = selectdate
+            週選_起日_tb.Text = Strings.Left(Strings.Format(週選_DTP.Value, "yyyy/MM/dd"), 10)
+        End If
+    End Sub
+    Private Sub 月選_年_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月選_年_cb.SelectedIndexChanged
+        DTP = (月選_年_cb.Text) & "/" & (月選_起始月_cb.Text) & "/01"
+        月選_起始_dtp.Value = DTP
+        月選_起始_tb.Text = Strings.Left(Strings.Format(月選_起始_dtp.Value, "yyyy/MM/dd"), 10)
+        判斷月差()
+    End Sub
+    Private Sub 月選_起始月_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月選_起始月_cb.SelectedIndexChanged
+        If 月選_年_cb.Text = "" Then
+            Exit Sub
+        Else
+            DTP = (月選_年_cb.Text) & "/" & (月選_起始月_cb.Text) & "/01"
+            月選_起始_dtp.Value = DTP
+            月選_起始_tb.Text = Strings.Left(Strings.Format(月選_起始_dtp.Value, "yyyy/MM/dd"), 10)
+        End If
+        判斷月差()
+    End Sub
+    Private Sub 月選_結束年_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月選_結束年_cb.SelectedIndexChanged
+        DTP = (月選_結束年_cb.Text) & "/" & (月選_結束月_cb.Text) & "/01"
+        月選_結束_dtp.Value = DTP
+        月選_結束_dtp.Value = 月選_結束_dtp.Value.AddMonths(1)
+        月選_結束_dtp.Value = 月選_結束_dtp.Value.AddDays(-1)
+        月選_結束_tb.Text = Strings.Left(Strings.Format(月選_結束_dtp.Value, "yyyy/MM/dd"), 10)
+    End Sub
+    Private Sub 月選_結束月_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月選_結束月_cb.SelectedIndexChanged
+        If 月選_年_cb.Text = "" Then
+            Exit Sub
+        Else
+            DTP = (月選_結束年_cb.Text) & "/" & (月選_結束月_cb.Text) & "/01"
+            月選_結束_dtp.Value = DTP
+            月選_結束_dtp.Value = 月選_結束_dtp.Value.AddMonths(1)
+            月選_結束_dtp.Value = 月選_結束_dtp.Value.AddDays(-1)
+            月選_結束_tb.Text = Strings.Left(Strings.Format(月選_結束_dtp.Value, "yyyy/MM/dd"), 10)
+        End If
+    End Sub
+    Private Sub 減一個月_bt_Click(sender As Object, e As EventArgs) Handles 減一個月_bt.Click
+        If 月選_結束月_cb.Text <> "1" Then
+            月選_結束月_cb.Text = Val(月選_結束月_cb.Text) - 1
+        ElseIf 月選_結束月_cb.Text = "1" Then
+            月選_結束月_cb.Text = 12
+            月選_結束年_cb.Text = Val(月選_結束年_cb.Text) - 1
+        End If
+        判斷月差()
+    End Sub
+    Private Sub 加一個月_bt_Click(sender As Object, e As EventArgs) Handles 加一個月_bt.Click
+        If 月選_結束月_cb.Text <> "12" Then
+            月選_結束月_cb.Text = Val(月選_結束月_cb.Text) + 1
+        ElseIf 月選_結束月_cb.Text = "12" Then
+            月選_結束月_cb.Text = 1
+            月選_結束年_cb.Text = Val(月選_結束年_cb.Text) + 1
+        End If
+        判斷月差()
+    End Sub
+    Private Sub 判斷月差()
+        If DateDiff(DateInterval.Month, 月選_起始_dtp.Value, 月選_結束_dtp.Value) > 11 Then
+            月選_起始月_cb.Text = DateAndTime.Month(Today)
+            月選_結束月_cb.Text = DateAndTime.Month(Today)
+            月選_年_cb.Text = DateAndTime.Year(Today)
+            月選_結束年_cb.Text = DateAndTime.Year(Today)
+            MsgBox("選擇範圍超過1年", MsgBoxStyle.Information, "提示")
+        ElseIf DateDiff(DateInterval.Month, 月選_起始_dtp.Value, 月選_結束_dtp.Value) < 0 Then
+            月選_起始月_cb.Text = DateAndTime.Month(Today)
+            月選_結束月_cb.Text = DateAndTime.Month(Today)
+            月選_年_cb.Text = DateAndTime.Year(Today)
+            月選_結束年_cb.Text = DateAndTime.Year(Today)
+            MsgBox("選擇範圍年分順序顛倒", MsgBoxStyle.Information, "提示")
+        End If
+    End Sub
+    Private Sub 彙總表_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 彙總表_cb.CheckedChanged
+        If 彙總表_cb.Checked = True Then
+            If CheckBox21.Checked = False Then
+                MsgBox("列印彙總表需要工廠交期，請勾選 FTY X/F", MsgBoxStyle.Information, "提示")
+                彙總表_cb.Checked = False
+            ElseIf CheckBox7.Checked = False Then
+                MsgBox("列印彙總表需要PRS，請勾選 PRS", MsgBoxStyle.Information, "提示")
+                彙總表_cb.Checked = False
+            Else
+                彙總表_cb.Checked = True : 月份選擇_gb.Enabled = True : 週數選擇_gb.Enabled = True
+            End If
+        Else
+            月份選擇_gb.Enabled = False : 週數選擇_gb.Enabled = False
+            Exit Sub
+        End If
+    End Sub
+    Private Function 行指標轉換(ByVal index01 As Integer) As String
+        Dim index_return As String = ""
+        Select Case index01
+            Case 1 : index_return = "A" : Case 2 : index_return = "B" : Case 3 : index_return = "C" : Case 4 : index_return = "D"
+            Case 5 : index_return = "E" : Case 6 : index_return = "F" : Case 7 : index_return = "G" : Case 8 : index_return = "H"
+            Case 9 : index_return = "I" : Case 10 : index_return = "J" : Case 11 : index_return = "K" : Case 12 : index_return = "L"
+            Case 13 : index_return = "M" : Case 14 : index_return = "N" : Case 15 : index_return = "O" : Case 16 : index_return = "P"
+            Case 17 : index_return = "Q" : Case 18 : index_return = "R" : Case 19 : index_return = "S" : Case 20 : index_return = "T"
+            Case 21 : index_return = "U" : Case 22 : index_return = "V" : Case 23 : index_return = "W" : Case 24 : index_return = "X"
+            Case 25 : index_return = "Y" : Case 26 : index_return = "Z" : Case 27 : index_return = "AA" : Case 28 : index_return = "AB"
+            Case 29 : index_return = "AC" : Case 30 : index_return = "AD" : Case 31 : index_return = "AE" : Case 32 : index_return = "AF"
+            Case 33 : index_return = "AG" : Case 34 : index_return = "AH" : Case 35 : index_return = "AI" : Case 36 : index_return = "AJ"
+            Case 37 : index_return = "AK" : Case 38 : index_return = "AL" : Case 39 : index_return = "AM" : Case 40 : index_return = "AN"
+        End Select
+        Return index_return
+    End Function
+    Private Sub 週選_週數_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 週選_週數_cb.SelectedIndexChanged
+        週選_週數_tb.Text = 週選_週數_cb.Text
+    End Sub
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+        Dim j As Integer = 1 ' j 用來計算有幾個 EXCEL 工作表
+        'SaveFileDialog1.Filter = "All Files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"
+        'SaveFileDialog1.FilterIndex = 2
+        'If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
         xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
         xlApp.Visible = True
         xlApp.DisplayAlerts = True
@@ -180,65 +322,144 @@ Public Class 訂單列印選擇
         xlBook = xlApp.Workbooks.Add
         '----------------------------------------------------------------------------------------------------------------------
         xlSheet = NewMethod(xlBook)
-        If xlApp.Sheets(1).Name = "工作表2" Then
-            xlApp.Sheets("工作表2").Select
-            xlApp.Sheets("工作表2").Name = "JH"
-        Else
-            xlApp.Sheets("sheet2").Select
-            xlApp.Sheets("sheet2").Name = "JH"
-        End If
+        xlApp.Sheets(1).Name = "JH"
+        xlApp.Sheets("JH").Select
         xlBook.Activate()
         xlSheet.Activate()
         OPEXC(0) = True : OPEXC(1) = False : OPEXC(2) = False
         xlSheet.Range("A1").Select()
         xlSheet.Cells(2, 2) = "天盾國際有限公司-訂單控制表(玖宏)"
         Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
+        j += 1
+        '----------------------------------------------------------------------------------------------------------------------           
         xlSheet = NewMethod(xlBook)
-        If xlApp.Sheets(1).Name = "工作表3" Then
-            xlApp.Sheets("工作表3").Select
-            xlApp.Sheets("工作表3").Name = "SK"
-        Else
-            xlApp.Sheets("sheet3").Select
-            xlApp.Sheets("sheet3").Name = "SK"
-        End If
+        xlApp.Sheets(1).Name = "SK"
+        xlApp.Sheets("SK").Select
         xlBook.Activate()
         xlSheet.Activate()
         OPEXC(0) = False : OPEXC(1) = True : OPEXC(2) = False
         xlSheet.Range("A1").Select()
         xlSheet.Cells(2, 2) = "天盾國際有限公司-訂單控制表(森康)"
         Set_循環列印()
+        j += 1
         '----------------------------------------------------------------------------------------------------------------------
         xlSheet = NewMethod(xlBook)
-        If xlApp.Sheets(1).Name = "工作表4" Then
-            xlApp.Sheets("工作表4").Select
-            xlApp.Sheets("工作表4").Name = "NJ"
-        Else
-            xlApp.Sheets("sheet4").Select
-            xlApp.Sheets("sheet4").Name = "NJ"
-        End If
+        xlApp.Sheets(1).Name = "NJ"
+        xlApp.Sheets("NJ").Select
         xlBook.Activate()
         xlSheet.Activate()
         OPEXC(0) = False : OPEXC(1) = False : OPEXC(2) = True
         xlSheet.Range("A1").Select()
         xlSheet.Cells(2, 2) = "天盾國際有限公司-訂單控制表(楠晉)"
         Set_循環列印()
-        '----------------------------------------------------------------------------------------------------------------------
-        If xlApp.Sheets(4).Name = "工作表1" Then
-            xlApp.Sheets("工作表1").Delete
-        Else
-            xlApp.Sheets("sheet1").Delete
+        j += 1
+        '---------------------------------------------------cover--------------------------------------------------------------
+        If 彙總表_cb.Checked = True Then
+            xlSheet = NewMethod(xlBook)
+            xlApp.Sheets(1).Name = "cover"
+            xlApp.Sheets("cover").Select
+            xlBook.Activate()
+            xlSheet.Activate()
+            xlSheet.Range("A1").Select()
+            Dim Str_FTY_XF As String = 行指標轉換(Index_FTY_XF)
+            Dim Str_PRS As String = 行指標轉換(Index_PRS)
+            'xlSheet.Cells(2, 2) = "天盾國際有限公司-訂單彙總表"
+            xlSheet.Cells(3, 2) = "Year " & 月選_年_cb.Text : xlSheet.Cells(3, 9) = "Year " & 週選_年份_CB.Text
+            xlSheet.Cells(3, 4) = "NJ" : xlSheet.Cells(3, 5) = "SK" : xlSheet.Cells(3, 6) = "JH" : xlSheet.Cells(3, 7) = "total"
+            xlSheet.Cells(3, 11) = "NJ" : xlSheet.Cells(3, 12) = "SK" : xlSheet.Cells(3, 13) = "JH" : xlSheet.Cells(3, 14) = "total"
+            xlSheet.Cells(4, 2) = 月選_起始_tb.Text
+            xlSheet.Cells(4, 3) = "unship" : xlSheet.Cells(4, 9) = "unship"
+            ' --------- 月次選表 ---------
+            xlSheet.Cells(4, 4) = "=SUMIF(NJ!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & "<" & """" & "&$B$4,NJ!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+            xlSheet.Cells(4, 5) = "=SUMIF(SK!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & "<" & """" & "&$B$4,SK!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+            xlSheet.Cells(4, 6) = "=SUMIF(JH!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & "<" & """" & "&$B$4,JH!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+            xlSheet.Cells(4, 7) = "=SUM(D4:F4)"
+            Dim count_month, count_year, Br As Integer
+            Dim DTP2, DTP3 As Date
+            DTP2 = 月選_起始_dtp.Value
+            DTP3 = 月選_結束_dtp.Value
+            Br = DateDiff(DateInterval.Month, DTP2, DTP3)
+            count_month = 月選_起始_dtp.Value.Month
+            count_year = 月選_起始_dtp.Value.Year
+            For k = 1 To (Br + 1)
+                xlSheet.Cells(k + 4, 3) = count_month
+                xlSheet.Cells(k + 4, 2) = count_year
+                xlSheet.Cells(k + 4, 4) = "=SUMPRODUCT((YEAR(NJ!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)=$B" & k + 4 & ")*(MONTH(NJ!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)=$C" & k + 4 & ")*NJ!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                xlSheet.Cells(k + 4, 5) = "=SUMPRODUCT((YEAR(SK!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)=$B" & k + 4 & ")*(MONTH(SK!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)=$C" & k + 4 & ")*SK!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                xlSheet.Cells(k + 4, 6) = "=SUMPRODUCT((YEAR(JH!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)=$B" & k + 4 & ")*(MONTH(JH!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)=$C" & k + 4 & ")*JH!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                xlSheet.Cells(k + 4, 7) = "=SUM(D" & k + 4 & ":F" & k + 4 & ")"
+                DTP2 = DTP2.AddMonths(1)
+                count_month = DTP2.Month
+                count_year = DTP2.Year
+                If k = (Br + 1) Then
+                    xlSheet.Cells(k + 5, 2) = Strings.Left(Strings.Format(DTP3, "yyyy/MM/dd"), 10)
+                    xlSheet.Cells(k + 5, 3) = "later"
+                    xlSheet.Cells(k + 5, 4) = "=SUMIF(NJ!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & ">" & """" & "&$B$" & k + 5 & ",NJ!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                    xlSheet.Cells(k + 5, 5) = "=SUMIF(SK!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & ">" & """" & "&$B$" & k + 5 & ",SK!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                    xlSheet.Cells(k + 5, 6) = "=SUMIF(JH!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & ">" & """" & "&$B$" & k + 5 & ",JH!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                    xlSheet.Cells(k + 5, 7) = "=SUM(D" & k + 5 & ":F" & k + 5 & ")"
+                    xlSheet.Cells(k + 6, 2) = "total"
+                    xlSheet.Cells(k + 6, 4) = "=SUM(D4:D" & k + 5 & ")"
+                    xlSheet.Cells(k + 6, 5) = "=SUM(E4:E" & k + 5 & ")"
+                    xlSheet.Cells(k + 6, 6) = "=SUM(F4:F" & k + 5 & ")"
+                    xlSheet.Cells(k + 6, 7) = "=SUM(D" & k + 6 & ":F" & k + 6 & ")"
+                End If
+                Index_月_total = k + 6
+            Next
+
+            ' --------- 週次選表 ---------
+            xlSheet.Cells(4, 11) = "=SUMIF(NJ!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & "<" & """" & "&$I$5,NJ!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+            xlSheet.Cells(4, 12) = "=SUMIF(SK!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & "<" & """" & "&$I$5,SK!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+            xlSheet.Cells(4, 13) = "=SUMIF(JH!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & "<" & """" & "&$I$5,JH!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+            xlSheet.Cells(4, 14) = "=SUM(K4:M4)"
+            xlSheet.Cells(5, 9) = 週選_起日_tb.Text
+            For kk = 1 To CInt(週選_週數_tb.Text)
+                xlSheet.Cells(kk + 4, 10) = "=I" & (kk + 4) & "+6"
+                xlSheet.Cells(kk + 4, 11) = "=SUMPRODUCT(((NJ!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)>=$I" & kk + 4 & ")*((NJ!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)<=$J" & kk + 4 & ")*NJ!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                xlSheet.Cells(kk + 4, 12) = "=SUMPRODUCT(((SK!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)>=$I" & kk + 4 & ")*((SK!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)<=$J" & kk + 4 & ")*SK!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                xlSheet.Cells(kk + 4, 13) = "=SUMPRODUCT(((JH!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)>=$I" & kk + 4 & ")*((JH!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999)<=$J" & kk + 4 & ")*JH!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                xlSheet.Cells(kk + 4, 14) = "=SUM(K" & kk + 4 & ":M" & kk + 4 & ")"
+                If kk > 1 Then
+                    xlSheet.Cells(kk + 4, 9) = "=J" & (kk + 3) & "+1"
+                End If
+                If kk = CInt(週選_週數_tb.Text) Then
+                    xlSheet.Cells(kk + 5, 9) = "later"
+                    xlSheet.Cells(kk + 5, 11) = "=SUMIF(NJ!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & ">" & """" & "&$J$" & kk + 4 & ",NJ!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                    xlSheet.Cells(kk + 5, 12) = "=SUMIF(SK!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & ">" & """" & "&$J$" & kk + 4 & ",SK!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                    xlSheet.Cells(kk + 5, 13) = "=SUMIF(JH!$" & Str_FTY_XF & "$4:$" & Str_FTY_XF & "$9999," & """" & ">" & """" & "&$J$" & kk + 4 & ",JH!$" & Str_PRS & "$4:$" & Str_PRS & "$9999)"
+                    xlSheet.Cells(kk + 5, 14) = "=SUM(K" & kk + 5 & ":M" & kk + 5 & ")"
+                    xlSheet.Cells(kk + 6, 9) = "total"
+                    xlSheet.Cells(kk + 6, 11) = "=SUM(K4:K" & kk + 5 & ")"
+                    xlSheet.Cells(kk + 6, 12) = "=SUM(L4:L" & kk + 5 & ")"
+                    xlSheet.Cells(kk + 6, 13) = "=SUM(M4:M" & kk + 5 & ")"
+                    xlSheet.Cells(kk + 6, 14) = "=SUM(K" & kk + 6 & ":M" & kk + 6 & ")"
+                End If
+            Next
+            Excel巨集_C(xlApp, xlSheet)
+            j += 1
         End If
+        '----------------------------------------------------------------------------------------------------------------------
+        xlApp.Sheets(j).Delete
         xlSheet.PageSetup.PrintArea = ""
         xlApp.Cells.Select()
         xlApp.Application.WindowState = xlMinimized
         MsgBox("列印完成")
         Me.Close()
+
+        'xlSheet.PageSetup.PrintArea = ""
+        'xlApp.Cells.Select()
+        'xlApp.Application.WindowState = xlMinimized
+        'xlSheet.SaveAs(SaveFileDialog1.FileName)
+        'xlBook.Close()
+        'xlApp.Quit()
+        'MsgBox("列印完成")
+        'End If
+        'Me.Close()
     End Sub
-    Private  Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
+    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
         Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
     End Function
-    Private  Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+    Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
         Dim 位置41 As String
         If CheckBox7.Checked = True Then
             If P = 0 Then
@@ -377,7 +598,7 @@ Public Class 訂單列印選擇
         End If
         Dim M As Integer = 4
         For M = 4 To DataGridView1.Rows.Count + 2
-            M = M + 1
+            M += 1
         Next M
         If 位置4 = "A" Or 位置4 = "B" Or 位置4 = "C" Or 位置4 = "D" Or 位置4 = "E" Or 位置4 = "F" Or 位置4 = "G" Or 位置4 = "H" Or 位置4 = "I" Or 位置4 = "J" Then
             位置4 = "J"
@@ -412,4 +633,159 @@ Public Class 訂單列印選擇
         myExcel.ActiveWindow.ScrollColumn = 4 : myExcel.ActiveWindow.ScrollColumn = 3 : myExcel.ActiveWindow.ScrollColumn = 2 : myExcel.ActiveWindow.ScrollColumn = 1
         myExcel.ActiveWindow.DisplayGridlines = False
     End Sub
+    Private Sub Excel巨集_C(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        '全選改變字體
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        ' 改變行寬 Columns("A") & Columns("H")
+        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 1
+        xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 1
+
+        ' 改變行寬
+        xlSheet.Columns("B:C").Select : myExcel.Selection.ColumnWidth = 10
+        xlSheet.Columns("I:J").Select : myExcel.Selection.ColumnWidth = 10
+        xlSheet.Columns("D:G").Select : myExcel.Selection.ColumnWidth = 15
+        xlSheet.Columns("K:N").Select : myExcel.Selection.ColumnWidth = 15
+
+        '全選改變列高
+        xlSheet.Cells.Select()  '全選
+        myExcel.Selection.RowHeight = 25  '改變列高
+        xlSheet.Range("A1").Select()
+
+        ' 改變列高Rows("1")
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 5
+        ' 改變列高Rows("2")
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 35
+
+        ' ("B2到N2")跨欄至中
+        xlSheet.Range("B2:N2").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With : myExcel.Selection.Merge
+
+        ' ("B3到C3")跨欄至中
+        xlSheet.Range("B3:C3").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With : myExcel.Selection.Merge
+
+        ' ("I3到J3")跨欄至中
+        xlSheet.Range("I3:J3").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With : myExcel.Selection.Merge
+
+        ' ("I4到J4")跨欄至中
+        xlSheet.Range("I4:J4").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With : myExcel.Selection.Merge
+        myExcel.Selection.Merge
+
+        '月total 跨欄至中 
+        xlSheet.Range("B" & Index_月_total.ToString & ":C" & Index_月_total.ToString).Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With : myExcel.Selection.Merge
+
+        '跨欄至中 週 later
+        xlSheet.Range("I" & (CInt(週選_週數_tb.Text) + 5).ToString & ":J" & (CInt(週選_週數_tb.Text) + 5).ToString).Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With : myExcel.Selection.Merge
+
+        '跨欄至中 週 total
+        xlSheet.Range("I" & (CInt(週選_週數_tb.Text) + 6).ToString & ":J" & (CInt(週選_週數_tb.Text) + 6).ToString).Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With : myExcel.Selection.Merge
+
+        ' 儲存格設置格式 週日期格式
+        xlSheet.Range("I5:J" & (CInt(週選_週數_tb.Text) + 4).ToString).Select()
+        myExcel.Selection.NumberFormatLocal = "mm/dd/yy;@" '設置格式
+        xlSheet.Range("B4").Select()
+        myExcel.Selection.NumberFormatLocal = "mm/dd/yy;@"
+        xlSheet.Range("B" & (Index_月_total - 1).ToString).Select()
+        myExcel.Selection.NumberFormatLocal = "mm/dd/yy;@"
+
+        ' 改變字體大小
+        xlSheet.Range("B2:N2").Select()
+        myExcel.Selection.Font.Size = 14
+
+        ' 儲存格設置格式 (數值 千分位符號)
+        xlSheet.Range("D4:G1000").Select() : myExcel.Selection.NumberFormatLocal = "#,##0_ "
+        xlSheet.Range("K4:N1000").Select() : myExcel.Selection.NumberFormatLocal = "#,##0_ "
+
+        ' 儲存格顏色設定
+        xlSheet.Range("B3:G3").Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 16247773 : .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
+
+        ' 儲存格顏色設定
+        xlSheet.Range("I3:N3").Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 16247773 : .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
+
+        ' 儲存格顏色設定
+        'xlSheet.Range("B2:N2").Select()
+        'With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.399975585192419 : .PatternTintAndShade = 0 : End With
+
+        ' 儲存格顏色設定 月total
+        xlSheet.Range("G4:G" & Index_月_total.ToString).Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent2 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
+
+        ' 儲存格顏色設定 月total
+        xlSheet.Range("B" & Index_月_total.ToString & ":G" & Index_月_total.ToString).Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent2 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
+
+        ' 儲存格顏色設定 週total
+        xlSheet.Range("N4:N" & (CInt(週選_週數_tb.Text) + 6).ToString).Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent2 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
+
+        ' 儲存格顏色設定 週total
+        xlSheet.Range("I" & (CInt(週選_週數_tb.Text) + 6).ToString & ":N" & (CInt(週選_週數_tb.Text) + 6).ToString).Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent2 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
+
+
+        ' 儲存格 格線設定 月
+        xlSheet.Range("B3:G" & Index_月_total.ToString).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+
+        ' 儲存格 格線設定 週
+        xlSheet.Range("I3:N" & (CInt(週選_週數_tb.Text) + 6).ToString).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+
+        ' 儲存格 格線設定 標頭
+        'xlSheet.Range("B2:N2").Select()
+        'myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
+        'myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        'With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        'With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        'With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        'With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        'With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        'With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+
+        '全選後資料至中
+        xlSheet.Cells.Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+
+        ' 隱藏格線
+        myExcel.ActiveWindow.DisplayGridlines = False
+    End Sub
 End Class

TENDEN-MES-SYS/量產訂單管理/鞋盒資料控制表.vb

@@ -14,38 +14,38 @@ Public Class 鞋盒資料控制表
     Dim aa As MsgBoxResult
     Private  Sub Set_DGV1載入前設定()
         conn.Close()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+        清單1_dgv.DataSource = Nothing : ds.Clear()
+        清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        清單1_dgv.ColumnHeadersHeight = 25
+        清單1_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
-    Private  Sub Set_DGV1載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+    Private Sub Set_DGV1載入後設定()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 清單1_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
-    Private  Sub Set_清單1()
+    Private Sub Set_清單1()
         Set_DGV1載入前設定()
         SQL1 = "SELECT SEASON, CONSTRUCTION, FTY, STYLE, TVW, S_B_S, M_B_S, L_B_S, E_B_S, S_GW, M_GW, L_GW, E_GW, Dimensions_S, Dimensions_M, Dimensions_L, " &
                "Dimensions_E, PRS_CRT, QUK, 鞋盒流水號 FROM 鞋盒資料控制表 ORDER BY STYLE"
         Set_DGV1載入後設定()
     End Sub
-    Private  Sub Set_grid1()
-        DataGridView1.Columns(0).Width = 70 : DataGridView1.Columns(1).Width = 120 : DataGridView1.Columns(2).Width = 40 : DataGridView1.Columns(3).Width = 155
-        DataGridView1.Columns(4).Width = 80 : DataGridView1.Columns(5).Width = 150 : DataGridView1.Columns(6).Width = 150 : DataGridView1.Columns(7).Width = 150
-        DataGridView1.Columns(8).Width = 150 : DataGridView1.Columns(9).Width = 50 : DataGridView1.Columns(10).Width = 50 : DataGridView1.Columns(11).Width = 50
-        DataGridView1.Columns(12).Width = 50 : DataGridView1.Columns(13).Width = 150 : DataGridView1.Columns(14).Width = 150 : DataGridView1.Columns(15).Width = 150
-        DataGridView1.Columns(16).Width = 150 : DataGridView1.Columns(17).Width = 65 : DataGridView1.Columns(18).Width = 135 : DataGridView1.Columns(19).Width = 50
-        DataGridView1.Columns(9).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(11).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(12).DefaultCellStyle.Format = "#,##0.00"
+    Private Sub Set_grid1()
+        清單1_dgv.Columns(0).Width = 70 : 清單1_dgv.Columns(1).Width = 120 : 清單1_dgv.Columns(2).Width = 40 : 清單1_dgv.Columns(3).Width = 155
+        清單1_dgv.Columns(4).Width = 80 : 清單1_dgv.Columns(5).Width = 150 : 清單1_dgv.Columns(6).Width = 150 : 清單1_dgv.Columns(7).Width = 150
+        清單1_dgv.Columns(8).Width = 150 : 清單1_dgv.Columns(9).Width = 50 : 清單1_dgv.Columns(10).Width = 50 : 清單1_dgv.Columns(11).Width = 50
+        清單1_dgv.Columns(12).Width = 50 : 清單1_dgv.Columns(13).Width = 150 : 清單1_dgv.Columns(14).Width = 150 : 清單1_dgv.Columns(15).Width = 150
+        清單1_dgv.Columns(16).Width = 150 : 清單1_dgv.Columns(17).Width = 65 : 清單1_dgv.Columns(18).Width = 135 : 清單1_dgv.Columns(19).Width = 50
+        清單1_dgv.Columns(9).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(10).DefaultCellStyle.Format = "#,##0.00"
+        清單1_dgv.Columns(11).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(12).DefaultCellStyle.Format = "#,##0.00"
         If BB(0) = False And BB(1) = True Then
-            DataGridView1.Columns(9).Visible = True : DataGridView1.Columns(10).Visible = True : DataGridView1.Columns(11).Visible = True : DataGridView1.Columns(12).Visible = True
-            DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False : DataGridView1.Columns(19).Visible = False
+            清單1_dgv.Columns(9).Visible = True : 清單1_dgv.Columns(10).Visible = True : 清單1_dgv.Columns(11).Visible = True : 清單1_dgv.Columns(12).Visible = True
+            清單1_dgv.Columns(17).Visible = False : 清單1_dgv.Columns(18).Visible = False : 清單1_dgv.Columns(19).Visible = False
         ElseIf BB(0) = True And BB(1) = False Then
-            DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).Visible = False : DataGridView1.Columns(11).Visible = False : DataGridView1.Columns(12).Visible = False
-            DataGridView1.Columns(17).Visible = True : DataGridView1.Columns(18).Visible = True : DataGridView1.Columns(19).Visible = False
+            清單1_dgv.Columns(9).Visible = False : 清單1_dgv.Columns(10).Visible = False : 清單1_dgv.Columns(11).Visible = False : 清單1_dgv.Columns(12).Visible = False
+            清單1_dgv.Columns(17).Visible = True : 清單1_dgv.Columns(18).Visible = True : 清單1_dgv.Columns(19).Visible = False
         End If
     End Sub
-    Private  Sub Set_DGV2載入前設定()
+    Private Sub Set_DGV2載入前設定()
         conn.Close()
         鞋盒資料未建檔清單_dgv.DataSource = Nothing : ds1.Clear()
         鞋盒資料未建檔清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -69,22 +69,22 @@ Public Class 鞋盒資料控制表
     End Sub
     Private Sub Set_DGV3載入前設定()
         conn.Close()
-        DataGridView3.DataSource = Nothing : ds2.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = 25
-        DataGridView3.AllowUserToAddRows = False
+        清單2_dgv.DataSource = Nothing : ds2.Clear()
+        清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        清單2_dgv.ColumnHeadersHeight = 25
+        清單2_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
     Private Sub Set_DGV3載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 清單2_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_grid3()
-        DataGridView3.Columns(0).Width = 95 : DataGridView3.Columns(1).Width = 70 : DataGridView3.Columns(2).Width = 130 : DataGridView3.Columns(3).Width = 65
-        DataGridView3.Columns(4).Width = 100 : DataGridView3.Columns(5).Width = 100 : DataGridView3.Columns(6).Width = 100 : DataGridView3.Columns(7).Width = 220
-        DataGridView3.Columns(8).Width = 120 : DataGridView3.Columns(9).Width = 70 : DataGridView3.Columns(10).Width = 90 : DataGridView3.Columns(11).Width = 168
-        DataGridView3.Columns(12).Width = 100 : DataGridView3.Columns(13).Width = 100 : DataGridView3.Columns(14).Width = 168 : DataGridView3.Columns(15).Width = 168
-        DataGridView3.Columns(10).DefaultCellStyle.Format = "#,##0"
-        DataGridView3.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        清單2_dgv.Columns(0).Width = 95 : 清單2_dgv.Columns(1).Width = 70 : 清單2_dgv.Columns(2).Width = 130 : 清單2_dgv.Columns(3).Width = 65
+        清單2_dgv.Columns(4).Width = 100 : 清單2_dgv.Columns(5).Width = 100 : 清單2_dgv.Columns(6).Width = 100 : 清單2_dgv.Columns(7).Width = 220
+        清單2_dgv.Columns(8).Width = 120 : 清單2_dgv.Columns(9).Width = 70 : 清單2_dgv.Columns(10).Width = 90 : 清單2_dgv.Columns(11).Width = 168
+        清單2_dgv.Columns(12).Width = 100 : 清單2_dgv.Columns(13).Width = 100 : 清單2_dgv.Columns(14).Width = 168 : 清單2_dgv.Columns(15).Width = 168
+        清單2_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
+        清單2_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 清單2_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
         conn.Close()
@@ -152,44 +152,44 @@ Public Class 鞋盒資料控制表
     Private Sub 鞋盒資料控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         第一頁_bt.Enabled = False : 確認新增_bt.Enabled = False : 確認複製_bt.Enabled = False
-        TextBox15.Visible = False : TextBox16.Visible = False : TextBox17.Visible = False
-        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False
-        TextBox9.Enabled = False : TextBox10.Enabled = False : TextBox11.Enabled = False : TextBox12.Enabled = False
-        ComboBox6.Enabled = False : ComboBox7.Enabled = False
+        流水號_tb.Visible = False : 流水號2_tb.Visible = False : 流水號1_tb.Visible = False
+        SMALLBOX_tb.Enabled = False : MEDIUMBOX_tb.Enabled = False : LARGERBOX_tb.Enabled = False : EXTRABOX_tb.Enabled = False
+        DimensionsS_tb.Enabled = False : DimensionsM_tb.Enabled = False : DimensionsL_tb.Enabled = False : DimensionsE_tb.Enabled = False
+        寫入後初始化_cb.Enabled = False : 寫入後初始化1_cb.Enabled = False
         BB(0) = False : BB(1) = True
         Set_清單1() : Set_grid1() : Set_清單2() : Set_grid2()
         ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入()
     End Sub
-    Private Sub DataGridView3_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView3.RowPostPaint
+    Private Sub DataGridView3_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單2_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView3.Rows.Count - 1 Then
+        If e.RowIndex = 清單2_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView3(2, e.RowIndex).Value.ToString <> DataGridView3(2, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView3.RowHeadersVisible, DataGridView3.RowHeadersWidth, 0)
+            If 清單2_dgv(2, e.RowIndex).Value.ToString <> 清單2_dgv(2, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(清單2_dgv.RowHeadersVisible, 清單2_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView3.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView3.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 清單2_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單2_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If
         End If
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入()
-            季節_cb.Text = DataGridView1(0, e.RowIndex).Value.ToString : 構造名稱_cb.Text = DataGridView1(1, e.RowIndex).Value.ToString
-            FTY_cb.Text = DataGridView1(2, e.RowIndex).Value.ToString : 風格_cb.Text = DataGridView1(3, e.RowIndex).Value.ToString
-            TVW_cb.Text = DataGridView1(4, e.RowIndex).Value.ToString : TextBox1.Text = DataGridView1(5, e.RowIndex).Value.ToString
-            TextBox2.Text = DataGridView1(6, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView1(7, e.RowIndex).Value.ToString
-            TextBox4.Text = DataGridView1(8, e.RowIndex).Value.ToString : TextBox5.Text = DataGridView1(9, e.RowIndex).Value.ToString
-            TextBox6.Text = DataGridView1(10, e.RowIndex).Value.ToString : TextBox7.Text = DataGridView1(11, e.RowIndex).Value.ToString
-            TextBox8.Text = DataGridView1(12, e.RowIndex).Value.ToString : TextBox9.Text = DataGridView1(13, e.RowIndex).Value.ToString
-            TextBox10.Text = DataGridView1(14, e.RowIndex).Value.ToString : TextBox11.Text = DataGridView1(15, e.RowIndex).Value.ToString
-            TextBox12.Text = DataGridView1(16, e.RowIndex).Value.ToString : PRSCRT_tb.Text = DataGridView1(17, e.RowIndex).Value.ToString
-            QUK_tb.Text = DataGridView1(18, e.RowIndex).Value.ToString : TextBox15.Text = DataGridView1(19, e.RowIndex).Value.ToString
+            季節_cb.Text = 清單1_dgv(0, e.RowIndex).Value.ToString : 構造名稱_cb.Text = 清單1_dgv(1, e.RowIndex).Value.ToString
+            FTY_cb.Text = 清單1_dgv(2, e.RowIndex).Value.ToString : 風格_cb.Text = 清單1_dgv(3, e.RowIndex).Value.ToString
+            TVW_cb.Text = 清單1_dgv(4, e.RowIndex).Value.ToString : SMALLBOX_tb.Text = 清單1_dgv(5, e.RowIndex).Value.ToString
+            MEDIUMBOX_tb.Text = 清單1_dgv(6, e.RowIndex).Value.ToString : LARGERBOX_tb.Text = 清單1_dgv(7, e.RowIndex).Value.ToString
+            EXTRABOX_tb.Text = 清單1_dgv(8, e.RowIndex).Value.ToString : SMALL_tb.Text = 清單1_dgv(9, e.RowIndex).Value.ToString
+            MEDIUM_tb.Text = 清單1_dgv(10, e.RowIndex).Value.ToString : LARGE_tb.Text = 清單1_dgv(11, e.RowIndex).Value.ToString
+            EXTRA_tb.Text = 清單1_dgv(12, e.RowIndex).Value.ToString : DimensionsS_tb.Text = 清單1_dgv(13, e.RowIndex).Value.ToString
+            DimensionsM_tb.Text = 清單1_dgv(14, e.RowIndex).Value.ToString : DimensionsL_tb.Text = 清單1_dgv(15, e.RowIndex).Value.ToString
+            DimensionsE_tb.Text = 清單1_dgv(16, e.RowIndex).Value.ToString : PRSCRT_tb.Text = 清單1_dgv(17, e.RowIndex).Value.ToString
+            QUK_tb.Text = 清單1_dgv(18, e.RowIndex).Value.ToString : 流水號_tb.Text = 清單1_dgv(19, e.RowIndex).Value.ToString
             Set_DGV3載入前設定()
             SQL1 = "SELECT 訂單流水號 AS VT#, 年份季度 AS 季度, 客戶訂單號, 生產工廠 AS 工廠, 訂單種類, 客戶交期 AS 訂單日期, TVW AS 型體號, 形體號 AS ProductName, 顏色, 楦型, 訂單數量, 備註, " &
-                   "工廠回復交期, 包裝確認時間, 客戶包裝確認, 東莞業務備註 FROM 訂單控制表 WHERE (形體號 LIKE '" & DataGridView1.Rows(e.RowIndex).Cells("STYLE").Value & "') ORDER BY 訂單日期, VT#"
+                   "工廠回復交期, 包裝確認時間, 客戶包裝確認, 東莞業務備註 FROM 訂單控制表 WHERE (形體號 LIKE '" & 清單1_dgv.Rows(e.RowIndex).Cells("STYLE").Value & "') ORDER BY 訂單日期, VT#"
             Set_DGV3載入後設定() : Set_grid3()
         End If
     End Sub
@@ -222,116 +222,116 @@ Public Class 鞋盒資料控制表
         If (TVW_cb.Items.Count = 0) Then : Else : TVW_cb.SelectedIndex = 0 : End If : conn.Close()
         PP = ""
     End Sub
-    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
-        RadioButton1.Checked = True : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False
-        RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
-        ComboBox6.Enabled = True : ComboBox7.Enabled = False : ComboBox7.Text = " "
-    End Sub
-    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.Click
-        RadioButton1.Checked = False : RadioButton2.Checked = True : RadioButton3.Checked = False : RadioButton4.Checked = False
-        RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
-        ComboBox6.Enabled = True : ComboBox7.Enabled = False : ComboBox7.Text = " "
-    End Sub
-    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.Click
-        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = True : RadioButton4.Checked = False
-        RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
-        ComboBox6.Enabled = True : ComboBox7.Enabled = False : ComboBox7.Text = " "
-    End Sub
-    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.Click
-        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = True
-        RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
-        ComboBox6.Enabled = True : ComboBox7.Enabled = False : ComboBox7.Text = " "
-    End Sub
-    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.Click
-        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False
-        RadioButton5.Checked = True : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
-        ComboBox6.Enabled = False : ComboBox7.Enabled = True : ComboBox6.Text = " "
-    End Sub
-    Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.Click
-        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False
-        RadioButton5.Checked = False : RadioButton6.Checked = True : RadioButton7.Checked = False : RadioButton8.Checked = False
-        ComboBox6.Enabled = False : ComboBox7.Enabled = True : ComboBox6.Text = " "
-    End Sub
-    Private Sub RadioButton7_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton7.Click
-        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False
-        RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = True : RadioButton8.Checked = False
-        ComboBox6.Enabled = False : ComboBox7.Enabled = True : ComboBox6.Text = " "
-    End Sub
-    Private Sub RadioButton8_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton8.Click
-        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False
-        RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = True
-        ComboBox6.Enabled = False : ComboBox7.Enabled = True : ComboBox6.Text = " "
-    End Sub
-    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click
-        If CheckBox1.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox1.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox1.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox1.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox1.Checked = False : End If
-        ElseIf CheckBox1.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox1.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox1.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox1.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox1.Checked = False : End If
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles S_B_S_rbt.Click
+        S_B_S_rbt.Checked = True : M_B_S_rbt.Checked = False : L_B_S_rbt.Checked = False : E_B_S_rbt.Checked = False
+        D_S_rbt.Checked = False : D_M_rbt.Checked = False : D_L_rbt.Checked = False : D_E_rbt.Checked = False
+        寫入後初始化_cb.Enabled = True : 寫入後初始化1_cb.Enabled = False : 寫入後初始化1_cb.Text = " "
+    End Sub
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles M_B_S_rbt.Click
+        S_B_S_rbt.Checked = False : M_B_S_rbt.Checked = True : L_B_S_rbt.Checked = False : E_B_S_rbt.Checked = False
+        D_S_rbt.Checked = False : D_M_rbt.Checked = False : D_L_rbt.Checked = False : D_E_rbt.Checked = False
+        寫入後初始化_cb.Enabled = True : 寫入後初始化1_cb.Enabled = False : 寫入後初始化1_cb.Text = " "
+    End Sub
+    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles L_B_S_rbt.Click
+        S_B_S_rbt.Checked = False : M_B_S_rbt.Checked = False : L_B_S_rbt.Checked = True : E_B_S_rbt.Checked = False
+        D_S_rbt.Checked = False : D_M_rbt.Checked = False : D_L_rbt.Checked = False : D_E_rbt.Checked = False
+        寫入後初始化_cb.Enabled = True : 寫入後初始化1_cb.Enabled = False : 寫入後初始化1_cb.Text = " "
+    End Sub
+    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles E_B_S_rbt.Click
+        S_B_S_rbt.Checked = False : M_B_S_rbt.Checked = False : L_B_S_rbt.Checked = False : E_B_S_rbt.Checked = True
+        D_S_rbt.Checked = False : D_M_rbt.Checked = False : D_L_rbt.Checked = False : D_E_rbt.Checked = False
+        寫入後初始化_cb.Enabled = True : 寫入後初始化1_cb.Enabled = False : 寫入後初始化1_cb.Text = " "
+    End Sub
+    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles D_S_rbt.Click
+        S_B_S_rbt.Checked = False : M_B_S_rbt.Checked = False : L_B_S_rbt.Checked = False : E_B_S_rbt.Checked = False
+        D_S_rbt.Checked = True : D_M_rbt.Checked = False : D_L_rbt.Checked = False : D_E_rbt.Checked = False
+        寫入後初始化_cb.Enabled = False : 寫入後初始化1_cb.Enabled = True : 寫入後初始化_cb.Text = " "
+    End Sub
+    Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles D_M_rbt.Click
+        S_B_S_rbt.Checked = False : M_B_S_rbt.Checked = False : L_B_S_rbt.Checked = False : E_B_S_rbt.Checked = False
+        D_S_rbt.Checked = False : D_M_rbt.Checked = True : D_L_rbt.Checked = False : D_E_rbt.Checked = False
+        寫入後初始化_cb.Enabled = False : 寫入後初始化1_cb.Enabled = True : 寫入後初始化_cb.Text = " "
+    End Sub
+    Private Sub RadioButton7_CheckedChanged(sender As Object, e As EventArgs) Handles D_L_rbt.Click
+        S_B_S_rbt.Checked = False : M_B_S_rbt.Checked = False : L_B_S_rbt.Checked = False : E_B_S_rbt.Checked = False
+        D_S_rbt.Checked = False : D_M_rbt.Checked = False : D_L_rbt.Checked = True : D_E_rbt.Checked = False
+        寫入後初始化_cb.Enabled = False : 寫入後初始化1_cb.Enabled = True : 寫入後初始化_cb.Text = " "
+    End Sub
+    Private Sub RadioButton8_CheckedChanged(sender As Object, e As EventArgs) Handles D_E_rbt.Click
+        S_B_S_rbt.Checked = False : M_B_S_rbt.Checked = False : L_B_S_rbt.Checked = False : E_B_S_rbt.Checked = False
+        D_S_rbt.Checked = False : D_M_rbt.Checked = False : D_L_rbt.Checked = False : D_E_rbt.Checked = True
+        寫入後初始化_cb.Enabled = False : 寫入後初始化1_cb.Enabled = True : 寫入後初始化_cb.Text = " "
+    End Sub
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 数值5_cb.Click
+        If 数值5_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值5_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值5_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值5_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值5_cb.Checked = False : End If
+        ElseIf 数值5_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值5_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值5_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值5_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值5_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.Click
-        If CheckBox2.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox2.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox2.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox2.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox2.Checked = False : End If
-        ElseIf CheckBox2.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox2.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox2.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox2.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox2.Checked = False : End If
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 数值5_5_cb.Click
+        If 数值5_5_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值5_5_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值5_5_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值5_5_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值5_5_cb.Checked = False : End If
+        ElseIf 数值5_5_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值5_5_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值5_5_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值5_5_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值5_5_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.Click
-        If CheckBox3.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox3.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox3.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox3.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox3.Checked = False : End If
-        ElseIf CheckBox3.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox3.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox3.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox3.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox3.Checked = False : End If
+    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles 数值6_cb.Click
+        If 数值6_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值6_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值6_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值6_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值6_cb.Checked = False : End If
+        ElseIf 数值6_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值6_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值6_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值6_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值6_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.Click
-        If CheckBox4.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox4.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox4.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox4.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox4.Checked = False : End If
-        ElseIf CheckBox4.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox4.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox4.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox4.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox4.Checked = False : End If
+    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 数值6_5_cb.Click
+        If 数值6_5_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值6_5_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值6_5_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值6_5_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值6_5_cb.Checked = False : End If
+        ElseIf 数值6_5_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值6_5_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值6_5_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值6_5_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值6_5_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.Click
-        If CheckBox5.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox5.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox5.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox5.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox5.Checked = False : End If
-        ElseIf CheckBox5.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox5.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox5.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox5.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox5.Checked = False : End If
+    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles 数值7_cb.Click
+        If 数值7_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值7_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值7_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值7_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值7_cb.Checked = False : End If
+        ElseIf 数值7_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值7_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值7_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值7_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值7_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.Click
-        If CheckBox6.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox6.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox6.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox6.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox6.Checked = False : End If
-        ElseIf CheckBox6.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox6.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox6.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox6.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox6.Checked = False : End If
+    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles 数值7_5_cb.Click
+        If 数值7_5_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值7_5_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值7_5_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值7_5_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值7_5_cb.Checked = False : End If
+        ElseIf 数值7_5_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值7_5_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值7_5_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值7_5_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值7_5_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.Click
-        If CheckBox7.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox7.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox7.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox7.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox7.Checked = False : End If
-        ElseIf CheckBox7.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox7.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox7.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox7.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox7.Checked = False : End If
+    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles 数值8_cb.Click
+        If 数值8_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值8_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值8_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值8_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值8_cb.Checked = False : End If
+        ElseIf 数值8_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值8_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值8_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值8_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值8_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.Click
-        If CheckBox8.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox8.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox8.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox8.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox8.Checked = False : End If
-        ElseIf CheckBox8.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox8.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox8.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox8.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox8.Checked = False : End If
+    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles 数值8_5_cb.Click
+        If 数值8_5_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值8_5_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值8_5_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值8_5_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值8_5_cb.Checked = False : End If
+        ElseIf 数值8_5_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值8_5_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值8_5_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值8_5_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值8_5_cb.Checked = False : End If
         End If
     End Sub
     Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox9.Click
@@ -352,120 +352,120 @@ Public Class 鞋盒資料控制表
             ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox10.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox10.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox11.Click
-        If CheckBox11.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox11.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox11.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox11.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox11.Checked = False : End If
-        ElseIf CheckBox11.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox11.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox11.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox11.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox11.Checked = False : End If
+    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles 数值10_cb.Click
+        If 数值10_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值10_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值10_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值10_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值10_cb.Checked = False : End If
+        ElseIf 数值10_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值10_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值10_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值10_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值10_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox12.Click
-        If CheckBox12.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox12.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox12.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox12.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox12.Checked = False : End If
-        ElseIf CheckBox12.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox12.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox12.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox12.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox12.Checked = False : End If
+    Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles 数值10_5_cb.Click
+        If 数值10_5_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值10_5_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值10_5_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值10_5_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值10_5_cb.Checked = False : End If
+        ElseIf 数值10_5_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值10_5_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值10_5_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值10_5_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值10_5_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox13_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox13.Click
-        If CheckBox13.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox13.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox13.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox13.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox13.Checked = False : End If
-        ElseIf CheckBox13.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox13.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox13.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox13.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox13.Checked = False : End If
+    Private Sub CheckBox13_CheckedChanged(sender As Object, e As EventArgs) Handles 数值11_cb.Click
+        If 数值11_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值11_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值11_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值11_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值11_cb.Checked = False : End If
+        ElseIf 数值11_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值11_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值11_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值11_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值11_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox14_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox14.Click
-        If CheckBox14.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox14.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox14.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox14.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox14.Checked = False : End If
-        ElseIf CheckBox14.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox14.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox14.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox14.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox14.Checked = False : End If
+    Private Sub CheckBox14_CheckedChanged(sender As Object, e As EventArgs) Handles 数值11_5_cb.Click
+        If 数值11_5_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值11_5_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值11_5_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值11_5_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值11_5_cb.Checked = False : End If
+        ElseIf 数值11_5_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值11_5_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值11_5_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值11_5_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值11_5_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox15.Click
-        If CheckBox15.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox15.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox15.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox15.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox15.Checked = False : End If
-        ElseIf CheckBox15.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox15.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox15.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox15.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox15.Checked = False : End If
+    Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles 数值12_cb.Click
+        If 数值12_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值12_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值12_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值12_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值12_cb.Checked = False : End If
+        ElseIf 数值12_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值12_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值12_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值12_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值12_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox16_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox16.Click
-        If CheckBox16.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox16.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox16.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox16.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox16.Checked = False : End If
-        ElseIf CheckBox16.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox16.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox16.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox16.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox16.Checked = False : End If
+    Private Sub CheckBox16_CheckedChanged(sender As Object, e As EventArgs) Handles 数值12_5_cb.Click
+        If 数值12_5_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值12_5_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值12_5_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值12_5_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值12_5_cb.Checked = False : End If
+        ElseIf 数值12_5_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值12_5_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值12_5_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值12_5_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值12_5_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox17_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox17.Click
-        If CheckBox17.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox17.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox17.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox17.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox17.Checked = False : End If
-        ElseIf CheckBox17.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox17.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox17.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox17.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox17.Checked = False : End If
+    Private Sub CheckBox17_CheckedChanged(sender As Object, e As EventArgs) Handles 数值13_cb.Click
+        If 数值13_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值13_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值13_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值13_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值13_cb.Checked = False : End If
+        ElseIf 数值13_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值13_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值13_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值13_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值13_cb.Checked = False : End If
         End If
     End Sub
-    Private Sub CheckBox18_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox18.Click
-        If CheckBox18.Checked = True Then
-            If KL1 = False And KL2 = False Then : KL1 = True : CheckBox18.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : CheckBox18.Checked = True
-            ElseIf KL1 = True And KL2 = False Then : KL2 = True : CheckBox18.Checked = True : ElseIf KL1 = True And KL2 = True Then : CheckBox18.Checked = False : End If
-        ElseIf CheckBox18.Checked = False Then
-            If KL1 = True And KL2 = True Then : KL1 = False : CheckBox18.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : CheckBox18.Checked = False
-            ElseIf KL1 = False And KL2 = True Then : KL2 = False : CheckBox18.Checked = False : ElseIf KL1 = False And KL2 = False Then : CheckBox18.Checked = False : End If
+    Private Sub CheckBox18_CheckedChanged(sender As Object, e As EventArgs) Handles 数值14_cb.Click
+        If 数值14_cb.Checked = True Then
+            If KL1 = False And KL2 = False Then : KL1 = True : 数值14_cb.Checked = True : ElseIf KL1 = False And KL2 = True Then : KL1 = True : 数值14_cb.Checked = True
+            ElseIf KL1 = True And KL2 = False Then : KL2 = True : 数值14_cb.Checked = True : ElseIf KL1 = True And KL2 = True Then : 数值14_cb.Checked = False : End If
+        ElseIf 数值14_cb.Checked = False Then
+            If KL1 = True And KL2 = True Then : KL1 = False : 数值14_cb.Checked = False : ElseIf KL1 = True And KL2 = False Then : KL1 = False : 数值14_cb.Checked = False
+            ElseIf KL1 = False And KL2 = True Then : KL2 = False : 数值14_cb.Checked = False : ElseIf KL1 = False And KL2 = False Then : 数值14_cb.Checked = False : End If
         End If
     End Sub
     Private Sub 寫入後初始化()
-        If RadioButton1.Checked = True Then : TextBox1.Text = TextBox16.Text : ElseIf RadioButton2.Checked = True Then : TextBox2.Text = TextBox16.Text
-        ElseIf RadioButton3.Checked = True Then : TextBox3.Text = TextBox16.Text : ElseIf RadioButton4.Checked = True Then : TextBox4.Text = TextBox16.Text
-        ElseIf RadioButton5.Checked = True Then : TextBox9.Text = TextBox16.Text : ElseIf RadioButton6.Checked = True Then : TextBox10.Text = TextBox16.Text
-        ElseIf RadioButton7.Checked = True Then : TextBox11.Text = TextBox16.Text : ElseIf RadioButton8.Checked = True Then : TextBox12.Text = TextBox16.Text
+        If S_B_S_rbt.Checked = True Then : SMALLBOX_tb.Text = 流水號2_tb.Text : ElseIf M_B_S_rbt.Checked = True Then : MEDIUMBOX_tb.Text = 流水號2_tb.Text
+        ElseIf L_B_S_rbt.Checked = True Then : LARGERBOX_tb.Text = 流水號2_tb.Text : ElseIf E_B_S_rbt.Checked = True Then : EXTRABOX_tb.Text = 流水號2_tb.Text
+        ElseIf D_S_rbt.Checked = True Then : DimensionsS_tb.Text = 流水號2_tb.Text : ElseIf D_M_rbt.Checked = True Then : DimensionsM_tb.Text = 流水號2_tb.Text
+        ElseIf D_L_rbt.Checked = True Then : DimensionsL_tb.Text = 流水號2_tb.Text : ElseIf D_E_rbt.Checked = True Then : DimensionsE_tb.Text = 流水號2_tb.Text
         End If
         KL1 = False : KL2 = False
-        CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False : CheckBox5.Checked = False
-        CheckBox6.Checked = False : CheckBox7.Checked = False : CheckBox8.Checked = False : CheckBox9.Checked = False : CheckBox10.Checked = False
-        CheckBox11.Checked = False : CheckBox12.Checked = False : CheckBox13.Checked = False : CheckBox14.Checked = False : CheckBox15.Checked = False
-        CheckBox16.Checked = False : CheckBox17.Checked = False : CheckBox18.Checked = False
-        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False
-        RadioButton5.Checked = False : RadioButton6.Checked = False : RadioButton7.Checked = False : RadioButton8.Checked = False
+        数值5_cb.Checked = False : 数值5_5_cb.Checked = False : 数值6_cb.Checked = False : 数值6_5_cb.Checked = False : 数值7_cb.Checked = False
+        数值7_5_cb.Checked = False : 数值8_cb.Checked = False : 数值8_5_cb.Checked = False : CheckBox9.Checked = False : CheckBox10.Checked = False
+        数值10_cb.Checked = False : 数值10_5_cb.Checked = False : 数值11_cb.Checked = False : 数值11_5_cb.Checked = False : 数值12_cb.Checked = False
+        数值12_5_cb.Checked = False : 数值13_cb.Checked = False : 数值14_cb.Checked = False
+        S_B_S_rbt.Checked = False : M_B_S_rbt.Checked = False : L_B_S_rbt.Checked = False : E_B_S_rbt.Checked = False
+        D_S_rbt.Checked = False : D_M_rbt.Checked = False : D_L_rbt.Checked = False : D_E_rbt.Checked = False
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 寫入鞋盒尺寸_bt.Click
         If KL1 = False Or KL2 = False Then
             MsgBox("尺碼範圍沒有正確選擇")
         Else
-            If CheckBox1.Checked = True Then : FG1 = "5" : ElseIf CheckBox2.Checked = True Then : FG1 = "5.5" : ElseIf CheckBox3.Checked = True Then : FG1 = "6"
-            ElseIf CheckBox4.Checked = True Then : FG1 = "6.5" : ElseIf CheckBox5.Checked = True Then : FG1 = "7" : ElseIf CheckBox6.Checked = True Then : FG1 = "7.5"
-            ElseIf CheckBox7.Checked = True Then : FG1 = "8" : ElseIf CheckBox8.Checked = True Then : FG1 = "8.5" : ElseIf CheckBox9.Checked = True Then : FG1 = "9"
-            ElseIf CheckBox10.Checked = True Then : FG1 = "9.5" : ElseIf CheckBox11.Checked = True Then : FG1 = "10" : ElseIf CheckBox12.Checked = True Then : FG1 = "10.5"
-            ElseIf CheckBox13.Checked = True Then : FG1 = "11" : ElseIf CheckBox14.Checked = True Then : FG1 = "11.5" : ElseIf CheckBox15.Checked = True Then : FG1 = "12"
-            ElseIf CheckBox16.Checked = True Then : FG1 = "12.5" : ElseIf CheckBox17.Checked = True Then : FG1 = "13" : ElseIf CheckBox18.Checked = True Then : FG1 = "14"
+            If 数值5_cb.Checked = True Then : FG1 = "5" : ElseIf 数值5_5_cb.Checked = True Then : FG1 = "5.5" : ElseIf 数值6_cb.Checked = True Then : FG1 = "6"
+            ElseIf 数值6_5_cb.Checked = True Then : FG1 = "6.5" : ElseIf 数值7_cb.Checked = True Then : FG1 = "7" : ElseIf 数值7_5_cb.Checked = True Then : FG1 = "7.5"
+            ElseIf 数值8_cb.Checked = True Then : FG1 = "8" : ElseIf 数值8_5_cb.Checked = True Then : FG1 = "8.5" : ElseIf CheckBox9.Checked = True Then : FG1 = "9"
+            ElseIf CheckBox10.Checked = True Then : FG1 = "9.5" : ElseIf 数值10_cb.Checked = True Then : FG1 = "10" : ElseIf 数值10_5_cb.Checked = True Then : FG1 = "10.5"
+            ElseIf 数值11_cb.Checked = True Then : FG1 = "11" : ElseIf 数值11_5_cb.Checked = True Then : FG1 = "11.5" : ElseIf 数值12_cb.Checked = True Then : FG1 = "12"
+            ElseIf 数值12_5_cb.Checked = True Then : FG1 = "12.5" : ElseIf 数值13_cb.Checked = True Then : FG1 = "13" : ElseIf 数值14_cb.Checked = True Then : FG1 = "14"
             End If
 
-            If CheckBox18.Checked = True Then : FG2 = "14" : ElseIf CheckBox17.Checked = True Then : FG2 = "13" : ElseIf CheckBox16.Checked = True Then : FG2 = "12.5"
-            ElseIf CheckBox15.Checked = True Then : FG2 = "12" : ElseIf CheckBox14.Checked = True Then : FG2 = "11.5" : ElseIf CheckBox13.Checked = True Then : FG2 = "11"
-            ElseIf CheckBox12.Checked = True Then : FG2 = "10.5" : ElseIf CheckBox11.Checked = True Then : FG2 = "10" : ElseIf CheckBox10.Checked = True Then : FG2 = "9.5"
-            ElseIf CheckBox9.Checked = True Then : FG2 = "9" : ElseIf CheckBox8.Checked = True Then : FG2 = "8.5" : ElseIf CheckBox7.Checked = True Then : FG2 = "8"
-            ElseIf CheckBox6.Checked = True Then : FG2 = "7.5" : ElseIf CheckBox5.Checked = True Then : FG2 = "7" : ElseIf CheckBox4.Checked = True Then : FG2 = "6.5"
-            ElseIf CheckBox3.Checked = True Then : FG2 = "6" : ElseIf CheckBox2.Checked = True Then : FG2 = "5.5" : ElseIf CheckBox1.Checked = True Then : FG2 = "5"
+            If 数值14_cb.Checked = True Then : FG2 = "14" : ElseIf 数值13_cb.Checked = True Then : FG2 = "13" : ElseIf 数值12_5_cb.Checked = True Then : FG2 = "12.5"
+            ElseIf 数值12_cb.Checked = True Then : FG2 = "12" : ElseIf 数值11_5_cb.Checked = True Then : FG2 = "11.5" : ElseIf 数值11_cb.Checked = True Then : FG2 = "11"
+            ElseIf 数值10_5_cb.Checked = True Then : FG2 = "10.5" : ElseIf 数值10_cb.Checked = True Then : FG2 = "10" : ElseIf CheckBox10.Checked = True Then : FG2 = "9.5"
+            ElseIf CheckBox9.Checked = True Then : FG2 = "9" : ElseIf 数值8_5_cb.Checked = True Then : FG2 = "8.5" : ElseIf 数值8_cb.Checked = True Then : FG2 = "8"
+            ElseIf 数值7_5_cb.Checked = True Then : FG2 = "7.5" : ElseIf 数值7_cb.Checked = True Then : FG2 = "7" : ElseIf 数值6_5_cb.Checked = True Then : FG2 = "6.5"
+            ElseIf 数值6_cb.Checked = True Then : FG2 = "6" : ElseIf 数值5_5_cb.Checked = True Then : FG2 = "5.5" : ElseIf 数值5_cb.Checked = True Then : FG2 = "5"
             End If
 
-            If ComboBox6.Enabled = False And ComboBox7.Enabled = False Then
+            If 寫入後初始化_cb.Enabled = False And 寫入後初始化1_cb.Enabled = False Then
                 MsgBox("紙箱尺寸沒有正確選擇")
-            ElseIf ComboBox6.Enabled = True And ComboBox7.Enabled = False And ComboBox6.Text <> "" And ComboBox6.Text <> " " Then
-                TextBox16.Text = "(" & FG1 & "-" & FG2 & "#)" & ComboBox6.Text
-                寫入後初始化() : ComboBox6.Text = " "
-            ElseIf ComboBox6.Enabled = False And ComboBox7.Enabled = True And ComboBox7.Text <> "" And ComboBox7.Text <> " " Then
-                TextBox16.Text = "(" & FG1 & "-" & FG2 & "#)" & ComboBox7.Text
-                寫入後初始化() : ComboBox7.Text = " "
+            ElseIf 寫入後初始化_cb.Enabled = True And 寫入後初始化1_cb.Enabled = False And 寫入後初始化_cb.Text <> "" And 寫入後初始化_cb.Text <> " " Then
+                流水號2_tb.Text = "(" & FG1 & "-" & FG2 & "#)" & 寫入後初始化_cb.Text
+                寫入後初始化() : 寫入後初始化_cb.Text = " "
+            ElseIf 寫入後初始化_cb.Enabled = False And 寫入後初始化1_cb.Enabled = True And 寫入後初始化1_cb.Text <> "" And 寫入後初始化1_cb.Text <> " " Then
+                流水號2_tb.Text = "(" & FG1 & "-" & FG2 & "#)" & 寫入後初始化1_cb.Text
+                寫入後初始化() : 寫入後初始化1_cb.Text = " "
             Else
                 MsgBox("紙箱尺寸沒有正確選擇")
             End If
@@ -473,9 +473,9 @@ Public Class 鞋盒資料控制表
     End Sub
     Private Sub Button29_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
         ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入()
-        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = "" : TextBox6.Text = "" : TextBox7.Text = ""
-        TextBox8.Text = "" : TextBox9.Text = "" : TextBox10.Text = "" : TextBox11.Text = "" : TextBox12.Text = "" : PRSCRT_tb.Text = "" : QUK_tb.Text = ""
-        TextBox15.Text = "" : TextBox16.Text = ""
+        SMALLBOX_tb.Text = "" : MEDIUMBOX_tb.Text = "" : LARGERBOX_tb.Text = "" : EXTRABOX_tb.Text = "" : SMALL_tb.Text = "" : MEDIUM_tb.Text = "" : LARGE_tb.Text = ""
+        EXTRA_tb.Text = "" : DimensionsS_tb.Text = "" : DimensionsM_tb.Text = "" : DimensionsL_tb.Text = "" : DimensionsE_tb.Text = "" : PRSCRT_tb.Text = "" : QUK_tb.Text = ""
+        流水號_tb.Text = "" : 流水號2_tb.Text = ""
         新增_bt.Enabled = False : 確認新增_bt.Enabled = True
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
@@ -504,27 +504,27 @@ Public Class 鞋盒資料控制表
                                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                                 SQL1 = "SELECT TOP (1) 鞋盒流水號 FROM 鞋盒資料控制表 GROUP BY 鞋盒流水號 ORDER BY 鞋盒流水號 DESC"
                                 cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
-                                If dr.Read() Then : TextBox17.Text = dr("鞋盒流水號").ToString : Else : TextBox17.Text = "" : End If
+                                If dr.Read() Then : 流水號1_tb.Text = dr("鞋盒流水號").ToString : Else : 流水號1_tb.Text = "" : End If
                                 conn.Close()
                                 Dim NUM1 As Integer
-                                NUM1 = Double.Parse(Strings.Right(TextBox17.Text, 8)) + 1
-                                If NUM1 < 10 Then : TextBox17.Text = "SB" & "0000000" & NUM1
-                                ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox17.Text = "SB" & "000000" & NUM1
-                                ElseIf NUM1 > 99 And NUM1 < 1000 Then : TextBox17.Text = "SB" & "00000" & NUM1
-                                ElseIf NUM1 > 999 And NUM1 < 10000 Then : TextBox17.Text = "SB" & "0000" & NUM1
-                                ElseIf NUM1 > 9999 And NUM1 < 100000 Then : TextBox17.Text = "SB" & "000" & NUM1
-                                ElseIf NUM1 > 99999 And NUM1 < 100000 Then : TextBox17.Text = "SB" & "00" & NUM1
-                                ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : TextBox17.Text = "SB" & "0" & NUM1
-                                ElseIf NUM1 > 9999999 Then : TextBox17.Text = "SB" & NUM1
+                                NUM1 = Double.Parse(Strings.Right(流水號1_tb.Text, 8)) + 1
+                                If NUM1 < 10 Then : 流水號1_tb.Text = "SB" & "0000000" & NUM1
+                                ElseIf NUM1 > 9 And NUM1 < 100 Then : 流水號1_tb.Text = "SB" & "000000" & NUM1
+                                ElseIf NUM1 > 99 And NUM1 < 1000 Then : 流水號1_tb.Text = "SB" & "00000" & NUM1
+                                ElseIf NUM1 > 999 And NUM1 < 10000 Then : 流水號1_tb.Text = "SB" & "0000" & NUM1
+                                ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 流水號1_tb.Text = "SB" & "000" & NUM1
+                                ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 流水號1_tb.Text = "SB" & "00" & NUM1
+                                ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 流水號1_tb.Text = "SB" & "0" & NUM1
+                                ElseIf NUM1 > 9999999 Then : 流水號1_tb.Text = "SB" & NUM1
                                 End If
 
                                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                                 SQL1 = "INSERT INTO 鞋盒資料控制表 (SEASON, CONSTRUCTION, FTY, STYLE, TVW, S_B_S, M_B_S, L_B_S, E_B_S, S_GW, M_GW, L_GW, E_GW, Dimensions_S, Dimensions_M, Dimensions_L, " &
                                                                    "Dimensions_E, PRS_CRT, QUK, 鞋盒流水號) " &
-                                       "VALUES ('" & 季節_cb.Text & "','" & 構造名稱_cb.Text & "','" & FTY_cb.Text & "','" & 風格_cb.Text & "','" & TVW_cb.Text & "','" & TextBox1.Text &
-                                       "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text &
-                                       "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & PRSCRT_tb.Text &
-                                       "','" & QUK_tb.Text & "','" & TextBox17.Text & "')"
+                                       "VALUES ('" & 季節_cb.Text & "','" & 構造名稱_cb.Text & "','" & FTY_cb.Text & "','" & 風格_cb.Text & "','" & TVW_cb.Text & "','" & SMALLBOX_tb.Text &
+                                       "','" & MEDIUMBOX_tb.Text & "','" & LARGERBOX_tb.Text & "','" & EXTRABOX_tb.Text & "','" & SMALL_tb.Text & "','" & MEDIUM_tb.Text & "','" & LARGE_tb.Text &
+                                       "','" & EXTRA_tb.Text & "','" & DimensionsS_tb.Text & "','" & DimensionsM_tb.Text & "','" & DimensionsL_tb.Text & "','" & DimensionsE_tb.Text & "','" & PRSCRT_tb.Text &
+                                       "','" & QUK_tb.Text & "','" & 流水號1_tb.Text & "')"
                                 cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                                 Set_清單1() : Set_grid1() : Set_清單2() : Set_grid2()
                                 MsgBox("新增完成")
@@ -537,28 +537,28 @@ Public Class 鞋盒資料控制表
         End If
     End Sub
     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
-        If TextBox15.Text = "" Then
+        If 流水號_tb.Text = "" Then
             MsgBox("未選擇要修改的資料")
         Else
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
             SQL1 = "UPDATE 鞋盒資料控制表 SET SEASON = '" & 季節_cb.Text & "', CONSTRUCTION = '" & 構造名稱_cb.Text & "', FTY = '" & FTY_cb.Text & "', STYLE = '" & 風格_cb.Text &
-                   "', TVW = '" & TVW_cb.Text & "', S_B_S = '" & TextBox1.Text & "', M_B_S = '" & TextBox2.Text & "', L_B_S = '" & TextBox3.Text & "', E_B_S = '" & TextBox4.Text &
-                   "', S_GW = '" & TextBox5.Text & "', M_GW = '" & TextBox6.Text & "', L_GW = '" & TextBox7.Text & "', E_GW = '" & TextBox8.Text & "', Dimensions_S = '" & TextBox9.Text &
-                   "', Dimensions_M = '" & TextBox10.Text & "', Dimensions_L = '" & TextBox11.Text & "', Dimensions_E = '" & TextBox12.Text & "', PRS_CRT = '" & PRSCRT_tb.Text &
-                   "', QUK = '" & QUK_tb.Text & "' WHERE (鞋盒流水號 = '" & TextBox15.Text & "')"
+                   "', TVW = '" & TVW_cb.Text & "', S_B_S = '" & SMALLBOX_tb.Text & "', M_B_S = '" & MEDIUMBOX_tb.Text & "', L_B_S = '" & LARGERBOX_tb.Text & "', E_B_S = '" & EXTRABOX_tb.Text &
+                   "', S_GW = '" & SMALL_tb.Text & "', M_GW = '" & MEDIUM_tb.Text & "', L_GW = '" & LARGE_tb.Text & "', E_GW = '" & EXTRA_tb.Text & "', Dimensions_S = '" & DimensionsS_tb.Text &
+                   "', Dimensions_M = '" & DimensionsM_tb.Text & "', Dimensions_L = '" & DimensionsL_tb.Text & "', Dimensions_E = '" & DimensionsE_tb.Text & "', PRS_CRT = '" & PRSCRT_tb.Text &
+                   "', QUK = '" & QUK_tb.Text & "' WHERE (鞋盒流水號 = '" & 流水號_tb.Text & "')"
             cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
             Set_清單1() : Set_grid1() : Set_清單2() : Set_grid2()
             MsgBox("修改完成")
         End If
     End Sub
     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
-        If TextBox15.Text = "" Then
+        If 流水號_tb.Text = "" Then
             MsgBox("未選擇要刪除的資料")
         Else
             aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
             If aa = MsgBoxResult.Ok Then
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                SQL1 = "DELETE FROM 鞋盒資料控制表 WHERE (鞋盒流水號 = '" & TextBox15.Text & "')"
+                SQL1 = "DELETE FROM 鞋盒資料控制表 WHERE (鞋盒流水號 = '" & 流水號_tb.Text & "')"
                 cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
                 Set_清單1() : Set_grid1() : Set_清單2() : Set_grid2()
                 MsgBox("刪除完成")
@@ -617,27 +617,27 @@ Public Class 鞋盒資料控制表
                                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                                 SQL1 = "SELECT TOP (1) 鞋盒流水號 FROM 鞋盒資料控制表 GROUP BY 鞋盒流水號 ORDER BY 鞋盒流水號 DESC"
                                 cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
-                                If dr.Read() Then : TextBox17.Text = dr("鞋盒流水號").ToString : Else : TextBox17.Text = "" : End If
+                                If dr.Read() Then : 流水號1_tb.Text = dr("鞋盒流水號").ToString : Else : 流水號1_tb.Text = "" : End If
                                 conn.Close()
                                 Dim NUM1 As Integer
-                                NUM1 = Double.Parse(Strings.Right(TextBox17.Text, 8)) + 1
-                                If NUM1 < 10 Then : TextBox17.Text = "SB" & "0000000" & NUM1
-                                ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox17.Text = "SB" & "000000" & NUM1
-                                ElseIf NUM1 > 99 And NUM1 < 1000 Then : TextBox17.Text = "SB" & "00000" & NUM1
-                                ElseIf NUM1 > 999 And NUM1 < 10000 Then : TextBox17.Text = "SB" & "0000" & NUM1
-                                ElseIf NUM1 > 9999 And NUM1 < 100000 Then : TextBox17.Text = "SB" & "000" & NUM1
-                                ElseIf NUM1 > 99999 And NUM1 < 100000 Then : TextBox17.Text = "SB" & "00" & NUM1
-                                ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : TextBox17.Text = "SB" & "0" & NUM1
-                                ElseIf NUM1 > 9999999 Then : TextBox17.Text = "SB" & NUM1
+                                NUM1 = Double.Parse(Strings.Right(流水號1_tb.Text, 8)) + 1
+                                If NUM1 < 10 Then : 流水號1_tb.Text = "SB" & "0000000" & NUM1
+                                ElseIf NUM1 > 9 And NUM1 < 100 Then : 流水號1_tb.Text = "SB" & "000000" & NUM1
+                                ElseIf NUM1 > 99 And NUM1 < 1000 Then : 流水號1_tb.Text = "SB" & "00000" & NUM1
+                                ElseIf NUM1 > 999 And NUM1 < 10000 Then : 流水號1_tb.Text = "SB" & "0000" & NUM1
+                                ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 流水號1_tb.Text = "SB" & "000" & NUM1
+                                ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 流水號1_tb.Text = "SB" & "00" & NUM1
+                                ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 流水號1_tb.Text = "SB" & "0" & NUM1
+                                ElseIf NUM1 > 9999999 Then : 流水號1_tb.Text = "SB" & NUM1
                                 End If
 
                                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                                 SQL1 = "INSERT INTO 鞋盒資料控制表 (SEASON, CONSTRUCTION, FTY, STYLE, TVW, S_B_S, M_B_S, L_B_S, E_B_S, S_GW, M_GW, L_GW, E_GW, Dimensions_S, Dimensions_M, Dimensions_L, " &
                                                                    "Dimensions_E, PRS_CRT, QUK, 鞋盒流水號) " &
-                                       "VALUES ('" & 季節_cb.Text & "','" & 構造名稱_cb.Text & "','" & FTY_cb.Text & "','" & 風格_cb.Text & "','" & TVW_cb.Text & "','" & TextBox1.Text &
-                                       "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text &
-                                       "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & PRSCRT_tb.Text &
-                                       "','" & QUK_tb.Text & "','" & TextBox17.Text & "')"
+                                       "VALUES ('" & 季節_cb.Text & "','" & 構造名稱_cb.Text & "','" & FTY_cb.Text & "','" & 風格_cb.Text & "','" & TVW_cb.Text & "','" & SMALLBOX_tb.Text &
+                                       "','" & MEDIUMBOX_tb.Text & "','" & LARGERBOX_tb.Text & "','" & EXTRABOX_tb.Text & "','" & SMALL_tb.Text & "','" & MEDIUM_tb.Text & "','" & LARGE_tb.Text &
+                                       "','" & EXTRA_tb.Text & "','" & DimensionsS_tb.Text & "','" & DimensionsM_tb.Text & "','" & DimensionsL_tb.Text & "','" & DimensionsE_tb.Text & "','" & PRSCRT_tb.Text &
+                                       "','" & QUK_tb.Text & "','" & 流水號1_tb.Text & "')"
                                 cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                                 Set_清單1() : Set_grid1() : Set_清單2() : Set_grid2()
                                 MsgBox("新增完成")