HSKIN-MIS-SYS
/
HSKIN-MIS-SYS-LEEHSIEHJUI
Observar 4
Favorito 0
Fork 0
Código Issues 0 Pull requests 0 Versões 0 Wiki Atividade
Nenhuma descrição
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
14 Commits
1 Branch
Tag: 7a6e8cbd80
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de 7a6e8cbd80
${ noResults }
HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/SQL_考勤系統.vb

SQL_考勤系統.vb 14KB
Histórico Original

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235 
  1. Module SQL_考勤系統

  2.     Friend Sub SQL_人員薪資資料()

  3.         ConnOpen()

  4.         SQL1 = "SELECT   ras_Users.DIN AS [No.], ras_Users.DIN AS 編號, ras_Users.UserName AS 姓名, 使用者權限管理表.CC18 AS 時薪人員, 

  5.                          使用者權限管理表.月薪, 使用者權限管理表.時薪, 使用者權限管理表.主管加級, 使用者權限管理表.職務加級, 

  6.                          使用者權限管理表.勞保費, 使用者權限管理表.健保費, 使用者權限管理表.到職日

  7.                 FROM     ras_Users INNER JOIN 使用者權限管理表 ON ras_Users.DIN = 使用者權限管理表.DIN

  8.                 WHERE    IsLockedOut = 0 AND ras_Users.DIN NOT LIKE '18' AND ras_Users.DIN NOT LIKE '19' AND 

  9.                          ras_Users.DIN NOT LIKE '21' AND ras_Users.DIN NOT LIKE '90'

  10.                 ORDER BY 編號"

  11.         CmdSet_For_DGV()

  12.     End Sub

  13.     Friend Sub SQL_考勤明細表_人員()

  14.         ConnOpen()

  15.         SQL1 = "SELECT     ras_Users.DIN AS [No.], ras_Users.DIN AS 編號, ras_Users.UserName AS 姓名, 使用者權限管理表.CC18, 

  16.                            使用者權限管理表.月薪, 使用者權限管理表.時薪, 使用者權限管理表.主管加級, 使用者權限管理表.職務加級, 

  17.                            使用者權限管理表.勞保費, 使用者權限管理表.健保費, 使用者權限管理表.到職日

  18.                 FROM       ras_Users INNER JOIN

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

  20.                 WHERE     (ras_Users.IsLockedOut = 0)  AND (ras_Users.DIN NOT LIKE '18') AND 

  21.                           (ras_Users.DIN NOT LIKE '19') AND (ras_Users.DIN NOT LIKE '21')

  22.                 ORDER BY   編號"

  23.         CmdSet_For_DGV()

  24.     End Sub

  25.     Friend Sub SQL_考勤明細表_月份考勤()  '8、9、11、12、14、15

  26.         ConnOpen()

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

  28.                          萬年曆.星期 AS 班別判斷, 萬年曆.星期 AS 一段上班, 萬年曆.星期 AS 一段下班, 萬年曆.星期 AS 休息1, 

  29.                          萬年曆.星期 AS 二段上班, 萬年曆.星期 AS 二段下班, 萬年曆.星期 AS 休息2, 萬年曆.星期 AS 加班上班, 

  30.                          萬年曆.星期 AS 加班下班, 萬年曆.星期 AS 一段工時, 萬年曆.星期 AS 二段工時, 萬年曆.星期 AS 加班工時, 

  31.                          萬年曆.星期 AS 一段加班, 萬年曆.星期 AS 二段加班, QQ.半天, QQ.班別, 萬年曆.下診 AS 最後下診, 

  32.                          BB.申請狀態, BB.加班狀態, AA.申請時數

  33.                 FROM     萬年曆 LEFT OUTER JOIN

  34.                         (SELECT 排班資料表.日期, 排班資料表.項次, 排班資料表.姓名, 排班資料表.班別, 排班資料表.上班時段, 

  35.                                 排班資料表.時數, 排班資料表.半天, 排班資料表.休息, 排班資料表.一段, 排班資料表.二段, 

  36.                                 排班資料表.排時, ras_Users.DIN

  37.                          FROM 排班資料表 INNER JOIN ras_Users ON 排班資料表.姓名 = ras_Users.UserName

  38.                          WHERE (排班資料表.日期 LIKE N'" & PA1 & "/" & PA2 & "%') AND (ras_Users.DIN = " & PA & ")) AS QQ ON 萬年曆.日期 = QQ.日期 LEFT OUTER JOIN

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

  40.                          FROM   人事請假單

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

  42.                         (SELECT 員工編號, 日期, 加班狀態, 是否生效 AS 申請狀態

  43.                          FROM   加班申請單

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

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

  46.                 ORDER BY 萬年曆.日期"

  47.         CmdSet_For_DGV()

  48.     End Sub

  49.     Friend Sub SQL_考勤明細表_考勤流水()

  50.         ConnOpen()

  51.         SQL1 = "SELECT   ID AS [No.], ID, CONVERT(varchar(100), Clock, 120) AS 打卡時間

  52.                 FROM     ras_AttRecord

  53.                 WHERE   (DIN = " & PA & ") AND (MONTH(Clock) = N'" & PA2 & "') AND (YEAR(Clock) = N'" & PA1 & "')

  54.                 ORDER BY Clock"

  55.         CmdSet_For_DGV()

  56.     End Sub

  57.     Friend Sub SQL_考勤明細表_班別()

  58.         ConnOpen()

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

  60.                 FROM  時段設定 WHERE ID > 0 ORDER BY ID"

  61.         CmdSet_For_DGV()

  62.     End Sub

  63.     Friend Sub SQL_考勤明細表_打卡讀取_上午上班()

  64.         ConnOpen()

  65.         SQL1 = "SELECT 

  66.         CONVERT(varchar(100), Clock, 24) AS 打卡時間, 

  67.          CASE 

  68.             WHEN DATEPART(HOUR, Clock) < 3 THEN 

  69.                 CONVERT(varchar(10), DATEADD(DAY, -1, Clock), 111) 

  70.             ELSE 

  71.              CONVERT(varchar(10), Clock, 111) 

  72.          END AS 日期

  73.         FROM 

  74.             ras_AttRecord

  75.         WHERE 

  76.         (DIN = " & PA & ") 

  77.         AND (MONTH(Clock) = N'" & PA2 & "') 

  78.         AND (YEAR(Clock) = N'" & PA1 & "') 

  79.         AND (

  80.             (CAST(Clock AS TIME) >= '05:00:00') OR 

  81.             (CAST(Clock AS TIME) < '03:00:00')

  82.              )

  83.         ORDER BY 

  84.         Clock"

  85. 

  86.         'SQL1 = "SELECT    CONVERT(varchar(100), Clock, 24) AS 打卡時間, CONVERT(varchar(10), Clock, 111) AS 日期

  87.         '        FROM      ras_AttRecord

  88.         '        WHERE    (DIN = " & PA & ") AND (MONTH(Clock) = N'" & PA2 & "') AND (YEAR(Clock) = N'" & PA1 & "') AND 

  89.         '                 (CAST(Clock AS TIME) >= '05:00:00')

  90.         '        ORDER BY  Clock"

  91.         CmdSet_For_DGV()

  92.         'SQL1 = "WHERE   (DIN = " & PA & ") AND (DAY(Clock) = N'" & PA3 & "') AND (MONTH(Clock) = N'" & PA2 & "') AND (YEAR(Clock) = N'" & PA1 & "') AND 

  93.         '                (Clock >= N'" & PA1 & "/" & PA2 & "/" & PA3 & " 05:00:00')"

  94.     End Sub

  95.     Friend Sub SQL_考勤明細表_打卡讀取_中午下上班()

  96.         ConnOpen()

  97.         SQL1 = "SELECT 

  98.         CONVERT(varchar(100), Clock, 24) AS 打卡時間, 

  99.          CASE 

  100.             WHEN DATEPART(HOUR, Clock) < 3 THEN 

  101.                 CONVERT(varchar(10), DATEADD(DAY, -1, Clock), 111) 

  102.             ELSE 

  103.              CONVERT(varchar(10), Clock, 111) 

  104.          END AS 日期

  105.         FROM 

  106.             ras_AttRecord

  107.         WHERE 

  108.         (DIN = " & PA & ") 

  109.         AND (MONTH(Clock) = N'" & PA2 & "') 

  110.         AND (YEAR(Clock) = N'" & PA1 & "') 

  111.         AND (CAST(Clock AS TIME) <= '23:59:59')

  112.         ORDER BY 

  113.         Clock"

  114.         'SQL1 = "SELECT    CONVERT(varchar(100), Clock, 24) AS 打卡時間, CONVERT(varchar(10), Clock, 111) AS 日期

  115.         '        FROM      ras_AttRecord

  116.         '        WHERE    (DIN = " & PA & ") AND (MONTH(Clock) = N'" & PA2 & "') AND (YEAR(Clock) = N'" & PA1 & "') AND 

  117.         '                 (CAST(Clock AS TIME) <= '23:59:59')

  118.         '        ORDER BY  Clock"

  119.         CmdSet_For_DGV()

  120.         'SQL1 = "WHERE    (DIN = " & PA & ") AND (DAY(Clock) = N'" & PA3 & "') AND (MONTH(Clock) = N'" & PA2 & "') AND (YEAR(Clock) = N'" & PA1 & "') AND 

  121.         '                 (Clock < N'" & PA1 & "/" & PA2 & "/" & PA3 & " 23:59:59' AND Clock >= N'" & PA1 & "/" & PA2 & "/" & PA3 & " " & DTPS(0) & "')"

  122.     End Sub

  123.     Friend Sub SQL_考勤明細表_打卡讀取_晚上下上班()

  124.         ConnOpen()

  125.         SQL1 = "SELECT   CONVERT(varchar(100), Clock, 24) AS 打卡時間, CONVERT(varchar(10), Clock, 111) AS 日期

  126.                 FROM     ras_AttRecord

  127.                 WHERE   (DIN = " & PA & ") AND (DAY(Clock) = N'" & PA3 & "') AND (MONTH(Clock) = N'" & PA2 & "') AND (YEAR(Clock) = N'" & PA1 & "') AND 

  128.                         (Clock < N'" & PA1 & "/" & PA2 & "/" & PA3 & " " & DTPS(3) & "' AND Clock >= N'" & PA1 & "/" & PA2 & "/" & PA3 & " " & DTPS(2) & "')

  129.                 ORDER BY Clock"

  130.         CmdSet_For_DGV()

  131.     End Sub

  132.     Friend Sub SQL_考勤明細表_打卡讀取_加班下班()

  133.         ConnOpen()

  134.         SQL1 = "SELECT   CONVERT(varchar(100), Clock, 24) AS 打卡時間, CONVERT(varchar(10), Clock, 111) AS 日期

  135.                 FROM     ras_AttRecord

  136.                 WHERE   (DIN = " & PA & ") AND (Clock < N'" & PA4 & " 05:00:00' AND Clock >= N'" & PA1 & "/" & PA2 & "/" & PA3 & " " & DTPS(4) & "')

  137.                 ORDER BY Clock"

  138.         CmdSet_For_DGV()

  139.     End Sub

  140.     Friend Sub SQL_考勤明細表_年份_下拉()

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

  142.     End Sub

  143.     Friend Sub SQL_考勤明細表_讀取編號()

  144.         ConnOpen()

  145.         SQL1 = "SELECT DIN FROM ras_Users WHERE (UserName LIKE N'" & gUserName & "')"

  146.         CmdSet_For_dr()

  147.     End Sub

  148.     Friend Sub SQL_讀取日期()

  149.         ConnOpen()

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

  151.         CmdSet_For_DGV()

  152.     End Sub

  153.     Friend Sub SQL_時間新增()

  154.         ConnOpen()

  155.         SQL1 = "INSERT INTO ras_AttRecord (DN, DIN, Clock, VerifyMode, Action, AttTypeId, CollectDate, JobCode, Antipassback, LastUpdatedUID, 

  156.                             LastUpdatedDate, Remark) 

  157.                 VALUES ('1', N'" & PA4 & "', N'" & PA3 & "', N'0', N'1', N'H01', N'" & Today() & "', 0, 0, 0, " & Today() & ", N'')"

  158.         CmdSet_For_dr()

  159.     End Sub

  160.     Friend Sub SQL_時間修改()

  161.         ConnOpen()

  162.         SQL1 = "UPDATE ras_AttRecord SET Clock = N'" & PA3 & "' WHERE ID = " & PA4 & ""

  163.         CmdSet_For_dr()

  164.     End Sub

  165.     Friend Sub SQL_時間刪除()

  166.         ConnOpen()

  167.         SQL1 = "DELETE ras_AttRecord  WHERE ID = " & PA4 & ""

  168.         CmdSet_For_dr()

  169.     End Sub

  170.     Friend Sub SQL_資料庫選擇()

  171.         ConnOpen() : SQL1 = "SELECT  TOP (1) 圖片資料庫  FROM  圖片資料庫管理  WHERE  (是否可用 = 0)  ORDER BY  圖片資料庫" : CmdSet_For_dr()

  172.     End Sub

  173.     Friend Sub SQL_考勤地點()

  174.         ConnOpen()

  175.         SQL1 = "SELECT  地點, 經度, 緯度, 容許誤差  FROM  考勤位置設定"

  176.         CmdSet_For_DGV()

  177.     End Sub

  178.     Friend Sub SQL_考勤地點新增()

  179.         ConnOpen() : SQL1 = "INSERT INTO 考勤位置設定 (地點, 經度, 緯度, 容許誤差) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')" : CmdSet_For_dr()

  180.     End Sub

  181.     Friend Sub SQL_考勤地點修改()

  182.         ConnOpen() : SQL1 = "UPDATE 考勤位置設定 SET 經度 = N'" & PA2 & "', 緯度 = N'" & PA3 & "', 容許誤差 = N'" & PA4 & "' WHERE 地點 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  183.     End Sub

  184.     Friend Sub SQL_考勤地點刪除()

  185.         ConnOpen() : SQL1 = "DELETE 考勤位置設定 WHERE 地點 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  186.     End Sub

  187.     Friend Sub SQL_考勤位置異常清單()

  188.         ConnOpen()

  189.         SQL1 = "SELECT    手機打卡考勤表.主管機台 AS 設備認證, 手機打卡考勤表.打卡時間, ras_Users.UserName AS 打卡人員, 

  190.                           手機打卡考勤表.經度, 手機打卡考勤表.緯度, 手機打卡考勤表.狀態, 手機打卡考勤表.機碼, 

  191.                           手機打卡考勤表.狀態 AS [狀態.]

  192.                 FROM      手機打卡考勤表 INNER JOIN

  193.                           ras_Users ON 手機打卡考勤表.機碼 = ras_Users.DIN " & SQL2 & "

  194.                 ORDER BY  手機打卡考勤表.打卡時間, 打卡人員"

  195.         CmdSet_For_DGV()

  196.     End Sub

  197.     Friend Sub SQL_考勤位置清單()

  198.         ConnOpen()

  199.         SQL1 = "SELECT  地點, 經度, 緯度, 容許誤差, 地點 AS 考勤距離, 地點 AS [判斷狀態]  

  200.                 FROM  考勤位置設定"

  201.         CmdSet_For_DGV()

  202.     End Sub

  203.     Friend Sub SQL_考勤地點異常修改()

  204.         ConnOpen() : SQL1 = "UPDATE 手機打卡考勤表 SET 狀態 = N'" & PA3 & "'  WHERE 機碼 LIKE N'" & PA1 & "' AND 打卡時間 = N'" & PA2 & "'" : CmdSet_For_dr()

  205.     End Sub

  206.     Friend Sub SQL_考勤系統手機綁定資料重複確認()

  207.         ConnOpen() : SQL1 = "SELECT * FROM  手機打卡驗證管理  WHERE  (帳號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  208.     End Sub

  209.     Friend Sub SQL_考勤系統手機綁定資料新增()

  210.         ConnOpen() : SQL1 = "INSERT INTO 手機打卡驗證管理 (帳號, 機碼, 獨立打卡, 不鎖定) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')" : CmdSet_For_dr()

  211.     End Sub

  212.     Friend Sub SQL_考勤系統手機綁定資料修改()

  213.         ConnOpen() : SQL1 = "UPDATE 手機打卡驗證管理 SET 帳號 = N'" & PA2 & "', 獨立打卡 = N'" & PA3 & "', 不鎖定 = N'" & PA4 & "' WHERE 機碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  214.     End Sub

  215.     Friend Sub SQL_考勤系統手機綁定資料刪除()

  216.         ConnOpen() : SQL1 = "DELETE 手機打卡驗證管理 WHERE 帳號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  217.     End Sub

  218.     Friend Sub SQL_考勤系統手機綁定清單()

  219.         ConnOpen()

  220.         SQL1 = "SELECT    使用者權限管理表.職位, ras_Users.UserName AS 姓名, ras_Users.DIN AS 系統編號, 手機打卡驗證管理.帳號, 

  221.                           手機打卡驗證管理.機碼, 手機打卡驗證管理.獨立打卡, 手機打卡驗證管理.不鎖定, 

  222.                           ras_Users.IsLockedOut AS 離職

  223.                 FROM      手機打卡驗證管理 INNER JOIN

  224.                           使用者權限管理表 ON 手機打卡驗證管理.機碼 = 使用者權限管理表.DIN INNER JOIN

  225.                           ras_Users ON 手機打卡驗證管理.機碼 = ras_Users.DIN

  226.                 ORDER BY  系統編號"

  227.         CmdSet_For_DGV()

  228.     End Sub

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

  230.         ConnOpen()

  231.         SQL1 = "SELECT   ras_Users.UserName AS 姓名, 使用者權限管理表.DIN AS 系統編號 , 使用者權限管理表.職位 AS 職稱, ras_Users.UserName AS 帳號

  232.                 FROM     使用者權限管理表 INNER JOIN ras_Users ON 使用者權限管理表.DIN = ras_Users.DIN" & SQL2

  233.         CmdSet_For_DGV()

  234.     End Sub

  235. End Module