GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/0.MyModule/主資料庫/SQL_跨界面共用.vb

Module SQL_跨界面共用
    Friend Sub SQL_公司編號_下拉清單()
        ConnOpen() : SQL1 = "SELECT 公司編號 FROM 公司清單  ORDER BY 公司編號" : 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 = "SELECT  是否有圖 FROM 物料資料庫 WHERE (料號 LIKE N'" & PA1 & "%')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料資料庫_編碼_下拉清單()
        ConnOpen() : SQL1 = "SELECT 類別 FROM   供應商類別 " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料資料庫_供應商_下拉清單()
        ConnOpen() : SQL1 = "SELECT 供應商資料表.供應商編碼 , 供應商資料表.公司名 FROM 供應商資料表 INNER JOIN 供應商類別 ON 供應商類別.編碼 = 供應商資料表.供應商簡稱 
                             WHERE 供應商類別.類別 LIKE N'%" & PA3 & "%' AND 供應商資料表.供應商編碼 LIKE N'%" & PA4 & "%' " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_物料資料庫_類別_下拉清單()
        ConnOpen() : SQL1 = "SELECT 類別 FROM   供應商類別 " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_盤盈盤損申請_供應商_下拉清單()
        ConnOpen()
        If PA3 = "" Then
            SQL1 = "SELECT 供應商編碼, 供應商簡稱 FROM   供應商資料表 WHERE 停用 = 0 ORDER BY   供應商編碼"
        ElseIf PA3 = "1" Or PA3 = "2" Or PA3 = "9" Or PA3 = "Y" Then
            SQL1 = "SELECT 供應商編碼, 供應商簡稱 FROM   供應商資料表
                    WHERE  (供應商編碼 LIKE N'" & PA3 & "%') AND (停用 = 0)
                    ORDER BY   供應商編碼"
        ElseIf PA3 = "3" Then
            SQL1 = "SELECT  供應商編碼, 供應商簡稱 FROM   供應商資料表
                    WHERE  (供應商編碼 NOT LIKE N'2%')  AND (供應商編碼 NOT LIKE N'9%')  AND (供應商編碼 NOT LIKE N'Y%')  AND (停用 = 0)  ORDER BY   供應商編碼"
        End If
        CmdSet_For_dr()
    End Sub
    '-----------------------------------------
    Friend Sub SQL_讀取鎖定()
        ConnOpen() : SQL1 = "SELECT 系統鎖定 FROM 版本號管理 " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_鎖定確認()
        ConnOpen() : SQL1 = "UPDATE 版本號管理 SET 系統鎖定 = N'1' " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統版本號驗證()
        ConnOpen() : SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_FTP資料夾路徑分配()
        ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理 ORDER BY 指定" : CmdSet_For_DGV()
    End Sub


End Module