WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/SQL_圖片管理.vb

Module SQL_圖片管理
    Friend Sub SQL_鞋型圖片導入資料庫表()
        ConnOpen()
        SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 ORDER BY 客戶簡稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_鞋型圖片導入資料庫表1()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT 顏色 FROM 顏色清單 ORDER BY 顏色"
        Else
            SQL1 = "SELECT 顏色 FROM 顏色清單 WHERE 顏色 LIKE N'%" & PA & "%' ORDER BY 顏色"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_型體控制表5()
        ConnOpen()
        SQL1 = "SELECT 型體號碼 FROM 型體控制表 WHERE (客戶簡稱 LIKE N'" & PA & "') GROUP BY 型體號碼 ORDER BY 型體號碼"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_型體控制表6()
        ConnOpen()
        SQL1 = "SELECT 型體名稱 FROM 型體控制表 WHERE (型體號碼 LIKE N'" & PA & "') GROUP BY 型體名稱 ORDER BY 型體名稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_查詢鞋型圖片資料庫()
        ConnOpen()
        SQL1 = "SELECT 圖片編號 FROM 鞋型圖片資料庫 " &
                   "WHERE 客戶 LIKE N'" & 鞋型圖片導入資料庫.客戶_tb.Text & "' AND 形體號 LIKE N'" & 鞋型圖片導入資料庫.形體號碼_tb.Text & "' AND 
                          形體名 LIKE N'" & 鞋型圖片導入資料庫.形體名稱_tb.Text &
                   "' AND 顏色 LIKE N'" & 鞋型圖片導入資料庫.Color_tb.Text & "' AND 類別 LIKE N'" & 鞋型圖片導入資料庫.Category_cb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增鞋型圖片資料庫()
        ConnOpen()
        SQL1 = "INSERT INTO 鞋型圖片資料庫 (客戶, 形體號, 形體名, 顏色, 類別, 入圖者, 圖片編號, 圖片) SELECT N'" & 鞋型圖片導入資料庫.客戶_tb.Text & "',
                 N'" & 鞋型圖片導入資料庫.形體號碼_tb.Text & "',N'" & 鞋型圖片導入資料庫.形體名稱_tb.Text & "',
                 N'" & 鞋型圖片導入資料庫.Color_tb.Text & "',N'" & 鞋型圖片導入資料庫.Category_cb.Text & "',N'" & gUserName & "',N'" & 鞋型圖片導入資料庫.圖片編號_tb.Text & "', @binary_file"
        CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_查詢最後一筆鞋型圖片資料庫()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 圖片編號 FROM 鞋型圖片資料庫 ORDER BY 圖片編號 DESC"
        CmdSet_For_dr()
    End Sub
    '----------------------鞋型圖片資料庫--------------------------------------------------------------------
    Friend Sub SQL_鞋型圖片資料庫表單()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT 客戶, 形體號, 形體名, 顏色, 類別, 入圖者, 圖片編號 FROM 鞋型圖片資料庫 ORDER BY 客戶, 類別, 形體號, 形體名, 顏色"
        Else
            SQL1 = "SELECT 客戶, 形體號, 形體名, 顏色, 類別, 入圖者, 圖片編號 FROM 鞋型圖片資料庫 WHERE 客戶 LIKE N'%" & PA & "%' OR 形體號 LIKE N'%" & PA & "%' OR 形體名 LIKE N'%" & PA & "%' " &
                   "OR 顏色 LIKE N'%" & PA & "%' OR 類別 LIKE N'%" & PA & "%' OR 入圖者 LIKE N'%" & PA & "%' ORDER BY 客戶, 類別, 形體號, 形體名, 顏色"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_鞋型圖片資料庫6()
        ConnOpen()
        SQL1 = "SELECT 圖片 FROM 鞋型圖片資料庫 WHERE 圖片編號 LIKE N'" & 鞋型圖片資料庫.圖片編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_鞋型圖片資料庫7()
        ConnOpen()
        SQL1 = "SELECT 圖片 FROM 鞋型圖片資料庫 WHERE 圖片編號 LIKE N'" & 鞋型圖片資料庫.圖片編號_tb.Text & "'"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_刪除鞋型圖片資料庫()
        ConnOpen()
        SQL1 = "DELETE FROM 鞋型圖片資料庫 WHERE (圖片編號 = '" & 鞋型圖片資料庫.圖片編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改鞋型圖片資料庫()
        ConnOpen()
        SQL1 = "UPDATE 鞋型圖片資料庫 SET 圖片 = @binary_file  WHERE (圖片編號 = '" & 鞋型圖片資料庫.圖片編號_tb.Text & "')"
        CmdSet_For_dr_pic()
    End Sub
    '---------------------------------楦頭圖片導入資料庫---------------------------------------
    Friend Sub SQL_楦頭圖片導入資料庫表單()
        ConnOpen()
        SQL1 = "SELECT 楦頭規格控制表.楦頭編號, 楦頭圖片庫.楦頭圖片編號 FROM 楦頭規格控制表 LEFT OUTER JOIN 楦頭圖片庫 ON 楦頭規格控制表.楦頭編號 = 楦頭圖片庫.楦頭編號 " &
               "WHERE (楦頭圖片庫.楦頭圖片編號 IS NULL or 楦頭圖片庫.楦頭圖片編號 LIKE N'') ORDER BY 楦頭規格控制表.楦頭編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_楦頭圖片導入資料庫查詢()
        ConnOpen()
        SQL1 = "SELECT 楦頭規格控制表.楦頭編號, 楦頭圖片庫.楦頭圖片編號 FROM 楦頭規格控制表 LEFT OUTER JOIN 楦頭圖片庫 ON 楦頭規格控制表.楦頭編號 = 楦頭圖片庫.楦頭編號 " &
               "WHERE (楦頭圖片庫.楦頭圖片編號 IS NULL) AND (楦頭規格控制表.楦頭編號 LIKE N'%" & PA & "%') ORDER BY   楦頭規格控制表.楦頭編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_查詢楦頭圖片庫()
        ConnOpen()
        SQL1 = "SELECT 楦頭編號 FROM 楦頭圖片庫 WHERE 楦頭編號 LIKE N'" & 楦頭圖片導入資料庫.楦頭編號_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 & "', @binary_file"
        CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_更改楦頭規格控制表1()
        ConnOpen()
        SQL1 = "UPDATE 楦頭規格控制表 SET  楦頭圖號碼 = '" & 楦頭圖片導入資料庫.楦頭圖片編號_tb.Text & "' WHERE (楦頭編號 = '" & 楦頭圖片導入資料庫.楦頭編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '------------------------------楦頭圖片資料庫----------------------------------------------------
    Friend Sub SQL_楦頭圖片資料庫表單()
        ConnOpen()
        SQL1 = "SELECT 楦頭編號, 楦頭圖片編號 FROM 楦頭圖片庫 ORDER BY 楦頭圖片編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_讀取楦頭圖片庫()
        ConnOpen()
        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE N'" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "'"
        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 = "UPDATE 楦頭圖片庫 SET  楦頭圖片 = @binary_file  WHERE (楦頭圖片編號 = '" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "') AND (楦頭編號 = '" & 楦頭圖片資料庫.楦頭編號_tb.Text & "')"
        CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_讀取楦頭圖片庫1()
        ConnOpen()
        SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE N'" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "'"
        CmdSet_For_DGV()
    End Sub
End Module