GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/主資料庫/SQL_章程管理系統.vb

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