GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
Следить 4
В избранное 0
Форкнуть 0
Код Задачи 0 Pull Request'ы 0 Релизы 0 Вики Активность
Нет описания
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
12 коммитов
1 ветка
Дерево: 2480e703bb
веток Теги
${ item.name }
Создать ветку ${ searchTerm }
из '2480e703bb'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/SQL_系統設定.vb

SQL_系統設定.vb 12KB
История Исходник

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158 
  1. Module SQL_系統設定

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

  3.     Friend Sub SQL_系統使用者密碼顯示()

  4.         ConnOpen_AM()

  5.         SQL1 = "SELECT      ras_Enroll.Password

  6.                 FROM        ras_Enroll INNER JOIN ras_Users ON ras_Enroll.DIN = ras_Users.DIN LEFT OUTER JOIN

  7.                             使用者權限管理表 ON ras_Users.DIN = 使用者權限管理表.DIN

  8.                 WHERE      (ras_Enroll.BackupNumber = 10) AND (ras_Users.UserName LIKE N'" & 系統使用者權限設定.姓名_tb.Text & "')

  9.                 ORDER BY    ras_Users.UserName"

  10.         CmdSet_For_dr()

  11.     End Sub

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

  13.         ConnOpen_AM()

  14.         SQL1 = "SELECT      ras_Users.DIN AS DIN_O, ras_Users.UserName, ras_Enroll.Password, 使用者權限管理表.DIN " & 登入權限 & "

  15.                 FROM        ras_Enroll INNER JOIN

  16.                             ras_Users ON ras_Enroll.DIN = ras_Users.DIN LEFT OUTER JOIN

  17.                             使用者權限管理表 ON ras_Users.DIN = 使用者權限管理表.DIN

  18.                 WHERE      (ras_Enroll.BackupNumber = 10) AND (ras_Users.IsLockedOut = 0)

  19.                 ORDER BY    ras_Users.UserName"

  20.         CmdSet_For_DGV()

  21.     End Sub

  22.     Friend Sub SQL_系統使用者權限新增()

  23.         ConnOpen_AM()

  24.         SQL1 = "INSERT INTO 使用者權限管理表 (DIN, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, CC23, 

  25.                                               CC24, CC25, CC26, CC27) " &

  26.                "VALUES ('" & 系統使用者權限設定.編號_tb.Text & "', '" & 系統使用者權限設定.CheckBox1.Checked & "', '" & 系統使用者權限設定.CheckBox2.Checked &

  27.                     "', '" & 系統使用者權限設定.CheckBox3.Checked & "', '" & 系統使用者權限設定.CheckBox4.Checked & "', '" & 系統使用者權限設定.CheckBox5.Checked &

  28.                     "', '" & 系統使用者權限設定.CheckBox6.Checked & "', '" & 系統使用者權限設定.CheckBox7.Checked & "', '" & 系統使用者權限設定.CheckBox8.Checked &

  29.                     "', '" & 系統使用者權限設定.CheckBox9.Checked & "', '" & 系統使用者權限設定.CheckBox10.Checked & "', '" & 系統使用者權限設定.CheckBox11.Checked &

  30.                     "', '" & 系統使用者權限設定.CheckBox12.Checked & "', '" & 系統使用者權限設定.CheckBox13.Checked & "', '" & 系統使用者權限設定.CheckBox14.Checked &

  31.                     "', '" & 系統使用者權限設定.CheckBox15.Checked & "', '" & 系統使用者權限設定.CheckBox16.Checked & "', '" & 系統使用者權限設定.CheckBox17.Checked &

  32.                     "', '" & 系統使用者權限設定.CheckBox18.Checked & "', '" & 系統使用者權限設定.CheckBox19.Checked & "', '" & 系統使用者權限設定.CheckBox20.Checked &

  33.                     "', '" & 系統使用者權限設定.CheckBox21.Checked & "', '" & 系統使用者權限設定.CheckBox22.Checked & "', '" & 系統使用者權限設定.CheckBox23.Checked &

  34.                     "', '" & 系統使用者權限設定.CheckBox24.Checked & "', '" & 系統使用者權限設定.CheckBox25.Checked & "', '" & 系統使用者權限設定.CheckBox26.Checked &

  35.                     "', '" & 系統使用者權限設定.CheckBox27.Checked & "')"

  36.         CmdSet_For_dr()

  37.     End Sub

  38.     Friend Sub SQL_系統使用者權限修改()

  39.         ConnOpen_AM()

  40.         SQL1 = "UPDATE 使用者權限管理表 SET  CC01 = '" & 系統使用者權限設定.CheckBox1.Checked & "', CC02 = '" & 系統使用者權限設定.CheckBox2.Checked &

  41.                                          "', CC03 = '" & 系統使用者權限設定.CheckBox3.Checked & "', CC04 = '" & 系統使用者權限設定.CheckBox4.Checked &

  42.                                          "', CC05 = '" & 系統使用者權限設定.CheckBox5.Checked & "', CC06 = '" & 系統使用者權限設定.CheckBox6.Checked &

  43.                                          "', CC07 = '" & 系統使用者權限設定.CheckBox7.Checked & "', CC08 = '" & 系統使用者權限設定.CheckBox8.Checked &

  44.                                          "', CC09 = '" & 系統使用者權限設定.CheckBox9.Checked & "', CC10 = '" & 系統使用者權限設定.CheckBox10.Checked &

  45.                                          "', CC11 = '" & 系統使用者權限設定.CheckBox11.Checked & "', CC12 = '" & 系統使用者權限設定.CheckBox12.Checked &

  46.                                          "', CC13 = '" & 系統使用者權限設定.CheckBox13.Checked & "', CC14 = '" & 系統使用者權限設定.CheckBox14.Checked &

  47.                                          "', CC15 = '" & 系統使用者權限設定.CheckBox15.Checked & "', CC16 = '" & 系統使用者權限設定.CheckBox16.Checked &

  48.                                          "', CC17 = '" & 系統使用者權限設定.CheckBox17.Checked & "', CC18 = '" & 系統使用者權限設定.CheckBox18.Checked &

  49.                                          "', CC19 = '" & 系統使用者權限設定.CheckBox19.Checked & "', CC20 = '" & 系統使用者權限設定.CheckBox20.Checked &

  50.                                          "', CC21 = '" & 系統使用者權限設定.CheckBox21.Checked & "', CC22 = '" & 系統使用者權限設定.CheckBox22.Checked &

  51.                                          "', CC23 = '" & 系統使用者權限設定.CheckBox23.Checked & "', CC24 = '" & 系統使用者權限設定.CheckBox24.Checked &

  52.                                          "', CC25 = '" & 系統使用者權限設定.CheckBox25.Checked & "', CC26 = '" & 系統使用者權限設定.CheckBox26.Checked &

  53.                                          "', CC27 = '" & 系統使用者權限設定.CheckBox27.Checked &

  54.                                          "' WHERE (DIN = '" & 系統使用者權限設定.編號_tb.Text & "')"

  55.         CmdSet_For_dr()

  56.     End Sub

  57.     '---------------------人事系統變數設定-----------------------------------------------------------------------------------------------------------------

  58.     Friend Sub SQL_時段設定()

  59.         ConnOpen_AM()

  60.         SQL1 = "SELECT   ID, 時段, 時段1, 時段2, 時段3, 時段4, 時段5, 時段6, 時段7, 時段8, 上午上班, 下午上班, 加班上班, 一段休息, 二段休息

  61.                 FROM     時段設定 

  62.                 ORDER BY ID"

  63.         CmdSet_For_DGV()

  64.     End Sub

  65.     Friend Sub SQL_年份清單()

  66.         ConnOpen_AM() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()

  67.     End Sub

  68.     Friend Sub SQL_年份清單查詢()

  69.         ConnOpen_AM() : SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE '" & PA & "'" : CmdSet_For_dr()

  70.     End Sub

  71.     Friend Sub SQL_年份清單新增()

  72.         SQL1 = "INSERT INTO 年份清單 (年份) VALUES (N'" & PA & "')"

  73.     End Sub

  74.     Friend Sub SQL_年份清單修改()

  75.         SQL1 = "UPDATE 年份清單 SET 年份 = N'" & PA & "' WHERE 年份 LIKE N'" & PA1 & "'"

  76.     End Sub

  77.     Friend Sub SQL_年份清單刪除()

  78.         SQL1 = "DELETE FROM 年份清單 WHERE (年份 = N'" & PA & "')"

  79.     End Sub

  80.     Friend Sub SQL_門診資料()

  81.         ConnOpen_AM() : SQL1 = "SELECT 星期, 診別, 早, 中, 晚 FROM 門診資料" : CmdSet_For_DGV()

  82.     End Sub

  83.     Friend Sub SQL_工作職務()

  84.         ConnOpen_AM() : SQL1 = "SELECT  職務 FROM  工作職務 ORDER BY 職務" : CmdSet_For_DGV()

  85.     End Sub

  86.     Friend Sub SQL_工作新增()

  87.         ConnOpen_AM() : SQL1 = "INSERT INTO 工作職務 (職務) VALUES (N'" & PA & "')" : CmdSet_For_dr()

  88.     End Sub

  89.     Friend Sub SQL_工作修改()

  90.         ConnOpen_AM()

  91.         SQL1 = "UPDATE 工作職務 SET 職務 = N'" & PA & "' WHERE 職務 LIKE '" & 人事系統變數設定.職務_tb.Text & "'"

  92.         CmdSet_For_dr()

  93.     End Sub

  94.     Friend Sub SQL_工作刪除()

  95.         ConnOpen_AM()

  96.         SQL1 = "DELETE FROM 工作職務   WHERE 職務 LIKE '" & 人事系統變數設定.職務_tb.Text & "'"

  97.         CmdSet_For_dr()

  98.     End Sub

  99.     Friend Sub SQL_門診修改()

  100.         ConnOpen_AM()

  101.         SQL1 = "UPDATE 門診資料 SET 早 = N'" & PA & "', 中 = N'" & PA1 & "', 晚 = N'" & PA2 & "' 

  102.                 WHERE 星期 LIKE N'" & PA3 & "' AND 診別 LIKE N'" & PA4 & "'"

  103.         CmdSet_For_dr()

  104.     End Sub

  105.     Friend Sub SQL_時段新增()

  106.         ConnOpen_AM() : SQL1 = "INSERT INTO  時段設定 (ID, 時段, 時段1, 時段2, 時段3, 時段4, 時段5, 時段6, 時段7, 時段8,

  107.                                                        上午上班, 下午上班, 加班上班, 一段休息,  二段休息)

  108.                                       VALUES (N'" & 人事系統變數設定.ID_tb.Text & "',N'" & 人事系統變數設定.時段_tb.Text & "',N'" & 人事系統變數設定.時段1_tb.Text & "',

  109.                                               N'" & 人事系統變數設定.時段2_tb.Text & "',N'" & 人事系統變數設定.時段3_tb.Text & "',N'" & 人事系統變數設定.時段4_tb.Text & "',

  110.                                               N'" & 人事系統變數設定.時段5_tb.Text & "',N'" & 人事系統變數設定.時段6_tb.Text & "',N'" & 人事系統變數設定.時段7_tb.Text & "',

  111.                                               N'" & 人事系統變數設定.時段8_tb.Text & "',N'" & 人事系統變數設定.上午上班_tb.Text & "',N'" & 人事系統變數設定.下午上班_tb.Text & "',

  112.                                               N'" & 人事系統變數設定.加班上班_tb.Text & "', N'" & 人事系統變數設定.一段休息_tb.Text & "',N'" & 人事系統變數設定.二段休息_tb.Text & "')"

  113.         CmdSet_For_dr()

  114.     End Sub

  115.     Friend Sub SQL_時段修改()

  116.         ConnOpen_AM()

  117.         SQL1 = "UPDATE  時段設定   SET   ID= N'" & PA & "', 時段1= N'" & PA2 & "' ,  時段2= N'" & PA3 & "' , 時段3= N'" & PA4 & "', 時段4= N'" & PA5 & "',

  118.                                          時段5= N'" & PA6 & "', 時段6= N'" & PA7 & "' , 時段7=  N'" & PA8 & "',時段8= N'" & PA9 & "',

  119.                                          上午上班= N'" & PA10 & "',下午上班= N'" & PA11 & "',加班上班= N'" & PA12 & "',一段休息= N'" & PA13 & "',二段休息= N'" & PA14 & "'

  120. 

  121.                 WHERE 時段 LIKE '" & 人事系統變數設定.時段_tb.Text & "'"

  122.         CmdSet_For_dr()

  123.     End Sub

  124.     Friend Sub SQL_時段刪除()

  125.         ConnOpen_AM() : SQL1 = "DELETE FROM  時段設定  WHERE 時段 LIKE '" & 人事系統變數設定.時段_tb.Text & "'" : CmdSet_For_dr()

  126.     End Sub

  127.     '---------------------人員資料表-----------------------------------------------------------------------------------------------------------------

  128.     Friend Sub SQL_人員資料()

  129.         ConnOpen_AM()

  130.         SQL1 = "SELECT     UID, DIN, PIN, UserName, Sex, Password, PasswordQuestion, PasswordAnswer, IsApproved, IsLockedOut, 

  131.                            CreateDate, LastLoginDate, DeptId, AttId, RuleId, WeekendId, LastUpdatedUID, LastUpdatedDate, Comment

  132.                 FROM       ras_Users

  133.                 ORDER BY   UID DESC"

  134.         CmdSet_For_DGV()

  135.     End Sub

  136.     '---------------------人員ID卡系統配置設定-----------------------------------------------------------------------------------------------------------------

  137.     Friend Sub SQL_系統ID()

  138.         ConnOpen()

  139.         SQL1 = "SELECT 姓名, 帳號, ID卡號 FROM 使用者權限管理表 ORDER BY 姓名"

  140.         CmdSet_For_DGV()

  141.     End Sub

  142.     Friend Sub SQL_考勤ID()

  143.         ConnOpen_AM()

  144.         SQL1 = "SELECT 使用者權限管理表.DIN, ras_Users.UserName, 使用者權限管理表.ID卡號 FROM 使用者權限管理表 INNER JOIN ras_Users ON 使用者權限管理表.DIN = ras_Users.DIN"

  145.         CmdSet_For_DGV()

  146.     End Sub

  147.     Friend Sub SQL_系統ID存檔()

  148.         ConnOpen()

  149.         SQL1 = "UPDATE 使用者權限管理表 SET ID卡號 = N'" & 人員ID卡系統配置設定.ID卡號_tb.Text & "' 

  150.                 WHERE (帳號 = N'" & 人員ID卡系統配置設定.帳號_tb.Text & "') AND (姓名 = N'" & 人員ID卡系統配置設定.姓名_tb.Text & "')"

  151.         CmdSet_For_dr()

  152.     End Sub

  153.     Friend Sub SQL_SQL_考勤ID存檔()

  154.         ConnOpen_AM()

  155.         SQL1 = "UPDATE 使用者權限管理表 SET ID卡號 = N'" & 人員ID卡系統配置設定.ID卡號_tb.Text & "' WHERE DIN LIKE N'" & 人員ID卡系統配置設定.編號_tb.Text & "'"

  156.         CmdSet_For_dr()

  157.     End Sub

  158. End Module