HF-MIS-SYS
/
HF-MIS-SYS--LEEHSIEHJUI
关注 4
点赞 0
派生 0
代码 工单 0 合并请求 0 版本发布 0 百科 动态
暂无描述
您最多选择25个主题 主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
3 提交
1 分支
目录树: 8455923f98
分支列表 标签列表
${ item.name }
创建分支 ${ searchTerm }
从 '8455923f98'
${ noResults }
HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/00、MyModule/SQL系統維護.vb

SQL系統維護.vb 13KB
文件历史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 
  1. Module SQL系統維護

  2.     Friend Sub SQL_系統認證版本號查詢()

  3.         ConnOpen() : SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 " : CmdSet_For_dr()

  4.     End Sub

  5.     Friend Sub SQL_系統認證版本號修改(系統認證版本號 As String, 本號 As String)

  6.         ConnOpen()

  7.         SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 本號 & "' WHERE (系統認證版本號 = N'" & Strings.Right(系統認證版本號, 10) & "')"

  8.         CmdSet_For_dr()

  9.     End Sub

  10.     Friend Sub SQL_使用者資料()

  11.         ConnOpen() : SQL1 = "SELECT name, id, pw FROM RT_SYS_STAFF WHERE (name LIKE N'" & gUserName & "')" : CmdSet_For_dr()

  12.     End Sub

  13.     Friend Sub SQL_使用者資料修改()

  14.         ConnOpen()

  15.         SQL1 = "UPDATE RT_SYS_STAFF SET id = '" & 個人帳號管理.帳號_rtb.Text & "', pw = '" & 個人帳號管理.密碼_rtb.Text & "' 

  16.                 WHERE (name = '" & 個人帳號管理.姓名_rtb.Text & "')"

  17.         CmdSet_For_dr()

  18.     End Sub

  19.     Friend Sub SQL_系統使用者管理_使用者清單()

  20.         ConnOpen()

  21.         SQL1 = "select name as 员工名,id as 帐号, pw as 密码, ID卡號 as ID卡号, con1, con2, con3, con4, con5, con6, con7, con8, con9, con10, con11, con12, con13, con14, 

  22.                        con15, con16, con17, con18, con19, con20, con21, con22, con23, con24, con25, con26, con27, con28, con29, con30, con31, con32, con33, con34, con35, 

  23.                        con36, con37, con38, con39, con40, con41, con42, con43, con44, con45, con46, con47, con48, con49, con50, con51, con52, con53, con54, con55, con56, 

  24.                        con57, con58, con59, con60, con61, con62, con63, con64, con65, con66, con67, con68, con69, con70, con71, con72, con73, con74, con75, con76, con77, 

  25.                        con78, con79, con80, con81, con82, con83, con84, con85, con86, con87, con88, con89, con90, con91, con92, con93, con94, con95, con96, con97, con98, 

  26.                        con99

  27.                 from RT_SYS_STAFF order by name"

  28.         CmdSet_For_DGV()

  29.     End Sub

  30.     Friend Sub SQL_使用者權限新增(name As String, id As String, pw As String, ID卡號 As String, con1 As String, con2 As String, con3 As String, con4 As String, con5 As String,

  31.                            con6 As String, con7 As String, con8 As String, con9 As String, con10 As String, con11 As String, con12 As String, con13 As String, con14 As String,

  32.                            con15 As String, con16 As String, con17 As String, con18 As String, con19 As String, con20 As String, con21 As String, con22 As String, con23 As String,

  33.                            con24 As String, con25 As String, con26 As String, con27 As String, con28 As String, con29 As String, con30 As String, con31 As String, con32 As String,

  34.                            con33 As String, con34 As String, con35 As String, con36 As String, con37 As String, con38 As String, con39 As String, con40 As String, con41 As String,

  35.                            con42 As String, con43 As String, con44 As String, con45 As String, con46 As String, con47 As String, con48 As String, con49 As String, con50 As String,

  36.                            con51 As String, con52 As String, con53 As String, con54 As String, con55 As String, con56 As String, con57 As String, con58 As String, con59 As String,

  37.                            con60 As String, con61 As String, con62 As String, con63 As String, con64 As String, con65 As String, con66 As String, con67 As String, con68 As String,

  38.                            con69 As String, con70 As String, con71 As String, con72 As String, con73 As String, con74 As String, con75 As String, con76 As String, con77 As String,

  39.                            con78 As String, con79 As String, con80 As String, con81 As String, con82 As String, con83 As String, con84 As String, con85 As String, con86 As String,

  40.                            con87 As String, con88 As String, con89 As String, con90 As String, con91 As String, con92 As String, con93 As String, con94 As String, con95 As String,

  41.                            con96 As String, con97 As String, con98 As String, con99 As String)

  42.         ConnOpen()

  43.         SQL1 = "INSERT INTO RT_SYS_STAFF (name, id, pw, ID卡號,  con1, con2, con3, con4, con5, con6, con7, con8, con9, con10, con11, con12, con13, con14, con15, con16, con17, 

  44.                                           con18, con19, con20, con21, con22, con23, con24, con25, con26, con27, con28, con29, con30, con31, con32, con33, con34, con35, con36, 

  45.                                           con37, con38, con39, con40, con41, con42, con43, con44, con45, con46, con47, con48, con49, con50, con51, con52, con53, con54, con55, 

  46.                                           con56, con57, con58, con59, con60, con61, con62, con63, con64, con65, con66, con67, con68, con69, con70, con71, con72, con73, con74, 

  47.                                           con75, con76, con77, con78, con79, con80, con81, con82, con83, con84, con85, con86, con87, con88, con89, con90, con91, con92, con93, 

  48.                                           con94, con95, con96, con97, con98, con99)  

  49.                 VALUES  (N'" & name & "', N'" & id & "', N'" & pw & "', N'" & ID卡號 & "', N'" & con1 & "', N'" & con2 & "', N'" & con3 & "', N'" & con4 & "', N'" & con5 & "', 

  50.                          N'" & con6 & "', N'" & con7 & "', N'" & con8 & "', N'" & con9 & "', N'" & con10 & "', N'" & con11 & "', N'" & con12 & "', N'" & con13 & "', N'" & con14 & "', 

  51.                          N'" & con15 & "', N'" & con16 & "', N'" & con17 & "', N'" & con18 & "', N'" & con19 & "', N'" & con20 & "', N'" & con21 & "', N'" & con22 & "', N'" & con23 & "', 

  52.                          N'" & con24 & "', N'" & con25 & "', N'" & con26 & "', N'" & con27 & "', N'" & con28 & "', N'" & con29 & "', N'" & con30 & "', N'" & con31 & "', N'" & con32 & "', 

  53.                          N'" & con33 & "', N'" & con34 & "', N'" & con35 & "', N'" & con36 & "', N'" & con37 & "', N'" & con38 & "', N'" & con39 & "', N'" & con40 & "', N'" & con41 & "', 

  54.                          N'" & con42 & "', N'" & con43 & "', N'" & con44 & "', N'" & con45 & "', N'" & con46 & "', N'" & con47 & "', N'" & con48 & "', N'" & con49 & "', N'" & con50 & "', 

  55.                          N'" & con51 & "', N'" & con52 & "', N'" & con53 & "', N'" & con54 & "', N'" & con55 & "', N'" & con56 & "', N'" & con57 & "', N'" & con58 & "', N'" & con59 & "', 

  56.                          N'" & con60 & "', N'" & con61 & "', N'" & con62 & "', N'" & con63 & "', N'" & con64 & "', N'" & con65 & "', N'" & con66 & "', N'" & con67 & "', N'" & con68 & "', 

  57.                          N'" & con69 & "', N'" & con70 & "', N'" & con71 & "', N'" & con72 & "', N'" & con73 & "', N'" & con74 & "', N'" & con75 & "', N'" & con76 & "', N'" & con77 & "', 

  58.                          N'" & con78 & "', N'" & con79 & "', N'" & con80 & "', N'" & con81 & "', N'" & con82 & "', N'" & con83 & "', N'" & con84 & "', N'" & con85 & "', N'" & con86 & "', 

  59.                          N'" & con87 & "', N'" & con88 & "', N'" & con89 & "', N'" & con90 & "', N'" & con91 & "', N'" & con92 & "', N'" & con93 & "', N'" & con94 & "', N'" & con95 & "', 

  60.                          N'" & con96 & "', N'" & con97 & "', N'" & con98 & "', N'" & con99 & "')"

  61.         CmdSet_For_dr()

  62.     End Sub

  63.     Friend Sub SQL_使用者權限修改(name As String, id As String, pw As String, ID卡號 As String, con1 As String, con2 As String, con3 As String, con4 As String, con5 As String,

  64.                            con6 As String, con7 As String, con8 As String, con9 As String, con10 As String, con11 As String, con12 As String, con13 As String, con14 As String,

  65.                            con15 As String, con16 As String, con17 As String, con18 As String, con19 As String, con20 As String, con21 As String, con22 As String, con23 As String,

  66.                            con24 As String, con25 As String, con26 As String, con27 As String, con28 As String, con29 As String, con30 As String, con31 As String, con32 As String,

  67.                            con33 As String, con34 As String, con35 As String, con36 As String, con37 As String, con38 As String, con39 As String, con40 As String, con41 As String,

  68.                            con42 As String, con43 As String, con44 As String, con45 As String, con46 As String, con47 As String, con48 As String, con49 As String, con50 As String,

  69.                            con51 As String, con52 As String, con53 As String, con54 As String, con55 As String, con56 As String, con57 As String, con58 As String, con59 As String,

  70.                            con60 As String, con61 As String, con62 As String, con63 As String, con64 As String, con65 As String, con66 As String, con67 As String, con68 As String,

  71.                            con69 As String, con70 As String, con71 As String, con72 As String, con73 As String, con74 As String, con75 As String, con76 As String, con77 As String,

  72.                            con78 As String, con79 As String, con80 As String, con81 As String, con82 As String, con83 As String, con84 As String, con85 As String, con86 As String,

  73.                            con87 As String, con88 As String, con89 As String, con90 As String, con91 As String, con92 As String, con93 As String, con94 As String, con95 As String,

  74.                            con96 As String, con97 As String, con98 As String, con99 As String)

  75.         ConnOpen()

  76.         SQL1 = "UPDATE RT_SYS_STAFF SET name = N'" & name & "', pw = N'" & pw & "', ID卡號 = N'" & ID卡號 & "', con1 = N'" & con1 & "', con2 = N'" & con2 & "', 

  77.                                       con3 = N'" & con3 & "', con4 = N'" & con4 & "', con5 = N'" & con5 & "', con6 = N'" & con6 & "', con7 = N'" & con7 & "', con8 = N'" & con8 & "', 

  78.                                       con9 = N'" & con9 & "', con10 = N'" & con10 & "', con11 = N'" & con11 & "', con12 = N'" & con12 & "', con13 = N'" & con13 & "', con14 = N'" & con14 & "', 

  79.                                       con15 = N'" & con15 & "', con16 = N'" & con16 & "', con17 = N'" & con17 & "', con18 = N'" & con18 & "', con19 = N'" & con19 & "', con20 = N'" & con20 & "', 

  80.                                       con21 = N'" & con21 & "', con22 = N'" & con22 & "', con23 = N'" & con23 & "', con24 = N'" & con24 & "', con25 = N'" & con25 & "', con26 = N'" & con26 & "', 

  81.                                       con27 = N'" & con27 & "', con28 = N'" & con28 & "', con29 = N'" & con29 & "', con30 = N'" & con30 & "', con31 = N'" & con31 & "', con32 = N'" & con32 & "', 

  82.                                       con33 = N'" & con33 & "', con34 = N'" & con34 & "', con35 = N'" & con35 & "', con36 = N'" & con36 & "', con37 = N'" & con37 & "', con38 = N'" & con38 & "', 

  83.                                       con39 = N'" & con39 & "', con40 = N'" & con40 & "', con41 = N'" & con41 & "', con42 = N'" & con42 & "', con43 = N'" & con43 & "', con44 = N'" & con44 & "', 

  84.                                       con45 = N'" & con45 & "', con46 = N'" & con46 & "', con47 = N'" & con47 & "', con48 = N'" & con48 & "', con49 = N'" & con49 & "', con50 = N'" & con50 & "', 

  85.                                       con51 = N'" & con51 & "', con52 = N'" & con52 & "', con53 = N'" & con53 & "', con54 = N'" & con54 & "', con55 = N'" & con55 & "', con56 = N'" & con56 & "', 

  86.                                       con57 = N'" & con57 & "', con58 = N'" & con58 & "', con59 = N'" & con59 & "', con60 = N'" & con60 & "', con61 = N'" & con61 & "', con62 = N'" & con62 & "', 

  87.                                       con63 = N'" & con63 & "', con64 = N'" & con64 & "', con65 = N'" & con65 & "', con66 = N'" & con66 & "', con67 = N'" & con67 & "', con68 = N'" & con68 & "', 

  88.                                       con69 = N'" & con69 & "', con70 = N'" & con70 & "', con71 = N'" & con71 & "', con72 = N'" & con72 & "', con73 = N'" & con73 & "', con74 = N'" & con74 & "', 

  89.                                       con75 = N'" & con75 & "', con76 = N'" & con76 & "', con77 = N'" & con77 & "', con78 = N'" & con78 & "', con79 = N'" & con79 & "', con80 = N'" & con80 & "', 

  90.                                       con81 = N'" & con81 & "', con82 = N'" & con82 & "', con83 = N'" & con83 & "', con84 = N'" & con84 & "', con85 = N'" & con85 & "', con86 = N'" & con86 & "', 

  91.                                       con87 = N'" & con87 & "', con88 = N'" & con88 & "', con89 = N'" & con89 & "', con90 = N'" & con90 & "', con91 = N'" & con91 & "', con92 = N'" & con92 & "', 

  92.                                       con93 = N'" & con93 & "', con94 = N'" & con94 & "', con95 = N'" & con95 & "', con96 = N'" & con96 & "', con97 = N'" & con97 & "', con98 = N'" & con98 & "', 

  93.                                       con99 = N'" & con99 & "'

  94.                  WHERE  id LIKE N'" & id & "'"

  95.         CmdSet_For_dr()

  96.     End Sub

  97.     Friend Sub SQL_使用者權限刪除(id As String)

  98.         ConnOpen() : SQL1 = "DELETE RT_SYS_STAFF WHERE  id LIKE N'" & id & "'" : CmdSet_For_dr()

  99.     End Sub

  100. End Module