GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/SQL_章程管理系統.vb

Module SQL_章程管理系統
    Friend Sub SQL_授權清單()
        ConnOpen_ERP()
        SQL1 = "SELECT 授權碼 AS [" & 表頭(177) & "], 授權人 AS [" & 表頭(176) & "], 授權功能 AS [" & 表頭(175) & "], 已使用 FROM 授權碼資料表  WHERE 已使用 = 0 ORDER BY 授權功能"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_授權碼()
        ConnOpen_ERP() : SQL1 = "SELECT 驗證碼 FROM 授權碼資料表 WHERE 驗證碼 LIKE N'" & PA20 & "' AND 授權人 LIKE '" & PA19 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_授權碼新增()
        ConnOpen_ERP() : SQL1 = " INSERT INTO 授權碼資料表 (授權碼, 授權人, 授權功能, 已使用) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', '0')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_請購功能單次授權碼使用驗證()
        ConnOpen_ERP() : SQL1 = "SELECT 授權碼 FROM 授權碼資料表 WHERE 授權碼 LIKE N'" & PA20 & "' AND 授權功能 LIKE 'A01' AND 已使用 = 0" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_授權使用()
        ConnOpen_ERP() : SQL1 = "UPDATE 授權碼資料表 SET 已使用 = '1' WHERE 授權碼 LIKE N'" & PA20 & "'" : CmdSet_For_dr()
    End Sub
End Module