WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
Слідкувати 4
В обрані 0
Форк 0
Код Проблеми 0 Запити на злиття 0 Релізи 0 Вікі Активність
Без опису
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
35 Коміти
1 Гілка
Дерево: df95874fc2
Гілки Теги
${ item.name }
Створити гілку ${ searchTerm }
з 'df95874fc2'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/SQL_人事系統管理.vb

SQL_人事系統管理.vb 27KB
Історія Неформатований

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360 
  1. Module SQL_人事系統管理

  2.     Friend Sub SQL_員工清單()

  3.         ConnOpen()

  4.         SQL1 = "SELECT 人事資料表.員工編號, 使用者權限管理表.姓名 AS 系統登入姓名, 人事資料表.姓名, 人事資料表.入職日期, 人事資料表.離職日期

  5.                 FROM 使用者權限管理表 LEFT OUTER JOIN

  6.                             人事資料表 ON 使用者權限管理表.員工編號 = 人事資料表.員工編號 AND 

  7.                             使用者權限管理表.姓名 = 人事資料表.系統登入姓名

  8.                 WHERE (使用者權限管理表.CC49 = 0) AND (人事資料表.員工編號 IS NOT NULL) AND (人事資料表.離職日期 LIKE '在職')

  9.                 ORDER BY 使用者權限管理表.職稱"

  10.         CmdSet_For_DGV()

  11.     End Sub

  12.     Friend Sub SQL_考勤打卡人員()

  13.         ConnOpen()

  14.         SQL1 = "SELECT 人事資料表.員工編號, 使用者權限管理表.姓名 AS 系統登入姓名, 人事資料表.姓名, 人事資料表.入職日期, 人事資料表.離職日期

  15.                 FROM 使用者權限管理表 LEFT OUTER JOIN

  16.                             人事資料表 ON 使用者權限管理表.員工編號 = 人事資料表.員工編號 AND 

  17.                             使用者權限管理表.姓名 = 人事資料表.系統登入姓名

  18.                 WHERE (使用者權限管理表.CC49 = 0) AND (人事資料表.員工編號 IS NOT NULL) AND (人事資料表.離職日期 LIKE '在職')

  19.                 ORDER BY 使用者權限管理表.姓名"

  20.         CmdSet_For_DGV()

  21.     End Sub

  22.     Friend Sub SQL_補登打卡明細()

  23.         ConnOpen()

  24.         SQL1 = "SELECT 萬年曆.日期, 萬年曆.星期, AA.請假類別, AA.事由, AA.是否生效, AA.核准人, AA.核准日期, QQ.上午上班, QQ.上午上班 AS 上午下班, QQ.上午上班 AS 上午工時, QQ.下午下班 AS 下午上班, 

  25.                        QQ.下午下班, QQ.下午下班 AS 下午工時, QQ.下午下班 AS 整日工時, BB.上午補登, BB.下午補登, BB.公出事由, QQ.員工編號

  26.                  FROM 萬年曆 LEFT OUTER JOIN

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

  28.                        FROM 人事請假單

  29.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 考勤打卡資料補登.年份_cb.Text & "/" & 考勤打卡資料補登.月份_cb.Text & "%')) AS AA ON 萬年曆.日期 = AA.日期 

  30.                              LEFT OUTER JOIN

  31.                       (SELECT 員工編號, 日期, 請假類別, 上午上班, 下午下班

  32.                        FROM 人事考勤明細表

  33.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 考勤打卡資料補登.年份_cb.Text & "/" & 考勤打卡資料補登.月份_cb.Text & "%')) AS QQ ON 萬年曆.日期 = QQ.日期

  34.                                                     LEFT OUTER JOIN

  35.                       (SELECT 員工編號, 日期, 上午補登, 下午補登, 公出事由

  36.                        FROM 人事漏打卡補登紀錄

  37.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 考勤打卡資料補登.年份_cb.Text & "/" & 考勤打卡資料補登.月份_cb.Text & "%')) AS BB ON 萬年曆.日期 = BB.日期

  38.                                        WHERE (萬年曆.日期 LIKE '" & 考勤打卡資料補登.年份_cb.Text & "/" & 考勤打卡資料補登.月份_cb.Text & "%') ORDER BY 萬年曆.日期"

  39.         CmdSet_For_DGV()

  40.     End Sub

  41.     Friend Sub SQL_補登員工()

  42.         ConnOpen()

  43.         SQL1 = "SELECT 人事資料表.員工編號, 使用者權限管理表.姓名 AS 系統登入姓名, 人事資料表.姓名, 人事資料表.入職日期, 人事資料表.離職日期

  44.                 FROM 使用者權限管理表 LEFT OUTER JOIN

  45.                             人事資料表 ON 使用者權限管理表.員工編號 = 人事資料表.員工編號 AND 

  46.                             使用者權限管理表.姓名 = 人事資料表.系統登入姓名

  47.                 WHERE (使用者權限管理表.CC49 = 0) AND (人事資料表.員工編號 IS NOT NULL) AND (人事資料表.離職日期 LIKE '在職')

  48.                 ORDER BY 使用者權限管理表.姓名"

  49.         CmdSet_For_DGV()

  50.     End Sub

  51.     Friend Sub SQL_日期查詢()

  52.         ConnOpen()

  53.         SQL1 = "SELECT 萬年曆.日期, 萬年曆.星期, AA.請假類別, AA.事由, AA.是否生效, AA.核准人, AA.核准日期, QQ.上午上班, QQ.上午上班 AS 上午下班, QQ.上午上班 AS 上午工時, QQ.下午下班 AS 下午上班, 

  54.                        QQ.下午下班, QQ.下午下班 AS 下午工時, QQ.下午下班 AS 整日工時, BB.上午補登, BB.下午補登, BB.公出事由, QQ.員工編號

  55.                  FROM 萬年曆 LEFT OUTER JOIN

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

  57.                        FROM 人事請假單

  58.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人事請假申請.年份_cb.Text & "/" & 人事請假申請.月份_cb.Text & "%')) AS AA ON 萬年曆.日期 = AA.日期 

  59.                              LEFT OUTER JOIN

  60.                       (SELECT 員工編號, 日期, 請假類別, 上午上班, 下午下班

  61.                        FROM 人事考勤明細表

  62.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人事請假申請.年份_cb.Text & "/" & 人事請假申請.月份_cb.Text & "%')) AS QQ ON 萬年曆.日期 = QQ.日期

  63.                                                     LEFT OUTER JOIN

  64.                       (SELECT 員工編號, 日期, 上午補登, 下午補登, 公出事由

  65.                        FROM 人事漏打卡補登紀錄

  66.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人事請假申請.年份_cb.Text & "/" & 人事請假申請.月份_cb.Text & "%')) AS BB ON 萬年曆.日期 = BB.日期

  67.                                        WHERE (萬年曆.日期 LIKE '" & 人事請假申請.年份_cb.Text & "/" & 人事請假申請.月份_cb.Text & "%') ORDER BY 萬年曆.日期"

  68.         CmdSet_For_DGV()

  69.     End Sub

  70.     Friend Sub SQL_日期查詢核准()

  71.         ConnOpen()

  72.         SQL1 = "SELECT 萬年曆.日期, 萬年曆.星期, AA.請假類別, AA.事由, AA.是否生效, AA.核准人, AA.核准日期, QQ.上午上班, QQ.上午上班 AS 上午下班, QQ.上午上班 AS 上午工時, QQ.下午下班 AS 下午上班, 

  73.                        QQ.下午下班, QQ.下午下班 AS 下午工時, QQ.下午下班 AS 整日工時, BB.上午補登, BB.下午補登, BB.公出事由, QQ.員工編號

  74.                  FROM 萬年曆 LEFT OUTER JOIN

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

  76.                        FROM 人事請假單

  77.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人事請假核准.年份_cb.Text & "/" & 人事請假核准.月份_cb.Text & "%')) AS AA ON 萬年曆.日期 = AA.日期 

  78.                              LEFT OUTER JOIN

  79.                       (SELECT 員工編號, 日期, 請假類別, 上午上班, 下午下班

  80.                        FROM 人事考勤明細表

  81.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人事請假核准.年份_cb.Text & "/" & 人事請假核准.月份_cb.Text & "%')) AS QQ ON 萬年曆.日期 = QQ.日期

  82.                                                     LEFT OUTER JOIN

  83.                       (SELECT 員工編號, 日期, 上午補登, 下午補登, 公出事由

  84.                        FROM 人事漏打卡補登紀錄

  85.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人事請假核准.年份_cb.Text & "/" & 人事請假核准.月份_cb.Text & "%')) AS BB ON 萬年曆.日期 = BB.日期

  86.                                        WHERE (萬年曆.日期 LIKE '" & 人事請假核准.年份_cb.Text & "/" & 人事請假核准.月份_cb.Text & "%') ORDER BY 萬年曆.日期"

  87.         CmdSet_For_DGV()

  88.     End Sub

  89. 

  90.     Friend Sub SQL_年份查詢()

  91.         ConnOpen()

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

  93.         CmdSet_For_dr()

  94.     End Sub

  95.     Friend Sub SQL_請假()

  96.         ConnOpen()

  97.         SQL1 = "SELECT  請假類別 FROM METOO請假類別 ORDER BY 請假類別 DESC"

  98.         CmdSet_For_dr()

  99.     End Sub

  100.     Friend Sub SQL_使用者權限()

  101.         ConnOpen()

  102.         SQL1 = "SELECT 部門 FROM 使用者權限管理表 WHERE (員工編號 = '" & 編號 & "')"

  103.         CmdSet_For_dr()

  104.     End Sub

  105.     Friend Sub SQL_人事請假()

  106.         ConnOpen()

  107.         SQL1 = "SELECT 員工編號 FROM 人事請假單 WHERE (員工編號 LIKE '" & 人事請假申請.員工編號_tb.Text & "') AND (日期 LIKE '" & 人事請假申請.請假_tb.Text & "')"

  108.         CmdSet_For_dr()

  109.     End Sub

  110.     Friend Sub SQL_人事請假新增()

  111.         ConnOpen()

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

  113.                 VALUES ( N'" & 人事請假申請.員工編號_tb.Text & "',N'" & 人事請假申請.請假_tb.Text & "',N'" & 人事請假申請.請假_cb.Text & "',N'" & 人事請假申請.事由_tb.Text & "','申請中')"

  114.         CmdSet_For_dr()

  115.     End Sub

  116.     Friend Sub SQL_假單核准()

  117.         ConnOpen()

  118.         SQL1 = "UPDATE 人事請假單 SET 核准人 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 是否生效 = N'已核准' WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人事請假核准.請假日期_tb.Text & "%')"

  119.         CmdSet_For_dr()

  120.     End Sub

  121.     Friend Sub SQL_讀取員工編號()

  122.         ConnOpen()

  123.         SQL1 = "SELECT 員工編號 FROM 人事考勤明細表 WHERE 員工編號 LIKE '" & 編號 & "' AND 日期 LIKE '" & 人事請假核准.請假日期_tb.Text & "'"

  124.         CmdSet_For_dr()

  125.     End Sub

  126.     Friend Sub SQL_人事考勤明細表新增()

  127.         ConnOpen()

  128.         SQL1 = "INSERT INTO 人事考勤明細表 (員工編號, 日期, 請假類別, 上午上班, 下午下班) 

  129.                 VALUES ( N'" & 編號 & "',N'" & 人事請假核准.請假日期_tb.Text & "',N'" & 人事請假核准.請假類別_cb.Text & "',N'',N'')"

  130.         CmdSet_For_dr()

  131.     End Sub

  132.     Friend Sub SQL_人事考勤明細表修改()

  133.         ConnOpen()

  134.         SQL1 = "UPDATE 人事考勤明細表 SET 請假類別 = N'" & 人事請假核准.請假類別_cb.Text & "' 

  135.                         WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人事請假核准.請假日期_tb.Text & "')"

  136.         CmdSet_For_dr()

  137.     End Sub

  138.     Friend Sub SQL_員工編號補登()

  139.         ConnOpen()

  140.         SQL1 = "SELECT 員工編號 FROM 人事漏打卡補登紀錄 WHERE 員工編號 LIKE '" & 編號 & "' AND 日期 LIKE '" & 考勤打卡資料補登.請假日期_tb.Text & "'"

  141.         CmdSet_For_dr()

  142.     End Sub

  143.     Friend Sub SQL_員工補登()

  144.         ConnOpen()

  145.         SQL1 = "SELECT 員工編號 FROM 人事考勤明細表 WHERE 員工編號 LIKE '" & 編號 & "' AND 日期 LIKE '" & 考勤打卡資料補登.請假日期_tb.Text & "'"

  146.         CmdSet_For_dr()

  147.     End Sub

  148.     Friend Sub SQL_公差補登()

  149.         ConnOpen()

  150.         SQL1 = "INSERT INTO 人事漏打卡補登紀錄 (員工編號, 日期, 上午補登, 下午補登, 公出事由) SELECT N'" & 編號 & "',N'" & 考勤打卡資料補登.請假日期_tb.Text & "',N'',N'','" & PA & "'"

  151.         CmdSet_For_dr()

  152.     End Sub

  153.     Friend Sub SQL_漏打卡補登()

  154.         ConnOpen()

  155.         SQL1 = "INSERT INTO 人事漏打卡補登紀錄 (員工編號, 日期, 上午補登, 下午補登, 公出事由) SELECT N'" & 編號 & "',N'" & 考勤打卡資料補登.請假日期_tb.Text & "',N'',N'1','漏打卡'"

  156.         CmdSet_For_dr()

  157.     End Sub

  158.     Friend Sub SQL_漏打卡補登1()

  159.         ConnOpen()

  160.         SQL1 = "INSERT INTO 人事漏打卡補登紀錄 (員工編號, 日期, 上午補登, 下午補登, 公出事由) SELECT N'" & 編號 & "',N'" & 考勤打卡資料補登.請假日期_tb.Text & "',N'1',N'','漏打卡'"

  161.         CmdSet_For_dr()

  162.     End Sub

  163.     Friend Sub SQL_更改上午補登()

  164.         ConnOpen()

  165.         SQL1 = "UPDATE 人事漏打卡補登紀錄 SET 上午補登 = N'1' WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 考勤打卡資料補登.請假日期_tb.Text & "')"

  166.         CmdSet_For_dr()

  167.     End Sub

  168.     Friend Sub SQL_更改下午補登()

  169.         ConnOpen()

  170.         SQL1 = "UPDATE 人事漏打卡補登紀錄 SET 下午補登 = N'1' WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 考勤打卡資料補登.請假日期_tb.Text & "')"

  171.         CmdSet_For_dr()

  172.     End Sub

  173.     Friend Sub SQL_補登上午()

  174.         ConnOpen()

  175.         SQL1 = "INSERT INTO 人事考勤明細表 (員工編號, 日期, 請假類別, 上午上班, 下午下班) SELECT N'" & 編號 & "',N'" & 考勤打卡資料補登.請假日期_tb.Text & "',N'',

  176.                         N'" & 考勤打卡資料補登.上午小時_cb.Text & ":" & 考勤打卡資料補登.上午分鐘1_cb.Text & 考勤打卡資料補登.上午分鐘2_cb.Text & ":" & 考勤打卡資料補登.上午秒數1_cb.Text & 考勤打卡資料補登.上午秒數2_cb.Text & "', N''"

  177.         CmdSet_For_dr()

  178.     End Sub

  179.     Friend Sub SQL_補登下午()

  180.         ConnOpen()

  181.         SQL1 = "INSERT INTO 人事考勤明細表 (員工編號, 日期, 請假類別, 上午上班, 下午下班) SELECT N'" & 編號 & "',N'" & 考勤打卡資料補登.請假日期_tb.Text & "',N'',

  182.                         N'', N'" & 考勤打卡資料補登.下午小時_cb.Text & ":" & 考勤打卡資料補登.下午分鐘1_cb.Text & 考勤打卡資料補登.下午分鐘2_cb.Text & ":" & 考勤打卡資料補登.下午秒數1_cb.Text & 考勤打卡資料補登.下午秒數2_cb.Text & "'"

  183.         CmdSet_For_dr()

  184.     End Sub

  185.     Friend Sub SQL_更改上午補登1()

  186.         ConnOpen()

  187.         SQL1 = "UPDATE 人事考勤明細表 SET 上午上班 = N'" & 考勤打卡資料補登.上午小時_cb.Text & ":" & 考勤打卡資料補登.上午分鐘1_cb.Text & 考勤打卡資料補登.上午分鐘2_cb.Text & ":" & 考勤打卡資料補登.上午秒數1_cb.Text & 考勤打卡資料補登.上午秒數2_cb.Text & "' 

  188.                         WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 考勤打卡資料補登.請假日期_tb.Text & "')"

  189.         CmdSet_For_dr()

  190.     End Sub

  191.     Friend Sub SQL_更改下午補登1()

  192.         ConnOpen()

  193.         SQL1 = "UPDATE 人事考勤明細表 SET 下午下班 = N'" & 考勤打卡資料補登.下午小時_cb.Text & ":" & 考勤打卡資料補登.下午分鐘1_cb.Text & 考勤打卡資料補登.下午分鐘2_cb.Text & ":" & 考勤打卡資料補登.下午秒數1_cb.Text & 考勤打卡資料補登.下午秒數2_cb.Text & "' 

  194.                         WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 考勤打卡資料補登.請假日期_tb.Text & "')"

  195.         CmdSet_For_dr()

  196.     End Sub

  197.     Friend Sub SQL_未入職人員()

  198.         ConnOpen()

  199.         SQL1 = "SELECT 人事資料表.員工編號, 使用者權限管理表.姓名 AS 系統登入姓名, 人事資料表.姓名, 人事資料表.入職日期

  200.                 FROM 使用者權限管理表 LEFT OUTER JOIN

  201.                             人事資料表 ON 使用者權限管理表.員工編號 = 人事資料表.員工編號 AND 

  202.                             使用者權限管理表.姓名 = 人事資料表.系統登入姓名

  203.                 WHERE (使用者權限管理表.CC49 = 0) AND (人事資料表.員工編號 IS NULL)

  204.                 ORDER BY 使用者權限管理表.職稱"

  205.         CmdSet_For_DGV()

  206.     End Sub

  207.     Friend Sub SQL_在職人員()

  208.         ConnOpen()

  209.         SQL1 = "SELECT 人事資料表.員工編號, 使用者權限管理表.姓名 AS 系統登入姓名, 人事資料表.姓名, 人事資料表.入職日期, 人事資料表.離職日期

  210.                 FROM 使用者權限管理表 LEFT OUTER JOIN

  211.                             人事資料表 ON 使用者權限管理表.員工編號 = 人事資料表.員工編號 AND 

  212.                             使用者權限管理表.姓名 = 人事資料表.系統登入姓名

  213.                 WHERE (使用者權限管理表.CC49 = 0) AND (人事資料表.員工編號 IS NOT NULL) AND (人事資料表.離職日期 LIKE '在職')

  214.                 ORDER BY 使用者權限管理表.職稱"

  215.         CmdSet_For_DGV()

  216.     End Sub

  217.     Friend Sub SQL_讀取圖片()

  218.         ConnOpen()

  219.         SQL1 = "SELECT 人事表圖片 FROM 人事資料表 WHERE 員工編號 LIKE N'" & 人員入職資料表.員工編號_tb.Text & "'"

  220.         CmdSet_For_dr()

  221.     End Sub

  222.     Friend Sub SQL_查最後一筆員工編號()

  223.         ConnOpen()

  224.         SQL1 = "SELECT TOP (1) 員工編號 FROM 人事資料表 ORDER BY 員工編號 DESC"

  225.         CmdSet_For_dr()

  226.     End Sub

  227.     Friend Sub SQL_新增人事資料表()

  228.         ConnOpen()

  229.         SQL1 = "INSERT INTO 人事資料表 (員工編號, 系統登入姓名, 姓名, 入職日期, 離職日期, 人事表圖片) SELECT N'" & 人員入職資料表.員工編號_tb.Text & "',N'" & 人員入職資料表.登入姓名_tb.Text & "',N'" & 人員入職資料表.姓名_tb.Text &

  230.                        "','" & DTP & "','在職', @binary_file"

  231.         CmdSet_For_dr_pic()

  232.     End Sub

  233.     Friend Sub SQL_更改使用者權限管理表()

  234.         ConnOpen()

  235.         SQL1 = "UPDATE 使用者權限管理表 SET  員工編號 = '" & 人員入職資料表.員工編號_tb.Text & "' WHERE (姓名 = '" & 人員入職資料表.登入姓名_tb.Text & "')"

  236.         CmdSet_For_dr()

  237.     End Sub

  238.     Friend Sub SQL_修改人事資料表()

  239.         ConnOpen()

  240.         SQL1 = "UPDATE 人事資料表 SET  人事表圖片 = @binary_file  WHERE (員工編號 = '" & 人員入職資料表.員工編號_tb.Text & "')"

  241.         CmdSet_For_dr_pic()

  242.     End Sub

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

  244.     Friend Sub SQL_使用者權限管理表()

  245.         ConnOpen()

  246.         SQL1 = "SELECT 姓名, 帳號, 部門, 職稱, 員工編號, ID卡號 FROM 使用者權限管理表 ORDER BY 職稱"

  247.         CmdSet_For_DGV()

  248.     End Sub

  249.     Friend Sub SQL_修改使用者權限管理表()

  250.         ConnOpen()

  251.         SQL1 = "UPDATE 使用者權限管理表 SET ID卡號 = N'" & 人員ID卡系統配置設定.ID卡號_tb.Text & "' WHERE (帳號 = N'" & 人員ID卡系統配置設定.帳號_tb.Text & "') AND (姓名 = N'" & 人員ID卡系統配置設定.姓名_tb.Text & "')"

  252.         CmdSet_For_dr()

  253.     End Sub

  254.     '----------------------人員行政物料領用記錄表-------------------------------------

  255.     Friend Sub SQL_人員清單()

  256.         ConnOpen()

  257.         SQL1 = "SELECT 人事資料表.員工編號, 使用者權限管理表.姓名 AS 系統登入姓名, 人事資料表.姓名, 人事資料表.入職日期, 人事資料表.離職日期

  258.                 FROM 使用者權限管理表 LEFT OUTER JOIN

  259.                             人事資料表 ON 使用者權限管理表.員工編號 = 人事資料表.員工編號 AND 

  260.                             使用者權限管理表.姓名 = 人事資料表.系統登入姓名

  261.                 WHERE (使用者權限管理表.CC49 = 0) AND (人事資料表.員工編號 IS NOT NULL) AND (人事資料表.離職日期 LIKE '在職')

  262.                 ORDER BY 使用者權限管理表.職稱"

  263.         CmdSet_For_DGV()

  264.     End Sub

  265.     Friend Sub SQL_人員行政物料領用紀錄表()

  266.         ConnOpen()

  267.         SQL1 = "SELECT 流水號, 人員, 日期, 物料, 數量, 單位 FROM 人員行政物料領用紀錄表 WHERE (人員 LIKE N'" & XXCC & "') " & KKKJJ3 & "

  268.                 ORDER BY 日期"

  269.         CmdSet_For_DGV()

  270.     End Sub

  271.     Friend Sub SQL_人員行政物料表()

  272.         ConnOpen()

  273.         SQL1 = "SELECT  行政物料 FROM 人員行政物料表 ORDER BY 行政物料"

  274.         CmdSet_For_dr()

  275.     End Sub

  276.     Friend Sub SQL_查詢最後一筆流水號()

  277.         ConnOpen()

  278.         SQL1 = "SELECT TOP (1) 流水號 FROM 人員行政物料領用紀錄表 ORDER BY 流水號 DESC"

  279.         CmdSet_For_dr()

  280.     End Sub

  281.     Friend Sub SQL_新增人員行政物料領用紀錄表()

  282.         ConnOpen()

  283.         SQL1 = "INSERT INTO 人員行政物料領用紀錄表 (流水號, 人員, 日期, 物料, 數量, 單位) " &

  284.                    "VALUES (N'" & 編號 & "',N'" & XXCC & "',N'" & DTP & "',N'" & 人員行政物料領用記錄表.選擇行政物料_cb.Text & "','0','')"

  285.         CmdSet_For_dr()

  286.     End Sub

  287.     Friend Sub SQL_刪除人員行政物料領用紀錄表()

  288.         ConnOpen()

  289.         SQL1 = "DELETE FROM 人員行政物料領用紀錄表 WHERE (流水號 = '" & 人員行政物料領用記錄表.選擇資料流水號_tb.Text & "')"

  290.         CmdSet_For_dr()

  291.     End Sub

  292.     Friend Sub SQL_更改人員行政物料領用紀錄表()

  293.         ConnOpen()

  294.         SQL1 = "UPDATE 人員行政物料領用紀錄表 SET  數量 = '" & PA & "', 單位 = '" & PA1 & "' " &

  295.                    "WHERE (流水號 LIKE N'" & PA2 & "')"

  296.         CmdSet_For_dr()

  297.     End Sub

  298.     Friend Sub SQL_修改人事資料表1()

  299.         ConnOpen()

  300.         SQL1 = "UPDATE 人事資料表 SET  離職日期 = '" & DTP1 & "' WHERE (員工編號 = '" & 人員入職資料表.員工編號_tb.Text & "')"

  301.         CmdSet_For_dr()

  302.     End Sub

  303.     '---------------------------------------人員考勤明細表----------------------------------------------------------------------

  304.     Friend Sub SQL_考勤明細清單()

  305.         ConnOpen()

  306.         SQL1 = "SELECT 萬年曆.日期, 萬年曆.星期, QQ.請假類別, AA.事由, AA.是否生效, AA.核准人, AA.核准日期, QQ.上午上班, QQ.上午上班 AS 上午下班, QQ.上午上班 AS 上午工時, QQ.下午下班 AS 下午上班, 

  307.                        QQ.下午下班, QQ.下午下班 AS 下午工時, QQ.下午下班 AS 整日工時, BB.上午補登, BB.下午補登, BB.公出事由, QQ.員工編號

  308.                  FROM 萬年曆 LEFT OUTER JOIN

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

  310.                        FROM 人事請假單

  311.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人員考勤明細表.年份_cb.Text & "/" & 人員考勤明細表.月份_cb.Text & "%')) AS AA ON 萬年曆.日期 = AA.日期 

  312.                              LEFT OUTER JOIN

  313.                       (SELECT 員工編號, 日期, 請假類別, 上午上班, 下午下班

  314.                        FROM 人事考勤明細表

  315.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人員考勤明細表.年份_cb.Text & "/" & 人員考勤明細表.月份_cb.Text & "%')) AS QQ ON 萬年曆.日期 = QQ.日期

  316.                                                     LEFT OUTER JOIN

  317.                       (SELECT 員工編號, 日期, 上午補登, 下午補登, 公出事由

  318.                        FROM 人事漏打卡補登紀錄

  319.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人員考勤明細表.年份_cb.Text & "/" & 人員考勤明細表.月份_cb.Text & "%')) AS BB ON 萬年曆.日期 = BB.日期

  320.                                        WHERE (萬年曆.日期 LIKE '" & 人員考勤明細表.年份_cb.Text & "/" & 人員考勤明細表.月份_cb.Text & "%') ORDER BY 萬年曆.日期"

  321.         CmdSet_For_DGV()

  322.     End Sub

  323.     Friend Sub SQL_年度考勤明細清單()

  324.         ConnOpen()

  325.         If Val(人員考勤明細表.年份_cb.Text) > 2019 Then

  326.             SQL1 = "SELECT 萬年曆.日期, 萬年曆.星期, QQ.請假類別, AA.事由, AA.是否生效, AA.核准人, AA.核准日期, QQ.上午上班, QQ.上午上班 AS 上午下班, QQ.上午上班 AS 上午工時, QQ.下午下班 AS 下午上班, 

  327.                        QQ.下午下班, QQ.下午下班 AS 下午工時, QQ.下午下班 AS 整日工時, BB.上午補登, BB.下午補登, QQ.員工編號

  328.                  FROM 萬年曆 LEFT OUTER JOIN

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

  330.                        FROM 人事請假單

  331.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人員考勤明細表.年份_cb.Text & "%')) AS AA ON 萬年曆.日期 = AA.日期 

  332.                              LEFT OUTER JOIN

  333.                       (SELECT 員工編號, 日期, 請假類別, 上午上班, 下午下班

  334.                        FROM 人事考勤明細表

  335.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人員考勤明細表.年份_cb.Text & "%')) AS QQ ON 萬年曆.日期 = QQ.日期

  336.                                                     LEFT OUTER JOIN

  337.                       (SELECT 員工編號, 日期, 上午補登, 下午補登

  338.                        FROM 人事漏打卡補登紀錄

  339.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 LIKE '" & 人員考勤明細表.年份_cb.Text & "%')) AS BB ON 萬年曆.日期 = BB.日期

  340.                                        WHERE (萬年曆.日期 LIKE '" & 人員考勤明細表.年份_cb.Text & "%') ORDER BY 萬年曆.日期"

  341.         ElseIf Val(人員考勤明細表.年份_cb.Text) = 2019 Then

  342.             SQL1 = "SELECT 萬年曆.日期, 萬年曆.星期, QQ.請假類別, AA.事由, AA.是否生效, AA.核准人, AA.核准日期, QQ.上午上班, QQ.上午上班 AS 上午下班, QQ.上午上班 AS 上午工時, QQ.下午下班 AS 下午上班, 

  343.                        QQ.下午下班, QQ.下午下班 AS 下午工時, QQ.下午下班 AS 整日工時, BB.上午補登, BB.下午補登, QQ.員工編號

  344.                  FROM 萬年曆 LEFT OUTER JOIN

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

  346.                        FROM 人事請假單

  347.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 BETWEEN '2019/11/01' AND '2019/12/31')) AS AA ON 萬年曆.日期 = AA.日期 

  348.                              LEFT OUTER JOIN

  349.                       (SELECT 員工編號, 日期, 請假類別, 上午上班, 下午下班

  350.                        FROM 人事考勤明細表

  351.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 BETWEEN '2019/11/01' AND '2019/12/31')) AS QQ ON 萬年曆.日期 = QQ.日期

  352.                                                     LEFT OUTER JOIN

  353.                       (SELECT 員工編號, 日期, 上午補登, 下午補登

  354.                        FROM 人事漏打卡補登紀錄

  355.                        WHERE (員工編號 LIKE '" & 編號 & "') AND (日期 BETWEEN '2019/11/01' AND '2019/12/31')) AS BB ON 萬年曆.日期 = BB.日期

  356.                                        WHERE (萬年曆.日期 BETWEEN '2019/11/01' AND '2019/12/31') ORDER BY 萬年曆.日期"

  357.         End If

  358.         CmdSet_For_DGV()

  359.     End Sub

  360. End Module