HSKIN-MIS-SYS
/
HSKIN-MIS-SYS-LEEHSIEHJUI
Наблюдаван 4
Харесван 0
Разклонения 0
Код Задачи 0 Заявки за сливане 0 Версии 0 Уики Activity
Няма описание
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.
4 Ревизии
1 Клон
ИН на ревизия: 0bfee37632
Клонове Маркери
${ item.name }
Create branch ${ searchTerm }
от '0bfee37632'
${ noResults }
HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/SQL_系統設定.vb

SQL_系統設定.vb 27KB
История Директен файл

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349 
  1. Module SQL_系統設定

  2.     Friend Sub SQL_人員資料()

  3.         ConnOpen()

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

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

  6.                 FROM       ras_Users " & SQL2 & "

  7.                 ORDER BY   UID DESC"

  8.         CmdSet_For_DGV()

  9.     End Sub

  10.     Friend Sub SQL_人員修改()

  11.         ConnOpen()

  12.         SQL1 = "UPDATE  ras_Users  SET  UserName = N'" & PA1 & "', Sex = N'" & PA2 & "', Password = N'" & PA3 & "', PasswordQuestion = N'" & PA4 & "', PasswordAnswer = N'" & PA5 & "', 

  13.                                         IsApproved = N'" & PA6 & "', IsLockedOut = N'" & PA7 & "', CreateDate = N'" & PA8 & "', LastLoginDate = N'" & PA9 & "', DeptId = N'" & PA10 & "', 

  14.                                         AttId = N'" & PA11 & "', RuleId = N'" & PA12 & "', WeekendId = N'" & PA13 & "', LastUpdatedUID = N'" & PA14 & "', LastUpdatedDate = N'" & PA15 & "', 

  15.                                         Comment  = N'" & PA16 & "', PIN  = N'" & PA17 & "'

  16.                 WHERE DIN LIKE N'" & PA & "'"

  17.         CmdSet_For_dr()

  18.     End Sub

  19.     Friend Sub SQL_人員新增()

  20.         ConnOpen()

  21.         SQL1 = "INSERT INTO ras_Users (UID, DIN, PIN, UserName, Sex, Password, PasswordQuestion, PasswordAnswer, IsApproved, IsLockedOut, 

  22.                                        CreateDate, LastLoginDate, DeptId, AttId, RuleId, WeekendId, LastUpdatedUID, LastUpdatedDate, Comment) 

  23.                 VALUES (N'" & PA18 & "', N'" & PA & "', N'" & PA17 & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', 

  24.                         N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', 

  25.                         N'" & PA16 & "')"

  26.         CmdSet_For_dr()

  27.         ConnOpen()

  28.         SQL1 = "INSERT INTO ras_UserEx (UID, Email, Title, RegisterDate, IDNumber, HomeAddress, PhoneNumber, AttType, AccessControl, ValidityPeriod, UseUserGroupACTZ, 

  29.                                         UseUserGroupVM, Department, AccessTimeZone, ValidDate, InvalidDate, UserGroup)

  30.                 VALUES (N'" & PA18 & "', N'', N'', N'" & PA8 & "', N'', N'', N'', N'0', N'0', N'0', N'0', N'0', N'0', N'0', 

  31.                         N'2010-01-01 00:00:00.000', N'2099-12-31 23:59:59.000', N'0')"

  32.         CmdSet_For_dr()

  33.         ConnOpen()

  34.         SQL1 = "INSERT INTO ras_Enroll (DIN, BackupNumber, Privilege, Password, Fingerprint, Enable, AccessTimeZone, ValidDate, InvalidDate, 

  35.                                         UnlockGroup)

  36.                 VALUES (N'" & PA & "', N'10', N'1', N'" & PA17 & PA17 & "', N'', N'1', N'0', N'2000-01-01 00:00:00.000', N'2099-12-31 00:00:00.000', N'0')"

  37.         CmdSet_For_dr()

  38.     End Sub

  39.     Friend Sub SQL_人員資料確認()

  40.         ConnOpen()

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

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

  43.                 FROM       ras_Users

  44.                 WHERE      UID like N'" & PA18 & "'

  45.                 ORDER BY   UID DESC"

  46.         CmdSet_For_dr()

  47.     End Sub

  48.     Friend Sub SQL_核准修改()

  49.         ConnOpen()

  50.         SQL1 = "UPDATE  人事請假單  SET   核准人= N'" & gUserName & "',核准日期= N'" & DTP & "',是否生效= N'已核准'

  51.                 Where 日期 Like N'" & 休假核准.請假日期_tb.Text & "' AND 員工編號 = " & 休假核准.員工編號_tb.Text & ""

  52.         CmdSet_For_dr()

  53.     End Sub

  54.     Friend Sub SQL_請假申請讀取()

  55.         ConnOpen()

  56.         SQL1 = "SELECT 員工編號 FROM 人事請假單 WHERE 日期 LIKE N'" & 休假申請.特假日期_tb.Text & "' AND 員工編號 = " & 休假申請.員工編號_tb.Text & ""

  57.         CmdSet_For_dr()

  58.     End Sub

  59.     Friend Sub SQL_請假申請修改()

  60.         ConnOpen()

  61.         SQL1 = "UPDATE  人事請假單  SET   請假類別= N'" & 休假申請.請假類別_cb.Text & "',事由= N'" & 休假申請.事由_tb.Text & "', 

  62.                         圖片資料庫 = N'" & 休假申請.資料指定圖庫_tb.Text & "', 圖片編號 = N'" & 休假申請.圖片流水號_tb.Text & "', 

  63.                         申請時數 = N'" & 休假申請.請休假時數_cb.Text & "'

  64.                 Where   日期 Like N'" & 休假申請.特假日期_tb.Text & "' AND 員工編號 = " & 休假申請.員工編號_tb.Text & ""

  65.         CmdSet_For_dr()

  66.     End Sub

  67.     Friend Sub SQL_請假申請新增()

  68.         ConnOpen()

  69.         SQL1 = "INSERT INTO 人事請假單  ( 員工編號, 日期, 請假類別,事由,是否生效, 圖片資料庫, 圖片編號, 申請時數)

  70.                 VALUES (N'" & 休假申請.員工編號_tb.Text & "',N'" & 休假申請.特假日期_tb.Text & "',

  71.                         N'" & 休假申請.請假類別_cb.Text & "' , N'" & 休假申請.事由_tb.Text & "','申請中', 

  72.                         N'" & 休假申請.資料指定圖庫_tb.Text & "', N'" & 休假申請.圖片流水號_tb.Text & "', N'" & 休假申請.請休假時數_cb.Text & "')"

  73.         CmdSet_For_dr()

  74.     End Sub

  75.     Friend Sub SQL_申請刪除()

  76.         ConnOpen()

  77.         SQL1 = "DELETE FROM  人事請假單  WHERE 日期 LIKE N'" & 休假申請.特假日期_tb.Text & "' AND 員工編號 = " & 休假申請.員工編號_tb.Text & ""

  78.         CmdSet_For_dr()

  79.     End Sub

  80.     Friend Sub SQL_申請新增1()

  81.         ConnOpen()

  82.         SQL1 = "INSERT INTO 人事請假單  (員工編號, 日期, 請假類別,事由,是否生效)

  83.                 VALUES (N'" & 到離職管理.員工編號_tb.Text & "',N'" & 到離職管理.特假日期_tb.Text & "',

  84.                  N'" & 到離職管理.請假類別_cb.Text & "' , N'" & 到離職管理.事由_tb.Text & "','申請中')"

  85.         CmdSet_For_dr()

  86.     End Sub

  87.     Friend Sub SQL_申請刪除1()

  88.         ConnOpen()

  89.         SQL1 = "DELETE FROM  人事請假單  WHERE 日期 LIKE N'" & 到離職管理.特假日期_tb.Text & "' AND 員工編號 = " & 到離職管理.員工編號_tb.Text & ""

  90.         CmdSet_For_dr()

  91.     End Sub

  92.     Friend Sub SQL_時段設定()

  93.         ConnOpen()

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

  95.                 FROM     時段設定 

  96.                 ORDER BY ID"

  97.         CmdSet_For_DGV()

  98.     End Sub

  99.     Friend Sub SQL_適應症設定()

  100.         ConnOpen_ERP()

  101.         SQL1 = "SELECT 編號, 適應症 FROM  業務對應適應症 ORDER BY 編號"

  102.         CmdSet_For_DGV()

  103.     End Sub

  104.     Friend Sub SQL_適應症刪除()

  105.         ConnOpen_ERP()

  106.         SQL1 = "DELETE FROM  業務對應適應症  WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'"

  107.         CmdSet_For_dr()

  108.     End Sub

  109.     Friend Sub SQL_適應症修改()

  110.         ConnOpen_ERP()

  111.         SQL1 = "UPDATE  業務對應適應症   SET   適應症 = N'" & PA1 & "' WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'"

  112.         CmdSet_For_dr()

  113.     End Sub

  114.     Friend Sub SQL_查詢最後一筆適應症()

  115.         ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 編號 FROM 業務對應適應症 ORDER BY 編號 DESC" : CmdSet_For_dr()

  116.     End Sub

  117.     Friend Sub SQL_適應症新增()

  118.         ConnOpen_ERP() : SQL1 = "INSERT INTO  業務對應適應症 (編號, 適應症)  VALUES (N'" & 系統設定.適應症_編號_tb.Text & "',N'" & 系統設定.適應症_tb.Text & "')" : CmdSet_For_dr()

  119.     End Sub

  120.     Friend Sub SQL_時段新增()

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

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

  123.                                          VALUES (N'" & 系統設定.ID_tb.Text & "',N'" & 系統設定.時段_tb.Text & "',N'" & 系統設定.時段1_tb.Text & "',

  124.                                               N'" & 系統設定.時段2_tb.Text & "',N'" & 系統設定.時段3_tb.Text & "',N'" & 系統設定.時段4_tb.Text & "',

  125.                                               N'" & 系統設定.時段5_tb.Text & "',N'" & 系統設定.時段6_tb.Text & "',N'" & 系統設定.時段7_tb.Text & "',

  126.                                               N'" & 系統設定.時段8_tb.Text & "',N'" & 系統設定.上午上班_tb.Text & "',N'" & 系統設定.下午上班_tb.Text & "',

  127.                                               N'" & 系統設定.加班上班_tb.Text & "', N'" & 系統設定.一段休息_tb.Text & "',N'" & 系統設定.二段休息_tb.Text & "')"

  128.         CmdSet_For_dr()

  129.     End Sub

  130.     Friend Sub SQL_時段修改()

  131.         ConnOpen()

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

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

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

  135.                 WHERE 時段 LIKE N'" & 系統設定.時段_tb.Text & "'"

  136.         CmdSet_For_dr()

  137.     End Sub

  138.     Friend Sub SQL_時段刪除()

  139.         ConnOpen()

  140.         SQL1 = "DELETE FROM  時段設定  WHERE 時段 LIKE N'" & 系統設定.時段_tb.Text & "'"

  141.         CmdSet_For_dr()

  142.     End Sub

  143. 

  144.     Friend Sub SQL_FTP資料庫管理()

  145.         ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, 地區, FTP物理位置  FROM  FTP資料庫管理 " : CmdSet_For_DGV()

  146.     End Sub

  147.     Friend Sub SQL_資料庫新增()

  148.         ConnOpen() : SQL1 = "INSERT INTO  FTP資料庫管理 (FTP地址, FTP帳號, FTP密碼, 地區, FTP物理位置) 

  149.                                          VALUES (N'" & 系統設定.地址_tb.Text & "',N'" & 系統設定.帳號_tb.Text & "',N'" & 系統設定.密碼_tb.Text & "'

  150.                                               ,N'" & 系統設定.地區_tb.Text & "',N'" & 系統設定.位置_tb.Text & "')"

  151.         CmdSet_For_dr()

  152.     End Sub

  153.     Friend Sub SQL_資料庫修改()

  154.         ConnOpen()

  155.         SQL1 = "UPDATE FTP資料庫管理  SET FTP地址= N'" & PA & "', FTP帳號= N'" & PA3 & "', FTP密碼=N'" & PA4 & "', FTP物理位置=N'" & PA2 & "'

  156.                                       WHERE 地區 LIKE N'" & 系統設定.地區_tb.Text & "'"

  157.         CmdSet_For_dr()

  158.     End Sub

  159.     Friend Sub SQL_資料庫刪除()

  160.         ConnOpen()

  161.         SQL1 = "DELETE FROM  FTP資料庫管理  WHERE 地區 LIKE N'" & 系統設定.地區_tb.Text & "'"

  162.         CmdSet_For_dr()

  163.     End Sub

  164.     Friend Sub SQL_工作職務()

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

  166.     End Sub

  167.     Friend Sub SQL_工作新增()

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

  169.     End Sub

  170.     Friend Sub SQL_工作修改()

  171.         ConnOpen()

  172.         SQL1 = "UPDATE 工作職務 SET 職務 = N'" & PA & "' WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'"

  173.         CmdSet_For_dr()

  174.     End Sub

  175.     Friend Sub SQL_工作刪除()

  176.         ConnOpen()

  177.         SQL1 = "DELETE FROM 工作職務   WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'"

  178.         CmdSet_For_dr()

  179.     End Sub

  180. 

  181.     Friend Sub SQL_年份清單()

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

  183.     End Sub

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

  185.         ConnOpen() : SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE N'" & PA & "'" : CmdSet_For_dr()

  186.     End Sub

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

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

  189.     End Sub

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

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

  192.     End Sub

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

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

  195.     End Sub

  196.     Friend Sub SQL_系統版本號驗證()

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

  198.     End Sub

  199.     Friend Sub SQL_FTP資料夾路徑分配()

  200.         ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理" : CmdSet_For_DGV()

  201.     End Sub

  202.     Friend Sub SQL_門診資料()

  203.         ConnOpen() : SQL1 = "SELECT 日期, 星期, 診別, 早, 中, 晚 FROM 門診資料 ORDER BY 日期 DESC , 診別" : CmdSet_For_DGV()

  204.     End Sub

  205.     Friend Sub SQL_門診資料_讀取()

  206.         ConnOpen() : SQL1 = "SELECT 日期 FROM 門診資料 WHERE 日期 LIKE N'" & PA5 & "' AND 診別 LIKE N'" & PA4 & "'" : CmdSet_For_dr()

  207.     End Sub

  208.     Friend Sub SQL_新增門診()

  209.         ConnOpen()

  210.         SQL1 = "INSERT INTO 門診資料 (日期, 星期, 診別, 早, 中, 晚) VALUES (N'" & PA5 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "')"

  211.         CmdSet_For_dr()

  212.     End Sub

  213.     Friend Sub SQL_刪除門診()

  214.         ConnOpen() : SQL1 = "DELETE 門診資料 WHERE 日期 LIKE N'" & PA5 & "' AND 診別 LIKE N'" & PA4 & "'" : CmdSet_For_dr()

  215.     End Sub

  216.     Friend Sub SQL_門診修改()

  217.         ConnOpen()

  218.         SQL1 = "UPDATE 門診資料 SET 星期 = N'" & PA3 & "', 早 = N'" & PA & "', 中 = N'" & PA1 & "', 晚 = N'" & PA2 & "' WHERE 日期 LIKE N'" & PA5 & "' AND 診別 LIKE N'" & PA4 & "'"

  219.         CmdSet_For_dr()

  220.     End Sub

  221. 

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

  223.     Friend Sub SQL_FTP資料夾管理新增()

  224.         ConnOpen()

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

  226.                 VALUES (N'" & 系統設定.資料夾名稱_tb.Text & "',N'" & 系統設定.指定頁面_tb.Text & "',N'" & 系統設定.備註_tb.Text & "',N'" & 系統設定.指定_tb.Text & "')"

  227.         CmdSet_For_dr()

  228.     End Sub

  229.     Friend Sub SQL_FTP資料夾管理修改()

  230.         ConnOpen()

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

  232.                 WHERE (資料夾名稱 = N'" & 系統設定.資料夾名稱_tb.Text & "')"

  233.         CmdSet_For_dr()

  234.     End Sub

  235.     Friend Sub SQL_FTP資料夾管理刪除()

  236.         ConnOpen() : SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & 系統設定.資料夾名稱_tb.Text & "')" : CmdSet_For_dr()

  237.     End Sub

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

  239.     Friend Sub SQL_版本號管理修改()

  240.         ConnOpen()

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

  242.         CmdSet_For_dr()

  243.     End Sub

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

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

  246.         ConnOpen()

  247.         SQL1 = "SELECT      ras_Enroll.Password

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

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

  250.                 WHERE      (ras_Enroll.BackupNumber = 10) AND (ras_Users.UserName LIKE N'" & 系統使用者管理.姓名_tb.Text & "')

  251.                 ORDER BY    ras_Users.UserName"

  252.         CmdSet_For_dr()

  253.     End Sub

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

  255.         ConnOpen()

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

  257.                 FROM        ras_Enroll INNER JOIN

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

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

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

  261.                 ORDER BY    ras_Users.UserName"

  262.         CmdSet_For_DGV()

  263.     End Sub

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

  265.         ConnOpen()

  266.         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, 

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

  268.                "VALUES ('" & 系統使用者管理.編號_tb.Text & "', N'" & 系統使用者管理.CheckBox1.Checked & "', N'" & 系統使用者管理.CheckBox2.Checked & "', N'" & 系統使用者管理.CheckBox3.Checked &

  269.                "', N'" & 系統使用者管理.CheckBox4.Checked & "', N'" & 系統使用者管理.CheckBox5.Checked & "', N'" & 系統使用者管理.CheckBox6.Checked & "', N'" & 系統使用者管理.CheckBox7.Checked &

  270.                "', N'" & 系統使用者管理.CheckBox8.Checked & "', N'" & 系統使用者管理.CheckBox9.Checked & "', N'" & 系統使用者管理.CheckBox10.Checked & "', N'" & 系統使用者管理.CheckBox11.Checked &

  271.                "', N'" & 系統使用者管理.CheckBox12.Checked & "', N'" & 系統使用者管理.CheckBox13.Checked & "', N'" & 系統使用者管理.CheckBox14.Checked & "', N'" & 系統使用者管理.CheckBox15.Checked &

  272.                "', N'" & 系統使用者管理.CheckBox16.Checked & "', N'" & 系統使用者管理.CheckBox17.Checked & "', N'" & 系統使用者管理.CheckBox18.Checked & "', N'" & 系統使用者管理.CheckBox19.Checked &

  273.                "', N'" & 系統使用者管理.CheckBox20.Checked & "', N'" & 系統使用者管理.CheckBox21.Checked & "', N'" & 系統使用者管理.CheckBox22.Checked & "', N'" & 系統使用者管理.CheckBox23.Checked &

  274.                "', N'" & 系統使用者管理.CheckBox24.Checked & "', N'" & 系統使用者管理.CheckBox25.Checked & "', N'" & 系統使用者管理.CheckBox26.Checked & "', N'" & 系統使用者管理.CheckBox27.Checked & "')"

  275.         CmdSet_For_dr()

  276.     End Sub

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

  278.         ConnOpen()

  279.         SQL1 = "UPDATE 使用者權限管理表 SET  CC01 = N'" & 系統使用者管理.CheckBox1.Checked & "', CC02 = N'" & 系統使用者管理.CheckBox2.Checked & "', CC03 = N'" & 系統使用者管理.CheckBox3.Checked &

  280.                                          "', CC04 = N'" & 系統使用者管理.CheckBox4.Checked & "', CC05 = N'" & 系統使用者管理.CheckBox5.Checked & "', CC06 = N'" & 系統使用者管理.CheckBox6.Checked &

  281.                                          "', CC07 = N'" & 系統使用者管理.CheckBox7.Checked & "', CC08 = N'" & 系統使用者管理.CheckBox8.Checked & "', CC09 = N'" & 系統使用者管理.CheckBox9.Checked &

  282.                                          "', CC10 = N'" & 系統使用者管理.CheckBox10.Checked & "', CC11 = N'" & 系統使用者管理.CheckBox11.Checked & "', CC12 = N'" & 系統使用者管理.CheckBox12.Checked &

  283.                                          "', CC13 = N'" & 系統使用者管理.CheckBox13.Checked & "', CC14 = N'" & 系統使用者管理.CheckBox14.Checked & "', CC15 = N'" & 系統使用者管理.CheckBox15.Checked &

  284.                                          "', CC16 = N'" & 系統使用者管理.CheckBox16.Checked & "', CC17 = N'" & 系統使用者管理.CheckBox17.Checked & "', CC18 = N'" & 系統使用者管理.CheckBox18.Checked &

  285.                                          "', CC19 = N'" & 系統使用者管理.CheckBox19.Checked & "', CC20 = N'" & 系統使用者管理.CheckBox20.Checked & "', CC21 = N'" & 系統使用者管理.CheckBox21.Checked &

  286.                                          "', CC22 = N'" & 系統使用者管理.CheckBox22.Checked & "', CC23 = N'" & 系統使用者管理.CheckBox23.Checked & "', CC24 = N'" & 系統使用者管理.CheckBox24.Checked &

  287.                                          "', CC25 = N'" & 系統使用者管理.CheckBox25.Checked & "', CC26 = N'" & 系統使用者管理.CheckBox26.Checked & "', CC27 = N'" & 系統使用者管理.CheckBox27.Checked &

  288.                                          "' WHERE (DIN = N'" & 系統使用者管理.編號_tb.Text & "')"

  289.         CmdSet_For_dr()

  290.     End Sub

  291.     Friend Sub SQL_系統使用者修改()

  292.         ConnOpen()

  293.         SQL1 = "UPDATE  使用者權限管理表 SET  CC18 = N'" & PA1 & "', 月薪 = N'" & PA2 & "', 時薪 = N'" & PA3 & "', 主管加級 = N'" & PA4 & "', 職務加級 = N'" & PA5 & "', 

  294.                         勞保費 = N'" & PA6 & "', 健保費 = N'" & PA7 & "', 到職日 = N'" & PA8 & "' 

  295.                 WHERE  (DIN = N'" & PA & "')"

  296.         CmdSet_For_dr()

  297.     End Sub

  298.     Friend Sub SQL_薪資表流水號()

  299.         ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 流水號 FROM 員工薪資表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  300.     End Sub

  301.     Friend Sub SQL_薪資表確認()

  302.         ConnOpen_ERP() : SQL1 = "SELECT 流水號 FROM 員工薪資表 WHERE 日期 LIKE N'" & PA1 & "' AND 姓名 LIKE N'" & PA3 & "'" : CmdSet_For_dr()

  303.     End Sub

  304.     Friend Sub SQL_薪資表修改()

  305.         ConnOpen_ERP()

  306.         SQL1 = "UPDATE 員工薪資表 SET 日期 = N'" & PA1 & "', 到職日 = N'" & PA2 & "', 姓名 = N'" & PA3 & "', 當月天數 = N'" & PA4 & "', 實上基數 = N'" & PA5 & "', 

  307.                        實上工時 = N'" & PA6 & "', 薪資 = N'" & PA7 & "', 轉時薪 = N'" & PA8 & "', 全勤 = N'" & PA9 & "', 主管加給 = N'" & PA10 & "', 執照 = N'" & PA11 & "', 

  308.                        特休未修 = N'" & PA12 & "', 特修補錢 = N'" & PA13 & "', 時薪特休 = N'" & PA14 & "', 婚假 = N'" & PA15 & "', 喪假 = N'" & PA16 & "', 其他說明 = N'" & PA17 & "', 

  309.                        其他 = N'" & PA18 & "', 未到離職 = N'" & PA19 & "', 月薪 = N'" & PA20 & "', 時薪 = N'" & PA21 & "', 本薪 = N'" & PA22 & "', 一段加班 = N'" & PA23 & "', 

  310.                        二段加班 = N'" & PA24 & "', 國定假日1 = N'" & PA25 & "', 超時或不足 = N'" & PA26 & "', 加項小計 = N'" & PA27 & "', 一段加班2 = N'" & PA28 & "', 

  311.                        二段加班2 = N'" & PA29 & "', 國定假日2 = N'" & PA30 & "', 超時或不足2 = N'" & PA31 & "', 加項小計2 = N'" & PA32 & "', 勞保費 = N'" & PA33 & "', 

  312.                        健保費 = N'" & PA34 & "', 事假 = N'" & PA35 & "', 病假 = N'" & PA36 & "', 其他說明減 = N'" & PA37 & "', 其他減 = N'" & PA38 & "', 減項小計1 = N'" & PA39 & "', 

  313.                        減項小計2 = N'" & PA40 & "', 實付小計1 = N'" & PA41 & "', 實付小計2 = N'" & PA42 & "' WHERE 流水號 LIKE N'" & PA & "'"

  314.         CmdSet_For_dr()

  315.     End Sub

  316.     Friend Sub SQL_薪資表新增()

  317.         ConnOpen_ERP()

  318.         SQL1 = "INSERT INTO 員工薪資表 (流水號, 日期, 到職日, 姓名, 當月天數, 實上基數, 實上工時, 薪資, 轉時薪, 全勤, 主管加給, 

  319.                                         執照, 特休未修, 特修補錢, 時薪特休, 婚假, 喪假, 其他說明, 其他, 未到離職, 月薪, 時薪, 本薪, 一段加班, 

  320.                                         二段加班, 國定假日1, 超時或不足, 加項小計, 一段加班2, 二段加班2, 國定假日2, 超時或不足2, 加項小計2, 

  321.                                         勞保費, 健保費, 事假, 病假, 其他說明減, 其他減, 減項小計1, 減項小計2, 實付小計1, 實付小計2)

  322.                  VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', 

  323.                          N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', N'" & PA16 & "', N'" & PA17 & "', 

  324.                          N'" & PA18 & "', N'" & PA19 & "', N'" & PA20 & "', N'" & PA21 & "', N'" & PA22 & "', N'" & PA23 & "', N'" & PA24 & "', N'" & PA25 & "', N'" & PA26 & "', 

  325.                          N'" & PA27 & "', N'" & PA28 & "', N'" & PA29 & "', N'" & PA30 & "', N'" & PA31 & "', N'" & PA32 & "', N'" & PA33 & "', N'" & PA34 & "', N'" & PA35 & "', 

  326.                          N'" & PA36 & "', N'" & PA37 & "', N'" & PA38 & "', N'" & PA39 & "', N'" & PA40 & "', N'" & PA41 & "', N'" & PA42 & "')"

  327.         CmdSet_For_dr()

  328.     End Sub

  329.     Friend Sub SQL_薪資表讀取()

  330.         ConnOpen_ERP()

  331.         SQL1 = "SELECT      流水號 AS 項, 日期, 到職日, 姓名, 當月天數, 實上基數, 實上工時, 薪資 AS 基本月薪, 轉時薪 AS 基本時薪, 全勤, 主管加給 AS 主管加級, 

  332.                             執照 AS 職務加級, 特休未修, 特修補錢 AS 特休補錢, 時薪特休, 婚假, 喪假, 其他說明, 其他, 未到離職, 月薪, 時薪, 本薪, 

  333.                             一段加班 AS 一段加班1, 二段加班 AS 二段加班1, 國定假日1, 超時或不足 AS 加班費1, 加項小計 AS 應付小計1, 

  334.                             一段加班2, 二段加班2, 國定假日2, 超時或不足2 AS 加班費2, 加項小計2 AS 應付小計2, 勞保費, 健保費, 事假, 病假, 

  335.                             其他說明減, 其他減, 減項小計1, 減項小計2, 實付小計1, 實付小計2

  336.                 FROM        員工薪資表 WHERE 日期 LIKE N'" & PA1 & "' ORDER BY 流水號"

  337.         CmdSet_For_DGV()

  338.     End Sub

  339.     Friend Sub SQL_薪資表讀取_合計()

  340.         ConnOpen_ERP()

  341.         SQL1 = "SELECT TOP(1) 流水號 AS 項, 日期, 到職日, 姓名, 當月天數, 實上基數, 實上工時, 薪資 AS 基本月薪, 轉時薪 AS 基本時薪, 全勤, 主管加給 AS 主管加級, 

  342.                             執照 AS 職務加級, 特休未修, 特修補錢 AS 特休補錢, 時薪特休, 婚假, 喪假, 其他說明, 其他, 未到離職, 月薪, 時薪, 本薪, 

  343.                             一段加班 AS 一段加班1, 二段加班 AS 二段加班1, 國定假日1, 超時或不足 AS 加班費1, 加項小計 AS 應付小計1, 

  344.                             一段加班2, 二段加班2, 國定假日2, 超時或不足2 AS 加班費2, 加項小計2 AS 應付小計2, 勞保費, 健保費, 事假, 病假, 

  345.                             其他說明減, 其他減, 減項小計1, 減項小計2, 實付小計1, 實付小計2

  346.                 FROM        員工薪資表 WHERE 日期 LIKE N'" & PA1 & "' ORDER BY 流水號"

  347.         CmdSet_For_DGV()

  348.     End Sub

  349. End Module