Module SQL_章程管理系統 '----------------------------系統使用說明-------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_主功能讀取() Dim SS As String : If 系統語言 = "繁體中文" Then : SS = "繁體中文" : Else : SS = "Indonesian" : End If ConnOpen_管理SQL() SQL1 = "SELECT 系統教學說明.主項, QQ1.內容 AS 主項目 FROM 系統教學說明 LEFT OUTER JOIN (SELECT 內容, 控件 FROM [HX-GPS-ERP-SYS].dbo.系統介面語言 WHERE (語言 LIKE '" & SS & "') AND (編碼 LIKE 'H001')) AS QQ1 ON 系統教學說明.主項目 = QQ1.控件 WHERE (系統教學說明.語言 LIKE '" & SS & "') AND (系統教學說明.子項 LIKE '0') AND (系統教學說明.細項 LIKE '0') ORDER BY 系統教學說明.主項, 系統教學說明.子項, 系統教學說明.細項" CmdSet_For_dr() End Sub Friend Sub SQL_子功能讀取() Dim SS As String : If 系統語言 = "繁體中文" Then : SS = "繁體中文" : Else : SS = "Indonesian" : End If ConnOpen_管理SQL() SQL1 = "SELECT QQ2.內容, 系統教學說明.主項, 系統教學說明.子項, 系統教學說明.細項, QQ2.內容 AS 子項目, 系統教學說明.標題, 系統教學說明.說明, 系統教學說明.影片 FROM 系統教學說明 LEFT OUTER JOIN (SELECT 內容, 控件 FROM [HX-GPS-ERP-SYS].dbo.系統介面語言 WHERE (語言 LIKE '" & SS & "') AND (編碼 LIKE 'H001')) AS QQ2 ON 系統教學說明.子項目 = QQ2.控件 WHERE (系統教學說明.語言 LIKE '" & SS & "') AND (系統教學說明.主項 LIKE '" & PA47 & "') AND (系統教學說明.子項 NOT LIKE '0') ORDER BY 系統教學說明.主項, 系統教學說明.子項, 系統教學說明.細項" CmdSet_For_DGV() End Sub Friend Sub SQL_子功能讀取1() Dim SS As String : If 系統語言 = "繁體中文" Then : SS = "Indonesian" : Else : SS = "繁體中文" : End If ConnOpen_管理SQL() SQL1 = "SELECT QQ2.內容, 系統教學說明.主項, 系統教學說明.子項, 系統教學說明.細項, QQ2.內容 AS 子項目, 系統教學說明.標題, 系統教學說明.說明, 系統教學說明.影片 FROM 系統教學說明 LEFT OUTER JOIN (SELECT 內容, 控件 FROM [HX-GPS-ERP-SYS].dbo.系統介面語言 WHERE (語言 LIKE '" & SS & "') AND (編碼 LIKE 'H001')) AS QQ2 ON 系統教學說明.子項目 = QQ2.控件 WHERE (系統教學說明.語言 LIKE '" & SS & "') AND (系統教學說明.主項 LIKE '" & PA47 & "') AND (系統教學說明.子項 LIKE '" & PA46 & "') AND (系統教學說明.細項 LIKE '" & PA45 & "') ORDER BY 系統教學說明.主項, 系統教學說明.子項, 系統教學說明.細項" CmdSet_For_dr() End Sub Friend Sub SQL_系統教學說明讀取() ConnOpen_管理SQL() SQL1 = "SELECT TOP(1) 細項 FROM 系統教學說明 WHERE (主項 LIKE '" & PA47 & "') AND (子項 LIKE '" & PA46 & "') ORDER BY 細項 DESC" CmdSet_For_dr() End Sub Friend Sub SQL_統教學說明新增() ConnOpen_管理SQL() SQL1 = " INSERT INTO 系統教學說明 (主項, 子項, 細項, 主項目, 子項目, 標題, 說明, 語言, 影片) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_統教學說明刪除() ConnOpen_管理SQL() : SQL1 = " DELETE 系統教學說明 WHERE (主項 LIKE N'" & PA & "') AND (子項 LIKE N'" & PA1 & "') AND (細項 LIKE N'" & PA2 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_統教學說明修改() ConnOpen_管理SQL() SQL1 = " UPDATE 系統教學說明 SET 標題 = N'" & PA5 & "', 說明 = N'" & PA6 & "', 影片 = N'" & PA8 & "' WHERE 主項 LIKE N'" & PA & "' AND 子項 LIKE N'" & PA1 & "' AND 細項 LIKE N'" & PA2 & "' AND 語言 LIKE N'" & PA7 & "'" CmdSet_For_dr() End Sub '----------------------------單次授權功能-------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_授權清單() ConnOpen() SQL1 = "SELECT 授權碼 AS [" & 表頭(177) & "], 授權人 AS [" & 表頭(176) & "], 授權功能 AS [" & 表頭(175) & "], 已使用 FROM 授權碼資料表 WHERE 已使用 = 0 ORDER BY 授權功能" CmdSet_For_DGV() End Sub Friend Sub SQL_授權碼() ConnOpen() : SQL1 = "SELECT 驗證碼 FROM 授權碼資料表 WHERE 驗證碼 LIKE N'" & PA20 & "' AND 授權人 LIKE '" & PA19 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_授權碼新增() ConnOpen() : SQL1 = " INSERT INTO 授權碼資料表 (授權碼, 授權人, 授權功能, 已使用) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', '0')" : CmdSet_For_dr() End Sub Friend Sub SQL_請購功能單次授權碼使用驗證() ConnOpen() : SQL1 = "SELECT 授權碼 FROM 授權碼資料表 WHERE 授權碼 LIKE N'" & PA20 & "' AND 授權功能 LIKE 'A01' AND 已使用 = 0" : CmdSet_For_dr() End Sub Friend Sub SQL_授權使用() ConnOpen() : SQL1 = "UPDATE 授權碼資料表 SET 已使用 = '1' WHERE 授權碼 LIKE N'" & PA20 & "'" : CmdSet_For_dr() End Sub End Module