GCM-OTHER
/
GCM-ERP-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.
12 커밋
1 브렌치
트리: 2480e703bb
브랜치 태그
${ item.name }
Create branch ${ searchTerm }
from '2480e703bb'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/SQL_休假與加班.vb

SQL_休假與加班.vb 11KB
히스토리 Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186 
  1. Module SQL_休假與加班

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

  3.         ConnOpen_AM()

  4.         SQL1 = "SELECT      萬年曆.日期, 萬年曆.星期, AA.請假類別, AA.事由, AA.是否生效, AA.核准人, AA.核准日期

  5.                 FROM             萬年曆 LEFT OUTER JOIN

  6.                                 (SELECT           員工編號, 日期, 請假類別, 事由, 是否生效, 核准人, 核准日期

  7.                                  FROM             人事請假單

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

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

  10.                 ORDER BY   萬年曆.日期"

  11.         CmdSet_For_DGV()

  12.     End Sub

  13.     Friend Sub SQL_休假申請()

  14.         ConnOpen_AM()

  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 '已核准')

  21.                 ORDER BY ras_Users.UserName, 人事請假單.員工編號"

  22.         CmdSet_For_DGV()

  23.     End Sub

  24.     Friend Sub SQL_休假清單()

  25.         ConnOpen_AM()

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

  27.                        人事請假單.事由, 人事請假單.是否生效, 人事請假單.核准人, 人事請假單.核准日期

  28.                 FROM   人事請假單 INNER JOIN

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

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

  31.                 WHERE (人事請假單.是否生效 LIKE '已核准') AND (人事請假單.請假類別 NOT LIKE N'國定假日')

  32.                 ORDER BY 人事請假單.日期 DESC, ras_Users.UserName, 人事請假單.員工編號"

  33.         CmdSet_For_DGV()

  34.     End Sub

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

  36.         ConnOpen_AM()

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

  38.                 FROM       ras_Users

  39.                 GROUP BY   DIN, UserName

  40.                 ORDER BY   編號"

  41.         CmdSet_For_DGV()

  42.     End Sub

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

  44.         ConnOpen_AM()

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

  46.         CmdSet_For_dr()

  47.     End Sub

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

  49.         ConnOpen_AM()

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

  51.         CmdSet_For_dr()

  52.     End Sub

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

  54.         ConnOpen()

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

  56.         CmdSet_For_dr()

  57.     End Sub

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

  59.         ConnOpen_AM()

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

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

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

  63.         CmdSet_For_dr()

  64.     End Sub

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

  66.         ConnOpen_AM()

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

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

  69.         CmdSet_For_dr()

  70.     End Sub

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

  72.         ConnOpen_AM()

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

  74.         CmdSet_For_DGV()

  75.     End Sub

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

  77.         ConnOpen_AM()

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

  79.         CmdSet_For_dr()

  80.     End Sub

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

  82.         ConnOpen_AM()

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

  84.         CmdSet_For_dr()

  85.     End Sub

  86.     Friend Sub SQL_加班申請()

  87.         ConnOpen_AM()

  88.         SQL1 = "SELECT      萬年曆.日期, 萬年曆.星期, AA.加班狀態, AA.事由紀錄, AA.是否生效, AA.核准人1, AA.核准日期1, AA.核准人2, AA.核准日期2

  89.                 FROM             萬年曆 LEFT OUTER JOIN

  90.                                 (SELECT           員工編號, 日期, 加班狀態, 事由紀錄, 是否生效, 核准人1, 核准日期1, 核准人2, 核准日期2

  91.                                  FROM             加班申請單

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

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

  94.                 ORDER BY   萬年曆.日期"

  95.         CmdSet_For_DGV()

  96.     End Sub

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

  98.         ConnOpen_AM()

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

  100.         CmdSet_For_dr()

  101.     End Sub

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

  103.         ConnOpen_AM()

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

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

  106.                  N'" & 加班申請.請假類別_cb.Text & "' , N'" & 加班申請.事由_tb.Text & "','申請中', '', '')"

  107.         CmdSet_For_dr()

  108.     End Sub

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

  110.         ConnOpen_AM()

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

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

  113.                             加班申請單.是否生效

  114.                 FROM        加班申請單 INNER JOIN

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

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

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

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

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

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

  121.         CmdSet_For_DGV()

  122.     End Sub

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

  124.         ConnOpen_AM()

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

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

  127.                             加班申請單.是否生效

  128.                 FROM        加班申請單 INNER JOIN

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

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

  131.                 WHERE      (加班申請單.是否生效 LIKE '%核准')

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

  133.         CmdSet_For_DGV()

  134.     End Sub

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

  136.         ConnOpen_AM()

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

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

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

  140.         CmdSet_For_dr()

  141.     End Sub

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

  143.         ConnOpen_AM()

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

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

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

  147.         CmdSet_For_dr()

  148.     End Sub

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

  150.         ConnOpen_AM()

  151.         SQL1 = "SELECT 員工編號, 日期, 請假類別, 核准人, 核准日期, 是否生效, 事由

  152.                 FROM   人事請假單

  153.                 WHERE (是否生效 NOT LIKE '已核准')"

  154.         CmdSet_For_DGV()

  155.     End Sub

  156.     Friend Sub SQL_申請新增()

  157.         ConnOpen_AM()

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

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

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

  161.         CmdSet_For_dr()

  162.     End Sub

  163.     Friend Sub SQL_申請刪除()

  164.         ConnOpen_AM()

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

  166.         CmdSet_For_dr()

  167.     End Sub

  168.     Friend Sub SQL_核准修改()

  169.         ConnOpen_AM()

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

  171.                 WHERE 日期 LIKE '" & 休假核准.請假日期_tb.Text & "' AND 員工編號 = " & 休假核准.員工編號_tb.Text & ""

  172.         CmdSet_For_dr()

  173.     End Sub

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

  175.         ConnOpen()

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

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

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

  179.         CmdSet_For_dr()

  180.     End Sub

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

  182.         ConnOpen()

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

  184.         CmdSet_For_dr()

  185.     End Sub

  186. End Module