WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
关注 4
点赞 0
派生 0
代码 工单 0 合并请求 0 版本发布 0 百科 动态
暂无描述
您最多选择25个主题 主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
27 提交
1 分支
目录树: 5d7d4e5992
分支列表 标签列表
${ item.name }
创建分支 ${ searchTerm }
从 '5d7d4e5992'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/MyModule/SQL_人事系統管理.vb

SQL_人事系統管理.vb 27KB
文件历史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362 
  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 & "','在職', " &

  231.                        "BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP實體位置 & AA(14) & "\" & 人員入職資料表.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  232.         CmdSet_For_dr()

  233.     End Sub

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

  235.         ConnOpen()

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

  237.         CmdSet_For_dr()

  238.     End Sub

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

  240.         ConnOpen()

  241.         SQL1 = "UPDATE 人事資料表 SET  人事表圖片 = BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP實體位置 & AA(14) & "\" & 人員入職資料表.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE " &

  242.                    "WHERE (員工編號 = '" & 人員入職資料表.員工編號_tb.Text & "')"

  243.         CmdSet_For_dr()

  244.     End Sub

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

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

  247.         ConnOpen()

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

  249.         CmdSet_For_DGV()

  250.     End Sub

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

  252.         ConnOpen()

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

  254.         CmdSet_For_dr()

  255.     End Sub

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

  257.     Friend Sub SQL_人員清單()

  258.         ConnOpen()

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

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

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

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

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

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

  265.         CmdSet_For_DGV()

  266.     End Sub

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

  268.         ConnOpen()

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

  270.                 ORDER BY 日期"

  271.         CmdSet_For_DGV()

  272.     End Sub

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

  274.         ConnOpen()

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

  276.         CmdSet_For_dr()

  277.     End Sub

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

  279.         ConnOpen()

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

  281.         CmdSet_For_dr()

  282.     End Sub

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

  284.         ConnOpen()

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

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

  287.         CmdSet_For_dr()

  288.     End Sub

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

  290.         ConnOpen()

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

  292.         CmdSet_For_dr()

  293.     End Sub

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

  295.         ConnOpen()

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

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

  298.         CmdSet_For_dr()

  299.     End Sub

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

  301.         ConnOpen()

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

  303.         CmdSet_For_dr()

  304.     End Sub

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

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

  307.         ConnOpen()

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

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

  310.                  FROM 萬年曆 LEFT OUTER JOIN

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

  312.                        FROM 人事請假單

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

  314.                              LEFT OUTER JOIN

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

  316.                        FROM 人事考勤明細表

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

  318.                                                     LEFT OUTER JOIN

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

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

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

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

  323.         CmdSet_For_DGV()

  324.     End Sub

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

  326.         ConnOpen()

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

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

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

  330.                  FROM 萬年曆 LEFT OUTER JOIN

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

  332.                        FROM 人事請假單

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

  334.                              LEFT OUTER JOIN

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

  336.                        FROM 人事考勤明細表

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

  338.                                                     LEFT OUTER JOIN

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

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

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

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

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

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

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

  346.                  FROM 萬年曆 LEFT OUTER JOIN

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

  348.                        FROM 人事請假單

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

  350.                              LEFT OUTER JOIN

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

  352.                        FROM 人事考勤明細表

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

  354.                                                     LEFT OUTER JOIN

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

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

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

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

  359.         End If

  360.         CmdSet_For_DGV()

  361.     End Sub

  362. End Module