TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/Module/SQL_彙總報表管理.vb

Module SQL_彙總報表管理
    '--------------------訂單分析報表-----------------------------------
    Friend Sub SQL_圖片資料庫()
        ConnOpen()
        SQL1 = "SELECT 類型, COUNT(圖片編號) AS 圖片數量 FROM 圖片庫一 GROUP BY   類型 ORDER BY   類型"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_中文樣品單資料庫()
        ConnOpen()
        SQL1 = "SELECT   季節, 工廠, 階段, COUNT(樣品流水號) AS 樣品單數, SUM(資料筆數) AS 顏色筆數 FROM (SELECT 確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 
                         確認樣品單抬頭.樣品流水號, COUNT(確認樣品單控制表.樣品流水號一) AS 資料筆數 
                FROM     確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
                WHERE    確認樣品單抬頭.季節 LIKE '" & 訂單分析報表.季度_cb.Text & "' GROUP BY 確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 確認樣品單抬頭.樣品流水號) AS Q 
                GROUP BY 季節, 工廠, 階段 ORDER BY 階段, 工廠"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_掛牌資料庫()
        ConnOpen()
        SQL1 = "SELECT   季節, 工廠, 階段, COUNT(樣品流水號) AS 樣品數量, SUM(掛牌數量) AS 吊牌數量 
                FROM    (SELECT   確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 確認樣品單抬頭.樣品流水號, COUNT(確認樣品單控制表.掛牌Color) AS 掛牌數量 
                         FROM     確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
                         WHERE   (確認樣品單控制表.掛牌Color IS NOT NULL) AND (確認樣品單控制表.掛牌Color NOT LIKE '') AND (確認樣品單抬頭.季節 LIKE '" & 訂單分析報表.季度_cb.Text & "') 
                         GROUP BY 確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單抬頭.階段, 確認樣品單抬頭.樣品流水號) AS Q 
                GROUP BY 季節, 工廠, 階段 ORDER BY 階段, 工廠"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_確認通知書()
        ConnOpen()
        SQL1 = "SELECT  確認樣品單抬頭.季節, 確認樣品單抬頭.工廠, 確認樣品單控制表.確認結果1 AS 通過, 確認樣品單控制表.確認結果3 AS 通過需重新打樣 
                FROM    確認樣品單控制表 LEFT OUTER JOIN 確認樣品單抬頭 ON 確認樣品單控制表.樣品流水號 = 確認樣品單抬頭.樣品流水號 
                WHERE ((確認樣品單控制表.確認結果1 LIKE '1') OR (確認樣品單控制表.確認結果3 LIKE '1')) AND (確認樣品單抬頭.季節 LIKE '" & 訂單分析報表.季度_cb.Text & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_量產樣品控制表未出貨數()
        ConnOpen()
        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"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_CXL數()
        ConnOpen()
        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"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_量產樣品控制表已出貨數()
        ConnOpen()
        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"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表未出貨數()
        ConnOpen()
        If 訂單分析報表.量產訂單依季度篩選_cb.Checked = True Then
            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
                    FROM    (SELECT LEFT(客戶交期, 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
                             WHERE (年份季度 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"
        Else
            If 訂單分析報表.依客戶交期_rb.Checked = True Then
                條件 = "客戶交期"
            Else
                條件 = "工廠回復交期"
            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"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表已出貨數()
        ConnOpen()
        If 訂單分析報表.量產訂單依季度篩選_cb.Checked = True Then
            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
                    FROM    (SELECT LEFT(客戶交期, 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
                             WHERE (年份季度 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"
        Else
            If 訂單分析報表.依客戶交期_rb.Checked = True Then
                條件 = "客戶交期"
            Else
                條件 = "工廠回復交期"
            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"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表CXL數()
        ConnOpen()
        If 訂單分析報表.量產訂單依季度篩選_cb.Checked = True Then
            SQL1 = "SELECT   交期, LEFT(年份季度,4) AS 季度, 生產工廠 AS 工廠, COUNT(形體號) AS 訂單數量, SUM(訂單總數) AS 訂單總數 
                    FROM    (SELECT LEFT(客戶交期, 7) AS 交期, LEFT(年份季度,4) AS 年份季度, 生產工廠, 形體號, SUM(訂單數量) AS 訂單總數 FROM 訂單控制表 
                             WHERE (年份季度 LIKE '" & 訂單分析報表.季度_cb.Text & "%') AND (CXL = 1) GROUP BY LEFT(客戶交期, 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
        Else
            If 訂單分析報表.依客戶交期_rb.Checked = True Then
                條件 = "客戶交期"
            Else
                條件 = "工廠回復交期"
            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 = 1) GROUP BY LEFT(" & 條件 & ", 7), LEFT(年份季度,4), 生產工廠, 形體號) AS Q 
                    GROUP BY LEFT(年份季度,4), 生產工廠, 交期 ORDER BY 生產工廠, 交期 DESC"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_下拉年份季度()
        ConnOpen()
        SQL1 = "SELECT 年份季度 FROM 訂單控制表年份季度清單 ORDER BY 年份季度 DESC"
        CmdSet_For_dr()
    End Sub
    '-----------------------形體分析報表--------------------------------
    Friend Sub SQL_每種形體有賺頭前50名()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                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   訂單控制表.形體號
                ORDER BY   加權平均利潤 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_每種形體做爽的倒數50名()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                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   訂單控制表.形體號
                ORDER BY   加權平均利潤"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_每種形體數量大前50名()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                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   訂單控制表.形體號
                ORDER BY   訂單數量 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_每種形體開發來玩的倒數50名()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                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   訂單控制表.形體號
                ORDER BY   訂單數量"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_時間區間內有前途()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                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   訂單控制表.形體號
                ORDER BY   利潤 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_時間區間內倒數50名聊尾仔()
        ConnOpen()
        SQL1 = "SELECT TOP (50) 訂單控制表.形體號 AS 排名, 訂單控制表.形體號, SUM(訂單控制表.訂單數量) AS 訂單數量, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) AS 銷售金額, 
                            SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 營運成本, 
                            SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice) AS 利潤, 
                            (SUM(訂單控制表.訂單數量 * 訂單控制表.單價) 
                            - SUM(訂單控制表.訂單數量 * 訂單價格利潤明細表.FTYPrice)) / SUM(訂單控制表.訂單數量) AS 加權平均利潤
                FROM        訂單價格利潤明細表 FULL OUTER JOIN
                            訂單控制表 ON 訂單價格利潤明細表.資料流水號 = 訂單控制表.資料流水號
                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   訂單控制表.形體號
                ORDER BY   利潤"
        CmdSet_For_DGV()
    End Sub
    '--------------------------NewUnitComparison--------------------------------------------------------
    Friend Sub SQL_訂單控制表()
        ConnOpen()
        SQL1 = "SELECT 年度 AS YEAR, P, 開始日期 AS Start_date, 結束日期 AS Closing_date FROM NEW_U_C_時間間格 WHERE (年度 LIKE '" & NewUnitComparison.年度_cb.Text & "') ORDER BY 開始日期"
        CmdSet_For_DGV()
    End Sub
    '-----------------------力威發票明細轉換工具-------------------------------------------
    Friend Sub SQL_轉換前()
        ConnOpen()
        SQL1 = "SELECT 文字1, 文字2, 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'A%' ORDER BY 編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_轉換後()
        ConnOpen()
        SQL1 = "SELECT 文字1, 文字2, 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'B%' ORDER BY 編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_文件刪除()
        ConnOpen() : SQL1 = "DELETE 文件轉換用1" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_編號()
        ConnOpen() : SQL1 = "SELECT 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'A%' ORDER BY 編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_文件轉換用2增加()
        ConnOpen() : SQL1 = "INSERT INTO 文件轉換用1 (編號, 文字1, 文字2) VALUES (N'" & 力威發票明細轉換工具.流水帳_tb.Text & "', '', '')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢編號()
        ConnOpen() : SQL1 = "SELECT 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'B%' ORDER BY 編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_文件轉換用1增加()
        ConnOpen()
        SQL1 = "INSERT INTO 文件轉換用1 (編號, 文字1, 文字2) VALUES (N'" & 力威發票明細轉換工具.流水帳_tb.Text & "', N'" & PA2 & "', N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    '-----------------------訂單分析比對工具_力威------------------------------
    Friend Sub SQL_列印訂單分析()
        ConnOpen()
        SQL1 = "SELECT   訂單裝箱明細表.[" & PA3 & "] AS 數量
                            FROM     訂單裝箱明細表 INNER JOIN 訂單控制表 ON 訂單裝箱明細表.天盾流水號 = 訂單控制表.訂單流水號 AND 
                                     訂單裝箱明細表.客戶訂單號 = 訂單控制表.客戶訂單號 AND 訂單裝箱明細表.DM = 訂單控制表.楦型
                            WHERE   (訂單裝箱明細表.客戶訂單號 LIKE '" & PA4 & "') AND (LEFT(訂單裝箱明細表.DM, 1) LIKE '" & PA5 & "') AND (訂單控制表.形體號 LIKE '" & PA1 & "') AND 
                                    (訂單裝箱明細表.Item LIKE '" & PA7 & "') OR
                                    (LEFT(訂單裝箱明細表.DM, 1) LIKE '" & PA5 & "') AND (訂單裝箱明細表.力威訂單號 LIKE '" & PA4 & "') AND (訂單控制表.形體號 LIKE '" & PA1 & "') AND 
                                    (訂單裝箱明細表.Item LIKE '" & PA7 & "')"
        CmdSet_For_dr()
    End Sub
    '--------------------訂單分析比對工具_Vionic----------------------------
    Friend Sub SQL_訂單資料比對()
        ConnOpen()
        SQL1 = "SELECT      按鈕.BIT按鈕 AS 比對一, 按鈕.BIT按鈕 AS 比對二, 按鈕.BIT按鈕 AS 比對三, 按鈕.BIT按鈕 AS 比對四, 
                            按鈕.BIT按鈕 AS 比對五, 按鈕.BIT按鈕 AS 比對六, TD_Open_Order_Report比對資料表.客戶訂單號, 
                            TD_Open_Order_Report比對資料表.形體編碼, TD_Open_Order_Report比對資料表.形體名稱, 
                            TD_Open_Order_Report比對資料表.顏色, TD_Open_Order_Report比對資料表.楦型, 
                            SUM(TD_Open_Order_Report比對資料表.[5]) AS [5], SUM(TD_Open_Order_Report比對資料表.[5.5]) AS [5.5], 
                            SUM(TD_Open_Order_Report比對資料表.[6]) AS [6], SUM(TD_Open_Order_Report比對資料表.[6.5]) AS [6.5], 
                            SUM(TD_Open_Order_Report比對資料表.[7]) AS [7], SUM(TD_Open_Order_Report比對資料表.[7.5]) AS [7.5], 
                            SUM(TD_Open_Order_Report比對資料表.[8]) AS [8], SUM(TD_Open_Order_Report比對資料表.[8.5]) AS [8.5], 
                            SUM(TD_Open_Order_Report比對資料表.[9]) AS [9], SUM(TD_Open_Order_Report比對資料表.[9.5]) AS [9.5], 
                            SUM(TD_Open_Order_Report比對資料表.[10]) AS [10], SUM(TD_Open_Order_Report比對資料表.[10.5]) AS [10.5], 
                            SUM(TD_Open_Order_Report比對資料表.[11]) AS [11], SUM(TD_Open_Order_Report比對資料表.[11.5]) AS [11.5], 
                            SUM(TD_Open_Order_Report比對資料表.[12]) AS [12], SUM(TD_Open_Order_Report比對資料表.[12.5]) AS [12.5], 
                            SUM(TD_Open_Order_Report比對資料表.[13]) AS [13], SUM(TD_Open_Order_Report比對資料表.[14]) AS [14], 
                            SUM(TD_Open_Order_Report比對資料表.[5] + TD_Open_Order_Report比對資料表.[5.5] + TD_Open_Order_Report比對資料表.[6]
                             + TD_Open_Order_Report比對資料表.[6.5] + TD_Open_Order_Report比對資料表.[7] + TD_Open_Order_Report比對資料表.[7.5]
                             + TD_Open_Order_Report比對資料表.[8] + TD_Open_Order_Report比對資料表.[8.5] + TD_Open_Order_Report比對資料表.[9]
                             + TD_Open_Order_Report比對資料表.[9.5] + TD_Open_Order_Report比對資料表.[10] + TD_Open_Order_Report比對資料表.[10.5]
                             + TD_Open_Order_Report比對資料表.[11] + TD_Open_Order_Report比對資料表.[11.5] + TD_Open_Order_Report比對資料表.[12]
                             + TD_Open_Order_Report比對資料表.[12.5] + TD_Open_Order_Report比對資料表.[13] + TD_Open_Order_Report比對資料表.[14])
                             AS 總和
                FROM        TD_Open_Order_Report比對資料表 LEFT OUTER JOIN
                            按鈕 ON TD_Open_Order_Report比對資料表.客戶訂單號 = 按鈕.連接
                GROUP BY   TD_Open_Order_Report比對資料表.客戶訂單號, TD_Open_Order_Report比對資料表.形體編碼, 
                            TD_Open_Order_Report比對資料表.形體名稱, TD_Open_Order_Report比對資料表.顏色, 
                            TD_Open_Order_Report比對資料表.楦型, 按鈕.BIT按鈕"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_刪除暫存Vionic()
        ConnOpen()
        SQL1 = "DELETE FROM TD_Open_Order_Report比對資料表"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增訂單資料比對()
        ConnOpen()
        SQL1 = "INSERT INTO  TD_Open_Order_Report比對資料表 (客戶訂單號, 形體編碼, 形體名稱, 顏色, 楦型, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], [10], [10.5], 
                            [11], [11.5], [12], [12.5], [13], [14]) 
                    VALUES (N'" & 訂單分析比對工具_Vionic.Purchase_Order_tb.Text & "', N'" & 訂單分析比對工具_Vionic.Item_Number_tb.Text & "', N'" & 訂單分析比對工具_Vionic.Item_Name_tb.Text & "', N'" & 訂單分析比對工具_Vionic.Adj_Color_tb.Text & "', N'" & 訂單分析比對工具_Vionic.MED_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_5_tb.Text &
                        "', N'" & 訂單分析比對工具_Vionic.SizeRun_5號半_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_6_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_6號半_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_7_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_7號半_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_8_tb.Text &
                        "', N'" & 訂單分析比對工具_Vionic.SizeRun_8號半_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_9_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_9號半_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_10_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_10號半_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_11_tb.Text &
                        "', N'" & 訂單分析比對工具_Vionic.SizeRun_11號半_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_12_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_12號半_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_13_tb.Text & "', N'" & 訂單分析比對工具_Vionic.SizeRun_14_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_訂單資料比對1()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.客戶訂單號, 訂單明細表.ItemNumber, 訂單明細表.ProductName, 訂單明細表.Color, 
                               訂單明細表.DM, SUM(訂單明細表.[5]) AS [5], SUM(訂單明細表.[5.5]) AS [5.5], SUM(訂單明細表.[6]) 
                               AS [6], SUM(訂單明細表.[6.5]) AS [6.5], SUM(訂單明細表.[7]) AS [7], SUM(訂單明細表.[7.5]) AS [7.5], 
                               SUM(訂單明細表.[8]) AS [8], SUM(訂單明細表.[8.5]) AS [8.5], SUM(訂單明細表.[9]) AS [9], 
                               SUM(訂單明細表.[9.5]) AS [9.5], SUM(訂單明細表.[10]) AS [10], SUM(訂單明細表.[10.5]) AS [10.5], 
                               SUM(訂單明細表.[11]) AS [11], SUM(訂單明細表.[11.5]) AS [11.5], SUM(訂單明細表.[12]) AS [12], 
                               SUM(訂單明細表.[12.5]) AS [12.5], SUM(訂單明細表.[13]) AS [13], SUM(訂單明細表.[14]) AS [14], 
                               SUM(訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5]
                                + 訂單明細表.[8] + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5]
                                + 訂單明細表.[11] + 訂單明細表.[11.5] + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] +
                                訂單明細表.[14]) AS 總和
                    FROM       訂單明細表 INNER JOIN
                               訂單控制表 ON 訂單明細表.天盾流水號 = 訂單控制表.訂單流水號 AND 
                               訂單明細表.客戶訂單號 = 訂單控制表.客戶訂單號 AND 
                               訂單明細表.ProductName = 訂單控制表.形體號 AND 訂單明細表.Color = 訂單控制表.顏色 AND 
                               訂單明細表.DM = 訂單控制表.楦型
                    WHERE     (訂單明細表.ItemNumber IS NOT NULL) AND 
                              (訂單明細表.客戶訂單號 LIKE N'" & PA1 & "') AND 
                              (訂單明細表.ItemNumber LIKE N'" & PA2 & "') AND 
                              (訂單明細表.ProductName LIKE N'" & PA3 & "') AND 
                              (訂單明細表.Color LIKE N'" & PA4 & "') AND 
                              (訂單明細表.DM LIKE N'" & PA5 & "') AND (訂單控制表.CXL = 0 OR 訂單控制表.CXL IS NULL)
                    GROUP BY   訂單明細表.ItemNumber, 訂單明細表.ProductName, 訂單明細表.Color, 訂單明細表.DM, 訂單明細表.客戶訂單號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單資料比對2()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                           FROM        訂單明細表 INNER JOIN
                                          (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                           FROM     訂單控制表
                                           WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                       訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                       訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                       訂單明細表.DM = WWEE.楦型 AND 
                                       訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                       + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                       + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                            WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA1 & "') AND 
                                      (訂單明細表.ItemNumber LIKE N'" & PA2 & "') AND 
                                      (訂單明細表.ProductName LIKE N'" & PA3 & "') AND 
                                      (訂單明細表.Color LIKE N'" & PA4 & "') AND 
                                      (訂單明細表.DM LIKE N'" & PA5 & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_訂單資料比對3()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                               FROM        訂單明細表 INNER JOIN
                                              (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                               FROM     訂單控制表
                                               WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                           訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                           訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                           訂單明細表.DM = WWEE.楦型 AND 
                                           訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                           + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                           + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                                WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA & "') AND 
                                          (訂單明細表.ItemNumber LIKE N'" & PA1 & "') AND 
                                          (訂單明細表.ProductName LIKE N'" & PA2 & "') AND 
                                          (訂單明細表.Color LIKE N'" & PA3 & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取訂單資料比對()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                                   FROM        訂單明細表 INNER JOIN
                                                  (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                                   FROM     訂單控制表
                                                   WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                               訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                               訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                               訂單明細表.DM = WWEE.楦型 AND 
                                               訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5]H + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                               + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                               + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                                    WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA1 & "') AND 
                                              (訂單明細表.ItemNumber LIKE N'" & PA2 & "') AND 
                                              (訂單明細表.ProductName LIKE N'" & PA3 & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取訂單資料比對1()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                                   FROM        訂單明細表 INNER JOIN
                                                  (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                                   FROM     訂單控制表
                                                   WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                               訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                               訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                               訂單明細表.DM = WWEE.楦型 AND 
                                               訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                               + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                               + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                                        WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA1 & "') AND 
                                                  (訂單明細表.ItemNumber LIKE N'" & PA2 & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取訂單資料比對2()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                                   FROM        訂單明細表 INNER JOIN
                                                  (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                                   FROM     訂單控制表
                                                   WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                               訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                               訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                               訂單明細表.DM = WWEE.楦型 AND 
                                               訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                               + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                               + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                                            WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取訂單資料比對3()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                                   FROM        訂單明細表 INNER JOIN
                                                  (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                                   FROM     訂單控制表
                                                   WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                               訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                               訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                               訂單明細表.DM = WWEE.楦型 AND 
                                               訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                               + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                               + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                        WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA & "') AND 
                                  (訂單明細表.ItemNumber LIKE N'" & PA1 & "') AND 
                                  (訂單明細表.ProductName LIKE N'" & PA2 & "') AND 
                                  (訂單明細表.Color LIKE N'" & PA3 & "') AND 
                                  (訂單明細表.DM LIKE N'" & PA4 & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取訂單資料比對4()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                                   FROM        訂單明細表 INNER JOIN
                                                  (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                                   FROM     訂單控制表
                                                   WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                               訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                               訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                               訂單明細表.DM = WWEE.楦型 AND 
                                               訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                               + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                               + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                            WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA & "') AND 
                                      (訂單明細表.ItemNumber LIKE N'" & PA1 & "') AND 
                                      (訂單明細表.ProductName LIKE N'" & PA2 & "') AND 
                                      (訂單明細表.Color LIKE N'" & PA3 & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取訂單資料比對5()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                                   FROM        訂單明細表 INNER JOIN
                                                  (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                                   FROM     訂單控制表
                                                   WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                               訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                               訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                               訂單明細表.DM = WWEE.楦型 AND 
                                               訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                               + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                               + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                                WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA & "') AND 
                                          (訂單明細表.ItemNumber LIKE N'" & PA1 & "') AND 
                                          (訂單明細表.ProductName LIKE N'" & PA2 & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取訂單資料比對6()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                                   FROM        訂單明細表 INNER JOIN
                                                  (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                                   FROM     訂單控制表
                                                   WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                               訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                               訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                               訂單明細表.DM = WWEE.楦型 AND 
                                               訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                               + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                               + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                                    WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA & "') AND 
                                              (訂單明細表.ItemNumber LIKE N'" & PA1 & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取訂單資料比對7()
        ConnOpen()
        SQL1 = "SELECT     訂單明細表.天盾流水號 
                                   FROM        訂單明細表 INNER JOIN
                                                  (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                                                   FROM     訂單控制表
                                                   WHERE   (客戶訂單號 LIKE '" & PA & "') AND (CXL = 0 OR CXL IS NULL)) AS WWEE ON 
                                               訂單明細表.天盾流水號 = WWEE.訂單流水號 AND 訂單明細表.客戶訂單號 = WWEE.客戶訂單號 AND 
                                               訂單明細表.ProductName = WWEE.形體號 AND 訂單明細表.Color = WWEE.顏色 AND 
                                               訂單明細表.DM = WWEE.楦型 AND 
                                               訂單明細表.[5] + 訂單明細表.[5.5] + 訂單明細表.[6] + 訂單明細表.[6.5] + 訂單明細表.[7] + 訂單明細表.[7.5] + 訂單明細表.[8]
                                               + 訂單明細表.[8.5] + 訂單明細表.[9] + 訂單明細表.[9.5] + 訂單明細表.[10] + 訂單明細表.[10.5] + 訂單明細表.[11] + 訂單明細表.[11.5]
                                               + 訂單明細表.[12] + 訂單明細表.[12.5] + 訂單明細表.[13] + 訂單明細表.[14] = WWEE.訂單數量
                                        WHERE     (訂單明細表.客戶訂單號 LIKE N'" & PA & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取訂單資料比對8()
        ConnOpen()
        SQL1 = "DELETE FROM TD_Open_Order_Report比對資料表"
        CmdSet_For_dr()
    End Sub

    '------------------DeadlineReport------------------------------
    Friend Sub SQL_DeadlineReport清單()
        ConnOpen()
        SQL1 = "SELECT   訂單流水號, 年份季度 AS 季度, 客戶訂單號, 形體號 AS 型體名稱, 顏色, 楦型, 訂單數量, 生產工廠 AS 工廠, 訂單種類, 裁斷時間, 針車時間, 成型時間, 客戶交期, 
                         DATEDIFF(day, '" & Today() & "', 客戶交期) AS 剩餘日期, 工廠回復交期 AS 工廠交期, DATEDIFF(day, '" & Today() & "', 工廠回復交期) AS 剩餘交期, 資料流水號 
                FROM     訂單控制表 
                WHERE   (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (成型時間 NOT LIKE '%OK%') 
                GROUP BY 資料流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 客戶交期, 生產工廠, 工廠回復交期, 楦型, 訂單數量, 訂單流水號, 裁斷時間, 針車時間, 成型時間, 訂單種類 
                HAVING  (DATEDIFF(day, '" & Today() & "', 工廠回復交期) < 10) 
                ORDER BY 訂單流水號, 型體名稱, 顏色, 剩餘交期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_DeadlineReport清單1()
        ConnOpen()
        SQL1 = "SELECT   訂單流水號, 年份季度 AS 季度, 客戶訂單號, 形體號 AS 型體名稱, 顏色, 楦型, 訂單數量, 生產工廠 AS 工廠, 訂單種類, 裁斷時間, 針車時間, 成型時間, 客戶交期, 
                         DATEDIFF(day, '" & Today() & "', 客戶交期) AS 剩餘日期, 工廠回復交期 AS 工廠交期, DATEDIFF(day, '" & Today() & "', 工廠回復交期) AS 剩餘交期, 資料流水號 
                FROM     訂單控制表 
                WHERE   (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (成型時間 LIKE '%OK%') 
                GROUP BY 資料流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 客戶交期, 生產工廠, 工廠回復交期, 楦型, 訂單數量, 訂單流水號, 裁斷時間, 針車時間, 成型時間, 訂單種類 
                HAVING  (DATEDIFF(day, '" & Today() & "', 工廠回復交期) < 10) 
                ORDER BY 訂單流水號, 型體名稱, 顏色, 剩餘交期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_修改MODIFY()
        ConnOpen()
        SQL1 = "UPDATE 訂單預估資料表2 SET  預估數量 = '" & PA & "', 
                                                預估單價 = '" & PA1 & "' 
                    WHERE (YEAR_P LIKE '" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢ADD()
        ConnOpen()
        SQL1 = "SELECT YEAR_P FROM 訂單預估資料表2 WHERE (YEAR_P LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增ADD()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單預估資料表2 (YEAR_P, 預估數量, 預估單價) VALUES ('" & PA1 & "','" & PA2 & "', '" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_年度訂單控制表()
        ConnOpen()
        SQL1 = "SELECT SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 WHERE (CXL IS NULL OR
                       CXL = 0) AND (客戶交期 BETWEEN '" & PA & "' AND '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_年度訂單控制表1()
        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 '" & PA1 & "' AND '" & PA2 & "') 
                    GROUP BY 訂單種類 ORDER BY   Order_Type"
    End Sub
    Friend Sub SQL_年度訂單控制表2()
        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 '" & PA3 & "' AND '" & PA4 & "') 
                    GROUP BY 訂單種類 ORDER BY   Order_Type"
    End Sub
    Friend Sub SQL_年度訂單控制表3()
        ConnOpen()
        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"
        CmdSet_For_DGV()
    End Sub
    '------------------------OldUnitComparison-----------------------------------------
    Friend Sub SQL_OldUnitComparison清單()
        ConnOpen()
        SQL1 = "SELECT LEFT(客戶交期, 7) AS Year_Month , SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 
                WHERE (LEFT(客戶交期, 4) LIKE '" & OldUnitComparison.YEAR_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   Year_Month"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OldUnitComparison清單2()
        ConnOpen()
        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 '" & OldUnitComparison.YEAR_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   Year_Month"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OldUnitComparison清單3()
        ConnOpen()
        SQL1 = "SELECT LEFT(客戶交期, 7) AS Year_Month, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 
                WHERE (LEFT(客戶交期, 4) LIKE '" & OldUnitComparison.YEAR1_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   Year_Month"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OldUnitComparison清單4()
        ConnOpen()
        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 '" & OldUnitComparison.YEAR1_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   Year_Month"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OldUnitComparison清單5()
        ConnOpen()
        SQL1 = "SELECT LEFT(客戶交期, 7) AS Year_Month, SUM(訂單數量) AS Order_Quantity, SUM(總金額) AS Total_Sum, SUM(總金額) / SUM(訂單數量) AS Average FROM 訂單控制表 
                WHERE (LEFT(客戶交期, 4) LIKE '" & OldUnitComparison.YEAR2_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   Year_Month"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OldUnitComparison清單6()
        ConnOpen()
        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 '" & OldUnitComparison.YEAR2_cb.Text & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   Year_Month"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OldUnitComparison清單7()
        ConnOpen()
        SQL1 = "SELECT 年月份 AS Year_Month, 預估數量 AS Assess_QTY, 預估單價 AS Assess_Price FROM 訂單預估資料表 ORDER BY 年月份 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OldUnitComparison_ADD()
        ConnOpen()
        SQL1 = "SELECT 年月份 FROM 訂單預估資料表 WHERE (年月份 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_OldUnitComparison_ADD1()
        ConnOpen()
        SQL1 = "INSERT INTO 訂單預估資料表 (年月份, 預估數量, 預估單價) " &
                           "VALUES ('" & PA1 & "','" & PA2 & "', '" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_OldUnitComparison_MODIFY()
        ConnOpen()
        SQL1 = "UPDATE 訂單預估資料表 SET  預估數量 = '" & PA4 & "', 預估單價 = '" & PA5 & "' 
                    WHERE (年月份 LIKE '" & PA6 & "')"
        CmdSet_For_dr()
    End Sub
    '------------------OrderTypeAnalysis----------------------------------------------
    Friend Sub SQL_OrderTypeAnalysis清單()
        ConnOpen()
        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) = '" & OrderTypeAnalysis.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"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OrderTypeAnalysis清單1()
        ConnOpen()
        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) = '" & OrderTypeAnalysis.YEAR_cb.Text & "') AND (CXL IS NULL) AND (訂單種類 LIKE 'QVC')  GROUP BY LEFT(客戶交期, 7), 訂單流水號) AS Q 
                GROUP BY LEFT(客戶交期, 7) ORDER BY CUST_XF"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OrderTypeAnalysis清單2()
        ConnOpen()
        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) = '" & OrderTypeAnalysis.YEAR_cb.Text & "') AND (CXL IS NULL) AND (訂單種類 LIKE 'DOMESTIC')  GROUP BY LEFT(客戶交期, 7), 訂單流水號) AS Q 
                GROUP BY LEFT(客戶交期, 7) ORDER BY CUST_XF"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OrderTypeAnalysis清單3()
        ConnOpen()
        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) = '" & OrderTypeAnalysis.YEAR_cb.Text & "') AND (CXL IS NULL) AND (生產工廠 LIKE 'JH') GROUP BY LEFT(工廠回復交期, 7), 訂單流水號) AS Q 
                GROUP BY LEFT(工廠回復交期, 7) ORDER BY   FTY_XF"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OrderTypeAnalysis清單4()
        ConnOpen()
        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) = '" & OrderTypeAnalysis.YEAR_cb.Text & "') AND (CXL IS NULL) AND (生產工廠 LIKE 'NJ') GROUP BY LEFT(工廠回復交期, 7), 訂單流水號) AS Q 
                GROUP BY LEFT(工廠回復交期, 7) ORDER BY   FTY_XF"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_OrderTypeAnalysis清單5()
        ConnOpen()
        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) = '" & OrderTypeAnalysis.YEAR_cb.Text & "') AND (CXL IS NULL) AND (生產工廠 LIKE 'SK') GROUP BY LEFT(工廠回復交期, 7), 訂單流水號) AS Q 
                GROUP BY LEFT(工廠回復交期, 7) ORDER BY   FTY_XF"
        CmdSet_For_DGV()
    End Sub
    '------------------列印_訂單分析2------------------------------------------
    Friend Sub SQL_列印_訂單分析2清單()
        SQL1 = "SELECT 年度, 開始日期, 結束日期 FROM NEW_U_C_時間間格 WHERE (年度 LIKE '" & YM & "') ORDER BY 開始日期"
    End Sub
    Friend Sub SQL_列印_訂單分析2清單1()
        SQL1 = "SELECT YEAR_P, 預估數量, 預估單價 FROM 訂單預估資料表2 WHERE YEAR_P LIKE '" & YR & "'  ORDER BY   YEAR_P DESC"
    End Sub
    Friend Sub SQL_列印_訂單分析2清單2()
        SQL1 = "SELECT SUM(訂單數量) AS 訂單數量, SUM(總金額) AS 總金額, SUM(總金額) / SUM(訂單數量) AS 平均單價 FROM 訂單控制表 
                        WHERE (客戶交期 BETWEEN '" & PA & "' AND '" & PA1 & "') AND (CXL IS NULL OR CXL = 0)"
    End Sub
    Friend Sub SQL_列印_訂單分析2清單3()
        SQL1 = "Select   訂單種類, SUM(訂單數量) As 訂單數量, SUM(總金額) As 總金額, SUM(總金額) / SUM(訂單數量) As 平均單價 
                        FROM     訂單控制表 
                        WHERE   (CXL Is NULL Or CXL = 0) And (訂單種類 Like '" & YS & "') AND 
                                (客戶交期 BETWEEN '" & PA4 & "' AND '" & PA5 & "') 
                        GROUP BY 訂單種類 ORDER BY   訂單種類"
    End Sub
    '---------------------------列印_訂單分析1----------------------------------
    Friend Sub SQL_列印訂單分析1()
        ConnOpen()
        SQL1 = "SELECT LEFT(客戶交期, 7) AS 下單月份, SUM(訂單數量) AS 訂單數量, SUM(總金額) AS 總金額, SUM(總金額) / SUM(訂單數量) AS 平均單價 FROM 訂單控制表 " &
                   "WHERE (LEFT(客戶交期, 7) LIKE '" & YD & "') AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7) ORDER BY   下單月份"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_列印訂單分析2()
        ConnOpen()
        SQL1 = "SELECT 年月份, 預估數量, 預估單價 FROM 訂單預估資料表 WHERE 年月份 LIKE '" & YD & "'  ORDER BY   年月份 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_列印訂單分析3()
        ConnOpen()
        SQL1 = "SELECT LEFT(客戶交期, 7) AS 下單月份, 訂單種類, SUM(訂單數量) AS 訂單數量, SUM(總金額) AS 總金額, SUM(總金額) / SUM(訂單數量) AS 平均單價 FROM 訂單控制表 " &
               "WHERE (LEFT(客戶交期, 7) LIKE '" & YD & "') AND 訂單種類 LIKE '" & YR & "' AND (CXL IS NULL OR CXL = 0) GROUP BY   LEFT(客戶交期, 7), 訂單種類 ORDER BY   訂單種類"
        CmdSet_For_DGV()
    End Sub
End Module