HSKIN-MIS-SYS
/
HSKIN-MIS-SYS-LEEHSIEHJUI
Vērot 4
Pievienot zvaigznīti 0
Atdalīts 0
Kods Problēmas 0 Izmaiņu pieprasījumi 0 Laidieni 0 Vikivietne Aktivitāte
Nav apraksta
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
8 Revīzijas
1 Atzars
Koks: eb177d5c27
Atzari Tagi
${ item.name }
Izveidot atzaru ${ searchTerm }
no 'eb177d5c27'
${ noResults }
HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/SQL_休假與加班.vb

SQL_休假與加班.vb 16KB
Vēsture Neapstrādāts

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234 
  1. Module SQL_休假與加班

  2.     Friend Sub SQL_國定假日設定_月份考勤()

  3.         ConnOpen()

  4.         SQL1 = "SELECT      萬年曆.日期, 萬年曆.星期, AA.請假類別, AA.事由, AA.是否生效, AA.核准人, AA.核准日期, AA.圖片資料庫, AA.圖片編號, AA.申請時數, AA.申請時間

  5.                 FROM             萬年曆 LEFT OUTER JOIN

  6.                                 (SELECT           員工編號, 日期, 請假類別, 事由, 是否生效, 核准人, 核准日期, 圖片資料庫, 圖片編號, 申請時數, 申請時間

  7.                                  FROM             人事請假單

  8.                                  WHERE           (員工編號 LIKE N'" & PA & "') AND (日期 LIKE N'" & PA1 & "/" & PA2 & "%')) AS AA ON 萬年曆.日期 = AA.日期

  9.                 WHERE          (萬年曆.日期 LIKE N'" & PA1 & "/" & PA2 & "%')

  10.                 ORDER BY   萬年曆.日期"

  11.         CmdSet_For_DGV()

  12.     End Sub

  13.     Friend Sub SQL_休假申請()

  14.         ConnOpen()

  15.         SQL1 = "SELECT ras_Users.UserName AS 姓名, 人事請假單.員工編號 AS 編號, 人事請假單.日期, 萬年曆.星期, 人事請假單.請假類別, 

  16.                        人事請假單.事由, 人事請假單.是否生效, 人事請假單.核准人, 人事請假單.核准日期, 圖片資料庫, 圖片編號, 人事請假單.申請時數, 人事請假單.申請時間

  17.                 FROM   人事請假單 INNER JOIN

  18.                        萬年曆 ON 人事請假單.日期 = 萬年曆.日期 INNER JOIN

  19.                        ras_Users ON 人事請假單.員工編號 = ras_Users.DIN

  20.                 WHERE (人事請假單.是否生效 NOT LIKE N'已核准')

  21.                 ORDER BY ras_Users.UserName, 人事請假單.日期"

  22.         CmdSet_For_DGV()

  23.     End Sub

  24.     Friend Sub SQL_休假統計()

  25.         ConnOpen()

  26.         SQL1 = "SELECT          CASE WHEN 請假類別 = '特休' THEN '特休' WHEN 請假類別 = '事假' THEN '事假' WHEN 請假類別 = '病假' THEN '病假'

  27.                                      WHEN 請假類別 = '婚假' THEN '婚假' WHEN 請假類別 = '喪假' THEN '喪假' ELSE '其他' END AS 假別, COUNT(*) AS 天數, 

  28.                                           SUM(CAST(申請時數 AS DECIMAL(10, 1))) AS 總時數

  29.                 FROM       人事請假單

  30.                 WHERE     (請假類別 NOT LIKE '國定假日') AND (請假類別 NOT LIKE '未到') AND (請假類別 NOT LIKE '離職') AND 

  31.                           (是否生效 LIKE '已核准') AND (員工編號 LIKE '" & PA & "') AND (日期 LIKE '" & Strings.Left(PA1, 4) & "%')

  32.                 GROUP BY   CASE WHEN 請假類別 = '特休' THEN '特休' WHEN 請假類別 = '事假' THEN '事假' WHEN 請假類別 = '病假' THEN '病假'

  33.                                 WHEN 請假類別 = '婚假' THEN '婚假' WHEN 請假類別 = '喪假' THEN '喪假' ELSE '其他' END"

  34.         CmdSet_For_DGV()

  35.     End Sub

  36.     Friend Sub SQL_休假統計1()

  37.         ConnOpen()

  38.         SQL1 = "SELECT          CASE WHEN 請假類別 = '特休' THEN '特休' WHEN 請假類別 = '事假' THEN '事假' WHEN 請假類別 = '病假' THEN '病假'

  39.                                      WHEN 請假類別 = '婚假' THEN '婚假' WHEN 請假類別 = '喪假' THEN '喪假' WHEN 請假類別 = '未到' THEN '未到'

  40.                                      WHEN 請假類別 = '離職' THEN '離職' ELSE '其他' END AS 假別, COUNT(*) AS 天數, 

  41.                                           SUM(CAST(申請時數 AS DECIMAL(10, 1))) AS 總時數

  42.                 FROM       人事請假單

  43.                 WHERE     (請假類別 NOT LIKE '國定假日') AND (員工編號 LIKE '" & PA & "') AND (日期 LIKE '" & Strings.Left(PA1, 7) & "%')

  44.                 GROUP BY   CASE WHEN 請假類別 = '特休' THEN '特休' WHEN 請假類別 = '事假' THEN '事假' WHEN 請假類別 = '病假' THEN '病假'

  45.                                 WHEN 請假類別 = '婚假' THEN '婚假' WHEN 請假類別 = '喪假' THEN '喪假' WHEN 請假類別 = '未到' THEN '未到' 

  46.                                 WHEN 請假類別 = '離職' THEN '離職' ELSE '其他' END"

  47.         CmdSet_For_DGV()

  48.     End Sub

  49.     Friend Sub SQL_休假清單()

  50.         ConnOpen()

  51.         SQL1 = "SELECT ras_Users.UserName AS 姓名, 人事請假單.員工編號 AS 編號, 人事請假單.日期, 萬年曆.星期, 人事請假單.請假類別, 

  52.                        人事請假單.事由, 人事請假單.是否生效, 人事請假單.核准人, 人事請假單.核准日期, 人事請假單.圖片資料庫, 

  53.                        人事請假單.圖片編號, 人事請假單.申請時數

  54.                 FROM   人事請假單 INNER JOIN

  55.                        萬年曆 ON 人事請假單.日期 = 萬年曆.日期 INNER JOIN

  56.                        ras_Users ON 人事請假單.員工編號 = ras_Users.DIN

  57.                 WHERE (人事請假單.請假類別 NOT LIKE N'國定假日') AND (人事請假單.請假類別 NOT LIKE N'未到') AND 

  58.                       (人事請假單.請假類別 NOT LIKE N'離職')  AND (人事請假單.員工編號 LIKE N'" & PA & "')

  59.                 ORDER BY ras_Users.UserName, 人事請假單.日期 DESC"

  60.         CmdSet_For_DGV()

  61.     End Sub

  62.     Friend Sub SQL_國定假日設定_人員()

  63.         ConnOpen()

  64.         SQL1 = "SELECT     ras_Users.DIN AS [No.], ras_Users.DIN AS 編號, ras_Users.UserName AS 姓名

  65.                 FROM       ras_Users INNER JOIN

  66.                            ras_AttRecord ON ras_Users.DIN = ras_AttRecord.DIN

  67.                 WHERE          (ras_Users.IsLockedOut = 0)

  68.                 GROUP BY   ras_Users.DIN, ras_Users.UserName

  69.                 ORDER BY   編號 DESC"

  70.         CmdSet_For_DGV()

  71.     End Sub

  72.     Friend Sub SQL_國定假日設定_查詢()

  73.         ConnOpen()

  74.         SQL1 = "SELECT 員工編號 FROM 人事請假單 WHERE (員工編號 LIKE N'" & PA & "') AND (日期 LIKE N'" & PA1 & "')"

  75.         CmdSet_For_dr()

  76.     End Sub

  77.     Friend Sub SQL_國定假日設定_新增()

  78.         ConnOpen()

  79.         SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"

  80.         CmdSet_For_dr()

  81.     End Sub

  82.     Friend Sub SQL_國定假日設定_核准()

  83.         ConnOpen()

  84.         SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"

  85.         CmdSet_For_dr()

  86.     End Sub

  87.     Friend Sub SQL_國定假日申請()

  88.         ConnOpen()

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

  90.                 SELECT N'" & PA & "',N'" & 國定假日設定.請假日期_tb.Text & "',N'" & 國定假日設定.請假類別_cb.Text &

  91.                      "','" & 國定假日設定.TextBox5.Text & "','申請中'"

  92.         CmdSet_For_dr()

  93.     End Sub

  94.     Friend Sub SQL_國定假日核准()

  95.         ConnOpen()

  96.         SQL1 = "UPDATE 人事請假單 SET 核准人 = N'系統設定', 核准日期 = N'" & DTP & "', 是否生效 = N'已核准' 

  97.                 WHERE (員工編號 LIKE N'" & PA & "') AND (日期 LIKE N'" & 國定假日設定.請假日期_tb.Text & "%')"

  98.         CmdSet_For_dr()

  99.     End Sub

  100.     Friend Sub SQL_下診時間設設定()

  101.         ConnOpen()

  102.         SQL1 = "SELECT 日期, 星期, 下診 FROM 萬年曆 WHERE (日期 LIKE N'" & PA1 & "/" & PA2 & "%') ORDER BY   日期"

  103.         CmdSet_For_DGV()

  104.     End Sub

  105.     Friend Sub SQL_下診時間設新增()

  106.         ConnOpen()

  107.         SQL1 = "UPDATE 萬年曆 SET 下診 = N'" & PA1 & "' WHERE (日期 LIKE N'" & PA & "')"

  108.         CmdSet_For_dr()

  109.     End Sub

  110.     Friend Sub SQL_下診時間設刪除()

  111.         ConnOpen()

  112.         SQL1 = "UPDATE 萬年曆 SET 下診 = N'' WHERE (日期 LIKE N'" & PA & "')"

  113.         CmdSet_For_dr()

  114.     End Sub

  115.     Friend Sub SQL_加班申請()

  116.         ConnOpen()

  117.         SQL1 = "SELECT      萬年曆.日期, 萬年曆.星期, AA.加班狀態, AA.事由紀錄, AA.是否生效, AA.核准人1, AA.核准日期1, AA.核准人2, AA.核准日期2, AA.圖片資料庫,  AA.圖片編號

  118.                 FROM             萬年曆 LEFT OUTER JOIN

  119.                                 (SELECT           員工編號, 日期, 加班狀態, 事由紀錄, 是否生效, 核准人1, 核准日期1, 核准人2, 核准日期2, 圖片資料庫, 圖片編號

  120.                                  FROM             加班申請單

  121.                                  WHERE           (員工編號 LIKE N'" & PA & "') AND (日期 LIKE N'" & PA1 & "/" & PA2 & "%')) AS AA ON 萬年曆.日期 = AA.日期

  122.                 WHERE          (萬年曆.日期 LIKE N'" & PA1 & "/" & PA2 & "%')

  123.                 ORDER BY   萬年曆.日期"

  124.         CmdSet_For_DGV()

  125.     End Sub

  126.     Friend Sub SQL_加班申請刪除()

  127.         ConnOpen()

  128.         SQL1 = "DELETE FROM  加班申請單  WHERE 日期 LIKE N'" & 加班申請.特假日期_tb.Text & "' AND 員工編號 = " & 加班申請.員工編號_tb.Text & ""

  129.         CmdSet_For_dr()

  130.     End Sub

  131.     Friend Sub SQL_加班申請新增()

  132.         ConnOpen()

  133.         SQL1 = "INSERT INTO 加班申請單  (員工編號, 日期, 加班狀態, 事由紀錄, 是否生效, 核准人1, 核准人2, 圖片資料庫, 圖片編號)

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

  135.                         N'" & 加班申請.請假類別_cb.Text & "' , N'" & 加班申請.事由_tb.Text & "','申請中', N'', N'', N'" & 加班申請.資料指定圖庫_tb.Text & "', 

  136.                         N'" & 加班申請.圖片流水號_tb.Text & "')"

  137.         CmdSet_For_dr()

  138.     End Sub

  139.     Friend Sub SQL_加班申請修改()

  140.         ConnOpen()

  141.         SQL1 = "UPDATE 加班申請單 SET 加班狀態 = N'" & 加班申請.請假類別_cb.Text & "', 事由紀錄 = N'" & 加班申請.事由_tb.Text & "', 圖片資料庫 = N'" & 加班申請.資料指定圖庫_tb.Text & "', 

  142.                                       圖片編號 = N'" & 加班申請.圖片流水號_tb.Text & "'

  143.                 WHERE  日期 LIKE N'" & 加班申請.特假日期_tb.Text & "' AND 員工編號 = " & 加班申請.員工編號_tb.Text & ""

  144.         CmdSet_For_dr()

  145.     End Sub

  146.     Friend Sub SQL_加班申請查詢()

  147.         ConnOpen()

  148.         SQL1 = "SELECT  員工編號, 日期  FROM  加班申請單

  149.                 WHERE  (員工編號 LIKE N'" & 加班申請.員工編號_tb.Text & "' AND 日期 LIKE N'" & 加班申請.特假日期_tb.Text & "')"

  150.         CmdSet_For_dr()

  151.     End Sub

  152.     Friend Sub SQL_加班申請明細()

  153.         ConnOpen()

  154.         SQL1 = "SELECT      ras_Users.UserName AS 姓名, 加班申請單.員工編號, 加班申請單.日期, 萬年曆.星期, 萬年曆.下診, 加班申請單.加班狀態, 

  155.                             加班申請單.事由紀錄, 加班申請單.核准人1, 加班申請單.核准日期1, 加班申請單.核准人2, 加班申請單.核准日期2, 

  156.                             加班申請單.是否生效, 加班申請單.圖片資料庫, 加班申請單.圖片編號

  157.                 FROM        加班申請單 INNER JOIN

  158.                             萬年曆 ON 加班申請單.日期 = 萬年曆.日期 LEFT OUTER JOIN

  159.                             ras_Users ON 加班申請單.員工編號 = ras_Users.DIN

  160.                 WHERE       (加班申請單.核准人1 NOT LIKE N'" & gUserName & "') AND (加班申請單.是否生效 LIKE N'申請中') AND

  161.                             ((加班申請單.核准人1 NOT LIKE N'未准%') OR

  162.                             (加班申請單.核准人2 NOT LIKE N'未准%'))

  163.                 ORDER BY 加班申請單.日期, 加班申請單.員工編號"

  164.         CmdSet_For_DGV()

  165.     End Sub

  166.     Friend Sub SQL_加班申請清單()

  167.         ConnOpen()

  168.         SQL1 = "SELECT      ras_Users.UserName AS 姓名, 加班申請單.員工編號, 加班申請單.日期, 萬年曆.星期, 萬年曆.下診, 加班申請單.加班狀態, 

  169.                             加班申請單.事由紀錄, 加班申請單.核准人1, 加班申請單.核准日期1, 加班申請單.核准人2, 加班申請單.核准日期2, 

  170.                             加班申請單.是否生效, 加班申請單.圖片資料庫, 加班申請單.圖片編號

  171.                 FROM        加班申請單 INNER JOIN

  172.                             萬年曆 ON 加班申請單.日期 = 萬年曆.日期 LEFT OUTER JOIN

  173.                             ras_Users ON 加班申請單.員工編號 = ras_Users.DIN

  174.                 WHERE      (加班申請單.是否生效 LIKE N'%核准') AND 加班申請單.日期 LIKE N'" & PA & "%'

  175.                 ORDER BY    加班申請單.員工編號, 加班申請單.日期"

  176.         CmdSet_For_DGV()

  177.     End Sub

  178.     Friend Sub SQL_加班審核核准()

  179.         ConnOpen()

  180.         SQL1 = "UPDATE  加班申請單 SET  核准人1 = N'" & 加班審核.審核人1_tb.Text & "',  核准人2 = N'" & 加班審核.審核人2_tb.Text & "', 是否生效 = N'" & PA & "', 

  181.                                         核准日期1 = N'" & PA1 & "', 核准日期2 = N'" & PA2 & "'

  182.                 WHERE 日期 LIKE N'" & 加班審核.特假日期_tb.Text & "' AND 員工編號 = " & 加班審核.員工編號_tb.Text & ""

  183.         CmdSet_For_dr()

  184.     End Sub

  185.     Friend Sub SQL_加班審核未准()

  186.         ConnOpen()

  187.         SQL1 = "UPDATE  加班申請單 SET  核准人1 = N'未准-" & 加班審核.審核人1_tb.Text & "',  核准人2 = N'未准-" & 加班審核.審核人2_tb.Text & "', 是否生效 = N'未核准', 

  188.                                         核准日期1 = N'" & Format(Today(), "yyyy/MM/dd") & "', 核准日期2 = N''

  189.                 WHERE 日期 LIKE N'" & 加班審核.特假日期_tb.Text & "' AND 員工編號 = " & 加班審核.員工編號_tb.Text & ""

  190.         CmdSet_For_dr()

  191.     End Sub

  192.     Friend Sub SQL_休假申請明細()

  193.         ConnOpen() : SQL1 = "SELECT 員工編號, 日期, 請假類別, 核准人, 核准日期, 是否生效, 事由  FROM   人事請假單  WHERE (是否生效 NOT LIKE N'已核准')" : CmdSet_For_DGV()

  194.     End Sub

  195.     Friend Sub SQL_休假申請明細_刪除()

  196.         ConnOpen()

  197.         SQL1 = "DELETE 人事請假單 

  198.                 WHERE (員工編號 LIKE N'" & 休假歷史紀錄.員工編號_tb.Text & "' AND 

  199.                        日期 LIKE N'" & 休假歷史紀錄.請假日期_tb.Text & "' AND 請假類別 LIKE N'" & 休假歷史紀錄.請假類別_cb.Text & "')"

  200.         CmdSet_For_dr()

  201.     End Sub

  202.     Friend Sub SQL_查詢最後一筆圖片編號()

  203.         ConnOpen_圖庫SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 加班圖片庫 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  204.     End Sub

  205.     Friend Sub SQL_查詢最後一筆圖片編號1()

  206.         ConnOpen_圖庫SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 請假圖片庫 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  207.     End Sub

  208.     Friend Sub SQL_修改加班圖()

  209.         ConnOpen_圖庫SQL()

  210.         SQL1 = "UPDATE 加班圖片庫 SET 圖片 = @binary_file WHERE 流水號 LIKE N'" & 加班申請.圖片流水號_tb.Text & "'"

  211.         CmdSet_For_dr_pic()

  212.     End Sub

  213.     Friend Sub SQL_新增加班圖()

  214.         ConnOpen_圖庫SQL()

  215.         SQL1 = "INSERT INTO 加班圖片庫 (流水號, 圖片) SELECT N'" & 加班申請.圖片流水號_tb.Text & "', @binary_file"

  216.         CmdSet_For_dr_pic()

  217.     End Sub

  218.     Friend Sub SQL_加班圖()

  219.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 加班圖片庫 WHERE 流水號 LIKE '" & PA2 & "'" : CmdSet_For_dr()

  220.     End Sub

  221.     Friend Sub SQL_請假圖()

  222.         ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 請假圖片庫 WHERE 流水號 LIKE '" & PA2 & "'" : CmdSet_For_dr()

  223.     End Sub

  224.     Friend Sub SQL_修改請假圖()

  225.         ConnOpen_圖庫SQL()

  226.         SQL1 = "UPDATE 請假圖片庫 SET 圖片 = @binary_file WHERE 流水號 LIKE N'" & 休假申請.圖片流水號_tb.Text & "'"

  227.         CmdSet_For_dr_pic()

  228.     End Sub

  229.     Friend Sub SQL_新增請假圖()

  230.         ConnOpen_圖庫SQL()

  231.         SQL1 = "INSERT INTO 請假圖片庫 (流水號, 圖片) SELECT N'" & 休假申請.圖片流水號_tb.Text & "', @binary_file"

  232.         CmdSet_For_dr_pic()

  233.     End Sub

  234. End Module