TENDEN-MES-SYS
/
TENDEN-MES-SYS-LEEHSIEHJUI
İzle 4
Yıldızla 0
Çatalla 0
Kod Sorunlar 0 Değişiklik İstekleri 0 Sürümler 0 Wiki Aktivite
Açıklama Yok
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.
41 İşlemeler
1 Dal
Ağaç: edc4a796b8
Dallar Biçim İmleri
${ item.name }
Branş ${ searchTerm } oluştur
'edc4a796b8'den
${ noResults }
TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/Module/SQL_資料庫系統管理.vb

SQL_資料庫系統管理.vb 18KB
Geçmiş Ham

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169 
  1. Module SQL_資料庫系統管理

  2.     '---------------------------系統使用者管理------------------------------------

  3.     Friend Sub SQL_使用者_清單()

  4.         ConnOpen()

  5.         If CC(0) = True Then

  6.             SQL1 = "SELECT * FROM 使用者"

  7.         ElseIf CC(2) = True Then

  8.             SQL1 = "SELECT * FROM 使用者 WHERE (CC2 = 1) AND (CC0 = 0)"

  9.         ElseIf CC(5) = True Then

  10.             SQL1 = "SELECT * FROM 使用者 WHERE (CC5 = 1) AND (CC0 = 0)"

  11.         End If

  12.         CmdSet_For_DGV()

  13.     End Sub

  14.     Friend Sub SQL_系統使用者管理新增()

  15.         ConnOpen()

  16.         SQL1 = "INSERT INTO 使用者 (姓名, 帳號, 密碼, CC0, CC1, CC2, CC3, CC4, CC5, CC6, CC7, CC8, CC9, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, CC23, 

  17.                                     CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, CC35, CC36, CC37, CC38, CC39, CC40, CC41, CC42, CC43, CC44, CC45, CC46, CC47, CC48, 

  18.                                     CC49, CC50, CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, 

  19.                                     CC74, CC75, CC76, CC77, CC78, CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92) 

  20.                 VALUES ('" & 系統使用者管理.姓名_tb.Text & "','" & 系統使用者管理.帳號_tb.Text & "','" & 系統使用者管理.密碼_tb.Text & "', '" & 系統使用者管理.CheckBox1.Checked & "', 

  21.                         '" & 系統使用者管理.CheckBox2.Checked & "', '" & 系統使用者管理.CheckBox3.Checked & "', '" & 系統使用者管理.CheckBox4.Checked & "', '" & 系統使用者管理.CheckBox5.Checked & "', 

  22.                         '" & 系統使用者管理.CheckBox6.Checked & "', '" & 系統使用者管理.CheckBox7.Checked & "', '" & 系統使用者管理.CheckBox8.Checked & "', '" & 系統使用者管理.CheckBox9.Checked & "', 

  23.                         '" & 系統使用者管理.CheckBox10.Checked & "', '" & 系統使用者管理.CheckBox11.Checked & "', '" & 系統使用者管理.CheckBox12.Checked & "', '" & 系統使用者管理.CheckBox13.Checked & "', 

  24.                         '" & 系統使用者管理.CheckBox14.Checked & "', '" & 系統使用者管理.CheckBox15.Checked & "', '" & 系統使用者管理.CheckBox16.Checked & "', '" & 系統使用者管理.CheckBox17.Checked & "', 

  25.                         '" & 系統使用者管理.CheckBox18.Checked & "', '" & 系統使用者管理.CheckBox19.Checked & "', '" & 系統使用者管理.CheckBox20.Checked & "', '" & 系統使用者管理.CheckBox21.Checked & "', 

  26.                         '" & 系統使用者管理.CheckBox22.Checked & "', '" & 系統使用者管理.CheckBox23.Checked & "', '" & 系統使用者管理.CheckBox24.Checked & "', '" & 系統使用者管理.CheckBox25.Checked & "', 

  27.                         '" & 系統使用者管理.CheckBox26.Checked & "', '" & 系統使用者管理.CheckBox27.Checked & "', '" & 系統使用者管理.CheckBox28.Checked & "', '" & 系統使用者管理.CheckBox29.Checked & "', 

  28.                         '" & 系統使用者管理.CheckBox30.Checked & "', '" & 系統使用者管理.CheckBox31.Checked & "', '" & 系統使用者管理.CheckBox32.Checked & "', '" & 系統使用者管理.CheckBox33.Checked & "', 

  29.                         '" & 系統使用者管理.CheckBox34.Checked & "', '" & 系統使用者管理.CheckBox35.Checked & "', '" & 系統使用者管理.CheckBox36.Checked & "', '" & 系統使用者管理.CheckBox37.Checked & "', 

  30.                         '" & 系統使用者管理.CheckBox38.Checked & "', '" & 系統使用者管理.CheckBox39.Checked & "', '" & 系統使用者管理.CheckBox40.Checked & "', '" & 系統使用者管理.CheckBox41.Checked & "', 

  31.                         '" & 系統使用者管理.CheckBox42.Checked & "', '" & 系統使用者管理.CheckBox43.Checked & "', '" & 系統使用者管理.CheckBox44.Checked & "', '" & 系統使用者管理.CheckBox45.Checked & "', 

  32.                         '" & 系統使用者管理.CheckBox46.Checked & "', '" & 系統使用者管理.CheckBox47.Checked & "', '" & 系統使用者管理.CheckBox48.Checked & "', '" & 系統使用者管理.CheckBox49.Checked & "', 

  33.                         '" & 系統使用者管理.CheckBox50.Checked & "', '" & 系統使用者管理.CheckBox51.Checked & "', '" & 系統使用者管理.CheckBox52.Checked & "', '" & 系統使用者管理.CheckBox53.Checked & "', 

  34.                         '" & 系統使用者管理.CheckBox54.Checked & "', '" & 系統使用者管理.CheckBox55.Checked & "', '" & 系統使用者管理.CheckBox56.Checked & "', '" & 系統使用者管理.CheckBox57.Checked & "', 

  35.                         '" & 系統使用者管理.CheckBox58.Checked & "', '" & 系統使用者管理.CheckBox59.Checked & "', '" & 系統使用者管理.CheckBox60.Checked & "', '" & 系統使用者管理.CheckBox61.Checked & "', 

  36.                         '" & 系統使用者管理.CheckBox62.Checked & "', '" & 系統使用者管理.CheckBox63.Checked & "', '" & 系統使用者管理.CheckBox64.Checked & "', '" & 系統使用者管理.CheckBox65.Checked & "', 

  37.                         '" & 系統使用者管理.CheckBox66.Checked & "', '" & 系統使用者管理.CheckBox67.Checked & "', '" & 系統使用者管理.CheckBox68.Checked & "', '" & 系統使用者管理.CheckBox69.Checked & "', 

  38.                         '" & 系統使用者管理.CheckBox70.Checked & "', '" & 系統使用者管理.CheckBox71.Checked & "', '" & 系統使用者管理.CheckBox72.Checked & "', '" & 系統使用者管理.CheckBox73.Checked & "', 

  39.                         '" & 系統使用者管理.CheckBox74.Checked & "', '" & 系統使用者管理.CheckBox75.Checked & "', '" & 系統使用者管理.CheckBox76.Checked & "', '" & 系統使用者管理.CheckBox77.Checked & "', 

  40.                         '" & 系統使用者管理.CheckBox78.Checked & "', '" & 系統使用者管理.CheckBox79.Checked & "', '" & 系統使用者管理.CheckBox80.Checked & "', '" & 系統使用者管理.CheckBox81.Checked & "', 

  41.                         '" & 系統使用者管理.CheckBox82.Checked & "', '" & 系統使用者管理.CheckBox83.Checked & "', '" & 系統使用者管理.CheckBox84.Checked & "', '" & 系統使用者管理.CheckBox89.Checked & "', 

  42.                         '" & 系統使用者管理.CheckBox90.Checked & "', '" & 系統使用者管理.CheckBox91.Checked & "', '" & 系統使用者管理.CheckBox92.Checked & "', '" & 系統使用者管理.CheckBox93.Checked & "', 

  43.                         '" & 系統使用者管理.CheckBox94.Checked & "', '" & 系統使用者管理.CheckBox95.Checked & "', '" & 系統使用者管理.CheckBox96.Checked & "', '" & 系統使用者管理.CheckBox97.Checked & "')"

  44.         CmdSet_For_dr()

  45.     End Sub

  46.     Friend Sub SQL_系統使用者管理修改()

  47.         ConnOpen()

  48.         SQL1 = "UPDATE 使用者 SET 姓名 = '" & 系統使用者管理.姓名_tb.Text & "', 密碼 = '" & 系統使用者管理.密碼_tb.Text & "', 

  49.                                   CC0 = '" & 系統使用者管理.CheckBox1.Checked & "', CC1 = '" & 系統使用者管理.CheckBox2.Checked & "', CC2 = '" & 系統使用者管理.CheckBox3.Checked & "', 

  50.                                   CC3 = '" & 系統使用者管理.CheckBox4.Checked & "', CC4 = '" & 系統使用者管理.CheckBox5.Checked & "', CC5 = '" & 系統使用者管理.CheckBox6.Checked & "', 

  51.                                   CC6 = '" & 系統使用者管理.CheckBox7.Checked & "', CC7 = '" & 系統使用者管理.CheckBox8.Checked & "', CC8 = '" & 系統使用者管理.CheckBox9.Checked & "', 

  52.                                   CC9 = '" & 系統使用者管理.CheckBox10.Checked & "', CC10 = '" & 系統使用者管理.CheckBox11.Checked & "', CC11 = '" & 系統使用者管理.CheckBox12.Checked & "', 

  53.                                   CC12 = '" & 系統使用者管理.CheckBox13.Checked & "', CC13 = '" & 系統使用者管理.CheckBox14.Checked & "', CC14 = '" & 系統使用者管理.CheckBox15.Checked & "', 

  54.                                   CC15 = '" & 系統使用者管理.CheckBox16.Checked & "', CC16 = '" & 系統使用者管理.CheckBox17.Checked & "', CC17 = '" & 系統使用者管理.CheckBox18.Checked & "', 

  55.                                   CC18 = '" & 系統使用者管理.CheckBox19.Checked & "', CC19 = '" & 系統使用者管理.CheckBox20.Checked & "', CC20 = '" & 系統使用者管理.CheckBox21.Checked & "', 

  56.                                   CC21 = '" & 系統使用者管理.CheckBox22.Checked & "', CC22 = '" & 系統使用者管理.CheckBox23.Checked & "', CC23 = '" & 系統使用者管理.CheckBox24.Checked & "', 

  57.                                   CC24 = '" & 系統使用者管理.CheckBox25.Checked & "', CC25 = '" & 系統使用者管理.CheckBox26.Checked & "', CC26 = '" & 系統使用者管理.CheckBox27.Checked & "', 

  58.                                   CC27 = '" & 系統使用者管理.CheckBox28.Checked & "', CC28 = '" & 系統使用者管理.CheckBox29.Checked & "', CC29 = '" & 系統使用者管理.CheckBox30.Checked & "', 

  59.                                   CC30 = '" & 系統使用者管理.CheckBox31.Checked & "', CC31 = '" & 系統使用者管理.CheckBox32.Checked & "', CC32 = '" & 系統使用者管理.CheckBox33.Checked & "', 

  60.                                   CC33 = '" & 系統使用者管理.CheckBox34.Checked & "', CC34 = '" & 系統使用者管理.CheckBox35.Checked & "', CC35 = '" & 系統使用者管理.CheckBox36.Checked & "', 

  61.                                   CC36 = '" & 系統使用者管理.CheckBox37.Checked & "', CC37 = '" & 系統使用者管理.CheckBox38.Checked & "', CC38 = '" & 系統使用者管理.CheckBox39.Checked & "', 

  62.                                   CC39 = '" & 系統使用者管理.CheckBox40.Checked & "', CC40 = '" & 系統使用者管理.CheckBox41.Checked & "', CC41 = '" & 系統使用者管理.CheckBox42.Checked & "', 

  63.                                   CC42 = '" & 系統使用者管理.CheckBox43.Checked & "', CC43 = '" & 系統使用者管理.CheckBox44.Checked & "', CC44 = '" & 系統使用者管理.CheckBox45.Checked & "', 

  64.                                   CC45 = '" & 系統使用者管理.CheckBox46.Checked & "', CC46 = '" & 系統使用者管理.CheckBox47.Checked & "', CC47 = '" & 系統使用者管理.CheckBox48.Checked & "', 

  65.                                   CC48 = '" & 系統使用者管理.CheckBox49.Checked & "', CC49 = '" & 系統使用者管理.CheckBox50.Checked & "', CC50 = '" & 系統使用者管理.CheckBox51.Checked & "', 

  66.                                   CC51 = '" & 系統使用者管理.CheckBox52.Checked & "', CC52 = '" & 系統使用者管理.CheckBox53.Checked & "', CC53 = '" & 系統使用者管理.CheckBox54.Checked & "', 

  67.                                   CC54 = '" & 系統使用者管理.CheckBox55.Checked & "', CC55 = '" & 系統使用者管理.CheckBox56.Checked & "', CC56 = '" & 系統使用者管理.CheckBox57.Checked & "', 

  68.                                   CC57 = '" & 系統使用者管理.CheckBox58.Checked & "', CC58 = '" & 系統使用者管理.CheckBox59.Checked & "', CC59 = '" & 系統使用者管理.CheckBox60.Checked & "', 

  69.                                   CC60 = '" & 系統使用者管理.CheckBox61.Checked & "', CC61 = '" & 系統使用者管理.CheckBox62.Checked & "', CC62 = '" & 系統使用者管理.CheckBox63.Checked & "', 

  70.                                   CC63 = '" & 系統使用者管理.CheckBox64.Checked & "', CC64 = '" & 系統使用者管理.CheckBox65.Checked & "', CC65 = '" & 系統使用者管理.CheckBox66.Checked & "', 

  71.                                   CC66 = '" & 系統使用者管理.CheckBox67.Checked & "', CC67 = '" & 系統使用者管理.CheckBox68.Checked & "', CC68 = '" & 系統使用者管理.CheckBox69.Checked & "', 

  72.                                   CC69 = '" & 系統使用者管理.CheckBox70.Checked & "', CC70 = '" & 系統使用者管理.CheckBox71.Checked & "', CC71 = '" & 系統使用者管理.CheckBox72.Checked & "', 

  73.                                   CC72 = '" & 系統使用者管理.CheckBox73.Checked & "', CC73 = '" & 系統使用者管理.CheckBox74.Checked & "', CC74 = '" & 系統使用者管理.CheckBox75.Checked & "', 

  74.                                   CC75 = '" & 系統使用者管理.CheckBox76.Checked & "', CC76 = '" & 系統使用者管理.CheckBox77.Checked & "', CC77 = '" & 系統使用者管理.CheckBox78.Checked & "', 

  75.                                   CC78 = '" & 系統使用者管理.CheckBox79.Checked & "', CC79 = '" & 系統使用者管理.CheckBox80.Checked & "', CC80 = '" & 系統使用者管理.CheckBox81.Checked & "', 

  76.                                   CC81 = '" & 系統使用者管理.CheckBox82.Checked & "', CC82 = '" & 系統使用者管理.CheckBox83.Checked & "', CC83 = '" & 系統使用者管理.CheckBox84.Checked & "', 

  77.                                   CC84 = '" & 系統使用者管理.CheckBox89.Checked & "', CC85 = '" & 系統使用者管理.CheckBox90.Checked & "', CC86 = '" & 系統使用者管理.CheckBox91.Checked & "', 

  78.                                   CC87 = '" & 系統使用者管理.CheckBox92.Checked & "', CC88 = '" & 系統使用者管理.CheckBox93.Checked & "', CC89 = '" & 系統使用者管理.CheckBox94.Checked & "', 

  79.                                   CC90 = '" & 系統使用者管理.CheckBox95.Checked & "', CC91 = '" & 系統使用者管理.CheckBox96.Checked & "', CC92 = '" & 系統使用者管理.CheckBox97.Checked & "' 

  80.                     WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')"

  81.         CmdSet_For_dr()

  82.     End Sub

  83.     Friend Sub SQL_系統使用者管理刪除()

  84.         ConnOpen()

  85.         SQL1 = "DELETE FROM 使用者 WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')"

  86.         CmdSet_For_dr()

  87.     End Sub

  88.     '----------------------------FTP資料夾管理---------------------------------------------------------------------------------

  89.     Friend Sub SQL_FTP_清單()

  90.         ConnOpen()

  91.         SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註 FROM FTP資料夾管理"

  92.         CmdSet_For_DGV()

  93.     End Sub

  94.     Friend Sub SQL_FTP_新增()

  95.         ConnOpen()

  96.         SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註) 

  97.                 VALUES (N'" & FTP資料夾管理.資料夾名稱_tb.Text & "',N'" & FTP資料夾管理.指定頁面_tb.Text & "',N'" & FTP資料夾管理.備註_tb.Text & "')"

  98.         CmdSet_For_dr()

  99.     End Sub

  100.     Friend Sub SQL_FTP_修改()

  101.         ConnOpen()

  102.         SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & FTP資料夾管理.指定頁面_tb.Text & "', 備註 = N'" & FTP資料夾管理.備註_tb.Text & "' 

  103.                 WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"

  104.         CmdSet_For_dr()

  105.     End Sub

  106.     Friend Sub SQL_FTP_刪除()

  107.         ConnOpen()

  108.         SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"

  109.         CmdSet_For_dr()

  110.     End Sub

  111.     '----------------------系統執行檔版本管理------------------------------------------------------------------------------------

  112.     Friend Sub SQL_系統認證版本號()

  113.         ConnOpen()

  114.         SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "

  115.         CmdSet_For_dr()

  116.     End Sub

  117.     Friend Sub SQL_版本號修改()

  118.         ConnOpen()

  119.         SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 系統執行檔版本管理.版本號_tb.Text & "' WHERE (系統認證版本號 = N'" & Strings.Right(系統執行檔版本管理.資料庫版本號_lb.Text, 10) & "')"

  120.         CmdSet_For_dr()

  121.     End Sub

  122.     Friend Sub SQL_讀取系統認證版本號()

  123.         ConnOpen()

  124.         SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "

  125.         CmdSet_For_dr()

  126.     End Sub

  127.     '----------------------系統編碼原則------------------------------------------------------------------------------------

  128.     Friend Sub SQL_主資料庫LOG檔案截斷()

  129.         ConnOpen() : SQL1 = "USE [" & PA & "] ALTER DATABASE [" & PA & "]

  130.                              SET RECOVERY SIMPLE; DBCC SHRINKFILE([" & PA & "_Log], 1); 

  131.                              ALTER DATABASE [" & PA & "]

  132.                              SET RECOVERY FULL;" : CmdSet_For_dr()

  133.     End Sub

  134.     Friend Sub SQL_伺服器1清單()

  135.         ConnOpen()

  136.         SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE '天盾%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"

  137.         CmdSet_For_DGV()

  138.     End Sub

  139.     Friend Sub SQL_資料庫狀態()

  140.         ConnOpen()

  141.         SQL1 = "SELECT  DB_NAME(database_id) AS [資料庫名稱], physical_name AS [磁碟路徑], type_desc AS [類型描述], 

  142.                         state_desc  AS [狀態描述], size * 8.0 / 1024  AS [使用容量]

  143.                 FROM    sys.master_files

  144.                 WHERE  (DB_NAME(database_id) LIKE N'天盾%')"

  145.         CmdSet_For_DGV()

  146.     End Sub

  147.     Friend Sub SQL_圖片資料庫管理查詢()

  148.         ConnOpen() : SQL1 = "SELECT 圖片資料庫, 是否可用  FROM 圖片資料庫管理 ORDER BY 圖片資料庫" : CmdSet_For_DGV()

  149.     End Sub

  150.     Friend Sub SQL_系統預測值修改()

  151.         ConnOpen() : SQL1 = "UPDATE 版本號管理 SET 圖片伺服器上限 = '" & 系統編碼原則.MAX_nud.Value & "'" : CmdSet_For_dr()

  152.     End Sub

  153.     Friend Sub SQL_系統預設值()

  154.         ConnOpen() : SQL1 = "SELECT  圖片伺服器上限 FROM 版本號管理" : CmdSet_For_dr()

  155.     End Sub

  156.     Friend Sub SQL_圖片資料庫管理查詢1()

  157.         ConnOpen() : SQL1 = "SELECT 圖片資料庫, 是否可用 FROM 圖片資料庫管理 WHERE 圖片資料庫 LIKE N'" & 系統編碼原則.圖片資料庫名稱_tb.Text & "'" : CmdSet_For_dr()

  158.     End Sub

  159.     Friend Sub SQL_工程圖片資料庫管理查詢新增()

  160.         ConnOpen()

  161.         SQL1 = "INSERT INTO 圖片資料庫管理 (圖片資料庫, 是否可用) VALUES ('" & 系統編碼原則.圖片資料庫名稱_tb.Text & "','" & 系統編碼原則.是否可用_ch.Checked & "')"

  162.         CmdSet_For_dr()

  163.     End Sub

  164.     Friend Sub SQL_工程圖片資料庫管理查詢修改()

  165.         ConnOpen()

  166.         SQL1 = "UPDATE 圖片資料庫管理 SET 是否可用 = '" & 系統編碼原則.是否可用_ch.Checked & "' WHERE 圖片資料庫 LIKE N'" & 系統編碼原則.圖片資料庫名稱_tb.Text & "'"

  167.         CmdSet_For_dr()

  168.     End Sub

  169. End Module