TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/Module/SQL_圖片資料庫管理.vb

Module SQL_圖片資料庫管理
    '----------------------驗貨報告資料庫修正-----------------------------
    Friend Sub SQL_驗貨報告圖庫()
        ConnOpen()
        SQL1 = "SELECT 客戶訂單號, 型體名稱, 驗貨報告編號 FROM 驗貨報告圖庫 WHERE (客戶訂單號 LIKE '%" & 驗貨報告資料庫修正.客戶訂單號_tb.Text & "%')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表1()
        ConnOpen()
        SQL1 = "SELECT   訂單流水號, 年份季度, 客戶訂單號, 形體號, 驗貨報告圖片 FROM 訂單控制表
                WHERE   (客戶訂單號 LIKE '%" & 驗貨報告資料庫修正.客戶訂單號_tb.Text & "%') AND (形體號 LIKE N'" & 驗貨報告資料庫修正.型體名稱_tb.Text & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_訂單控制表修改()
        ConnOpen()
        SQL1 = "UPDATE 訂單控制表 SET 驗貨報告圖片 = N'" & 驗貨報告資料庫修正.驗貨報告編號_tb.Text & "'
                    WHERE   (客戶訂單號 LIKE N'" & PA & "') AND (形體號 LIKE N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------------驗貨報告圖片導入資料庫--------------------------------------------------------------
    Friend Sub SQL_訂單清單()
        SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 生產工廠, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 驗貨報告圖片, 力威訂單號 FROM " & 訂單資料表(1) & " 
                WHERE (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (驗貨時間 LIKE '') ORDER BY   SUBSTRING(訂單流水號, 4, 6), 客戶訂單號, 形體號"
    End Sub
    Friend Sub SQL_訂單清單查詢()
        SQL1 = "SELECT   訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 生產工廠, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 驗貨報告圖片 FROM " & 訂單資料表(1) & " 
                WHERE   (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (驗貨時間 LIKE '') AND (訂單流水號 LIKE '%" & PA & "%' OR 年份季度 LIKE '%" & PA & "%' OR 
                         客戶訂單號 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 生產工廠 LIKE '%" & PA & "%' OR 力威訂單號 LIKE '%" & PA & "%') 
                ORDER BY SUBSTRING(訂單流水號, 4, 6), 客戶訂單號, 形體號"
    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 驗貨報告圖庫 (客戶訂單號, 型體名稱, 驗貨報告編號, 操作人, 驗貨報告) 
                        SELECT '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "','" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "','" & 驗貨報告圖片導入資料庫.TextBox3.Text & "','" & gUserName & "', 
                        BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0004\" & 驗貨報告圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增驗貨報告圖庫_正式()
        ConnOpen()
        SQL1 = "INSERT INTO 驗貨報告圖庫 (客戶訂單號, 型體名稱, 驗貨報告編號, 操作人, 驗貨報告) 
                        SELECT '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "','" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "','" & 驗貨報告圖片導入資料庫.TextBox3.Text & "','" & gUserName & "', 
                        BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 驗貨報告圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改驗貨報告圖庫()
        ConnOpen()
        SQL1 = "UPDATE " & 訂單資料表(1) & " SET 驗貨時間 = '" & DTP & "', 驗貨報告圖片 = '" & 驗貨報告圖片導入資料庫.TextBox3.Text & "' 
                WHERE (訂單流水號 LIKE '" & 驗貨報告圖片導入資料庫.天盾訂單號_tb.Text & "' AND 客戶訂單號 = '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "' AND 
                       形體號 = '" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '------------------------------------------------驗貨報告資料庫-------------------------------------
    Friend Sub SQL_驗貨報告圖庫清單()
        SQL1 = "SELECT     " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色,  驗貨報告圖庫.驗貨報告編號 
                FROM       驗貨報告圖庫 INNER JOIN " & 訂單資料表(1) & " ON 驗貨報告圖庫.客戶訂單號 = " & 訂單資料表(1) & ".客戶訂單號 
                GROUP BY   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色, 驗貨報告圖庫.驗貨報告編號 
                ORDER BY   驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱"
    End Sub
    Friend Sub SQL_驗貨報告圖庫查詢()
        ConnOpen()
        SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_驗貨報告圖庫查詢1()
        SQL1 = "SELECT   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色,  驗貨報告圖庫.驗貨報告編號 
                FROM     驗貨報告圖庫 LEFT OUTER JOIN " & 訂單資料表(1) & " ON 驗貨報告圖庫.客戶訂單號 = " & 訂單資料表(1) & ".客戶訂單號 
                WHERE    " & 訂單資料表(1) & ".訂單流水號 LIKE '%" & PA & "%' OR " &
                             "" & 訂單資料表(1) & ".年份季度 LIKE '%" & PA & "%' OR 驗貨報告圖庫.客戶訂單號 LIKE '%" & PA & "%' OR 驗貨報告圖庫.型體名稱 LIKE '%" & PA & "%' 
                GROUP BY " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色, 驗貨報告圖庫.驗貨報告編號 
                ORDER BY 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱"
    End Sub
    Friend Sub SQL_驗貨報告圖庫3()
        ConnOpen()
        SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_修改驗貨報告圖庫1_測試()
        ConnOpen()
        SQL1 = "UPDATE 驗貨報告圖庫 SET  驗貨報告 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0004\" & 驗貨報告資料庫.TextBox6.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                        WHERE (驗貨報告編號 = '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改驗貨報告圖庫1_正式()
        ConnOpen()
        SQL1 = "UPDATE 驗貨報告圖庫 SET  驗貨報告 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 驗貨報告資料庫.TextBox6.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                        WHERE (驗貨報告編號 = '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '--------------------保證書出貨統計資料---------------------------------------------------------
    Friend Sub SQL_保證書出貨清單()
        ConnOpen()
        SQL1 = "SELECT 驗貨報告圖庫.操作人, 訂單控制表.訂單流水號, 訂單控制表.年份季度, 訂單控制表.客戶訂單號, 訂單控制表.形體號 AS 型體名稱, 訂單控制表.TVW AS 形體號碼, 訂單控制表.顏色, " &
                   "訂單控制表.楦型, 訂單控制表.訂單數量, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.工廠回復交期, 訂單控制表.裁斷時間, 訂單控制表.針車時間, 訂單控制表.成型時間, " &
                   "訂單控制表.驗貨時間, 訂單控制表.實際離廠日, 訂單控制表.東莞業務備註, 訂單控制表.驗貨報告圖片 FROM 驗貨報告圖庫 LEFT OUTER JOIN 訂單控制表 ON 驗貨報告圖庫.型體名稱 = " &
                   "訂單控制表.形體號 AND 驗貨報告圖庫.客戶訂單號 = 訂單控制表.客戶訂單號 WHERE (驗貨報告圖庫.操作人 LIKE 'Sammi') ORDER BY   訂單控制表.客戶訂單號 DESC, 型體名稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_驗貨報告()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA & "'"
        CmdSet_For_dr()
    End Sub
    '-------------------------驗貨報告大圖---------------------------------------------------
    Friend Sub SQL_驗貨報告1()
        ConnOpen()
        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告 & "'"
        CmdSet_For_dr()
    End Sub
    '----------------------鞋型圖片導入資料庫---------------------------------------------------
    Friend Sub SQL_季節清單()
        SQL1 = "SELECT  年份季度  FROM  訂單控制表年份季度清單  ORDER BY  年份季度"
    End Sub
    Friend Sub SQL_季節清單1()
        SQL1 = "SELECT  年份季度  FROM  訂單控制表年份季度清單  WHERE 年份季度 LIKE '%" & PA & "%'  ORDER BY  年份季度"
    End Sub
    Friend Sub SQL_訂單控制表清單()
        SQL1 = "SELECT 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼  
                FROM   訂單控制表形體號清單 FULL OUTER JOIN STYLELIST ON 訂單控制表形體號清單.形體號 = STYLELIST.ProductName ORDER BY   形體名稱"
    End Sub
    Friend Sub SQL_訂單控制表顏色清單()
        SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 ORDER BY 顏色"
    End Sub
    Friend Sub SQL_TVW清單()
        SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 ORDER BY 形體號"
    End Sub
    Friend Sub SQL_訂單控制表形體號清單()
        SQL1 = "SELECT 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼  
                FROM   訂單控制表形體號清單 FULL OUTER JOIN STYLELIST ON 訂單控制表形體號清單.形體號 = STYLELIST.ProductName 
                WHERE  訂單控制表形體號清單.形體號 LIKE '%" & PP1 & "%' OR STYLELIST.Style  LIKE '%" & PP2 & "%' ORDER BY   形體名稱"
    End Sub
    Friend Sub SQL_訂單控制表TVW清單()
        SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 WHERE 形體號 LIKE '" & PA & "' ORDER BY 形體號"
    End Sub
    Friend Sub SQL_訂單控制表TVW清單1()
        SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 WHERE (顏色 LIKE '%" & PP3 & "%') ORDER BY 顏色"
    End Sub
    Friend Sub SQL_訂單控制表TVW清單2()
        SQL1 = "SELECT 形體號 FROM 訂單控制表TVW清單 WHERE 形體號 LIKE '%" & PA & "%' ORDER BY 形體號"
    End Sub
    Friend Sub SQL_訂單控制表形體號清單3()
        SQL1 = "SELECT   訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼  
                FROM     訂單控制表形體號清單 FULL OUTER JOIN STYLELIST ON 訂單控制表形體號清單.形體號 = STYLELIST.ProductName 
                WHERE    訂單控制表形體號清單.形體號 LIKE '%" & PA & "%' OR STYLELIST.Style  LIKE '%" & PA & "%' " &
               "ORDER BY 形體名稱"
    End Sub
    Friend Sub SQL_查詢顏色()
        SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 WHERE (顏色 LIKE '%" & PA & "%') ORDER BY 顏色"
    End Sub
    Friend Sub SQL_查詢圖片編號()
        ConnOpen()
        SQL1 = "SELECT 圖片編號 FROM 圖片庫一 WHERE 形體名 LIKE '" & 鞋型圖片導入資料庫.Style_tb.Text & "' AND 形體號 LIKE '" & 鞋型圖片導入資料庫.TVW_tb.Text & "' AND 
                           顏色 LIKE '" & 鞋型圖片導入資料庫.Color_tb.Text & "' AND 類型 LIKE '" & 鞋型圖片導入資料庫.Category_cb.Text & "' AND 季節  LIKE '" & 鞋型圖片導入資料庫.季節_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢最後一筆圖片編號()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 圖片編號 FROM 圖片庫一 ORDER BY 圖片編號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增圖片庫一_測試()
        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
                            SELECT '" & 鞋型圖片導入資料庫.Style_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
                                   '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
                            BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
    End Sub

    Friend Sub SQL_新增圖片庫一_正式()
        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
                            SELECT '" & 鞋型圖片導入資料庫.Style_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
                                   '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
                            BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
    End Sub
    Friend Sub SQL_新增圖片庫一1_測試()
        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
                                SELECT '" & 鞋型圖片導入資料庫.中底_其他LOGO_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
                                       '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
                                BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
    End Sub
    Friend Sub SQL_新增圖片庫一1_正式()
        SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
                                SELECT '" & 鞋型圖片導入資料庫.中底_其他LOGO_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
                                       '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
                                BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
    End Sub
    '------------------------------鞋型圖片資料庫-------------------------------------------------------------------------------
    Friend Sub SQL_圖片庫一清單()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_指定圖片庫一()
        ConnOpen()
        SQL1 = "SELECT 圖片 FROM 圖片庫一 WHERE 圖片編號 LIKE '" & 鞋型圖片資料庫.TextBox1.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改圖片庫一()
        SQL1 = "UPDATE 圖片庫一 SET 形體名 = '" & 鞋型圖片資料庫.Style_tb.Text & "', 形體號 = '" & 鞋型圖片資料庫.TVW_tb.Text & "', 
                                    顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "', 
                                    季節 = '" & 鞋型圖片導入資料庫.季節_tb.Text & "'
                    WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
    End Sub
    Friend Sub SQL_修改圖片庫一1_測試()
        SQL1 = "UPDATE 圖片庫一 SET 形體名 = '" & 鞋型圖片資料庫.Style_tb.Text & "', 形體號 = '" & 鞋型圖片資料庫.TVW_tb.Text & "', 
                                    顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "', 
                                    季節 = '" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
                                    圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0002\" & 鞋型圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
    End Sub
    Friend Sub SQL_修改圖片庫一1_正式()
        SQL1 = "UPDATE 圖片庫一 SET 形體名 = '" & 鞋型圖片資料庫.Style_tb.Text & "', 形體號 = '" & 鞋型圖片資料庫.TVW_tb.Text & "', 
                                    顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "', 
                                    季節 = '" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
                                    圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
    End Sub
    Friend Sub SQL_刪除圖片庫一()
        ConnOpen()
        SQL1 = "DELETE FROM 圖片庫一 WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢圖片庫一()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 
                       顏色 LIKE '%" & PA & "%' OR 類型 LIKE '%" & PA & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_查詢圖片庫一BW()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_BW_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_查詢圖片庫一ILR()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_ILR_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_查詢圖片庫一FLR()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_FLR_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_查詢圖片庫一SMS()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_SMS_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_查詢圖片庫一SMU()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.開發_SMU_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_確定圖片庫一BW()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_BW_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_確定圖片庫一彩圖()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_彩圖_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_確定圖片庫一產地標()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.確認_產地標_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_確定圖片庫一中底LOGO()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.中底LOGO_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_確定圖片庫一其他LOGO()
        SQL1 = "SELECT 季節, 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 WHERE 類型 LIKE '%" & 鞋型圖片資料庫.其他LOGO_ch.Text & "%' ORDER BY   類型, 形體名, 形體號, 顏色"
    End Sub
    Friend Sub SQL_圖片庫一圖片編號()
        ConnOpen()
        SQL1 = "SELECT 圖片 FROM 圖片庫一 WHERE 圖片編號 LIKE '" & 鞋型圖片資料庫.TextBox1.Text & "'"
        CmdSet_For_DGV()
    End Sub
    '----------------------楦頭圖片資料庫------------------------------------------------------------------------
    Friend Sub SQL_楦頭圖片庫()
        SQL1 = "SELECT 楦頭編號, 楦頭圖片編號 FROM 楦頭圖片庫 ORDER BY 楦頭圖片編號"
    End Sub
    Friend Sub SQL_楦頭圖片編號()
        ConnOpen()
        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE '" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_楦頭圖片查詢()
        SQL1 = "SELECT 楦頭編號, 楦頭圖片編號 FROM 楦頭圖片庫 WHERE (楦頭編號 LIKE '%" & PA & "%') ORDER BY   楦頭圖片編號"
    End Sub
    Friend Sub SQL_楦頭圖片庫清單()
        ConnOpen()
        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭編號 LIKE '" & 楦頭圖片資料庫.楦頭編號_tb.Text & "'"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_修改楦頭圖片庫_測試()
        ConnOpen()
        SQL1 = "UPDATE 楦頭圖片庫 SET  楦頭圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0003\" & 楦頭圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                WHERE (楦頭圖片編號 = '" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "') AND (楦頭編號 = '" & 楦頭圖片資料庫.楦頭編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改楦頭圖片庫_正式()
        ConnOpen()
        SQL1 = "UPDATE 楦頭圖片庫 SET  楦頭圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0003\" & 楦頭圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                WHERE (楦頭圖片編號 = '" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "') AND (楦頭編號 = '" & 楦頭圖片資料庫.楦頭編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------楦頭圖片導入資料庫-----------------------------------------------------
    Friend Sub SQL_楦頭規格控制表()
        SQL1 = "SELECT 楦頭規格控制表.楦頭編號, 楦頭圖片庫.楦頭圖片編號 FROM 楦頭規格控制表 LEFT OUTER JOIN 楦頭圖片庫 ON 楦頭規格控制表.楦頭編號 = 楦頭圖片庫.楦頭編號 
                WHERE (楦頭圖片庫.楦頭圖片編號 IS NULL) ORDER BY 楦頭規格控制表.楦頭編號"
    End Sub
    Friend Sub SQL_查詢楦頭規格控制表()
        SQL1 = "SELECT 楦頭規格控制表.楦頭編號, 楦頭圖片庫.楦頭圖片編號 FROM 楦頭規格控制表 LEFT OUTER JOIN 楦頭圖片庫 ON 楦頭規格控制表.楦頭編號 = 楦頭圖片庫.楦頭編號 
                WHERE (楦頭圖片庫.楦頭圖片編號 IS NULL) AND (楦頭規格控制表.楦頭編號 LIKE '%" & PA & "%') ORDER BY   楦頭規格控制表.楦頭編號"
    End Sub
    Friend Sub SQL_查詢楦頭編號()
        ConnOpen()
        SQL1 = "SELECT 楦頭編號 FROM 楦頭圖片庫 WHERE 楦頭編號 LIKE '" & 楦頭圖片導入資料庫.楦頭編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢最後一筆楦頭編號()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 楦頭圖片編號 FROM 楦頭圖片庫 ORDER BY 楦頭圖片編號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增楦頭圖片庫_測試()
        ConnOpen()
        SQL1 = "INSERT INTO 楦頭圖片庫 (楦頭編號, 楦頭圖片編號, 楦頭圖片) SELECT '" & 楦頭圖片導入資料庫.楦頭編號_tb.Text & "','" & 楦頭圖片導入資料庫.楦頭圖片編號_tb.Text & "', 
                    BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0003\" & 楦頭圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增楦頭圖片庫_正式()
        ConnOpen()
        SQL1 = "INSERT INTO 楦頭圖片庫 (楦頭編號, 楦頭圖片編號, 楦頭圖片) SELECT '" & 楦頭圖片導入資料庫.楦頭編號_tb.Text & "','" & 楦頭圖片導入資料庫.楦頭圖片編號_tb.Text & "', 
                    BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0003\" & 楦頭圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
        CmdSet_For_dr()
    End Sub
End Module