20210121備份

TENDEN-MES-SYS/Module/SQL_人事系統管理.vb

@@ -7,7 +7,8 @@
     End Sub
     Friend Sub SQL_人員ID卡系統配置設定_配卡()
         ConnOpen()
-        SQL1 = "UPDATE 使用者 SET ID卡號 = N'" & 人員ID卡系統配置設定.ID卡號_tb.Text & "' WHERE (帳號 = N'" & 人員ID卡系統配置設定.帳號_tb.Text & "') AND (姓名 = N'" & 人員ID卡系統配置設定.姓名_tb.Text & "')"
+        SQL1 = "UPDATE 使用者 SET ID卡號 = N'" & 人員ID卡系統配置設定.ID卡號_tb.Text & "' 
+                WHERE (帳號 = N'" & 人員ID卡系統配置設定.帳號_tb.Text & "') AND (姓名 = N'" & 人員ID卡系統配置設定.姓名_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
 End Module

TENDEN-MES-SYS/Module/SQL_成本系統管理.vb

@@ -2,255 +2,55 @@
     '--------------------------------成本資料庫管理---------------------------------------------------------------------------
     Friend Sub SQL_成本資料庫管理表單()
         ConnOpen()
-        SQL1 = "SELECT   訂單控制表.訂單流水號, 訂單控制表.資料流水號, 訂單控制表.年份季度, 訂單控制表.客戶訂單號, 訂單控制表.形體號, 訂單控制表.顏色, 訂單控制表.楦型, 訂單控制表.訂單數量 AS 數量, 
-                         訂單控制表.客戶交期, 訂單控制表.單價, 訂單控制表.總金額, 訂單控制表.備註, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單價格利潤明細表.Quantity, 
-                         訂單價格利潤明細表.Currency, 訂單價格利潤明細表.Exchange, 訂單價格利潤明細表.FTYPrice, (訂單控制表.單價 - 訂單價格利潤明細表.FTYPrice) * 訂單價格利潤明細表.Quantity 
-                         AS CommissionTTL, (訂單控制表.單價 - 訂單價格利潤明細表.FTYPrice) * 訂單價格利潤明細表.Quantity / 2 AS CommissionDarren, (訂單控制表.單價 - 訂單價格利潤明細表.FTYPrice) * 
-                         訂單價格利潤明細表.Quantity / 2 AS CommissionTendenza, 訂單控制表.單價 - 訂單價格利潤明細表.FTYPrice AS Percentage, 訂單價格利潤明細表.BasicPrice, 訂單價格利潤明細表.Polybag, 
-                         訂單價格利潤明細表.FOOTformOrPETform AS FOOTorPET, 訂單價格利潤明細表.Tooling, 訂單價格利潤明細表.RubberBand, 訂單價格利潤明細表.JHOOK, 訂單價格利潤明細表.WaterResistant, 
-                         訂單價格利潤明細表.P16VAT, 訂單價格利潤明細表.EXWsaving, 訂單價格利潤明細表.Quantity * 訂單價格利潤明細表.Tooling AS CollectedToolng, 訂單價格利潤明細表.年份, 
-                         訂單價格利潤明細表.利潤表流水號, 訂單控制表.訂單數量 - 訂單價格利潤明細表.Quantity AS 驗證 
-                FROM     訂單價格利潤明細表 LEFT OUTER JOIN 訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號 
-                WHERE   (訂單價格利潤明細表.年份 LIKE '" & 成本資料庫管理.年份_cb.Text & "') AND (訂單控制表.CXL IS NULL OR 訂單控制表.CXL = 0) AND (訂單控制表.訂單流水號 IS NULL) ORDER BY 訂單控制表.訂單流水號 DESC"
+        SQL1 = "SELECT   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".客戶訂單號, " & 訂單資料表(1) & ".形體號, 
+                         " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
+                         " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
+                         " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
+                         " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
+                        (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, " & 訂單資料表(1) & ".單價 - 
+                         " & 訂單資料表(7) & ".FTYPrice AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag, " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                         " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
+                         " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
+                         " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證 
+                FROM     " & 訂單資料表(7) & " LEFT OUTER JOIN " & 訂單資料表(1) & " ON " & 訂單資料表(7) & ".資料流水號 = " & 訂單資料表(1) & ".資料流水號 
+                WHERE   (" & 訂單資料表(7) & ".年份 LIKE '" & 成本資料庫管理.年份_cb.Text & "') AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) AND 
+                        (" & 訂單資料表(1) & ".訂單流水號 IS NULL) ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_訂單價格利潤明細表()
         ConnOpen()
-        SQL1 = "SELECT 資料流水號, 天盾訂單號, 客戶流水號, 年份, 利潤表流水號 FROM 訂單價格利潤明細表 WHERE (利潤表流水號 LIKE '" & 成本資料庫管理.利潤表流水號_tb.Text & "')"
+        SQL1 = "SELECT 資料流水號, 天盾訂單號, 客戶流水號, 年份, 利潤表流水號 FROM " & 訂單資料表(7) & " WHERE (利潤表流水號 LIKE '" & 成本資料庫管理.利潤表流水號_tb.Text & "')"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_訂單價格利潤明細表_天盾訂單號()
         ConnOpen()
-        SQL1 = "SELECT  訂單價格利潤明細表.資料流水號, 訂單價格利潤明細表.天盾訂單號, 訂單價格利潤明細表.客戶流水號, 訂單價格利潤明細表.年份, 訂單價格利潤明細表.利潤表流水號, 
-                            訂單控制表.形體號, 訂單控制表.顏色, 訂單控制表.楦型 
-                FROM    訂單價格利潤明細表 LEFT OUTER JOIN 訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號 
-                WHERE  (訂單價格利潤明細表.天盾訂單號 LIKE '" & 成本資料庫管理.天盾訂單號_tb.Text & "') ORDER BY 訂單控制表.形體號, 訂單控制表.顏色, 訂單控制表.楦型"
+        SQL1 = "SELECT    " & 訂單資料表(7) & ".資料流水號, " & 訂單資料表(7) & ".天盾訂單號, " & 訂單資料表(7) & ".客戶流水號, " & 訂單資料表(7) & ".年份, " & 訂單資料表(7) & ".利潤表流水號, 
+                          " & 訂單資料表(1) & ".形體號, " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型 
+                FROM      " & 訂單資料表(7) & " LEFT OUTER JOIN " & 訂單資料表(1) & " ON " & 訂單資料表(7) & ".資料流水號 = " & 訂單資料表(1) & ".資料流水號 
+                WHERE    (" & 訂單資料表(7) & ".天盾訂單號 LIKE '" & 成本資料庫管理.天盾訂單號_tb.Text & "') 
+                ORDER BY  " & 訂單資料表(1) & ".形體號, " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_訂單控制表_訂單流水號()
         ConnOpen()
-        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型 FROM 訂單控制表 WHERE (訂單流水號 LIKE '" & 成本資料庫管理.天盾訂單號_tb.Text & "') ORDER BY   形體號, 顏色, 楦型"
+        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型 FROM " & 訂單資料表(1) & " WHERE (訂單流水號 LIKE '" & 成本資料庫管理.天盾訂單號_tb.Text & "') ORDER BY   形體號, 顏色, 楦型"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_訂單明細表_天盾流水號()
         ConnOpen()
-        SQL1 = "SELECT 天盾流水號, 客戶訂單號, ItemNumber, ProductName, ProductDescription, Color, DM FROM 訂單明細表 WHERE (天盾流水號 LIKE '" & 成本資料庫管理.天盾訂單號_tb.Text & "') ORDER BY   ProductName, Color, DM"
+        SQL1 = "SELECT    天盾流水號, 客戶訂單號, ItemNumber, ProductName, ProductDescription, Color, DM FROM " & 訂單資料表(6) & " 
+                WHERE    (天盾流水號 LIKE '" & 成本資料庫管理.天盾訂單號_tb.Text & "') 
+                ORDER BY  ProductName, Color, DM"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_訂單控制表_資料流水號()
         ConnOpen()
-        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型 FROM 訂單控制表 WHERE (資料流水號 LIKE '" & 成本資料庫管理.資料流水號_tb.Text & "') ORDER BY   形體號, 顏色, 楦型"
+        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型 FROM " & 訂單資料表(1) & " WHERE (資料流水號 LIKE '" & 成本資料庫管理.資料流水號_tb.Text & "') ORDER BY   形體號, 顏色, 楦型"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_刪除訂單控制表_利潤表流水號()
         ConnOpen()
-        SQL1 = "DELETE FROM 訂單價格利潤明細表 WHERE (利潤表流水號 = '" & 成本資料庫管理.利潤表流水號_tb.Text & "')"
+        SQL1 = "DELETE FROM " & 訂單資料表(7) & " WHERE (利潤表流水號 = '" & 成本資料庫管理.利潤表流水號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
-    '--------------------------------訂單價格利潤明細表---------------------------------------------------------------------------
-    Friend Sub SQL_利潤表載入()
-        SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
-                               " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
-                               " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
-                               " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
-                               " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
-                              (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
-                               " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
-                               " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
-                               " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
-                               " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
-                               " & 訂單資料表(1) & ".客戶訂單號 
-                        FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName RIGHT OUTER JOIN " & 訂單資料表(7) & " ON 
-                               " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 
-                        WHERE ((" & 訂單資料表(1) & ".訂單流水號 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".年份季度 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".客戶訂單號 LIKE '%" & PA & "%') OR 
-                               (" & 訂單資料表(1) & ".形體號 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".顏色 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".楦型 LIKE '%" & PA & "%') OR 
-                               (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".生產工廠 LIKE '%" & PA & "%') OR 
-                               (" & 訂單資料表(1) & ".訂單種類 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".力威訂單號 LIKE '%" & PA & "%')) 
-                               AND " & 訂單資料表(7) & ".天盾訂單號 IS NULL AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) 
-                        ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
-    End Sub
-    Friend Sub SQL_利潤表載入1()
-        SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
-                               " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
-                               " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
-                               " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
-                               " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
-                              (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
-                               " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
-                               " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
-                               " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
-                               " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
-                               " & 訂單資料表(1) & ".客戶訂單號 
-                        FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName LEFT OUTER JOIN " & 訂單資料表(7) & " ON 
-                               " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 
-                        WHERE (" & 訂單資料表(1) & ".訂單流水號 LIKE '" & 訂單價格利潤明細表.天盾流水號_tb.Text & "') AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) 
-                        ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
-    End Sub
-    Friend Sub SQL_利潤表載入2()
-        列印用SQL = "WHERE " & 訂單資料表(7) & ".年份 LIKE '" & 訂單價格利潤明細表.年份_cb.Text & "' AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
-        SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
-                               " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
-                               " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
-                               " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
-                               " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
-                              (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
-                               " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
-                               " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
-                               " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
-                               " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
-                               " & 訂單資料表(1) & ".客戶訂單號 
-                        FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName RIGHT OUTER JOIN " & 訂單資料表(7) & " ON 
-                               " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 " & 列印用SQL & "
-                        ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
-    End Sub
-    Friend Sub SQL_利潤表載入3()
-        列印用SQL = " WHERE ((" & 訂單資料表(1) & ".訂單流水號 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".年份季度 LIKE '%" & PA & "%') OR 
-                                    (" & 訂單資料表(1) & ".客戶訂單號 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".形體號 LIKE '%" & PA & "%') OR 
-                                    (" & 訂單資料表(1) & ".顏色 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".楦型 LIKE '%" & PA & "%') OR 
-                                    (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR 
-                                    (" & 訂單資料表(1) & ".生產工廠 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".訂單種類 LIKE '%" & PA & "%') OR 
-                                    (" & 訂單資料表(1) & ".力威訂單號 LIKE '%" & PA & "%')) AND " & 訂單資料表(7) & ".天盾訂單號 IS NOT NULL AND 
-                                    " & 訂單資料表(7) & ".年份 LIKE '" & 訂單價格利潤明細表.年份_cb.Text & "' AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
-        SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
-                               " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
-                               " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
-                               " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
-                               " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
-                              (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
-                               " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
-                               " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
-                               " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
-                               " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
-                               " & 訂單資料表(1) & ".客戶訂單號 
-                        FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName RIGHT OUTER JOIN " & 訂單資料表(7) & " ON 
-                               " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 " & 列印用SQL & "
-                        ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
-    End Sub
-    Friend Sub SQL_利潤表載入4()
-        SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
-                               " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
-                               " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
-                               " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
-                               " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
-                              (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
-                               " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
-                               " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
-                               " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
-                               " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
-                               " & 訂單資料表(1) & ".客戶訂單號 
-                        FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName LEFT OUTER JOIN " & 訂單資料表(7) & " ON 
-                               " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 
-                        WHERE (" & 訂單資料表(1) & ".訂單流水號 LIKE '" & 訂單價格利潤明細表.天盾流水號_tb.Text & "') AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) 
-                        ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
-    End Sub
-    Friend Sub SQL_利潤表暫存檔_刪除利潤表暫存檔()
-        ConnOpen()
-        SQL1 = "DELETE FROM 訂單價格利潤表暫存檔"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_利潤表暫存檔_訂單資料表_最後一筆資料()
-        ConnOpen()
-        SQL1 = "SELECT TOP (1) 利潤表流水號 FROM " & PA & " ORDER BY 利潤表流水號 DESC"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_利潤表暫存檔_訂單資料表_新增一筆流水號資料()
-        ConnOpen()
-        SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) 
-               VALUES ('" & PA & "','" & PA1 & "', '" & PA2 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_訂單資料表_訂單流水號資料()
-        ConnOpen()
-        SQL1 = "SELECT " & PA1 & ".訂單流水號 
-                FROM   " & PA1 & " FULL OUTER JOIN " & PA2 & " ON " & PA1 & ".資料流水號 = " & PA2 & ".資料流水號 
-                WHERE (" & PA2 & ".天盾訂單號 IS NULL) AND 
-                      (LEFT(" & PA1 & ".客戶交期, 4) NOT LIKE '2009') AND (LEFT(" & PA1 & ".客戶交期, 4) NOT LIKE '2010') AND 
-                      (LEFT(" & PA1 & ".客戶交期, 4) NOT LIKE '2011') AND (LEFT(" & PA1 & ".客戶交期, 4) NOT LIKE '2012') AND 
-                      (LEFT(" & PA1 & ".客戶交期, 4) NOT LIKE '2013') AND (LEFT(" & PA1 & ".客戶交期, 4) NOT LIKE '2014') AND 
-                      (LEFT(" & PA1 & ".客戶交期, 4) NOT LIKE '2015') AND (LEFT(" & PA1 & ".客戶交期, 4) NOT LIKE '2016') AND 
-                      (LEFT(" & PA1 & ".客戶交期, 4) NOT LIKE '2017') AND (" & PA1 & ".CXL IS NULL OR " & PA1 & ".CXL = 0) 
-                GROUP BY   " & PA1 & ".訂單流水號 ORDER BY   " & PA1 & ".訂單流水號 DESC"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_訂單資料表_新增一筆客戶資料()
-        ConnOpen()
-        SQL1 = "INSERT INTO " & PA & " (資料流水號, 天盾訂單號, 客戶流水號, FTYPrice, BasicPrice, Polybag, FOOTformOrPETform, Tooling, RubberBand, JHOOK, WaterResistant, P16VAT, 
-                                                       EXWsaving, Currency, Exchange, 年份, Quantity, 利潤表流水號, 審核) 
-                VALUES ('" & 訂單價格利潤明細表.TextBox16.Text & "', '" & 訂單價格利潤明細表.天盾流水號_tb.Text & "', '" & 訂單價格利潤明細表.客戶訂單號_tb.Text & "', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '" & 訂單價格利潤明細表.Currency_cb.Text & "', '0', 
-                        '" & 訂單價格利潤明細表.年份_cb.Text & "', '0', '" & PA1 & "', '0')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_利潤表暫存檔_刪除利潤表流水號()
-        ConnOpen()
-        SQL1 = "DELETE FROM 訂單價格利潤表暫存檔 WHERE 利潤表流水號 LIKE '" & 訂單價格利潤明細表.TextBox17.Text & "'"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_利潤表暫存檔_刪除利潤表流水號1()
-        ConnOpen()
-        SQL1 = "DELETE FROM " & PA & " WHERE 利潤表流水號 LIKE '" & 訂單價格利潤明細表.TextBox17.Text & "'"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_訂單資料表_查詢資料流水號()
-        ConnOpen()
-        SQL1 = "SELECT 利潤表流水號 FROM " & PA & " WHERE (資料流水號 LIKE '" & PA1 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_訂單控制表修改紀錄_查詢最後一筆流水號()
-        ConnOpen()
-        SQL1 = "SELECT TOP (1) 編輯次數 FROM 訂單控制表修改紀錄 WHERE (流水號 LIKE '" & PA1 & "') ORDER BY 編輯次數 DESC"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_訂單控制表修改紀錄_新增一筆流水號()
-        ConnOpen()
-        SQL1 = "INSERT INTO 訂單控制表修改紀錄 (流水號, 編輯者, 編輯時間, 編輯次數) 
-                            VALUES ('" & PA2 & "','" & gUserName & "','" & Format(Today, "yyyy/MM/dd") & "','" & PA3 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_訂單控制表修改紀錄_修改訂單資料表()
-        ConnOpen()
-        SQL1 = "UPDATE " & PA4 & " SET  單價 = '" & PA5 & "', 總金額 = '" & PA6 & "' 
-                WHERE (資料流水號 LIKE '" & PA7 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_訂單資料表_新增訂單資料表資料()
-        ConnOpen()
-        SQL1 = "INSERT INTO " & PA8 & " (資料流水號, 天盾訂單號, 客戶流水號, FTYPrice, BasicPrice, Polybag, FOOTformOrPETform, Tooling, RubberBand, JHOOK, WaterResistant, 
-                                                               P16VAT, EXWsaving, Currency, Exchange, 年份, Quantity, 利潤表流水號, 審核) 
-                VALUES ('" & PA9 & "', '" & PA10 & "', '" & PA11 & "', '" & PA12 & "', '" & PA13 & "', '" & PA14 & "', 
-                        '" & PA15 & "', '" & PA16 & "', '" & PA17 & "', '" & PA18 & "', '" & PA19 & "', '" & PA20 & "', 
-                        '" & PA21 & "', '" & 訂單價格利潤明細表.Currency_cb.Text & "', '" & PA22 & "', '" & PA23 & "', 
-                        '" & PA24 & "', '" & PA25 & "', '" & PA26 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_訂單資料表_更新訂單資料表資料()
-        ConnOpen()
-        SQL1 = "UPDATE " & PA8 & " SET  FTYPrice = '" & PA9 & "', BasicPrice = '" & PA10 & "', Polybag = '" & PA11 & "', FOOTformOrPETform = '" & PA12 & "', 
-                                                Tooling = '" & PA13 & "', RubberBand = '" & PA14 & "', JHOOK = '" & PA15 & "', WaterResistant = '" & PA16 & "', 
-                                                P16VAT = '" & PA17 & "', EXWsaving = '" & PA18 & "', Currency = '" & 訂單價格利潤明細表.Currency_cb.Text & "', Exchange = '" & PA19 & "',  
-                                                年份 = '" & PA20 & "', Quantity = '" & PA21 & "', 審核 = '" & PA22 & "' 
-                WHERE (利潤表流水號 LIKE '" & PA23 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_訂單資料表_更新金額()
-        ConnOpen()
-        SQL1 = "UPDATE " & PA1 & " SET  單價 = '0.00', 總金額 = '0.00' WHERE (訂單流水號 LIKE '" & 訂單價格利潤明細表.天盾流水號_tb.Text & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_訂單資料表_刪除訂單資料()
-        ConnOpen()
-        SQL1 = "DELETE FROM " & PA2 & " WHERE (天盾訂單號 = '" & 訂單價格利潤明細表.天盾流水號_tb.Text & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_利潤表暫存檔_利潤表流水號_最後一筆資料()
-        ConnOpen()
-        SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤表暫存檔 ORDER BY 利潤表流水號 DESC"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_新增訂單價格利潤表暫存檔()
-        ConnOpen()
-        SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) VALUES ('" & 訂單價格利潤明細表.TextBox16.Text & "','" & PA & "', '" & 訂單價格利潤明細表.天盾流水號_tb.Text & "')"
-        CmdSet_For_dr() : conn.Close()
-    End Sub
-
-
 End Module

TENDEN-MES-SYS/Module/全域變數.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 = "2021121401"
+    Public 版本 As String = "2022011401"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 

TENDEN-MES-SYS/成本系統管理/成本資料庫管理.Designer.vb

@@ -40,6 +40,9 @@ Partial Class 成本資料庫管理
         Me.資料流水號_dgv = New System.Windows.Forms.DataGridView()
         Me.資料流水號_tb = New System.Windows.Forms.TextBox()
         Me.刪除_bt = New System.Windows.Forms.Button()
+        Me.資料庫選擇2_bt = New System.Windows.Forms.Button()
+        Me.資料庫選擇1_bt = New System.Windows.Forms.Button()
+        Me.Label20 = New System.Windows.Forms.Label()
         CType(Me.訂單清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.利潤表流水_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.天盾訂單號_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -52,7 +55,7 @@ Partial Class 成本資料庫管理
         '
         Me.Label16.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(1173, 8)
+        Me.Label16.Location = New System.Drawing.Point(1173, 29)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(32, 16)
         Me.Label16.TabIndex = 479
@@ -64,15 +67,13 @@ Partial Class 成本資料庫管理
         Me.年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.年份_cb.FormattingEnabled = True
         Me.年份_cb.Items.AddRange(New Object() {"2023", "2022", "2021", "2020", "2019", "2018"})
-        Me.年份_cb.Location = New System.Drawing.Point(1211, 5)
+        Me.年份_cb.Location = New System.Drawing.Point(1211, 26)
         Me.年份_cb.Name = "年份_cb"
         Me.年份_cb.Size = New System.Drawing.Size(134, 24)
         Me.年份_cb.TabIndex = 478
         '
         '訂單清單_dgv
         '
-        Me.訂單清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.訂單清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -82,16 +83,17 @@ Partial Class 成本資料庫管理
         DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.訂單清單_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
         Me.訂單清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.訂單清單_dgv.Location = New System.Drawing.Point(5, 5)
+        Me.訂單清單_dgv.Location = New System.Drawing.Point(5, 3)
         Me.訂單清單_dgv.Name = "訂單清單_dgv"
         Me.訂單清單_dgv.RowHeadersWidth = 5
         Me.訂單清單_dgv.RowTemplate.Height = 24
-        Me.訂單清單_dgv.Size = New System.Drawing.Size(548, 377)
+        Me.訂單清單_dgv.Size = New System.Drawing.Size(548, 386)
         Me.訂單清單_dgv.TabIndex = 480
         '
         '利潤表流水_dgv
         '
-        Me.利潤表流水_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.利潤表流水_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.利潤表流水_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -101,24 +103,25 @@ Partial Class 成本資料庫管理
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.利潤表流水_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
         Me.利潤表流水_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.利潤表流水_dgv.Location = New System.Drawing.Point(559, 5)
+        Me.利潤表流水_dgv.Location = New System.Drawing.Point(559, 3)
         Me.利潤表流水_dgv.Name = "利潤表流水_dgv"
         Me.利潤表流水_dgv.RowHeadersWidth = 5
         Me.利潤表流水_dgv.RowTemplate.Height = 24
-        Me.利潤表流水_dgv.Size = New System.Drawing.Size(526, 50)
+        Me.利潤表流水_dgv.Size = New System.Drawing.Size(526, 60)
         Me.利潤表流水_dgv.TabIndex = 481
         '
         '利潤表流水號_tb
         '
         Me.利潤表流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.利潤表流水號_tb.Location = New System.Drawing.Point(1171, 35)
+        Me.利潤表流水號_tb.Location = New System.Drawing.Point(1171, 51)
         Me.利潤表流水號_tb.Name = "利潤表流水號_tb"
         Me.利潤表流水號_tb.Size = New System.Drawing.Size(174, 23)
         Me.利潤表流水號_tb.TabIndex = 482
         '
         '天盾訂單號_dgv
         '
-        Me.天盾訂單號_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.天盾訂單號_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.天盾訂單號_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -128,7 +131,7 @@ Partial Class 成本資料庫管理
         DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.天盾訂單號_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
         Me.天盾訂單號_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.天盾訂單號_dgv.Location = New System.Drawing.Point(559, 117)
+        Me.天盾訂單號_dgv.Location = New System.Drawing.Point(559, 124)
         Me.天盾訂單號_dgv.Name = "天盾訂單號_dgv"
         Me.天盾訂單號_dgv.RowHeadersWidth = 5
         Me.天盾訂單號_dgv.RowTemplate.Height = 24
@@ -148,11 +151,11 @@ Partial Class 成本資料庫管理
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.訂單流水號_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
         Me.訂單流水號_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.訂單流水號_dgv.Location = New System.Drawing.Point(5, 388)
+        Me.訂單流水號_dgv.Location = New System.Drawing.Point(5, 391)
         Me.訂單流水號_dgv.Name = "訂單流水號_dgv"
         Me.訂單流水號_dgv.RowHeadersWidth = 5
         Me.訂單流水號_dgv.RowTemplate.Height = 24
-        Me.訂單流水號_dgv.Size = New System.Drawing.Size(548, 307)
+        Me.訂單流水號_dgv.Size = New System.Drawing.Size(548, 304)
         Me.訂單流水號_dgv.TabIndex = 484
         '
         '天盾流水號_dgv
@@ -169,7 +172,7 @@ Partial Class 成本資料庫管理
         DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.天盾流水號_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
         Me.天盾流水號_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.天盾流水號_dgv.Location = New System.Drawing.Point(559, 388)
+        Me.天盾流水號_dgv.Location = New System.Drawing.Point(559, 391)
         Me.天盾流水號_dgv.Name = "天盾流水號_dgv"
         Me.天盾流水號_dgv.RowHeadersWidth = 5
         Me.天盾流水號_dgv.RowTemplate.Height = 24
@@ -179,14 +182,15 @@ Partial Class 成本資料庫管理
         '天盾訂單號_tb
         '
         Me.天盾訂單號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.天盾訂單號_tb.Location = New System.Drawing.Point(1171, 89)
+        Me.天盾訂單號_tb.Location = New System.Drawing.Point(1171, 99)
         Me.天盾訂單號_tb.Name = "天盾訂單號_tb"
         Me.天盾訂單號_tb.Size = New System.Drawing.Size(174, 23)
         Me.天盾訂單號_tb.TabIndex = 486
         '
         '資料流水號_dgv
         '
-        Me.資料流水號_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.資料流水號_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.資料流水號_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -196,17 +200,17 @@ Partial Class 成本資料庫管理
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.資料流水號_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
         Me.資料流水號_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.資料流水號_dgv.Location = New System.Drawing.Point(559, 61)
+        Me.資料流水號_dgv.Location = New System.Drawing.Point(559, 66)
         Me.資料流水號_dgv.Name = "資料流水號_dgv"
         Me.資料流水號_dgv.RowHeadersWidth = 5
         Me.資料流水號_dgv.RowTemplate.Height = 24
-        Me.資料流水號_dgv.Size = New System.Drawing.Size(606, 50)
+        Me.資料流水號_dgv.Size = New System.Drawing.Size(606, 55)
         Me.資料流水號_dgv.TabIndex = 487
         '
         '資料流水號_tb
         '
         Me.資料流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.資料流水號_tb.Location = New System.Drawing.Point(1171, 62)
+        Me.資料流水號_tb.Location = New System.Drawing.Point(1171, 75)
         Me.資料流水號_tb.Name = "資料流水號_tb"
         Me.資料流水號_tb.Size = New System.Drawing.Size(174, 23)
         Me.資料流水號_tb.TabIndex = 488
@@ -215,18 +219,48 @@ Partial Class 成本資料庫管理
         '
         Me.刪除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.刪除_bt.ForeColor = System.Drawing.Color.Green
-        Me.刪除_bt.Location = New System.Drawing.Point(1091, 5)
+        Me.刪除_bt.Location = New System.Drawing.Point(1091, 26)
         Me.刪除_bt.Name = "刪除_bt"
-        Me.刪除_bt.Size = New System.Drawing.Size(74, 50)
+        Me.刪除_bt.Size = New System.Drawing.Size(74, 35)
         Me.刪除_bt.TabIndex = 489
         Me.刪除_bt.Text = "刪除"
         Me.刪除_bt.UseVisualStyleBackColor = True
         '
+        '資料庫選擇2_bt
+        '
+        Me.資料庫選擇2_bt.Location = New System.Drawing.Point(1270, 1)
+        Me.資料庫選擇2_bt.Name = "資料庫選擇2_bt"
+        Me.資料庫選擇2_bt.Size = New System.Drawing.Size(75, 24)
+        Me.資料庫選擇2_bt.TabIndex = 565
+        Me.資料庫選擇2_bt.Text = "DRS/ LIF"
+        Me.資料庫選擇2_bt.UseVisualStyleBackColor = True
+        '
+        '資料庫選擇1_bt
+        '
+        Me.資料庫選擇1_bt.Location = New System.Drawing.Point(1192, 1)
+        Me.資料庫選擇1_bt.Name = "資料庫選擇1_bt"
+        Me.資料庫選擇1_bt.Size = New System.Drawing.Size(75, 24)
+        Me.資料庫選擇1_bt.TabIndex = 564
+        Me.資料庫選擇1_bt.Text = "VIONIC"
+        Me.資料庫選擇1_bt.UseVisualStyleBackColor = True
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(1100, 5)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(80, 16)
+        Me.Label20.TabIndex = 563
+        Me.Label20.Text = "選擇訂單品牌"
+        '
         '成本資料庫管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.資料庫選擇2_bt)
+        Me.Controls.Add(Me.資料庫選擇1_bt)
+        Me.Controls.Add(Me.Label20)
         Me.Controls.Add(Me.刪除_bt)
         Me.Controls.Add(Me.資料流水號_tb)
         Me.Controls.Add(Me.資料流水號_dgv)
@@ -266,5 +300,8 @@ Partial Class 成本資料庫管理
     Friend WithEvents 資料流水號_dgv As DataGridView
     Friend WithEvents 資料流水號_tb As TextBox
     Friend WithEvents 刪除_bt As Button
+    Friend WithEvents 資料庫選擇2_bt As Button
+    Friend WithEvents 資料庫選擇1_bt As Button
+    Friend WithEvents Label20 As Label
 End Class
 

TENDEN-MES-SYS/成本系統管理/成本資料庫管理.vb

@@ -89,8 +89,7 @@ Public Class 成本資料庫管理
     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
-        年份_cb.Text = Year(Today)
-        Set_訂單清單() : Set_grid()
+        訂單資料庫選擇.ShowDialog() : 年份_cb.Text = Year(Today) : Set_訂單清單() : Set_grid()
     End Sub
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
         Set_訂單清單() : Set_grid()
@@ -132,4 +131,10 @@ Public Class 成本資料庫管理
         End If
         MsgBox("刪除完成")
     End Sub
+    Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click
+        SQL_訂單資料表選擇_VIONIC() : Set_訂單清單() : Set_grid()
+    End Sub
+    Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click
+        SQL_訂單資料表選擇_非VIONIC() : Set_訂單清單() : Set_grid()
+    End Sub
 End Class

TENDEN-MES-SYS/成本系統管理/訂單價格利潤明細表.vb

@@ -2,52 +2,134 @@
 Public Class 訂單價格利潤明細表
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
     ReadOnly BB(3) As Boolean : Dim WW As String : Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
-    Private Sub Set_DGV1載入前設定()
+    Private Sub 利潤表載入前設定()
         利潤表_dgv.DataSource = Nothing : ds.Clear()
         利潤表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         利潤表_dgv.ColumnHeadersHeight = 25
         利潤表_dgv.AllowUserToAddRows = False
         ConnOpen()
     End Sub
-    Private Sub Set_DGV1載入後設定()
+    Private Sub 利潤表載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 利潤表_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_訂單清單()
-        Set_DGV1載入前設定()
+        利潤表載入前設定()
         If 未建檔_cb.Checked = True Then
             Timer1.Enabled = True : 存檔_bt.Enabled = True : 刪除_bt.Enabled = False : 修改_bt.Enabled = False
             等於訂單數_bt.Enabled = True : 等於零_bt.Enabled = True : 匯率為1_bt.Enabled = True
-            'PA1 = 訂單資料表(1) : PA2 = 訂單資料表(7)
             If 天盾流水號_tb.Text = "" Then
-                SQL_利潤表載入()
+                SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
+                               " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
+                               " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
+                               " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
+                               " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
+                              (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
+                               " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                               " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
+                               " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
+                               " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
+                               " & 訂單資料表(1) & ".客戶訂單號 
+                        FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName RIGHT OUTER JOIN " & 訂單資料表(7) & " ON 
+                               " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 
+                        WHERE ((" & 訂單資料表(1) & ".訂單流水號 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".年份季度 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".客戶訂單號 LIKE '%" & PA & "%') OR 
+                               (" & 訂單資料表(1) & ".形體號 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".顏色 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".楦型 LIKE '%" & PA & "%') OR 
+                               (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".生產工廠 LIKE '%" & PA & "%') OR 
+                               (" & 訂單資料表(1) & ".訂單種類 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".力威訂單號 LIKE '%" & PA & "%')) 
+                               AND " & 訂單資料表(7) & ".天盾訂單號 IS NULL AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) 
+                        ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
             Else
-                SQL_利潤表載入1()
+                SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
+                               " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
+                               " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
+                               " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
+                               " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
+                              (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
+                               " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                               " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
+                               " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
+                               " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
+                               " & 訂單資料表(1) & ".客戶訂單號 
+                        FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName LEFT OUTER JOIN " & 訂單資料表(7) & " ON 
+                               " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 
+                        WHERE (" & 訂單資料表(1) & ".訂單流水號 LIKE '" & 天盾流水號_tb.Text & "') AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) 
+                        ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
             End If
-            Set_DGV1載入後設定() : Set_grid() : Set_自動彙總1()
+            利潤表載入後設定() : Set_grid() : Set_自動彙總1()
             Set_暫存資料設定() : Set_編輯清單() : Set_grid() : Set_自動彙總1()
         ElseIf 未建檔_cb.Checked = False Then
             Timer1.Enabled = False : Label47.Visible = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = True : 修改_bt.Enabled = True
             等於訂單數_bt.Enabled = False : 等於零_bt.Enabled = False : 匯率為1_bt.Enabled = False
             If PA = "" Then
-                SQL_利潤表載入2()
+                列印用SQL = "WHERE " & 訂單資料表(7) & ".年份 LIKE '" & 年份_cb.Text & "' AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
+                SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
+                               " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
+                               " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
+                               " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
+                               " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
+                              (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
+                               " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                               " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
+                               " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
+                               " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
+                               " & 訂單資料表(1) & ".客戶訂單號 
+                        FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName RIGHT OUTER JOIN " & 訂單資料表(7) & " ON 
+                               " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 " & 列印用SQL & "
+                        ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
             Else
-                SQL_利潤表載入3()
+                列印用SQL = " WHERE ((" & 訂單資料表(1) & ".訂單流水號 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".年份季度 LIKE '%" & PA & "%') OR 
+                                    (" & 訂單資料表(1) & ".客戶訂單號 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".形體號 LIKE '%" & PA & "%') OR 
+                                    (" & 訂單資料表(1) & ".顏色 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".楦型 LIKE '%" & PA & "%') OR 
+                                    (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR 
+                                    (" & 訂單資料表(1) & ".生產工廠 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".訂單種類 LIKE '%" & PA & "%') OR 
+                                    (" & 訂單資料表(1) & ".力威訂單號 LIKE '%" & PA & "%')) AND " & 訂單資料表(7) & ".天盾訂單號 IS NOT NULL AND 
+                                    " & 訂單資料表(7) & ".年份 LIKE '" & 年份_cb.Text & "' AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
+
+                SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
+                               " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
+                               " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
+                               " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
+                               " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
+                              (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
+                               " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                               " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
+                               " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
+                               " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
+                               " & 訂單資料表(1) & ".客戶訂單號 
+                        FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName RIGHT OUTER JOIN " & 訂單資料表(7) & " ON 
+                               " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 " & 列印用SQL & "
+                        ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
             End If
-            Set_DGV1載入後設定()
+            利潤表載入後設定()
         End If
         資料筆數_tb.Text = Format(利潤表_dgv.Rows.Count, "#,##0")
     End Sub
     Private Sub Set_編輯清單()
-        Set_DGV1載入前設定()
-        SQL_利潤表載入4()
-        Set_DGV1載入後設定()
+        利潤表載入前設定()
+        SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
+                       " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".單價, 
+                       " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
+                       " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
+                       " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
+                      (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, " & 訂單資料表(1) & ".單價 - 
+                       " & 訂單資料表(7) & ".FTYPrice AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                       " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
+                       " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
+                       訂單價格利潤表暫存檔.利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
+                       " & 訂單資料表(1) & ".客戶訂單號 
+                FROM   STYLELIST RIGHT OUTER JOIN " & 訂單資料表(1) & " ON STYLELIST.ProductName = " & 訂單資料表(1) & ".形體號 RIGHT OUTER JOIN 訂單價格利潤表暫存檔 ON 
+                       " & 訂單資料表(1) & ".資料流水號 = 訂單價格利潤表暫存檔.資料流水號 LEFT OUTER JOIN " & 訂單資料表(7) & " ON 訂單價格利潤表暫存檔.資料流水號 = " & 訂單資料表(7) & ".資料流水號 
+                ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC, " & 訂單資料表(1) & ".形體號, " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".楦型"
+        利潤表載入後設定()
     End Sub
     Private Sub Set_暫存資料設定()
-        SQL_利潤表暫存檔_刪除利潤表暫存檔() : conn.Close()
+        ConnOpen()
+        SQL1 = "DELETE FROM 訂單價格利潤表暫存檔"
+        CmdSet_For_dr() : conn.Close()
 
         Dim NUM2 As Integer
-        PA = 訂單資料表(7)
-        SQL_利潤表暫存檔_訂單資料表_最後一筆資料()
+        ConnOpen()
+        SQL1 = "SELECT TOP (1) 利潤表流水號 FROM " & 訂單資料表(7) & " ORDER BY 利潤表流水號 DESC"
+        CmdSet_For_dr()
         If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If
         conn.Close()
         For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
@@ -61,10 +143,10 @@ Public Class 訂單價格利潤明細表
             ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : WW = "PR" & "0" & NUM2
             ElseIf NUM2 > 9999999 Then : WW = "PR" & NUM2
             End If
-            PA = 利潤表_dgv.Rows(i).Cells("資料流水號").Value
-            PA1 = WW
-            PA2 = 利潤表_dgv.Rows(i).Cells("訂單流水號").Value
-            SQL_利潤表暫存檔_訂單資料表_新增一筆流水號資料() : conn.Close()
+            ConnOpen()
+            SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) 
+                    VALUES ('" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "','" & WW & "', '" & 利潤表_dgv.Rows(i).Cells("訂單流水號").Value & "')"
+            CmdSet_For_dr() : conn.Close()
         Next i
     End Sub
     Private Sub Set_未建檔清單()
@@ -72,9 +154,17 @@ Public Class 訂單價格利潤明細表
         訂單流水號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         訂單流水號_dgv.ColumnHeadersHeight = 25
         訂單流水號_dgv.AllowUserToAddRows = False
-        PA1 = 訂單資料表(1)
-        PA2 = 訂單資料表(7)
-        SQL_訂單資料表_訂單流水號資料() : da.Fill(ds1) : 訂單流水號_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        ConnOpen()
+        SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號 
+                FROM   " & 訂單資料表(1) & " FULL OUTER JOIN " & 訂單資料表(7) & " ON " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 
+                WHERE (" & 訂單資料表(7) & ".天盾訂單號 IS NULL) AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2009') AND (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2010') AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2011') AND (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2012') AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2013') AND (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2014') AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2015') AND (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2016') AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2017') AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) 
+                GROUP BY   " & 訂單資料表(1) & ".訂單流水號 ORDER BY   " & 訂單資料表(1) & ".訂單流水號 DESC"
+        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 訂單流水號_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_grid()
         利潤表_dgv.Columns(0).FillWeight = 85 : 利潤表_dgv.Columns(1).Visible = False
@@ -265,7 +355,7 @@ Public Class 訂單價格利潤明細表
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         If Label47.Visible = True Then : Label47.Visible = False : Else : Label47.Visible = True : End If
     End Sub
-    Private Sub 利潤表_dgv_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 利潤表_dgv.CellEndEdit
+    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 利潤表_dgv.CellEndEdit
         Set_自動彙總1()
     End Sub
     Private Sub 利潤表_dgv_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 利潤表_dgv.CellClick
@@ -277,7 +367,7 @@ Public Class 訂單價格利潤明細表
             TextBox17.Text = 利潤表_dgv(33, e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub 訂單流水號_dgv_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單流水號_dgv.CellClick
+    Private Sub 訂單流水號_dgv2_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單流水號_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             天盾流水號_tb.Text = 訂單流水號_dgv(0, e.RowIndex).Value.ToString
             Timer1.Enabled = True : 存檔_bt.Enabled = True : 未建檔_cb.Checked = True : 已建檔_bt.Checked = False : 刪除_bt.Enabled = False : 修改_bt.Enabled = False
@@ -291,7 +381,9 @@ Public Class 訂單價格利潤明細表
                 MsgBox("沒有選擇將要拆分的資料")
             Else
                 Dim NUM2 As Integer
-                SQL_利潤表暫存檔_利潤表流水號_最後一筆資料()
+                ConnOpen()
+                SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤表暫存檔 ORDER BY 利潤表流水號 DESC"
+                CmdSet_For_dr()
                 If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If
                 conn.Close()
                 NUM2 += 1
@@ -304,14 +396,16 @@ Public Class 訂單價格利潤明細表
                 ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : WW = "PR" & "0" & NUM2
                 ElseIf NUM2 > 9999999 Then : WW = "PR" & NUM2
                 End If
-                PA = WW
-                SQL_新增訂單價格利潤表暫存檔() : conn.Close()
+                ConnOpen()
+                SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) VALUES ('" & TextBox16.Text & "','" & WW & "', '" & 天盾流水號_tb.Text & "')"
+                CmdSet_For_dr() : conn.Close()
                 Set_編輯清單() : Set_grid() : Set_自動彙總1()
             End If
         ElseIf 未建檔_cb.Checked = False Then
             Dim NUM2 As Integer
-            PA = 訂單資料表(7)
-            SQL_利潤表暫存檔_訂單資料表_新增一筆流水號資料()
+            ConnOpen()
+            SQL1 = "SELECT TOP (1) 利潤表流水號 FROM " & 訂單資料表(7) & " ORDER BY 利潤表流水號 DESC"
+            CmdSet_For_dr()
             If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If
             conn.Close()
             NUM2 += 1
@@ -324,19 +418,25 @@ Public Class 訂單價格利潤明細表
             ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : WW = "PR" & "0" & NUM2
             ElseIf NUM2 > 9999999 Then : WW = "PR" & NUM2
             End If
-            PA = 訂單資料表(7)
-            PA1 = WW
-            SQL_訂單資料表_新增一筆客戶資料() : conn.Close()
+            ConnOpen()
+            SQL1 = "INSERT INTO " & 訂單資料表(7) & " (資料流水號, 天盾訂單號, 客戶流水號, FTYPrice, BasicPrice, Polybag, FOOTformOrPETform, Tooling, RubberBand, JHOOK, WaterResistant, P16VAT, 
+                                                       EXWsaving, Currency, Exchange, 年份, Quantity, 利潤表流水號, 審核) 
+                    VALUES ('" & TextBox16.Text & "', '" & 天盾流水號_tb.Text & "', '" & 客戶訂單號_tb.Text & "', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '" & Currency_cb.Text & "', '0', 
+                            '" & 年份_cb.Text & "', '0', '" & WW & "', '0')"
+            CmdSet_For_dr() : conn.Close()
             Set_訂單清單() : Set_grid() : Set_自動彙總1()
         End If
     End Sub
     Private Sub 刪除拆分資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除拆分資料_bt.Click
         If 未建檔_cb.Checked = True Then
-            SQL_利潤表暫存檔_刪除利潤表流水號() : conn.Close()
+            ConnOpen()
+            SQL1 = "DELETE FROM 訂單價格利潤表暫存檔 WHERE 利潤表流水號 LIKE '" & TextBox17.Text & "'"
+            CmdSet_For_dr() : conn.Close()
             Set_編輯清單() : Set_grid() : Set_自動彙總1()
         ElseIf 未建檔_cb.Checked = False Then
-            PA = 訂單資料表(7)
-            SQL_利潤表暫存檔_刪除利潤表流水號1() : conn.Close()
+            ConnOpen()
+            SQL1 = "DELETE FROM " & 訂單資料表(7) & " WHERE 利潤表流水號 LIKE '" & TextBox17.Text & "'"
+            CmdSet_For_dr() : conn.Close()
             Set_訂單清單() : Set_grid() : Set_自動彙總1()
         End If
     End Sub
@@ -416,36 +516,41 @@ Public Class 訂單價格利潤明細表
             MsgBox("年份或幣別沒有選擇")
         Else
             For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
-                PA = 訂單資料表(7)
-                PA1 = 利潤表_dgv.Rows(i).Cells("資料流水號").Value
-                SQL_訂單資料表_查詢資料流水號()
+                ConnOpen()
+                SQL1 = "SELECT 利潤表流水號 FROM " & 訂單資料表(7) & " WHERE (資料流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "')"
+                CmdSet_For_dr()
                 If dr.Read() Then
                     conn.Close()
                 Else
-                    SQL_訂單控制表修改紀錄_查詢最後一筆流水號()
+                    conn.Close()
+                    ConnOpen()
+                    SQL1 = "SELECT TOP (1) 編輯次數 FROM 訂單控制表修改紀錄 WHERE (流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "') ORDER BY 編輯次數 DESC"
+                    CmdSet_For_dr()
                     If dr.Read() Then : NUM2 = dr("編輯次數").ToString : End If
                     conn.Close()
                     NUM2 += 1
-                    PA2 = 利潤表_dgv.Rows(i).Cells("資料流水號").Value
-                    PA3 = NUM2
-
-                    SQL_訂單控制表修改紀錄_新增一筆流水號() : conn.Close()
+                    ConnOpen()
+                    SQL1 = "INSERT INTO 訂單控制表修改紀錄 (流水號, 編輯者, 編輯時間, 編輯次數) 
+                            VALUES ('" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "','" & gUserName & "','" & Format(Today, "yyyy/MM/dd") & "','" & NUM2 & "')"
+                    CmdSet_For_dr() : conn.Close()
 
-                    PA4 = 訂單資料表(1)
-                    PA5 = 利潤表_dgv.Rows(i).Cells("單價").Value
-                    PA6 = 利潤表_dgv.Rows(i).Cells("總金額").Value
-                    PA7 = 利潤表_dgv.Rows(i).Cells("資料流水號").Value
-
-                    SQL_訂單控制表修改紀錄_修改訂單資料表() : conn.Close()
-
-                    PA8 = 訂單資料表(7)
-                    PA9 = 利潤表_dgv.Rows(i).Cells("資料流水號").Value : PA10 = 利潤表_dgv.Rows(i).Cells("訂單流水號").Value : PA11 = 利潤表_dgv.Rows(i).Cells("客戶訂單號").Value
-                    PA12 = 利潤表_dgv.Rows(i).Cells("FTYPrice").Value : PA13 = 利潤表_dgv.Rows(i).Cells("BasicPrice").Value : PA14 = 利潤表_dgv.Rows(i).Cells("PG/MOQ").Value
-                    PA15 = 利潤表_dgv.Rows(i).Cells("FOOTorPET").Value : PA16 = 利潤表_dgv.Rows(i).Cells("Tooling").Value : PA17 = 利潤表_dgv.Rows(i).Cells("RubberBand").Value
-                    PA18 = 利潤表_dgv.Rows(i).Cells("JHOOK").Value : PA19 = 利潤表_dgv.Rows(i).Cells("WaterResistant").Value : PA20 = 利潤表_dgv.Rows(i).Cells("P16VAT").Value
-                    PA21 = 利潤表_dgv.Rows(i).Cells("EXWsaving").Value : PA22 = 利潤表_dgv.Rows(i).Cells("Exchange").Value : PA23 = 利潤表_dgv.Rows(i).Cells("年份").Value
-                    PA24 = 利潤表_dgv.Rows(i).Cells("Quantity").Value : PA25 = 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value : PA26 = 利潤表_dgv.Rows(i).Cells("審核").Value
-                    SQL_訂單資料表_新增訂單資料表資料() : conn.Close()
+                    ConnOpen()
+                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET  單價 = '" & 利潤表_dgv.Rows(i).Cells("單價").Value & "', 總金額 = '" & 利潤表_dgv.Rows(i).Cells("總金額").Value & "' 
+                            WHERE (資料流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "')"
+                    CmdSet_For_dr() : conn.Close()
+                    ConnOpen()
+                    SQL1 = "INSERT INTO " & 訂單資料表(7) & " (資料流水號, 天盾訂單號, 客戶流水號, FTYPrice, BasicPrice, Polybag, FOOTformOrPETform, Tooling, RubberBand, JHOOK, WaterResistant, 
+                                                               P16VAT, EXWsaving, Currency, Exchange, 年份, Quantity, 利潤表流水號, 審核) 
+                            VALUES ('" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "', '" & 利潤表_dgv.Rows(i).Cells("訂單流水號").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("客戶訂單號").Value & "', '" & 利潤表_dgv.Rows(i).Cells("FTYPrice").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("BasicPrice").Value & "', '" & 利潤表_dgv.Rows(i).Cells("PG/MOQ").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("FOOTorPET").Value & "', '" & 利潤表_dgv.Rows(i).Cells("Tooling").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("RubberBand").Value & "', '" & 利潤表_dgv.Rows(i).Cells("JHOOK").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("WaterResistant").Value & "', '" & 利潤表_dgv.Rows(i).Cells("P16VAT").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("EXWsaving").Value & "', '" & Currency_cb.Text & "', '" & 利潤表_dgv.Rows(i).Cells("Exchange").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("年份").Value & "', '" & 利潤表_dgv.Rows(i).Cells("Quantity").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value & "', '" & 利潤表_dgv.Rows(i).Cells("審核").Value & "')"
+                    CmdSet_For_dr() : conn.Close()
                 End If
             Next i
             MsgBox("存檔完成")
@@ -466,28 +571,32 @@ Public Class 訂單價格利潤明細表
         Else
             For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
                 資料數 = 利潤表_dgv.Rows.Count : 進度條()
-                SQL_訂單控制表修改紀錄_查詢最後一筆流水號()
+                ConnOpen()
+                SQL1 = "SELECT TOP (1) 編輯次數 FROM 訂單控制表修改紀錄 WHERE (流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "') ORDER BY 編輯次數 DESC"
+                CmdSet_For_dr()
                 If dr.Read() Then : NUM2 = dr("編輯次數").ToString : End If
                 conn.Close()
                 NUM2 += 1
-                SQL_訂單控制表修改紀錄_新增一筆流水號() : conn.Close()
-
-                PA4 = 訂單資料表(1)
-                PA5 = 利潤表_dgv.Rows(i).Cells("單價").Value
-                PA6 = 利潤表_dgv.Rows(i).Cells("總金額").Value
-                PA7 = 利潤表_dgv.Rows(i).Cells("資料流水號").Value
-
-                SQL_訂單控制表修改紀錄_修改訂單資料表() : conn.Close()
-
-                PA8 = 訂單資料表(7)
-                PA9 = 利潤表_dgv.Rows(i).Cells("FTYPrice").Value : PA10 = 利潤表_dgv.Rows(i).Cells("BasicPrice").Value : PA11 = 利潤表_dgv.Rows(i).Cells("PG/MOQ").Value
-                PA12 = 利潤表_dgv.Rows(i).Cells("FOOTorPET").Value : PA13 = 利潤表_dgv.Rows(i).Cells("Tooling").Value : PA14 = 利潤表_dgv.Rows(i).Cells("RubberBand").Value
-                PA15 = 利潤表_dgv.Rows(i).Cells("JHOOK").Value : PA16 = 利潤表_dgv.Rows(i).Cells("WaterResistant").Value : PA17 = 利潤表_dgv.Rows(i).Cells("P16VAT").Value
-                PA18 = 利潤表_dgv.Rows(i).Cells("EXWsaving").Value : PA19 = 利潤表_dgv.Rows(i).Cells("Exchange").Value : PA20 = 利潤表_dgv.Rows(i).Cells("年份").Value
-                PA21 = 利潤表_dgv.Rows(i).Cells("Quantity").Value : PA22 = 利潤表_dgv.Rows(i).Cells("審核").Value : PA23 = 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value
-                PA24 = 利潤表_dgv.Rows(i).Cells("Quantity").Value : PA25 = 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value : PA26 = 利潤表_dgv.Rows(i).Cells("審核").Value
+                ConnOpen()
+                SQL1 = "INSERT INTO 訂單控制表修改紀錄 (流水號, 編輯者, 編輯時間, 編輯次數) 
+                        VALUES ('" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "','" & gUserName & "','" & Format(Today, "yyyy/MM/dd") & "','" & NUM2 & "')"
+                CmdSet_For_dr() : conn.Close()
 
-                SQL_訂單資料表_更新訂單資料表資料() : conn.Close()
+                ConnOpen()
+                SQL1 = "UPDATE " & 訂單資料表(1) & " SET  單價 = '" & 利潤表_dgv.Rows(i).Cells("單價").Value & "', 總金額 = '" & 利潤表_dgv.Rows(i).Cells("總金額").Value & "' 
+                        WHERE (資料流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "')"
+                CmdSet_For_dr() : conn.Close()
+                ConnOpen()
+                SQL1 = "UPDATE " & 訂單資料表(7) & " SET  FTYPrice = '" & 利潤表_dgv.Rows(i).Cells("FTYPrice").Value & "', BasicPrice = '" & 利潤表_dgv.Rows(i).Cells("BasicPrice").Value & "', 
+                                                          Polybag = '" & 利潤表_dgv.Rows(i).Cells("PG/MOQ").Value & "', FOOTformOrPETform = '" & 利潤表_dgv.Rows(i).Cells("FOOTorPET").Value & "', 
+                                                          Tooling = '" & 利潤表_dgv.Rows(i).Cells("Tooling").Value & "', RubberBand = '" & 利潤表_dgv.Rows(i).Cells("RubberBand").Value & "', 
+                                                          JHOOK = '" & 利潤表_dgv.Rows(i).Cells("JHOOK").Value & "', WaterResistant = '" & 利潤表_dgv.Rows(i).Cells("WaterResistant").Value & "', 
+                                                          P16VAT = '" & 利潤表_dgv.Rows(i).Cells("P16VAT").Value & "', EXWsaving = '" & 利潤表_dgv.Rows(i).Cells("EXWsaving").Value & "', 
+                                                          Currency = '" & Currency_cb.Text & "', Exchange = '" & 利潤表_dgv.Rows(i).Cells("Exchange").Value & "',  
+                                                          年份 = '" & 利潤表_dgv.Rows(i).Cells("年份").Value & "', Quantity = '" & 利潤表_dgv.Rows(i).Cells("Quantity").Value & "', 
+                                                          審核 = '" & 利潤表_dgv.Rows(i).Cells("審核").Value & "' 
+                        WHERE (利潤表流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value & "')"
+                CmdSet_For_dr() : conn.Close()
             Next i : ProgressBar1.Value = 0 : 最終數 = 0
             MsgBox("修改完成")
             未建檔_cb.Checked = False : 已建檔_bt.Checked = True
@@ -500,11 +609,13 @@ Public Class 訂單價格利潤明細表
         Else
             Dim aa As MsgBoxResult
             aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-            PA1 = 訂單資料表(1)
-            PA2 = 訂單資料表(7)
             If aa = MsgBoxResult.Ok Then
-                SQL_訂單資料表_更新金額() : conn.Close()
-                SQL_訂單資料表_刪除訂單資料() : conn.Close()
+                ConnOpen()
+                SQL1 = "UPDATE " & 訂單資料表(1) & " SET  單價 = '0.00', 總金額 = '0.00' WHERE (訂單流水號 LIKE '" & 天盾流水號_tb.Text & "')"
+                CmdSet_For_dr() : conn.Close()
+                ConnOpen()
+                SQL1 = "DELETE FROM " & 訂單資料表(7) & " WHERE (天盾訂單號 = '" & 天盾流水號_tb.Text & "')"
+                CmdSet_For_dr() : conn.Close()
                 MsgBox("刪除完成")
             End If
         End If