HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-SIU
Vērot 4
Pievienot zvaigznīti 0
Atdalīts 0
Kods Problēmas 0 Izmaiņu pieprasījumi 0 Laidieni 0 Vikivietne Aktivitāte
Nav apraksta
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
1 Revīzija
1 Atzars
Koks: def2fb1fb8
Atzari Tagi
${ item.name }
Izveidot atzaru ${ searchTerm }
no 'def2fb1fb8'
${ noResults }
HX-PGS-ERP-SYS-SIU/0、MyModule/主資料庫/SQL_章程管理系統.vb

SQL_章程管理系統.vb 7.5KB
Vēsture Neapstrādāts

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113 
  1. Module SQL_章程管理系統

  2.     '----------------------------系統說明書--------------------------------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_說明顯示查詢()

  4.         ConnOpen_管理SQL()

  5.         SQL1 = "SELECT  使用者, 介面, 開啟次數, 公告次數 FROM 系統說明管理 

  6.                 WHERE 使用者 LIKE N'" & gUserName & "' AND  介面 LIKE '" & 介面 & "' AND 年 LIKE '" & PA45 & "' AND 月 LIKE '" & PA46 & "'"

  7.         CmdSet_For_dr()

  8.     End Sub

  9.     Friend Sub SQL_說明顯示新增()

  10.         ConnOpen_管理SQL()

  11.         SQL1 = "INSERT INTO 系統說明管理 (使用者, 介面, 開啟次數, 公告次數, 年, 月) 

  12.                 VALUES (N'" & gUserName & "', N'" & 介面 & "', N'" & PA47 & "', N'" & PA48 & "', N'" & PA45 & "', N'" & PA46 & "')"

  13.         CmdSet_For_dr()

  14.     End Sub

  15.     Friend Sub SQL_說明顯示修改()

  16.         ConnOpen_管理SQL()

  17.         SQL1 = "UPDATE 系統說明管理 SET 開啟次數 = N'" & PA47 & "', 公告次數 = N'" & PA48 & "' 

  18.                 WHERE 使用者 LIKE N'" & gUserName & "' AND  介面 LIKE '" & 介面 & "' AND 年 LIKE '" & PA45 & "' AND 月 LIKE '" & PA46 & "'"

  19.         CmdSet_For_dr()

  20.     End Sub

  21.     Friend Sub SQL_子功能讀取()

  22.         Dim SS As String : If 系統語言 = "繁體中文" Then : SS = "繁體中文" : Else : SS = "Indonesian" : End If

  23.         ConnOpen_管理SQL()

  24.         SQL1 = "SELECT     主項目 AS [" & 表頭(0) & "], 主項, 子項, 細項, 子項目, 標題, 說明, 影片

  25.                 FROM       系統教學說明

  26.                 WHERE     (系統教學說明.語言 LIKE '" & SS & "') AND (系統教學說明.主項 LIKE '" & PA47 & "') AND (系統教學說明.子項 NOT LIKE '0')

  27.                 ORDER BY   主項, 子項, 細項"

  28.         CmdSet_For_DGV()

  29.     End Sub

  30.     Friend Sub SQL_子功能讀取1()

  31.         Dim SS As String : If 系統語言 = "繁體中文" Then : SS = "Indonesian" : Else : SS = "繁體中文" : End If

  32.         ConnOpen_管理SQL()

  33.         SQL1 = "SELECT    QQ2.內容, 系統教學說明.主項, 系統教學說明.子項, 系統教學說明.細項, QQ2.內容 AS 子項目, 系統教學說明.標題, 系統教學說明.說明, 系統教學說明.影片

  34.                 FROM      系統教學說明 LEFT OUTER JOIN

  35.                          (SELECT  內容, 控件  FROM  [HX-GPS-ERP-SYS].dbo.系統介面語言

  36.                           WHERE  (語言 LIKE '" & SS & "') AND (編碼 LIKE 'H001')) AS QQ2 ON 系統教學說明.子項目 = QQ2.控件

  37.                 WHERE    (系統教學說明.語言 LIKE '" & SS & "') AND (系統教學說明.主項 LIKE '" & PA47 & "') AND (系統教學說明.子項 LIKE '" & PA46 & "') AND (系統教學說明.細項 LIKE '" & PA45 & "')

  38.                 ORDER BY  系統教學說明.主項, 系統教學說明.子項, 系統教學說明.細項"

  39.         CmdSet_For_dr()

  40.     End Sub

  41.     Friend Sub SQL_系統教學說明讀取()

  42.         ConnOpen_管理SQL()

  43.         SQL1 = "SELECT TOP(1)  細項  FROM  系統教學說明  WHERE  (主項 LIKE '" & PA47 & "') AND (子項 LIKE '" & PA46 & "') ORDER BY 細項 DESC"

  44.         CmdSet_For_dr()

  45.     End Sub

  46.     Friend Sub SQL_統教學說明新增()

  47.         ConnOpen_管理SQL()

  48.         SQL1 = "INSERT INTO 系統教學說明 (主項, 子項, 細項, 主項目, 子項目, 標題, 說明, 語言, 影片) 

  49.                 VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', 

  50.                          N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "')"

  51.         CmdSet_For_dr()

  52.     End Sub

  53.     Friend Sub SQL_統教學說明刪除()

  54.         ConnOpen_管理SQL() : SQL1 = " DELETE 系統教學說明 WHERE (主項 LIKE N'" & PA & "') AND (子項 LIKE N'" & PA1 & "') AND (細項 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  55.     End Sub

  56.     Friend Sub SQL_統教學說明修改()

  57.         ConnOpen_管理SQL()

  58.         SQL1 = " UPDATE 系統教學說明 SET 標題 = N'" & PA5 & "', 說明 = N'" & PA6 & "', 影片 = N'" & PA8 & "' 

  59.                  WHERE 主項 LIKE N'" & PA & "' AND  子項 LIKE N'" & PA1 & "' AND 細項 LIKE N'" & PA2 & "' AND 語言 LIKE N'" & PA7 & "'"

  60.         CmdSet_For_dr()

  61.     End Sub

  62.     Friend Sub SQL_統教學說明修改1()

  63.         ConnOpen_管理SQL()

  64.         SQL1 = " UPDATE 系統教學說明 SET 檔案 = @binary_file WHERE 主項 LIKE N'" & PA & "' AND  子項 LIKE N'" & PA1 & "' AND 細項 LIKE N'" & PA2 & "' AND 語言 LIKE N'" & PA7 & "'"

  65.         CmdSet_For_dr_pic()

  66.     End Sub

  67.     Friend Sub SQL_統教學說明SOP讀取()

  68.         ConnOpen_管理SQL()

  69.         SQL1 = "SELECT 檔案 FROM 系統教學說明 WHERE 主項 LIKE N'" & PA & "' AND  子項 LIKE N'" & PA1 & "' AND 細項 LIKE N'" & PA2 & "' AND 語言 LIKE N'" & PA7 & "'"

  70.         CmdSet_For_DGV()

  71.     End Sub

  72.     '----------------------------單次授權功能 & 公告系統--------------------------------------------------------------------------------------------------------------------------

  73.     Friend Sub SQL_公告清單()

  74.         ConnOpen_管理SQL() : SQL1 = "SELECT  開始日期, 結束日期, 序列, 中文, 印尼文  FROM  公告資料表  ORDER BY  序列 DESC" : CmdSet_For_DGV()

  75.     End Sub

  76.     Friend Sub SQL_公告清單查詢()

  77.         ConnOpen_管理SQL() : SQL1 = "SELECT  序列  FROM  公告資料表  WHERE 開始日期 LIKE N'" & PA1 & "' AND 結束日期  LIKE N'" & PA2 & "' AND 中文 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  78.     End Sub

  79.     Friend Sub SQL_公告清單查詢1()

  80.         ConnOpen_管理SQL() : SQL1 = "SELECT  TOP(1)  序列  FROM  公告資料表  ORDER BY 序列 DESC" : CmdSet_For_dr()

  81.     End Sub

  82.     Friend Sub SQL_公告刪除()

  83.         ConnOpen_管理SQL() : SQL1 = "DELETE  公告資料表  WHERE 序列 LIKE N'" & PA & "'" : CmdSet_For_dr()

  84.     End Sub

  85.     Friend Sub SQL_公告清單新增()

  86.         ConnOpen_管理SQL()

  87.         SQL1 = "INSERT INTO  公告資料表 (開始日期, 結束日期, 序列, 中文, 印尼文)  

  88.                 VALUES  (N'" & PA1 & "', N'" & PA2 & "', N'" & PA & "', N'" & PA3 & "', N'" & PA4 & "')"

  89.         CmdSet_For_dr()

  90.     End Sub

  91.     Friend Sub SQL_授權清單()

  92.         ConnOpen()

  93.         SQL1 = "SELECT 授權碼 AS [" & 表頭(177) & "], 授權人 AS [" & 表頭(176) & "], 授權功能 AS [" & 表頭(175) & "], 已使用 FROM 授權碼資料表  WHERE 已使用 = 0 ORDER BY 授權功能"

  94.         CmdSet_For_DGV()

  95.     End Sub

  96.     Friend Sub SQL_授權碼新增()

  97.         ConnOpen() : SQL1 = " INSERT INTO 授權碼資料表 (授權碼, 授權人, 授權功能, 已使用) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', '0')" : CmdSet_For_dr()

  98.     End Sub

  99.     Friend Sub SQL_請購功能單次授權碼使用驗證()

  100.         ConnOpen() : SQL1 = "SELECT 授權碼 FROM 授權碼資料表 WHERE 授權碼 LIKE N'" & PA20 & "' AND 已使用 = 0" : CmdSet_For_dr()

  101.     End Sub

  102.     Friend Sub SQL_授權使用()

  103.         ConnOpen() : SQL1 = "UPDATE 授權碼資料表 SET 已使用 = '1' WHERE 授權碼 LIKE N'" & PA20 & "'" : CmdSet_For_dr()

  104.     End Sub

  105.     Friend Sub SQL_讀取人事主管()

  106.         ConnOpen() : SQL1 = "SELECT  LEFT(部門, 1) AS 部門, 姓名  FROM  使用者權限管理表  WHERE  (部門 LIKE '2%') AND (課別 LIKE '211%') AND (級別 LIKE '05')" : CmdSet_For_dr()

  107.     End Sub

  108. 

  109.     '---詩文新增---

  110.     Friend Sub SQL_讀取部門主管(部門 As String, 課別 As String)

  111.         ConnOpen() : SQL1 = "SELECT  LEFT(部門, 1) AS 部門, 姓名,CC63  FROM  使用者權限管理表  WHERE  (部門 LIKE N'" & 部門 & "') AND (課別 LIKE N'" & 課別 & "') AND (級別 <= '05')" : CmdSet_For_dr()

  112.     End Sub

  113. End Module