GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/主資料庫/SQL_業務系統管理.vb

Module SQL_業務系統管理
    '---------------------------合約執行進度----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約清單查詢()
        ConnOpen()
        SQL1 = "SELECT  QQ1.合約編號 AS [" & 表頭(134) & "], QQ1." & SQL2 & " AS [" & 表頭(152) & "], QQ1." & SQL2 & " AS [" & 表頭(116) & "], 
                        QQ1.第一期比例, QQ1.第二期比例, QQ1.第三期比例, QQ1.第四期比例, 
                        QQ1.第五期比例, QQ1.預付款, QQ1.到貨款, QQ1.施工款, QQ1.驗收款, QQ1.保留款, QQ1.合約編號 AS 乙方, QQ1.約號甲方 AS 甲方, QQ1.約號排序 AS 日期, 
                        QQ1.約號尾序 AS 序號, QQ2.合約號 AS AB2, QQ2.甲方 AS B1, QQ2.立約日 AS B2, QQ2.序號 AS B3, 
                        WW1.合約號碼 AS 報價, HX空白圖片.圖片 AS [SOP1/報價], HX空白圖片.圖片 AS [SOP2/立約], HX空白圖片.圖片 AS [SOP3/收訂], 
                        HX空白圖片.圖片 AS [SOP4/到料], HX空白圖片.圖片 AS [SOP5/施工], HX空白圖片.圖片 AS [SOP6/驗收], HX空白圖片.圖片 AS [SOP7/保固], 
                        HX空白圖片.圖片 AS [SOP8/結案], QQ1.驗收完成日期, QQ1.保固期限
                FROM   (SELECT    合約編號, 約號甲方, 約號排序, 約號尾序, " & SQL2 & ", 第一期比例, 第二期比例, 第三期比例, 第四期比例, 
                                  第五期比例, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收完成日期, 保固期限  FROM  合約控制表
                        WHERE    (合約停止 = 0 OR 合約停止 IS NULL)  AND (報價放行 = 1)
                        GROUP BY  合約編號, 約號甲方, 約號排序, 約號尾序, " & SQL2 & ", 第一期比例, 第二期比例, 第三期比例, 第四期比例, 
                                  第五期比例, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收完成日期, 保固期限) AS QQ1 LEFT OUTER JOIN
                       (SELECT    合約號碼  FROM  合約報價總表  WHERE  (項目 LIKE N'@')) AS WW1 ON QQ1.合約編號 = WW1.合約號碼 LEFT OUTER JOIN
                                  HX空白圖片 ON QQ1.約號尾序 = HX空白圖片.選擇 FULL OUTER JOIN
                       (SELECT    合約號, 甲方, 立約日, 序號  FROM  請購單控制表  WHERE  (合約號 NOT LIKE N'') AND 合約號 NOT LIKE '%0H-1%'
                        GROUP BY  合約號, 甲方, 立約日, 序號) AS QQ2 ON QQ1.合約編號 = QQ2.合約號
                WHERE  (QQ1.約號甲方 LIKE N'" & PA & "%' OR QQ2.甲方 LIKE N'" & PA & "%')"  ' AND  QQ1.合約編號 NOT LIKE '%0H-1%'
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_甲1()
        ConnOpen() : SQL1 = "SELECT  約號甲方  FROM  合約控制表  GROUP BY  約號甲方" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_甲2()
        ConnOpen() : SQL1 = "SELECT  甲方  FROM  請購單控制表  WHERE  (合約號 NOT LIKE N'')  GROUP BY  甲方" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約編號修改()
        Dim DDR(16) As String
        ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約控制表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(0) = "合約控制表、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 合約編號 = N'" & PA18 & "', 約號甲方 = N'" & PA19 & "', 約號排序 = N'" & PA20 & "', 約號尾序 = N'" & PA21 & "'  
                                 WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約號碼  FROM  合約報價係數  WHERE  (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(1) = "合約報價係數、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約報價係數 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約號碼  FROM  合約報價明細表  WHERE  (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(2) = "合約報價明細表、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約報價明細表 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約號碼  FROM  合約報價總表  WHERE  (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(3) = "合約報價總表、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約報價總表 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約明細表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(4) = "合約明細表、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約明細表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約本文  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(5) = "合約本文、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約本文 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約試算分表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(6) = "合約試算分表、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約試算分表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約試算控制表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(7) = "合約試算控制表、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約試算控制表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約試算明細表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(8) = "合約試算明細表、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約試算明細表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約請款  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(9) = "合約請款、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約請款 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "SELECT  合約號碼  FROM  合約附錄  WHERE  (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(10) = "合約附錄、" : Else
            ConnOpen() : SQL1 = "UPDATE 合約附錄 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen_工程SQL() : SQL1 = "SELECT  合約號  FROM  合約文檔控制表  WHERE  (合約號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(11) = "合約文檔控制表、" : Else
            ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔控制表 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen_工程SQL() : SQL1 = "SELECT  合約號  FROM  合約文檔操作紀錄  WHERE  (合約號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(12) = "合約文檔操作紀錄、" : Else
            ConnOpen_工程SQL() : SQL1 = "UPDATE  合約文檔操作紀錄 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen_工程SQL() : SQL1 = "SELECT  合約號  FROM  合約文檔說明  WHERE  (合約號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(13) = "合約文檔說明、" : Else
            ConnOpen_工程SQL() : SQL1 = "UPDATE  合約文檔說明 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen_工程SQL() : SQL1 = "SELECT  合約編號  FROM  工程人員統計表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(14) = "工程人員統計表、" : Else
            ConnOpen_工程SQL() : SQL1 = "UPDATE  工程人員統計表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen_工程SQL() : SQL1 = "SELECT  合約編號  FROM  工程責任表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(15) = "工程責任表、" : Else
            ConnOpen_工程SQL() : SQL1 = "UPDATE  工程責任表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen_工程SQL() : SQL1 = "SELECT  合約編號  FROM  工程進度表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()
        If dr.Read Then : DDR(16) = "工程進度表、" : Else
            ConnOpen_工程SQL() : SQL1 = "UPDATE  工程進度表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        End If
        ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 合約號 = N'" & PA18 & "', 乙方 = N'" & PA22 & "', 甲方 = N'" & PA19 & "', 立約日 = N'" & PA20 & "', 序號 = N'" & PA21 & "'  
                             WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

        For i As Integer = 0 To 合約報價單.圖庫清單_dgv.Rows.Count - 1
            圖片庫 = 合約報價單.圖庫清單_dgv.Rows(i).Cells("資料庫").Value : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
            SQL1 = "UPDATE 合約文件簽回圖檔 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()
        Next

        If DDR(0) = Nothing And DDR(1) = Nothing And DDR(2) = Nothing And DDR(3) = Nothing And DDR(4) = Nothing And DDR(5) = Nothing And DDR(6) = Nothing And DDR(7) = Nothing And DDR(8) = Nothing And DDR(9) = Nothing And
           DDR(10) = Nothing And DDR(11) = Nothing And DDR(12) = Nothing And DDR(13) = Nothing And DDR(14) = Nothing And DDR(15) = Nothing And DDR(16) = Nothing Then : Else
            MsgBox(DDR(0) & DDR(1) & DDR(2) & DDR(3) & DDR(4) & DDR(5) & DDR(6) & DDR(7) & DDR(8) & DDR(9) & DDR(10) & DDR(11) & DDR(12) & DDR(13) & DDR(14) & DDR(15) & DDR(16) &
                  "因資料有重複所以沒有進行轉移，請手動修改資料!!")
        End If
    End Sub
    '---------------------------合約利潤預估表----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約清單_預估利潤()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT      合約編號, 工程名稱_中, 工程名稱_英, 預估工資成本, 
                                預估工資報價, 工資利潤比, 預估材料成本, 預估材料報價, 材料利潤比, 總成本, 總報價, 利潤比1, 預估利潤, 利潤比2
                    FROM        合約控制表
                    WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND (合約停止 IS NULL OR 合約停止 = 0) AND (總報價 IS NOT NULL) AND (總報價 > 0) AND (報價放行 = 1)
                    ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        Else
            SQL1 = "SELECT      合約編號, 工程名稱_中, 工程名稱_英, 預估工資成本, 
                                預估工資報價, 工資利潤比, 預估材料成本, 預估材料報價, 材料利潤比, 總成本, 總報價, 利潤比1, 預估利潤, 利潤比2
                    FROM        合約控制表
                    WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                                工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                                工程名稱_英 LIKE N'%" & PA & "%') AND (合約停止 IS NULL OR 合約停止 = 0) AND (總報價 IS NOT NULL) AND (總報價 > 0) AND (報價放行 = 1)
                    ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約控制表預估利潤存檔()
        ConnOpen()
        SQL1 = "UPDATE 合約控制表 SET 預估工資成本 = N'" & PA37 & "', 預估工資報價 = N'" & PA38 & "', 工資利潤比 = N'" & PA39 & "', 預估材料成本 = N'" & PA40 & "', 
                                      預估材料報價 = N'" & PA41 & "', 材料利潤比 = N'" & PA42 & "', 總成本 = N'" & PA43 & "', 總報價 = N'" & PA44 & "', 利潤比1 = N'" & PA45 & "', 
                                      利潤比2 = N'" & PA46 & "', 預估利潤 = N'" & PA47 & "'
                WHERE 合約編號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
    End Sub
    '---------------------------合約管理系統----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約種類查詢()
        ConnOpen() : SQL1 = "SELECT 中, 英 FROM 合約種類 WHERE 中 LIKE N'" & PA37 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約種類新增()
        ConnOpen() : SQL1 = " INSERT INTO 合約種類 (中, 英) VALUES (N'" & PA37 & "', N'" & PA36 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約查詢()
        ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約新增()
        ConnOpen()
        SQL1 = "INSERT INTO 合約控制表 (合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 
                                        第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 
                                        約號尾序, 約號甲方, 合約期數, 合約停止, 報價放行, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數) 
                 VALUES (N'" & PA & "', N'" & PA36 & "', N'" & PA35 & "', N'" & PA34 & "', N'" & PA33 & "', N'" & PA32 & "', N'" & PA31 & "', N'" & PA30 & "', N'" & PA29 & "', 
                         N'" & PA28 & "', N'" & PA27 & "', N'" & PA26 & "', N'" & PA25 & "', N'" & PA24 & "', N'" & PA23 & "', N'" & PA22 & "', N'" & PA21 & "', N'" & PA20 & "', 
                         N'" & PA19 & "', N'" & PA18 & "', N'" & PA17 & "', N'" & PA16 & "', N'" & PA15 & "', N'" & PA14 & "', N'" & PA13 & "', N'" & PA12 & "', N'" & PA44 & "', 
                         N'" & PA45 & "', N'" & PA46 & "', N'" & PA47 & "', '1', '0', '" & PA11 & "', '" & PA10 & "', '" & BL2 & "', '" & BL3 & "', '" & PA9 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約刪除()
        ConnOpen() : SQL1 = "DELETE 合約控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約明細刪除_全部()
        ConnOpen() : SQL1 = "DELETE 合約明細表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約總表刪除_全部()
        ConnOpen() : SQL1 = "DELETE 合約報價總表 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價明細刪除_全部()
        ConnOpen() : SQL1 = "DELETE 合約報價明細表 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價係數刪除_全部()
        ConnOpen() : SQL1 = "DELETE 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約附錄刪除_全部()
        ConnOpen() : SQL1 = "DELETE 合約附錄 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約請款刪除_全部()
        ConnOpen() : SQL1 = "DELETE 合約請款 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約修改()
        ConnOpen()
        SQL1 = "UPDATE 合約控制表 SET 客戶名稱 = N'" & PA36 & "', 負責人A = N'" & PA35 & "', 工程地點 = N'" & PA34 & "', 客戶地址 = N'" & PA33 & "', 工程名稱_中 = N'" & PA32 & "', 
                                      工程名稱_英 = N'" & PA31 & "', 我司公司 = N'" & PA30 & "', 負責人B = N'" & PA29 & "', 我司地址 = N'" & PA28 & "', 工程總價 = N'" & PA27 & "', 
                                      第一期比例 = N'" & PA26 & "', 第二期比例 = N'" & PA25 & "', 第三期比例 = N'" & PA24 & "', 第四期比例 = N'" & PA23 & "', 第五期比例 = N'" & PA22 & "', 
                                      工期 = N'" & PA21 & "', 逾期_中 = N'" & PA20 & "', 最高扣罰_中 = N'" & PA19 & "', 逾期_英 = N'" & PA18 & "', 最高扣罰_英 = N'" & PA17 & "', 
                                      減價 = N'" & PA16 & "', 工程廠區 = N'" & PA15 & "', 頁數 = N'" & PA14 & "', 立約日期 = N'" & PA13 & "', 合約種類 = N'" & PA12 & "'
                WHERE 合約編號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約修改1()
        ConnOpen()
        SQL1 = "UPDATE 合約控制表 SET 客戶名稱 = N'" & PA36 & "', 負責人A = N'" & PA35 & "', 工程地點 = N'" & PA34 & "', 客戶地址 = N'" & PA33 & "', 工程名稱_中 = N'" & PA32 & "', 
                                      工程名稱_英 = N'" & PA31 & "', 我司公司 = N'" & PA30 & "', 負責人B = N'" & PA29 & "', 我司地址 = N'" & PA28 & "', 工程總價 = N'" & PA27 & "', 
                                      第一期比例 = N'" & PA26 & "', 第二期比例 = N'" & PA25 & "', 第三期比例 = N'" & PA24 & "', 第四期比例 = N'" & PA23 & "', 第五期比例 = N'" & PA22 & "', 
                                      工期 = N'" & PA21 & "', 逾期_中 = N'" & PA20 & "', 最高扣罰_中 = N'" & PA19 & "', 逾期_英 = N'" & PA18 & "', 最高扣罰_英 = N'" & PA17 & "', 
                                      減價 = N'" & PA16 & "', 工程廠區 = N'" & PA15 & "', 頁數 = N'" & PA14 & "', 立約日期 = N'" & PA13 & "', 合約種類 = N'" & PA12 & "', 
                                      合約停止 = '" & BL1 & "', 幣別 = '" & PA11 & "', 折讓比例 = '" & PA10 & "', 稅前歸零 = '" & BL2 & "', 稅後歸零 = '" & BL3 & "', 歸零位數 = '" & PA9 & "'
                WHERE 合約編號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約修改2()
        ConnOpen()
        SQL1 = "UPDATE 合約控制表 SET 客戶名稱 = N'" & PA36 & "', 負責人A = N'" & PA35 & "', 工程地點 = N'" & PA34 & "', 客戶地址 = N'" & PA33 & "', 工程名稱_中 = N'" & PA32 & "', 
                                      工程名稱_英 = N'" & PA31 & "', 我司公司 = N'" & PA30 & "', 負責人B = N'" & PA29 & "', 我司地址 = N'" & PA28 & "', 工程總價 = N'" & PA27 & "', 
                                      第一期比例 = N'" & PA26 & "', 第二期比例 = N'" & PA25 & "', 第三期比例 = N'" & PA24 & "', 第四期比例 = N'" & PA23 & "', 第五期比例 = N'" & PA22 & "', 
                                      工期 = N'" & PA21 & "', 逾期_中 = N'" & PA20 & "', 最高扣罰_中 = N'" & PA19 & "', 逾期_英 = N'" & PA18 & "', 最高扣罰_英 = N'" & PA17 & "', 
                                      減價 = N'" & PA16 & "', 工程廠區 = N'" & PA15 & "', 頁數 = N'" & PA14 & "', 立約日期 = N'" & PA13 & "', 合約種類 = N'" & PA12 & "', 
                                      合約停止 = '" & BL1 & "'
                WHERE 合約編號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約停用()
        ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 合約停止 = '" & BL1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購單改合約號()
        ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工程系統改合約號()
        ConnOpen_工程SQL()
        SQL1 = "UPDATE 工程進度表 SET 合約編號 = N'" & PA1 & "', 乙方 = N'" & PA2 & "', 甲方 = N'" & PA3 & "', 立約號 = N'" & PA4 & "', 序號 = N'" & PA5 & "' WHERE 合約編號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
        ConnOpen_工程SQL() : SQL1 = "UPDATE 工程人員統計表 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
        ConnOpen_工程SQL() : SQL1 = "UPDATE 工程責任表 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
        ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔控制表 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()
        ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔說明 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()
        ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔操作紀錄 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖庫系統改合約號()
        SQL_連線字串_圖片資料庫()
        ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 合約文檔 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()
        ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 合約文件簽回圖檔 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約修改_報價說明()
        ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 報價說明 = N'" & 合約報價單.報價說明_tb.Text & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約清單_未語轉()
        ConnOpen()
        If 合約本文.關鍵字搜尋_tb.Text = "" Then
            SQL1 = "SELECT   合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 簽回檔圖庫, 合約簽回 AS 簽回
                    FROM     合約控制表
                    WHERE    約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                    ORDER BY 約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        Else
            SQL1 = "SELECT   合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 簽回檔圖庫, 合約簽回 AS 簽回
                    FROM     合約控制表
                    WHERE   (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                             工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 
                            (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                    ORDER BY 約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約清單_請款用()
        ConnOpen()
        If 合約本文.關鍵字搜尋_tb.Text = "" Then
            SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 驗收完成日期, 保固期限
                FROM        合約控制表
                WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        Else
            SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 驗收完成日期, 保固期限
                FROM        合約控制表
                WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                            工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 
                           (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約清單()
        ConnOpen()
        If 合約本文.關鍵字搜尋_tb.Text = "" Then
            SQL1 = "SELECT  合約編號 AS [" & 表頭(134) & "], 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中 AS 工程, 工程名稱_英 AS Project, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期 AS [" & 表頭(116) & "], 合約種類, 約號排序, 約號尾序, 約號甲方
                FROM        合約控制表
                WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        Else
            SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方
                FROM        合約控制表
                WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                            工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 
                           (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約清單_範本()
        ConnOpen()
        SQL1 = "SELECT   合約編號, 控件, 內容,  座標X
                FROM     合約本文
                WHERE   (合約編號 LIKE N'" & PA & "')
                ORDER BY CAST(SUBSTRING(控件, 3, 5) AS INT)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約種類讀取()
        ConnOpen() : SQL1 = "SELECT 中 FROM 合約種類 ORDER BY 中" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約種類英文讀取()
        ConnOpen() : SQL1 = "SELECT 英 FROM 合約種類 WHERE 中 LIKE N'" & PA10 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶名稱讀取()
        ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 客戶資料表 GROUP BY 客戶名稱 ORDER BY 客戶名稱" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL負責人B讀取()
        ConnOpen() : SQL1 = "SELECT 負責人B FROM 合約控制表 GROUP BY 負責人B ORDER BY 負責人B" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL合約條件讀取()
        ConnOpen() : SQL1 = "SELECT 約號甲方 FROM 合約控制表 GROUP BY 約號甲方 ORDER BY 約號甲方" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約流水號_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT TOP (1) RIGHT(合約編號, 8) AS 合約編號 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%') ORDER BY 合約編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約本文清單()
        ConnOpen()
        SQL1 = "SELECT    合約編號, 控件, 內容, 座標X
                FROM      合約本文
                WHERE    (合約編號 LIKE N'" & PA & "')
                ORDER BY  CAST(SUBSTRING(控件, 3, 3) AS INT)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約本文刪除()
        ConnOpen() : SQL1 = "DELETE 合約本文 WHERE 合約編號 LIKE N'範本'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約本文刪除_依合約()
        ConnOpen() : SQL1 = "DELETE 合約本文 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約本文新增()
        ConnOpen() : SQL1 = " INSERT INTO 合約本文 (合約編號, 控件, 內容, 座標X) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約本文修改()
        ConnOpen()
        SQL1 = "UPDATE 合約本文 SET 內容 = N'" & PA2 & "', 座標X = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "' AND 控件 = '" & PA1 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約明細新增()
        ConnOpen() : SQL1 = " INSERT INTO 合約明細表 (合約編號, 期數, 順序, 內容, 金額, 比例) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', '', '0', '0')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約明細讀取()
        ConnOpen() : SQL1 = "SELECT 合約編號, 期數, 順序 AS 細項, 內容, 比例, 金額 FROM 合約明細表 WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " ORDER BY 順序" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約明細刪除()
        ConnOpen() : SQL1 = "DELETE 合約明細表 WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " AND 順序 = " & PA2 & "" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約明細修改()
        ConnOpen()
        SQL1 = "UPDATE 合約明細表 SET 內容 = N'" & PA3 & "', 比例 = N'" & NU1 & "', 金額 = N'" & NU2 & "' WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " AND 順序 = " & PA2 & ""
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶資料讀取()
        ConnOpen() : SQL1 = "SELECT 客戶名稱, 簡稱, 地址, 負責人 FROM 客戶資料表 WHERE (簡稱 LIKE N'" & PA30 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約系統中新增客戶資料()
        ConnOpen()
        SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件) 
                VALUES (N'" & PA29 & "', N'" & PA41 & "', N'" & PA40 & "', N'NA', N'" & PA39 & "', 
                        N'" & PA38 & "', N'NA', N'NA', N'NA', N'NA', N'NA', N'NA', N'NA')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶資料表_修改負責人()
        ConnOpen() : SQL1 = "UPDATE 客戶資料表 SET 負責人 = N'" & PA43 & "' WHERE 客戶名稱 LIKE N'" & PA42 & "'" : CmdSet_For_dr()
    End Sub
    '---------------------客戶資料表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_客戶資料表_清單()
        ConnOpen()
        If PA = "" Then
            SQL2 = ""
        Else
            SQL1 = " WHERE 簡稱 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 公司電話 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%' OR 負責人 LIKE N'%" & PA & "%' OR 
                           負責人電話 LIKE N'%" & PA & "%' OR 聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人1電話 LIKE N'%" & PA & "%' OR 聯繫人1郵件 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 
                           聯繫人2電話 LIKE N'%" & PA & "%' OR 聯繫人2郵件 LIKE N'%" & PA & "%'  "
        End If
        SQL1 = "SELECT  簡稱 AS [NO.], 簡稱 AS [" & 表頭(50) & "], 客戶名稱 AS [" & 表頭(51) & "], 公司電話 AS [" & 表頭(53) & "], 地址 AS [" & 表頭(52) & "], 負責人 AS [" & 表頭(145) & "], 
                        負責人電話 AS [" & 表頭(146) & "], 聯繫人1 AS [" & 表頭(59) & "], 聯繫人1電話 AS [" & 表頭(147) & "], 聯繫人1郵件 AS [" & 表頭(148) & "], 聯繫人2 AS [" & 表頭(60) & "], 
                        聯繫人2電話 AS [" & 表頭(149) & "], 聯繫人2郵件 AS [" & 表頭(150) & "], 流水號
                FROM   客戶資料表 " & SQL2 & " 
                ORDER BY 簡稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_客戶資料表_下拉清單()
        ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 客戶資料表 ORDER BY 客戶名稱" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶資料表簡稱_下拉清單()
        ConnOpen() : SQL1 = "SELECT 簡稱 FROM 客戶資料表 ORDER BY 簡稱" : 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 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件) 
                VALUES (N'" & 客戶資料表.供應商編號_tb.Text & "', N'" & 客戶資料表.客戶簡稱_cb.Text & "', N'" & 客戶資料表.客戶名稱_tb.Text & "', N'" & 客戶資料表.電話1_tb.Text & "', 
                        N'" & 客戶資料表.地址_tb.Text & "', N'" & 客戶資料表.負責人_tb.Text & "', N'" & 客戶資料表.負責人電話_tb.Text & "', N'" & 客戶資料表.聯繫人1_tb.Text & "', 
                        N'" & 客戶資料表.聯繫電話1_tb.Text & "', N'" & 客戶資料表.信箱1_tb.Text & "', N'" & 客戶資料表.聯繫人2_tb.Text & "', N'" & 客戶資料表.聯繫電話2_tb.Text & "', 
                        N'" & 客戶資料表.信箱2_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶資料表_修改()
        ConnOpen()
        SQL1 = "UPDATE 客戶資料表 SET 簡稱 = N'" & 客戶資料表.客戶簡稱_cb.Text & "', 客戶名稱 = N'" & 客戶資料表.客戶名稱_tb.Text & "', 
                                        地址 = N'" & 客戶資料表.地址_tb.Text & "', 公司電話 = N'" & 客戶資料表.電話1_tb.Text & "', 
                                        負責人 = N'" & 客戶資料表.負責人_tb.Text & "', 負責人電話 = N'" & 客戶資料表.負責人電話_tb.Text & "', 
                                        聯繫人1 = N'" & 客戶資料表.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 客戶資料表.聯繫人2_tb.Text & "', 
                                        聯繫人1電話 = N'" & 客戶資料表.聯繫電話1_tb.Text & "', 聯繫人2電話 = N'" & 客戶資料表.聯繫電話2_tb.Text & "', 
                                        聯繫人1郵件 = N'" & 客戶資料表.信箱1_tb.Text & "', 聯繫人2郵件 = N'" & 客戶資料表.信箱2_tb.Text & "' 
                 WHERE (流水號 = '" & 客戶資料表.供應商編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶資料表_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 客戶資料表 WHERE (流水號 = '" & 客戶資料表.供應商編號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    '---------------------------合約報價單----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約控制表讀取()
        ConnOpen()
        SQL1 = "SELECT  報價說明, 追加減, 結算金額, 已請款, 剩餘款, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收開始日期, 驗收完成日期, 
                        驗收結果, 驗收備註, 保固期限, 保固地址, 合約停止, 結案備註, 工程主管, 工地驗收備註, 預估工資成本, 
                        預估工資報價, 工資利潤比, 預估材料成本, 預估材料報價, 材料利潤比, 總成本, 總報價, 利潤比1, 利潤比2, 預估利潤, 
                        簽回檔圖庫, 報價簽回, 合約簽回, 請款簽回, 驗收簽回, 保固簽回, 報價放行, 其他文件 
                 FROM   合約控制表  
                 WHERE  合約編號 LIKE N'%" & PA & "%'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約控制表_改版修正()
        ConnOpen()
        SQL1 = "UPDATE  合約控制表 SET 報價說明 = N'" & PA1 & "', 追加減 = N'" & PA2 & "', 結算金額 = N'" & PA3 & "', 已請款 = N'" & PA4 & "', 剩餘款 = N'" & PA5 & "', 
                        預付款 = N'" & PA6 & "', 到貨款 = N'" & PA7 & "', 施工款 = N'" & PA8 & "', 驗收款 = N'" & PA9 & "', 保留款 = N'" & PA10 & "', 驗收開始日期 = N'" & PA11 & "', 
                        驗收完成日期 = N'" & PA12 & "', 驗收結果 = '" & PA13 & "', 驗收備註 = N'" & PA14 & "', 保固期限 = N'" & PA15 & "', 保固地址 = N'" & PA16 & "', 
                        合約停止 = '" & PA17 & "', 結案備註 = N'" & PA18 & "', 工程主管 = N'" & PA19 & "', 工地驗收備註 = N'" & PA20 & "', 預估工資成本 = N'" & PA21 & "', 
                        預估工資報價 = N'" & PA22 & "', 工資利潤比 = N'" & PA23 & "', 預估材料成本 = N'" & PA24 & "', 預估材料報價 = N'" & PA25 & "', 材料利潤比 = N'" & PA26 & "', 
                        總成本 = N'" & PA27 & "', 總報價 = N'" & PA28 & "', 利潤比1 = N'" & PA29 & "', 利潤比2 = N'" & PA30 & "', 預估利潤 = N'" & PA31 & "', 
                        簽回檔圖庫 = N'" & PA32 & "', 報價簽回 = '" & PA33 & "', 合約簽回 = '" & PA34 & "', 請款簽回 = '" & PA35 & "', 驗收簽回 = '" & PA36 & "', 
                        保固簽回 = '" & PA37 & "', 報價放行 = '" & PA38 & "', 其他文件  = '" & PA39 & "'
                 WHERE (合約編號 LIKE N'%" & PA & "%')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表控制1()
        ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 AS 項次, 項目, 流水號 FROM 工程項目BOM表控制 ORDER BY 項目" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約試算分表刪除()
        ConnOpen() : SQL1 = "DELETE 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算控制表刪除()
        ConnOpen() : SQL1 = "DELETE 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算明細表刪除()
        ConnOpen() : SQL1 = "DELETE 合約試算明細表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約清單1()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明
                FROM        合約控制表
                WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        Else
            SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明
                FROM        合約控制表
                WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                            工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約清單_報價用()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止 AS 停止, 
                            簽回檔圖庫, 報價簽回 AS 簽回, 報價放行 AS 審核通過, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數
                FROM        合約控制表
                WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%'
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        Else
            SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止, 
                            簽回檔圖庫, 報價簽回 AS 簽回, 報價放行 AS 審核通過, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數
                FROM        合約控制表
                WHERE       合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                            工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%'
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        End If
        CmdSet_For_DGV()
    End Sub

    Friend Sub SQL_合約試算明細表_修改()
        ConnOpen()
        SQL1 = "UPDATE 合約試算明細表 SET A1 = N'" & PA2 & "', A2 = N'" & PA3 & "', A3 = N'" & PA4 & "', A4 = N'" & PA5 & "', A5 = N'" & PA6 & "', 
                                          A6 = N'" & PA7 & "', A7 = N'" & PA8 & "', A8 = N'" & PA9 & "', A9 = N'" & PA10 & "', A10 = N'" & PA11 & "', 
                                          A11 = N'" & PA12 & "', A12 = N'" & PA13 & "', A13 = N'" & PA14 & "', A14 = N'" & PA15 & "', A15 = N'" & PA16 & "', 
                                          A16 = N'" & PA17 & "', A17 = N'" & PA18 & "', A18 = N'" & PA19 & "', A19 = N'" & PA20 & "', A20 = N'" & PA21 & "', 
                                          A21 = N'" & PA22 & "', A22 = N'" & PA23 & "', A23 = N'" & PA24 & "', A24 = N'" & PA25 & "', A25 = N'" & PA26 & "', 
                                          A26 = N'" & PA27 & "', A27 = N'" & PA28 & "', A28 = N'" & PA29 & "', A29 = N'" & PA30 & "', A30 = N'" & PA31 & "', 
                                          A31 = N'" & PA32 & "', A32 = N'" & PA33 & "', A33 = N'" & PA34 & "', A34 = N'" & PA35 & "', A35 = N'" & PA36 & "', 
                                          A36 = N'" & PA37 & "', A37 = N'" & PA38 & "', A38 = N'" & PA39 & "', A39 = N'" & PA40 & "', A40 = N'" & PA41 & "', 
                                          係數 = '" & BL1 & "', Total = N'" & PA42 & "' 
                 WHERE (合約編號 LIKE N'" & PA & "' AND 表號 = N'" & PA1 & "' AND 料號 = N'" & PA43 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算明細表_刪除()
        ConnOpen()
        SQL1 = "DELETE 合約試算明細表 WHERE (合約編號 LIKE N'" & PA & "' AND 表號 = N'" & PA1 & "' AND 料號 = N'" & PA43 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約係數表下拉1()
        ConnOpen() : SQL1 = "SELECT 項目 FROM 合約報價係數 GROUP BY 項目 ORDER BY 項目" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約係數表下拉2()
        ConnOpen() : SQL1 = "SELECT 單位 FROM 合約報價係數 GROUP BY 單位 ORDER BY 單位" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算分表查詢()
        ConnOpen() : SQL1 = "SELECT 試算表, 表號 FROM 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "' ORDER BY 表號" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算分表重複查詢()
        ConnOpen() : SQL1 = "SELECT 試算表, 表號, 係數 FROM 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "' AND 試算表 LIKE N'" & PA3 & "' ORDER BY 表號" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算分表_新增()
        ConnOpen() : SQL1 = "INSERT INTO 合約試算分表 (合約編號, 試算表, 表號, 係數) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', 3)" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算分表_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT 試算表, 表號 FROM 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "' ORDER BY 表號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算分表_試算表修改()
        ConnOpen() : SQL1 = "UPDATE 合約試算分表 SET 試算表 = N'" & PA1 & "' WHERE (合約編號 LIKE N'" & PA & "' AND 表號 = N'" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算分表_物料清單一()
        If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
        SQL1 = "SELECT 物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫轉語言.品名 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 物料編碼庫.料號原則, 
                       物料編碼庫.單位 " & 低網 & "
                FROM   物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 INNER JOIN
                           物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                WHERE  (物料編碼庫.群組碼 LIKE N'" & PA1 & "%') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')
                ORDER BY   Pernyataan_Prinsip, PN_Bagian"
    End Sub
    Friend Sub SQL_合約試算控制表_查詢()
        ConnOpen()
        SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' ORDER BY 表頭"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約試算明細表_查詢()
        ConnOpen()
        SQL1 = "SELECT  合約試算明細表.料號, 物料編碼庫轉語言.品名 AS [物料], 物料編碼庫.原則說明 AS [樓層/迴路], 
                        合約試算明細表.A1 AS [" & 合約試算表頭(1) & "], 合約試算明細表.A2 AS [" & 合約試算表頭(2) & "], 合約試算明細表.A3 AS [" & 合約試算表頭(3) & "], 
                        合約試算明細表.A4 AS [" & 合約試算表頭(4) & "], 合約試算明細表.A5 AS [" & 合約試算表頭(5) & "], 合約試算明細表.A6 AS [" & 合約試算表頭(6) & "], 
                        合約試算明細表.A7 AS [" & 合約試算表頭(7) & "], 合約試算明細表.A8 AS [" & 合約試算表頭(8) & "], 合約試算明細表.A9 AS [" & 合約試算表頭(9) & "], 
                        合約試算明細表.A10 AS [" & 合約試算表頭(10) & "], 合約試算明細表.A11 AS [" & 合約試算表頭(11) & "], 合約試算明細表.A12 AS [" & 合約試算表頭(12) & "], 
                        合約試算明細表.A13 AS [" & 合約試算表頭(13) & "], 合約試算明細表.A14 AS [" & 合約試算表頭(14) & "], 合約試算明細表.A15 AS [" & 合約試算表頭(15) & "], 
                        合約試算明細表.A16 AS [" & 合約試算表頭(16) & "], 合約試算明細表.A17 AS [" & 合約試算表頭(17) & "], 合約試算明細表.A18 AS [" & 合約試算表頭(18) & "], 
                        合約試算明細表.A19 AS [" & 合約試算表頭(19) & "], 合約試算明細表.A20 AS [" & 合約試算表頭(20) & "], 合約試算明細表.A21 AS [" & 合約試算表頭(21) & "], 
                        合約試算明細表.A22 AS [" & 合約試算表頭(22) & "], 合約試算明細表.A23 AS [" & 合約試算表頭(23) & "], 合約試算明細表.A24 AS [" & 合約試算表頭(24) & "], 
                        合約試算明細表.A25 AS [" & 合約試算表頭(25) & "], 合約試算明細表.A26 AS [" & 合約試算表頭(26) & "], 合約試算明細表.A27 AS [" & 合約試算表頭(27) & "], 
                        合約試算明細表.A28 AS [" & 合約試算表頭(28) & "], 合約試算明細表.A29 AS [" & 合約試算表頭(29) & "], 合約試算明細表.A30 AS [" & 合約試算表頭(30) & "], 
                        合約試算明細表.A31 AS [" & 合約試算表頭(31) & "], 合約試算明細表.A32 AS [" & 合約試算表頭(32) & "], 合約試算明細表.A33 AS [" & 合約試算表頭(33) & "], 
                        合約試算明細表.A34 AS [" & 合約試算表頭(34) & "], 合約試算明細表.A35 AS [" & 合約試算表頭(35) & "], 合約試算明細表.A36 AS [" & 合約試算表頭(36) & "], 
                        合約試算明細表.A37 AS [" & 合約試算表頭(37) & "], 合約試算明細表.A38 AS [" & 合約試算表頭(38) & "], 合約試算明細表.A39 AS [" & 合約試算表頭(39) & "], 
                        合約試算明細表.A40 AS [" & 合約試算表頭(40) & "], 合約試算明細表.係數, 合約試算明細表.Total, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 
                        物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8
                FROM    合約試算明細表 INNER JOIN 物料規格表 ON 合約試算明細表.料號 = 物料規格表.料號 INNER JOIN 物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN
                        物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 
                        物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼
                WHERE  (合約編號 LIKE N'" & PA & "') AND (表號 LIKE N'" & PA2 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ORDER BY 物料編碼庫.原則說明"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約試算控制表重複查詢()
        ConnOpen() : SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' AND [樓層/迴路] LIKE N'" & PA4 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算控制表_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' ORDER BY 表頭 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算控制表_新增()
        ConnOpen() : SQL1 = "INSERT INTO 合約試算控制表 (合約編號, 表號, [樓層/迴路], 表頭) VALUES (N'" & PA & "', N'" & PA2 & "', N'" & PA4 & "', N'" & PA5 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算控制表查詢()
        ConnOpen() : SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' ORDER BY 表號" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算控制表_樓層迴路修改()
        ConnOpen() : SQL1 = "UPDATE 合約試算控制表 SET [樓層/迴路] = N'" & PA4 & "' WHERE (合約編號 LIKE N'" & PA & "' AND 表號  LIKE N'" & PA2 & "' AND 表頭 LIKE N'" & PA5 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算明細表重複查詢()
        ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約試算明細表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' AND 料號 LIKE N'" & PA6 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約試算明細表_新增物料()
        ConnOpen()
        SQL1 = "INSERT INTO 合約試算明細表 (合約編號, 表號, 料號, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, 
                                            A20, A21, A22, A23, A24, A25, A26, A27, A28, A29, A30, A31, A32, A33, A34, A35, A36, A37, A38, A39, A40, 係數, Total) 
                VALUES (N'" & PA & "', N'" & PA2 & "', N'" & PA6 & "', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', 
                          '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價總表()
        ConnOpen()
        SQL1 = "SELECT 排序, 項目 AS [ITEM], 內容 AS [DESCRIPTION], 單位 AS [UNIT], 數量 AS [QTY], 單價 AS [UNIT PRICE" & 幣別 & "], 總價 AS [AMOUNT" & 幣別 & "], 備註 AS [REMARKS], 流水號, 明細連動 
                FROM 合約報價總表 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 排序"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約報價總表_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 合約報價總表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價總表_最後一筆排序()
        ConnOpen() : SQL1 = "SELECT TOP (1) 排序 FROM 合約報價總表 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價總表_新增資料()
        ConnOpen()
        SQL1 = "INSERT INTO 合約報價總表 (合約號碼, 排序, 項目, 內容, 單位, 數量, 單價, 總價, 備註, 流水號, 明細連動) 
                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', 
                        N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價總表_存檔()
        ConnOpen()
        SQL1 = "UPDATE 合約報價總表 SET 排序 = N'" & PA1 & "', 項目 = N'" & PA2 & "', 內容 = N'" & PA3 & "', 單位 = N'" & PA4 & "', 數量 = N'" & PA5 & "', 
                                        單價 = N'" & PA6 & "', 總價 = N'" & PA7 & "', 備註 = N'" & PA8 & "', 明細連動 = N'" & PA10 & "' WHERE 流水號 LIKE N'" & PA9 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價總表_刪除資料()
        ConnOpen() : SQL1 = "DELETE 合約報價總表 WHERE 流水號 LIKE N'" & PA9 & "' " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價係數()
        ConnOpen()
        SQL1 = "SELECT 合約號碼, 流水號, 項目, 係數, 單位 FROM 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 項目"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約報價係數_下拉()
        ConnOpen()
        SQL1 = "SELECT 項目 FROM 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 項目"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價明細表()
        ConnOpen()
        SQL1 = "SELECT    合約報價明細表.排序, 合約報價明細表.項目 AS ITEM, 合約報價明細表.內容 AS DESCRIPTION, 
                          合約報價明細表.單位 AS UNIT, 合約報價明細表.報價數量 AS QTY, 合約報價明細表.單價 AS [UNIT PRICE" & 幣別 & "], 
                          合約報價明細表.總價 AS [AMOUNT" & 幣別 & "], 合約報價明細表.備註 AS REMARKS, 合約報價明細表.實際數量, 
                          合約報價明細表.工資成本單價, 合約報價明細表.工資成本單價 AS 工資成本後價, 合約報價明細表.工資報價單價, 
                          合約報價明細表.工資成本單價 AS 工資報價後價, 合約報價明細表.材料成本單價, 
                          合約報價明細表.材料成本單價 AS 材料成本後價, 合約報價明細表.材料報價單價, 
                          合約報價明細表.材料成本單價 AS 材料報價後價, 合約報價明細表.材料成本單價 AS 利潤, 合約報價明細表.流水號, 
                          QQQ.A1, QQQ.A2, QQQ.A3, QQQ.A4, QQQ.A5, QQQ.A6, QQQ.A7, QQQ.A8, QQQ.規格庫抬頭指定, QQQ.規格庫編號, 
                          QQQ.品名, 合約報價明細表.料號, QQQ.料號原則, 合約報價明細表.材料係數, 合約報價明細表.不計算 AS 不計, 
                          QQQ.S1, QQQ.S2, QQQ.S3, QQQ.S4, QQQ.S5, QQQ.S6, QQQ.S7, QQQ.S8, 合約報價明細表.預設, 合約報價明細表.D1, 
                          合約報價明細表.D2, 合約報價明細表.D3, 合約報價明細表.D4, 合約報價明細表.D5, 合約報價明細表.D6, 
                          合約報價明細表.D7, 合約報價明細表.D8, QQQ.AA1, QQQ.AA2, QQQ.AA3, QQQ.AA4, QQQ.AA5, QQQ.AA6, QQQ.AA7, 
                          QQQ.AA8, 合約報價明細表.不計算 AS [S]
                FROM     (SELECT    物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 
                                    物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 
                                    物料編碼庫轉語言.品名, 物料規格表.料號, 物料資訊控制表.料號原則, 物料規格表.S1, 物料規格表.S2, 
                                    物料規格表.S3, 物料規格表.S4, 物料規格表.S5, 物料規格表.S6, 物料規格表.S7, 物料規格表.S8, 
                                    規格庫抬頭.A1 AS AA1, 規格庫抬頭.A2 AS AA2, 規格庫抬頭.A3 AS AA3, 規格庫抬頭.A4 AS AA4, 
                                    規格庫抬頭.A5 AS AA5, 規格庫抬頭.A6 AS AA6, 規格庫抬頭.A7 AS AA7, 規格庫抬頭.A8 AS AA8
                           FROM     物料規格表 INNER JOIN
                                    物料資訊控制表 ON 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 
                                    物料規格表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN
                                    物料編碼庫轉語言 ON 物料規格表.群組碼 = 物料編碼庫轉語言.群組碼 AND 
                                    物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN
                                    規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 AND 
                                    物料編碼庫轉語言.語言 = 規格庫抬頭.語言
                           WHERE   (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ RIGHT OUTER JOIN
                           合約報價明細表 ON QQQ.料號 = 合約報價明細表.料號
                WHERE     (合約報價明細表.合約號碼 LIKE N'" & PA & "')
                ORDER BY   合約報價明細表.排序"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約報價明細表_存檔()
        ConnOpen()
        SQL1 = "UPDATE 合約報價明細表 SET 排序 = N'" & PA1 & "', 項目 = N'" & PA2 & "', 內容 = N'" & PA3 & "', 單位 = N'" & PA4 & "', 報價數量 = N'" & PA5 & "', 
                                          單價 = N'" & PA6 & "', 總價 = N'" & PA7 & "', 備註 = N'" & PA8 & "', 實際數量 = N'" & PA10 & "', 工資成本單價 = N'" & PA11 & "', 
                                          工資報價單價 = N'" & PA12 & "', 材料成本單價 = N'" & PA13 & "', 材料報價單價 = N'" & PA14 & "', 料號 = N'" & PA15 & "', 
                                          不計算 = N'" & BL & "', 材料係數 = N'" & PA16 & "', D1 = N'" & BL1 & "', D2 = N'" & BL2 & "', D3 = N'" & BL3 & "', D4 = N'" & BL4 & "', 
                                          D5 = N'" & BL5 & "', D6 = N'" & BL6 & "', D7 = N'" & BL7 & "', D8 = N'" & BL8 & "', 預設 = 0
                WHERE 流水號 LIKE N'" & PA9 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價明細表_存檔_料號()
        ConnOpen()
        SQL1 = "UPDATE 合約報價明細表 SET  料號 = N'" & PA15 & "', 項目 = N'" & PA2 & "', 報價數量 = N'" & PA5 & "', 實際數量 = N'" & PA5 & "' , 單位 = N'" & PA4 & "', 
                                           預設 = 1 " & SQL2 & "
                WHERE  流水號 LIKE N'" & PA9 & "'"
        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 = "SELECT TOP (1) 排序 FROM 合約報價明細表 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價明細表_新增資料()
        ConnOpen()
        SQL1 = "INSERT INTO 合約報價明細表 (合約號碼, 排序, 項目, 內容, 單位, 報價數量, 單價, 總價, 備註, 流水號, 實際數量, 工資成本單價, 工資報價單價, 材料成本單價, 材料報價單價, 
                                            料號, 不計算, 材料係數, D1, D2, D3, D4, D5, D6, D7, D8, 預設) 
                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', 
                        N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', '" & BL & "', N'" & PA16 & "', '" & BL1 & "', '" & BL2 & "', 
                         '" & BL3 & "', '" & BL4 & "', '" & BL5 & "', '" & BL6 & "', '" & BL7 & "', '" & BL8 & "', '" & BL9 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價明細表_刪除資料()
        ConnOpen() : SQL1 = "DELETE 合約報價明細表 WHERE 流水號 LIKE N'" & PA9 & "' " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價係數資料不重複()
        ConnOpen() : SQL1 = "SELECT 合約號碼, 流水號, 項目, 係數, 單位 FROM 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' AND 項目 LIKE N'" & PA2 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價係數刪除()
        ConnOpen() : SQL1 = "DELETE 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' AND 流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約報價係數修改()
        ConnOpen()
        SQL1 = "UPDATE 合約報價係數 SET 係數 = N'" & 合約報價單.係數_nup.Text & "', 單位 = N'" & 合約報價單.係數單位_cb.Text & "'  WHERE 合約號碼 LIKE N'" & PA & "' AND 流水號 LIKE N'" & PA1 & "'"
        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 (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')" : 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_附錄合約_最後一筆資料1()
        ConnOpen() : SQL1 = "SELECT TOP (1) 附錄編號 FROM 合約附錄 WHERE 附錄編號 LIKE N'" & PA1 & "' ORDER BY 附錄編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_附錄合約_清單查詢()
        ConnOpen()
        SQL1 = "SELECT 合約號碼, 附錄編號 AS [" & 表頭(99) & "], 日期, 原金額, 追加減, 結算, 其他內容, 停用 AS [" & 表頭(179) & "] FROM 合約附錄 
                WHERE (合約號碼 LIKE N'" & PA & "') ORDER BY 附錄編號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_附錄合約_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 合約附錄 WHERE (附錄編號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_附錄合約_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 合約附錄 (合約號碼, 附錄編號, 日期, 原金額, 追加減, 結算, 其他內容, 停用) 
                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', '0')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_附錄合約_修改()
        ConnOpen()
        SQL1 = "UPDATE 合約附錄 SET 日期 = N'" & PA2 & "', 原金額 = N'" & PA3 & "', 追加減 = N'" & PA4 & "', 結算 = N'" & PA5 & "', 其他內容 = N'" & PA6 & "', 停用 = '" & BL1 & "' 
                WHERE 附錄編號 LIKE N'" & PA1 & "'"
        CmdSet_For_dr()
    End Sub
    '---------------------------附錄合約----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_附錄合約_清單查詢1()
        ConnOpen()
        SQL1 = "SELECT 合約號碼, 附錄編號, 日期, 原金額, 追加減, 結算, 其他內容, 停用 FROM 合約附錄 WHERE (合約號碼 LIKE N'" & PA & "') AND (停用 = 0) ORDER BY 附錄編號 DESC"
        CmdSet_For_DGV()
    End Sub
    '---------------------------合約請款單----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_請款單_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT TOP (1) 請款編號 FROM 合約請款 ORDER BY 請款編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請款單_最後一筆資料1()
        ConnOpen() : SQL1 = "SELECT TOP (1) 請款編號 FROM 合約請款 WHERE 請款編號 LIKE N'" & PA1 & "' ORDER BY 請款編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請款單_清單查詢()
        ConnOpen()
        SQL1 = "SELECT 請款編號, 期數, 請款內容, 比例, 請款金額, 稅金, 付款期限, 審批意見, 請款總額, 申請時間 FROM 合約請款 WHERE (合約編號 LIKE N'" & PA & "') 
                ORDER BY CHARINDEX(LEFT(期數, 1), '一二三四五'), 請款編號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_請款單_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 合約請款 WHERE (請款編號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請款單_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 合約請款 (合約編號, 請款編號, 期數, 請款內容, 請款金額, 稅金, 付款期限, 申請時間, 審批意見, 請款總額, 比例) 
                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請款單_修改()
        ConnOpen()
        SQL1 = "UPDATE 合約請款 SET 期數 = N'" & PA2 & "', 請款內容 = N'" & PA3 & "', 請款金額 = N'" & PA4 & "', 稅金 = N'" & PA5 & "', 付款期限 = N'" & PA6 & "', 申請時間 = N'" & PA7 & "', 
                                    審批意見 = N'" & PA8 & "', 請款總額 = N'" & PA9 & "', 比例 = N'" & PA10 & "' 
                WHERE 請款編號 LIKE N'" & PA1 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_控制表_請款修改()
        ConnOpen()
        SQL1 = "UPDATE 合約控制表 SET 追加減 = N'" & PA1 & "', 結算金額 = N'" & PA2 & "', 已請款 = N'" & PA3 & "', 剩餘款 = N'" & PA4 & "', 預付款 = N'" & PA5 & "', 
                                      到貨款 = N'" & PA6 & "', 施工款 = N'" & PA7 & "', 驗收款 = N'" & PA8 & "', 保留款 = N'" & PA9 & "' 
                WHERE 合約編號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
    End Sub
    '---------------------------合約請款控制表----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約請款控制表查詢()
        ConnOpen()
        SQL1 = "SELECT    合約控制表.合約編號 AS [" & 表頭(134) & "], 合約控制表." & SQL3 & " AS [" & 表頭(151) & "], 合約控制表.工程總價 AS [" & 表頭(27) & "], 
                          合約控制表.追加減 AS [" & 表頭(180) & "], 合約控制表.結算金額 AS [" & 表頭(181) & "], 合約控制表.已請款 AS [" & 表頭(182) & "], 
                          合約控制表.已請款 AS 比例1, 合約控制表.剩餘款 AS [" & 表頭(183) & "], 合約控制表.剩餘款 AS 比例2, QQ.請款總額 AS [" & 表頭(184) & "], 
                          WW.請款總額 AS [" & 表頭(185) & "], EE.請款總額 AS [" & 表頭(186) & "], FF.請款總額 AS [" & 表頭(187) & "], RR.請款總額 AS [" & 表頭(188) & "], 
                          簽回檔圖庫, 請款簽回 AS 簽回
                FROM      合約控制表 LEFT OUTER JOIN
                         (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_5  WHERE  (期數 LIKE '五')
                          GROUP BY  合約編號) AS RR ON 合約控制表.合約編號 = RR.合約編號 LEFT OUTER JOIN
                         (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_4  WHERE  (期數 LIKE '四')
                          GROUP BY  合約編號) AS FF ON 合約控制表.合約編號 = FF.合約編號 LEFT OUTER JOIN
                         (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_3  WHERE  (期數 LIKE '三')
                          GROUP BY  合約編號) AS EE ON 合約控制表.合約編號 = EE.合約編號 LEFT OUTER JOIN
                         (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_2  WHERE  (期數 LIKE '二')
                          GROUP BY  合約編號) AS WW ON 合約控制表.合約編號 = WW.合約編號 LEFT OUTER JOIN
                         (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_1 WHERE  (期數 LIKE '一')
                          GROUP BY  合約編號) AS QQ ON 合約控制表.合約編號 = QQ.合約編號 " & SQL2 & "
                ORDER BY  合約控制表.約號甲方, 合約控制表.約號排序 DESC, 合約控制表.約號尾序 DESC"
        CmdSet_For_DGV()
    End Sub
    '---------------------------合約驗收單----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約報價明細表_驗收存檔()
        ConnOpen() : SQL1 = "UPDATE 合約報價明細表 SET 驗收數量 = N'" & PA1 & "', 驗收備註 = N'" & PA2 & "' WHERE 流水號 LIKE N'" & PA9 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約清單_驗收用()
        ConnOpen()
        SQL1 = "SELECT      合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方 , 工期, 立約日期, 
                            驗收開始日期, 驗收結果, 驗收備註, 工地驗收備註, 驗收完成日期, 保固期限
                FROM        合約控制表
                WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                            工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 
                           (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (工程主管 LIKE N'%" & PA45 & "%')
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約驗收明細表()
        ConnOpen()
        SQL1 = "SELECT    合約報價明細表.項目 AS ITEM, 合約報價明細表.內容 AS DESCRIPTION, 
                          合約報價明細表.單位 AS UNIT, 合約報價明細表.報價數量 AS 合約, 合約報價明細表.驗收數量 AS 實際, 
                          合約報價明細表.驗收數量 AS 差異, 合約報價明細表.驗收備註 AS REMARKS, 合約報價明細表.流水號, 
                          QQQ.A1, QQQ.A2, QQQ.A3, QQQ.A4, QQQ.A5, QQQ.A6, QQQ.A7, QQQ.A8, QQQ.規格庫抬頭指定, QQQ.規格庫編號, 
                          QQQ.品名, 合約報價明細表.料號, QQQ.料號原則, 合約報價明細表.材料係數, 合約報價明細表.不計算 AS 不計, 
                          QQQ.S1, QQQ.S2, QQQ.S3, QQQ.S4, QQQ.S5, QQQ.S6, QQQ.S7, QQQ.S8, 合約報價明細表.預設, 合約報價明細表.D1, 
                          合約報價明細表.D2, 合約報價明細表.D3, 合約報價明細表.D4, 合約報價明細表.D5, 合約報價明細表.D6, 
                          合約報價明細表.D7, 合約報價明細表.D8, QQQ.AA1, QQQ.AA2, QQQ.AA3, QQQ.AA4, QQQ.AA5, QQQ.AA6, QQQ.AA7, 
                          QQQ.AA8
                FROM     (SELECT    物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 
                                    物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 
                                    物料編碼庫轉語言.品名, 物料規格表.料號, 物料資訊控制表.料號原則, 物料規格表.S1, 物料規格表.S2, 
                                    物料規格表.S3, 物料規格表.S4, 物料規格表.S5, 物料規格表.S6, 物料規格表.S7, 物料規格表.S8, 
                                    規格庫抬頭.A1 AS AA1, 規格庫抬頭.A2 AS AA2, 規格庫抬頭.A3 AS AA3, 規格庫抬頭.A4 AS AA4, 
                                    規格庫抬頭.A5 AS AA5, 規格庫抬頭.A6 AS AA6, 規格庫抬頭.A7 AS AA7, 規格庫抬頭.A8 AS AA8
                           FROM     物料規格表 INNER JOIN
                                    物料資訊控制表 ON 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 
                                    物料規格表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN
                                    物料編碼庫轉語言 ON 物料規格表.群組碼 = 物料編碼庫轉語言.群組碼 AND 
                                    物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN
                                    規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 AND 
                                    物料編碼庫轉語言.語言 = 規格庫抬頭.語言
                           WHERE   (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ RIGHT OUTER JOIN
                           合約報價明細表 ON QQQ.料號 = 合約報價明細表.料號
                WHERE     (合約報價明細表.合約號碼 LIKE N'" & PA & "') AND 合約報價明細表.項目 NOT LIKE '*'
                ORDER BY   合約報價明細表.排序"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_控制表_驗收確認()
        ConnOpen() : SQL1 = "SELECT 驗收開始日期 FROM 合約控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_控制表_驗收修改1()
        ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 驗收開始日期 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    '---------------------------合約驗收控制表----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約驗收控制表查詢()
        ConnOpen()
        SQL1 = "SELECT     合約編號, 工程名稱_中 AS 工程, 工期, 立約日期, 驗收開始日期, 工期 AS [已完成/未完成天數], 
                           驗收完成日期, 驗收結果, 保固期限, 驗收備註, 工地驗收備註, 工程主管, 簽回檔圖庫, 驗收簽回 AS 簽回
                FROM       合約控制表 " & SQL2 & "
                ORDER BY   驗收開始日期 DESC, 立約日期 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_控制表_驗收修改2()
        ConnOpen()
        SQL1 = "UPDATE 合約控制表 SET 驗收完成日期 = N'" & PA1 & "', 驗收結果 = N'" & PA2 & "', 驗收備註 = N'" & PA3 & "', 保固期限 = N'" & PA4 & "' WHERE 合約編號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_控制表_驗收修改3()
        ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 工地驗收備註 = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_控制表_驗收修改4()
        ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 工程主管 = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    '---------------------------合約保固書----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約清單_保固用()
        ConnOpen()
        SQL1 = "SELECT      合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期 AS QQ, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方 , 工期, 立約日期, 
                            驗收開始日期, 驗收完成日期, 保固期限, 保固地址, 簽回檔圖庫, 保固簽回 AS 簽回
                FROM        合約控制表
                WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                            工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 
                           (驗收結果 = 1) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_控制表_保固修改()
        ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 保固期限 = N'" & PA1 & "', 保固地址 = N'" & PA2 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    '---------------------------合約結案控制表----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約清單_結案用()
        ConnOpen()
        SQL1 = "SELECT     合約控制表.合約編號, 合約控制表.工程名稱_中 AS 工程, 合約控制表.工期, 合約控制表.立約日期, 合約控制表.第一期比例, 
                           合約控制表.第二期比例, 合約控制表.第三期比例, 合約控制表.第四期比例, 合約控制表.第五期比例, 
                           合約控制表.預付款, 合約控制表.到貨款, 合約控制表.施工款, 合約控制表.驗收款, 合約控制表.保留款, 
                           HX空白圖片.圖片 AS 訂金, HX空白圖片.圖片 AS 到料, HX空白圖片.圖片 AS 施工, HX空白圖片.圖片 AS 驗收, 
                           HX空白圖片.圖片 AS 保固, 合約控制表.驗收完成日期, 合約控制表.保固期限 AS [保固期限(月)], 
                           合約控制表.驗收完成日期 AS 保固到期日, 合約控制表.驗收完成日期 AS [保固剩餘(天)], 合約控制表.剩餘款, 
                           合約控制表.結案備註, 客戶名稱, 合約控制表.工程總價, 合約控制表.追加減, 合約控制表.結算金額, 合約控制表.已請款,工期 AS 排序
                FROM       合約控制表 LEFT OUTER JOIN
                           HX空白圖片 ON 合約控制表.合約編號 = HX空白圖片.選擇 " & SQL2 & "
                ORDER BY   合約控制表.約號甲方, 合約控制表.約號排序, 合約控制表.約號尾序"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_控制表_結案修改()
        ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 結案備註 = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    '---------------------------工程項目BOM表----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_BOM表控制()
        ConnOpen_工程SQL() : SQL1 = "SELECT 流水號, 項目 FROM 工程項目BOM表控制 ORDER BY 項目" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_BOM表控制_項目查詢()
        ConnOpen_工程SQL() : SQL1 = "SELECT 流水號, 項目 FROM 工程項目BOM表控制 WHERE 項目 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表控制流水號查詢()
        ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 FROM 工程項目BOM表控制 ORDER BY 流水號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表控制_新增()
        ConnOpen_工程SQL() : SQL1 = "INSERT INTO 工程項目BOM表控制 (流水號, 項目) VALUES (N'" & PA & "', N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表控制_存檔()
        ConnOpen_工程SQL() : SQL1 = "UPDATE 工程項目BOM表控制 SET 項目 = N'" & PA1 & "' WHERE 流水號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表控制_刪除()
        ConnOpen_工程SQL() : SQL1 = "DELETE 工程項目BOM表控制 WHERE 流水號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表明細()
        ConnOpen_工程SQL()
        SQL1 = "SELECT  工程項目BOM表明細.排序, 工程項目BOM表明細.排序 AS 項次, 工程項目BOM表明細.項目, 工程項目BOM表明細.單位, 工程項目BOM表明細.數量, 工程項目BOM表明細.料號, 
                        工程項目BOM表明細.明細流水, QQQ.A1, QQQ.A2, QQQ.A3, QQQ.A4, QQQ.A5, QQQ.A6, QQQ.A7, QQQ.A8, QQQ.規格庫編號, QQQ.規格庫抬頭指定, QQQ.品名, QQQ.料號原則, QQQ.S1, QQQ.S2, 
                        QQQ.S3, QQQ.S4, QQQ.S5, QQQ.S6, QQQ.S7, QQQ.S8, QQQ.AA1, QQQ.AA2, QQQ.AA3, QQQ.AA4, QQQ.AA5, QQQ.AA6, QQQ.AA7, QQQ.AA8
                FROM    工程項目BOM表明細 LEFT OUTER JOIN
                       (SELECT  [HX-GPS-ERP-SYS].dbo.物料規格表.A1, [HX-GPS-ERP-SYS].dbo.物料規格表.A2, [HX-GPS-ERP-SYS].dbo.物料規格表.A3, [HX-GPS-ERP-SYS].dbo.物料規格表.A4, 
                                 [HX-GPS-ERP-SYS].dbo.物料規格表.A5, [HX-GPS-ERP-SYS].dbo.物料規格表.A6, [HX-GPS-ERP-SYS].dbo.物料規格表.A7, [HX-GPS-ERP-SYS].dbo.物料規格表.A8, 
                                 [HX-GPS-ERP-SYS].dbo.物料資訊控制表.規格庫編號, [HX-GPS-ERP-SYS].dbo.物料資訊控制表.規格庫抬頭指定, [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.品名, 
                                 [HX-GPS-ERP-SYS].dbo.物料規格表.料號, [HX-GPS-ERP-SYS].dbo.物料資訊控制表.料號原則, [HX-GPS-ERP-SYS].dbo.物料規格表.S1, 
                                 [HX-GPS-ERP-SYS].dbo.物料規格表.S2, [HX-GPS-ERP-SYS].dbo.物料規格表.S3, [HX-GPS-ERP-SYS].dbo.物料規格表.S4, [HX-GPS-ERP-SYS].dbo.物料規格表.S5, 
                                 [HX-GPS-ERP-SYS].dbo.物料規格表.S6, [HX-GPS-ERP-SYS].dbo.物料規格表.S7, [HX-GPS-ERP-SYS].dbo.物料規格表.S8, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A1 AS AA1, 
                                 [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A2 AS AA2, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A3 AS AA3, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A4 AS AA4, 
                                 [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A5 AS AA5, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A6 AS AA6, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A7 AS AA7, 
                                 [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A8 AS AA8
                        FROM     [HX-GPS-ERP-SYS].dbo.物料規格表 INNER JOIN [HX-GPS-ERP-SYS].dbo.物料資訊控制表 ON [HX-GPS-ERP-SYS].dbo.物料規格表.群組碼 = 
                                 [HX-GPS-ERP-SYS].dbo.物料資訊控制表.群組碼 AND [HX-GPS-ERP-SYS].dbo.物料規格表.料號原則 = [HX-GPS-ERP-SYS].dbo.物料資訊控制表.料號原則
                                 INNER JOIN [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言 ON [HX-GPS-ERP-SYS].dbo.物料規格表.群組碼 = [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.群組碼 AND
                                 [HX-GPS-ERP-SYS].dbo.物料規格表.料號原則 = [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.料號原則 INNER JOIN [HX-GPS-ERP-SYS].dbo.規格庫抬頭 ON 
                                 [HX-GPS-ERP-SYS].dbo.物料資訊控制表.規格庫抬頭指定 = [HX-GPS-ERP-SYS].dbo.規格庫抬頭.規格庫抬頭指定 AND 
                                 [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.語言 = [HX-GPS-ERP-SYS].dbo.規格庫抬頭.語言
                        WHERE   ([HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ ON 工程項目BOM表明細.料號 = QQQ.料號
                WHERE     工程項目BOM表明細.流水號 LIKE '" & PA & "'
                ORDER BY  工程項目BOM表明細.排序"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_BOM表明細流水號查詢()
        ConnOpen_工程SQL() : SQL1 = "SELECT 排序 FROM 工程項目BOM表明細 WHERE 流水號 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表明細流水號查詢1()
        ConnOpen_工程SQL() : SQL1 = "SELECT 明細流水 FROM 工程項目BOM表明細 ORDER BY 明細流水 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表明細_新增()
        ConnOpen_工程SQL()
        SQL1 = "INSERT INTO 工程項目BOM表明細 (流水號, 排序, 項目, 料號, 數量, 單位, 明細流水) 
                VALUES (N'" & PA & "', N'" & PA6 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA7 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表明細_刪除()
        ConnOpen_工程SQL() : SQL1 = "DELETE 工程項目BOM表明細 WHERE 明細流水 LIKE '" & PA7 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表明細_刪除_全部()
        ConnOpen_工程SQL() : SQL1 = "DELETE 工程項目BOM表明細 WHERE 流水號 LIKE '" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表明細_存檔()
        ConnOpen_工程SQL()
        SQL1 = "UPDATE 工程項目BOM表明細 SET 排序 = N'" & PA1 & "', 項目 = N'" & PA2 & "', 料號 = N'" & PA3 & "', 數量 = N'" & PA4 & "', 單位 = N'" & PA5 & "' WHERE 明細流水 LIKE N'" & PA7 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_BOM表明細_存檔_料號()
        ConnOpen_工程SQL() : SQL1 = "UPDATE 工程項目BOM表明細 SET 料號 = N'" & PA3 & "' WHERE 明細流水 LIKE N'" & PA7 & "'" : CmdSet_For_dr()
    End Sub
    '---------------------------合約文件簽回存檔----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約清單_簽回存檔()
        ConnOpen()
        SQL1 = "SELECT      合約編號, 客戶名稱, 工程名稱_中, 工程名稱_英, 簽回檔圖庫, 報價簽回, 合約簽回, 請款簽回, 驗收結果 AS 執行驗收, 驗收簽回, 
                            保固簽回 AS 開始保固 , 保固簽回, 其他文件
                FROM        合約控制表 
                WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                            工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)
                ORDER BY    約號排序 DESC, 約號甲方, 約號尾序"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約清單_簽回存檔_最後一筆編號查詢()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT TOP(1) 文件號 FROM 合約文件簽回圖檔 WHERE (合約編號 LIKE '" & PA1 & "') ORDER BY 文件號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約清單_簽回存檔_圖片入系統()
        ConnOpen_工程圖庫SQL()
        SQL1 = "INSERT INTO 合約文件簽回圖檔 (合約編號, 階段, 文件號, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', 
                BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 合約文件簽回存檔.檔案名稱_tb.Text & 合約文件簽回存檔.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約清單_簽回存檔_圖片清單()
        ConnOpen_工程圖庫SQL()
        SQL1 = "SELECT 文件號 AS Item, 圖片 AS IMG FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' ORDER BY 文件號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約清單_簽回存檔_圖片讀取()
        ConnOpen_工程圖庫SQL()
        SQL1 = "SELECT 圖片 FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' AND 文件號 LIKE '" & PA3 & "' ORDER BY 文件號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約清單_簽回存檔_圖片讀取1()
        ConnOpen_工程圖庫SQL()
        SQL1 = "SELECT 圖片 FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' AND 文件號 LIKE '" & PA3 & "' ORDER BY 文件號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約控制表簽回檔注記()
        ConnOpen() : SQL1 = "UPDATE 合約控制表 SET " & SQL2 & " = N'" & BL1 & "', 簽回檔圖庫 = N'" & 圖片庫 & "' WHERE 合約編號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約清單_簽回存檔_圖片刪除()
        ConnOpen_工程圖庫SQL()
        SQL1 = "DELETE 合約文件簽回圖檔 WHERE  (合約編號 LIKE N'" & PA1 & "') AND (文件號 LIKE N'" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------------合約文件簽核控制表----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約文件簽核控制表()
        ConnOpen()
        SQL1 = "SELECT      合約編號, 工程名稱_中, 工程名稱_英, 合約停止 AS 報價完成, 報價放行 AS 報價核准, 報價簽回, 合約簽回, 請款簽回, 驗收結果 AS 執行驗收, 驗收簽回, 
                            保固簽回 AS 開始保固 , 保固簽回, 簽回檔圖庫, 保固期限
                FROM        合約控制表 
                WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                            工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') " & SQL2 & SQL3 & SQL4 & "
                ORDER BY    約號排序 DESC, 約號甲方, 約號尾序"
        CmdSet_For_DGV()
    End Sub
    '---------------------------合約報價單審核----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_合約清單_報價放行_存檔()
        ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 報價放行 = '1' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_合約清單_報價放行用()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止, 
                            簽回檔圖庫, 報價簽回 AS 簽回
                FROM        合約控制表
                WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%'  AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 0 OR 報價放行 IS NULL)
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        Else
            SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 
                            工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 
                            最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止, 
                            簽回檔圖庫, 報價簽回 AS 簽回
                FROM        合約控制表
                WHERE       合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 
                            工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 
                            工程名稱_英 LIKE N'%" & PA & "%'  AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 0 OR 報價放行 IS NULL)
                ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"
        End If
        CmdSet_For_DGV()
    End Sub
End Module