GF-ERP-SYS
/
GF00-ERP-SYS-LEEHSIEHJUI
Volgen 4
Ster 0
Vork 0
Code Kwesties 0 Pull-aanvragen 0 Publicaties 0 Wiki Activiteit
Geen omschrijving
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
1 Branch
Tree: 4410ee2d4a
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van '4410ee2d4a'
${ noResults }
GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/0.MyModule/主資料庫/SQL_章程管理系統.vb

SQL_章程管理系統.vb 12KB
Geschiedenis Ruw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209 
  1. Module SQL_章程管理系統

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

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

  4.     End Sub

  5.     Friend Sub SQL_授權使用()

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

  7.     End Sub

  8. 

  9.     Friend Sub SQL_公函_查詢第一筆單號()

  10.         ConnOpen()

  11.         SQL1 = "SELECT TOP (1)  流水號 FROM 公函控制表 WHERE ( 流水號 LIKE N'" & PA & "')"

  12.         CmdSet_For_dr()

  13.     End Sub

  14.     Friend Sub SQL_公函_新增一筆公函控制表()

  15.         ConnOpen()

  16.         SQL1 = "INSERT INTO 公函控制表 (流水號, 發文日期, 承辦人, 受文者, 速別, 密等及解密條件, 附件, 主旨, 說明, 正本, 副本,已儲存,已作廢,手機,標題) " &

  17.                "VALUES (N'" & PA & "', N'" & PA1 & "', N'', N'', N'', N'', N'', N'', N'', N'', N'', 0, 0,N'',N'')"

  18.         CmdSet_For_dr()

  19.     End Sub

  20.     Friend Sub SQL_公函_控制表刪除()

  21.         ConnOpen()

  22.         SQL1 = "DELETE FROM 公函控制表 WHERE (流水號 = N'" & 公函.單號_tb.Text & "')"

  23.         CmdSet_For_dr()

  24.     End Sub

  25.     Friend Sub SQL_公函_控制表清單()

  26.         ConnOpen()

  27.         If PA56 = "" Then

  28.             SQL2 = ""

  29.         Else

  30.             SQL2 = " AND 公函控制表.受文者 LIKE N'%" & PA56 & "%' OR 公函控制表.主旨 LIKE N'%" & PA56 & "%' OR 公函控制表.說明 LIKE N'%" & PA56 & "%'

  31.                     Or 公函控制表.正本 Like N'%" & PA56 & "%'OR 公函控制表.副本 LIKE N'%" & PA56 & "%'"

  32.         End If

  33.         SQL1 = "SELECT 流水號 AS 發文字號,發文日期,承辦人,受文者,速別,密等及解密條件,附件,主旨,說明,正本,副本,已儲存,已作廢,手機,標題 FROM 公函控制表

  34.                 WHERE 已作廢 = 0 " & SQL2 & " 

  35.                 ORDER BY 流水號 DESC"

  36.         CmdSet_For_DGV()

  37.     End Sub

  38.     Friend Sub SQL_公函_控制表清單1()

  39.         ConnOpen()

  40.         If PA56 = "" Then

  41.             SQL2 = ""

  42.         Else

  43.             SQL2 = " AND 公函控制表.受文者 LIKE N'%" & PA56 & "%' OR 公函控制表.主旨 LIKE N'%" & PA56 & "%' OR 公函控制表.說明 LIKE N'%" & PA56 & "%'

  44.                     Or 公函控制表.正本 Like N'%" & PA56 & "%'OR 公函控制表.副本 LIKE N'%" & PA56 & "%'"

  45.         End If

  46.         SQL1 = "SELECT 流水號 AS 發文字號,發文日期,承辦人,受文者,速別,密等及解密條件,附件,主旨,說明,正本,副本,已儲存,已作廢,手機 FROM 公函控制表

  47.                 WHERE  已作廢 = 1 " & SQL2 & " 

  48.                 ORDER BY 流水號 DESC"

  49.         CmdSet_For_DGV()

  50.     End Sub

  51.     Friend Sub SQL_公函_控制表修改()

  52.         ConnOpen()

  53. 

  54.         SQL1 = "UPDATE 公函控制表 SET 承辦人 = N'" & 公函.承辦人_tb.Text & "', 受文者 = N'" & 公函.受文者_tb.Text & "', 

  55.                                         速別= N'" & 公函.速別_tb.Text & "', 密等及解密條件 = N'" & 公函.密等_tb.Text & "', 

  56.                                         附件 = N'" & 公函.附件_tb.Text & "', 主旨 = N'" & 公函.主旨_tb.Text & "', 

  57.                                         說明 = N'" & 公函.說明_rtb.Text & "', 正本 = N'" & 公函.正本_tb.Text & "', 

  58.                                         副本 = N'" & 公函.副本_tb.Text & "', 已儲存 = 0, 

  59.                                         已作廢 = 0, 手機 = N'" & 公函.手機_tb.Text & "',發文日期=N'" & PA1 & "',

  60.                                         標題 = N'" & 公函.標題_tb.Text & "'

  61.                  WHERE (流水號 ='" & 公函.單號_tb.Text & "')"

  62.         CmdSet_For_dr()

  63.     End Sub

  64.     Friend Sub SQL_公函_控制表作廢()

  65.         ConnOpen()

  66.         SQL1 = "UPDATE 公函控制表 SET 已作廢 = 1 WHERE (流水號 ='" & 公函.單號_tb.Text & "')"

  67.         CmdSet_For_dr()

  68.     End Sub

  69. 

  70.     Friend Sub SQL_公函_控制表鎖定()

  71.         ConnOpen()

  72.         SQL1 = "UPDATE 公函控制表 SET 已儲存 = 1 WHERE (流水號 ='" & 公函.單號_tb.Text & "')"

  73.         CmdSet_For_dr()

  74.     End Sub

  75. 

  76.     Friend Sub SQL_簽呈_公司稱謂()

  77.         ConnOpen()

  78.         SQL1 = "SELECT * FROM 公司稱謂清單 WHERE(使用位置 = N'簽呈')"

  79.         CmdSet_For_dr()

  80.     End Sub

  81. 

  82.     Friend Sub SQL_簽呈_控制表清單()

  83.         ConnOpen()

  84.         If PA56 = "" Then

  85.             SQL2 = ""

  86.         Else

  87.             SQL2 = " AND 簽呈控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 簽呈控制表.主旨 LIKE N'%" & PA56 & "%' OR 簽呈控制表.說明 LIKE N'%" & PA56 & "%'

  88.                     Or 簽呈控制表.擬辦 Like N'%" & PA56 & "%'"

  89.         End If

  90.         SQL1 = "SELECT 選擇日期 AS 簽呈日期,檔案名稱,流水號,主旨,說明,擬辦,敬陳一,敬陳二,敬會一,敬會二,敬會三,敬會四,敬會五,已儲存,已作廢,開單人,標題 FROM 簽呈控制表

  91.                 WHERE 已作廢 = 0 " & SQL2 & " AND 文件類型 =N'簽呈'

  92.                 ORDER BY 檔案名稱 DESC"

  93.         CmdSet_For_DGV()

  94.     End Sub

  95.     Friend Sub SQL_簽呈_控制表清單1()

  96.         ConnOpen()

  97.         If PA56 = "" Then

  98.             SQL2 = ""

  99.         Else

  100.             SQL2 = " AND 簽呈控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 簽呈控制表.主旨 LIKE N'%" & PA56 & "%' OR 簽呈控制表.說明 LIKE N'%" & PA56 & "%'

  101.                     Or 簽呈控制表.擬辦 Like N'%" & PA56 & "%'"

  102.         End If

  103.         SQL1 = "SELECT 選擇日期 AS 簽呈日期,檔案名稱,流水號,主旨,說明,擬辦,敬陳一,敬陳二,敬會一,敬會二,敬會三,敬會四,敬會五,已儲存,已作廢,開單人,標題  FROM 簽呈控制表

  104.                 WHERE 已作廢 = 1 " & SQL2 & "  AND 文件類型 =N'簽呈'

  105.                 ORDER BY 檔案名稱 DESC"

  106.         CmdSet_For_DGV()

  107.     End Sub

  108.     Friend Sub SQL_簽呈_查詢第一筆單號()

  109.         ConnOpen()

  110.         SQL1 = "SELECT TOP (1)  流水號 FROM 簽呈控制表 WHERE ( 流水號 LIKE N'" & PA & "')"

  111.         CmdSet_For_dr()

  112.     End Sub

  113.     Friend Sub SQL_簽呈_新增一筆公函控制表()

  114.         ConnOpen()

  115.         SQL1 = "INSERT INTO 簽呈控制表 (流水號 ,檔案名稱,選擇日期,主旨,說明,擬辦,敬陳一,敬陳二,敬會一,敬會二,敬會三,敬會四,敬會五,已儲存,已作廢,文件類型,開單人,標題) " &

  116.                "VALUES (N'" & PA & "', N'', N'" & PA1 & "', N'', N'', N'', N'', N'', N'', N'', N'',N'',N'', 0, 0,N'簽呈',N'" & gUserName & "',N'')"

  117.         CmdSet_For_dr()

  118.     End Sub

  119.     Friend Sub SQL_簽呈_控制表刪除()

  120.         ConnOpen()

  121.         SQL1 = "DELETE FROM 簽呈控制表 WHERE (流水號 = N'" & 簽呈.單號_tb.Text & "')"

  122.         CmdSet_For_dr()

  123.     End Sub

  124.     Friend Sub SQL_簽呈_控制表修改()

  125.         ConnOpen()

  126. 

  127.         SQL1 = "UPDATE 簽呈控制表 SET 檔案名稱 = N'" & 簽呈.檔案名稱_tb.Text & "', 主旨 = N'" & 簽呈.主旨_tb.Text & "', 

  128.                                         說明= N'" & 簽呈.說明_rtb.Text & "', 擬辦 = N'" & 簽呈.擬辦_tb.Text & "', 

  129.                                         敬陳一 = N'" & 簽呈.ComboBox1.Text & "', 敬陳二 = N'" & 簽呈.ComboBox2.Text & "', 

  130.                                         敬會一 = N'" & 簽呈.ComboBox3.Text & "', 敬會二 = N'" & 簽呈.ComboBox4.Text & "', 

  131.                                         敬會三 = N'" & 簽呈.ComboBox5.Text & "', 敬會四 = N'" & 簽呈.ComboBox6.Text & "',

  132.                                         敬會五 = N'" & 簽呈.ComboBox7.Text & "', 已儲存 = 0, 已作廢 = 0', 標題 = N'" & 簽呈.標題_tb.Text & "'

  133.                  WHERE (流水號 ='" & 簽呈.單號_tb.Text & "')"

  134.         CmdSet_For_dr()

  135.     End Sub

  136.     Friend Sub SQL_簽呈_控制表作廢()

  137.         ConnOpen()

  138.         SQL1 = "UPDATE 簽呈控制表 SET 已作廢 = 1 WHERE (流水號 ='" & 簽呈.單號_tb.Text & "')"

  139.         CmdSet_For_dr()

  140.     End Sub

  141.     Friend Sub SQL_簽呈_控制表鎖定()

  142.         ConnOpen()

  143.         SQL1 = "UPDATE 簽呈控制表 SET 已儲存 = 1 WHERE (流水號 ='" & 簽呈.單號_tb.Text & "')"

  144.         CmdSet_For_dr()

  145.     End Sub

  146.     '-----通用-----------

  147.     Friend Sub SQL_通用_控制表清單(ByVal 文件類型 As String)

  148.         ConnOpen()

  149.         If PA56 = "" Then

  150.             SQL2 = ""

  151.         Else

  152.             SQL2 = " AND 簽呈控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 簽呈控制表.主旨 LIKE N'%" & PA56 & "%' OR 簽呈控制表.說明 LIKE N'%" & PA56 & "%'

  153.                     Or 簽呈控制表.擬辦 Like N'%" & PA56 & "%'"

  154.         End If

  155.         SQL1 = "SELECT 選擇日期 AS " & 文件類型 & "日期,檔案名稱,流水號,主旨,說明,擬辦,敬陳一,敬陳二,敬會一,敬會二,敬會三,敬會四,敬會五,已儲存,已作廢,開單人 FROM 簽呈控制表

  156.                 WHERE (已作廢 = 0) AND (文件類型 LIKE N'" & 文件類型 & "') " & SQL2 & " 

  157.                 ORDER BY 流水號 DESC"

  158.         CmdSet_For_DGV()

  159.     End Sub

  160.     Friend Sub SQL_通用_控制表清單1(ByVal 文件類型 As String)

  161.         ConnOpen()

  162.         If PA56 = "" Then

  163.             SQL2 = ""

  164.         Else

  165.             SQL2 = " AND 簽呈控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 簽呈控制表.主旨 LIKE N'%" & PA56 & "%' OR 簽呈控制表.說明 LIKE N'%" & PA56 & "%'

  166.                     OR 簽呈控制表.擬辦 Like N'%" & PA56 & "%' OR 簽呈控制表.開單人 Like N'%" & PA56 & "%'"

  167.         End If

  168.         SQL1 = "SELECT 選擇日期 AS " & 文件類型 & "日期,檔案名稱,流水號,主旨,說明,擬辦,敬陳一,敬陳二,敬會一,敬會二,敬會三,敬會四,敬會五,已儲存,已作廢,開單人 FROM 簽呈控制表

  169.                 WHERE 已作廢 = 1  AND (文件類型 LIKE N'" & 文件類型 & "') " & SQL2 & " 

  170.                 ORDER BY 流水號 DESC"

  171.         CmdSet_For_DGV()

  172.     End Sub

  173.     Friend Sub SQL_通用_查詢第一筆單號()

  174.         ConnOpen()

  175.         SQL1 = "SELECT TOP (1)  流水號 FROM 簽呈控制表 ORDER BY 流水號 DESC"

  176.         CmdSet_For_dr()

  177.     End Sub

  178. 

  179.     Friend Sub SQL_通用_新增一筆公函控制表(ByVal 文件類型 As String)

  180.         ConnOpen()

  181.         SQL1 = "INSERT INTO 簽呈控制表 (流水號 ,檔案名稱,選擇日期,主旨,說明,擬辦,敬陳一,敬陳二,敬會一,敬會二,敬會三,敬會四,敬會五,已儲存,已作廢,文件類型,開單人) " &

  182.                "VALUES (N'" & PA & "', N'', N'" & PA1 & "', N'', N'', N'', N'', N'', N'', N'', N'',N'',N'', 0, 0,N'" & 文件類型 & "',N'" & gUserName & "')"

  183.         CmdSet_For_dr()

  184.     End Sub

  185.     Friend Sub SQL_通用_控制表刪除(ByVal 流水號 As String)

  186.         ConnOpen()

  187.         SQL1 = "DELETE FROM 簽呈控制表 WHERE (流水號 LIKE N'" & 流水號 & "')"

  188.         CmdSet_For_dr()

  189.     End Sub

  190.     Friend Sub SQL_通用_控制表修改(ByVal 檔案名稱 As String, ByVal 主旨 As String, ByVal 說明 As String, ByVal 擬辦 As String, ByVal 敬陳一 As String, ByVal 敬陳二 As String,

  191.                             ByVal 敬會一 As String, ByVal 敬會二 As String, ByVal 敬會三 As String, ByVal 敬會四 As String, ByVal 敬會五 As String, ByVal 流水號 As String, ByVal 文件類型 As String)

  192.         ConnOpen()

  193.         SQL1 = "UPDATE 簽呈控制表 SET 檔案名稱 = N'" & 檔案名稱 & "', 主旨 = N'" & 主旨 & "',  說明= N'" & 說明 & "', 擬辦 = N'" & 擬辦 & "', 敬陳一 = N'" & 敬陳一 & "',

  194.                                         敬陳二 = N'" & 敬陳二 & "',  敬會一 = N'" & 敬會一 & "', 敬會二 = N'" & 敬會二 & "',  敬會三 = N'" & 敬會三 & "', 敬會四 = N'" & 敬會四 & "',

  195.                                         敬會五 = N'" & 敬會五 & "', 已儲存 = 0, 已作廢 = 0

  196.                  WHERE (流水號 LIKE N'" & 流水號 & "') AND (文件類型 LIKE N'" & 文件類型 & "')"

  197.         CmdSet_For_dr()

  198.     End Sub

  199.     Friend Sub SQL_通用_控制表作廢(ByVal 流水號 As String, ByVal 文件類型 As String)

  200.         ConnOpen()

  201.         SQL1 = "UPDATE 簽呈控制表 SET 已作廢 = 1 WHERE (流水號 LIKE N'" & 流水號 & "') AND  (文件類型 LIKE N'" & 文件類型 & "')"

  202.         CmdSet_For_dr()

  203.     End Sub

  204.     Friend Sub SQL_通用_控制表鎖定(ByVal 流水號 As String, ByVal 文件類型 As String)

  205.         ConnOpen()

  206.         SQL1 = "UPDATE 簽呈控制表 SET 已儲存 = 1 WHERE (流水號 LIKE N'" & 流水號 & "') AND (文件類型 LIKE N'" & 文件類型 & "')"

  207.         CmdSet_For_dr()

  208.     End Sub

  209. End Module