HSKIN-MIS-SYS
/
HSKIN-MIS-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.
17 커밋
1 브렌치
트리: aba77a9af0
브랜치 태그
${ item.name }
Create branch ${ searchTerm }
from 'aba77a9af0'
${ noResults }
HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/SQL_考勤系統.vb

SQL_考勤系統.vb 20KB
히스토리 Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296 
  1. Module SQL_考勤系統

  2.     Friend Sub SQL_補打卡申請(員工編號 As String, 日期 As String)

  3.         ConnOpen()

  4.         SQL1 = "SELECT    補打卡申請.日期, 補打卡申請.狀態, 補打卡申請.事由紀錄, 補打卡申請.是否生效, 補打卡申請.員工編號, 

  5.                           ras_Users.UserName AS 姓名

  6.                 FROM      補打卡申請 INNER JOIN

  7.                           ras_Users ON 補打卡申請.員工編號 = ras_Users.DIN

  8.                 WHERE    (補打卡申請.員工編號 LIKE N'" & 員工編號 & "') AND (補打卡申請.日期 LIKE N'" & 日期 & "%')

  9.                 ORDER BY  補打卡申請.日期 DESC"

  10.         CmdSet_For_DGV()

  11.     End Sub

  12.     Friend Sub SQL_補打卡申請查詢(員工編號 As String, 日期 As String)

  13.         ConnOpen()

  14.         SQL1 = "SELECT  員工編號, 日期  FROM  補打卡申請

  15.                 WHERE  (員工編號 LIKE N'" & 員工編號 & "' AND 日期 LIKE N'" & 日期 & "')"

  16.         CmdSet_For_dr()

  17.     End Sub

  18.     Friend Sub SQL_補打卡申請新增(員工編號 As String, 日期 As String, 狀態 As String, 事由紀錄 As String)

  19.         ConnOpen()

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

  21.                 VALUES (N'" & 員工編號 & "',N'" & 日期 & "',

  22.                         N'" & 狀態 & "' , N'" & 事由紀錄 & "','申請中', N'', N'', N'', 

  23.                         N'')"

  24.         CmdSet_For_dr()

  25.     End Sub

  26.     Friend Sub SQL_補打卡申請修改(員工編號 As String, 日期 As String, 狀態 As String, 事由紀錄 As String)

  27.         ConnOpen()

  28.         SQL1 = "UPDATE 補打卡申請 SET 狀態 = N'" & 狀態 & "', 事由紀錄 = N'" & 事由紀錄 & "'

  29.                 WHERE  日期 LIKE N'" & 日期 & "' AND 員工編號 = " & 員工編號 & ""

  30.         CmdSet_For_dr()

  31.     End Sub

  32.     Friend Sub SQL_補打卡申請刪除(員工編號 As String, 日期 As String)

  33.         ConnOpen()

  34.         SQL1 = "DELETE FROM  補打卡申請  WHERE 日期 LIKE N'" & 日期 & "' AND 員工編號 = " & 員工編號 & ""

  35.         CmdSet_For_dr()

  36.     End Sub

  37.     Friend Sub SQL_補打卡申請核准(員工編號 As String, 日期 As String, 審核人1 As String, 審核人2 As String)

  38.         ConnOpen()

  39.         SQL1 = "UPDATE  補打卡申請 SET  核准人1 = N'" & 審核人1 & "',  核准人2 = N'" & 審核人2 & "', 是否生效 = N'" & PA & "', 

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

  41.                 WHERE 日期 LIKE N'" & 日期 & "' AND 員工編號 = " & 員工編號 & ""

  42.         CmdSet_For_dr()

  43.     End Sub

  44.     Friend Sub SQL_補打卡申請未准(員工編號 As String, 日期 As String, 審核人1 As String, 審核人2 As String)

  45.         ConnOpen()

  46.         SQL1 = "UPDATE  補打卡申請 SET  核准人1 = N'未准-" & 審核人1 & "',  核准人2 = N'未准-" & 審核人2 & "', 是否生效 = N'未核准', 

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

  48.                 WHERE 日期 LIKE N'" & 日期 & "' AND 員工編號 LIKE N'" & 員工編號 & "'"

  49.         CmdSet_For_dr()

  50.     End Sub

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

  52.         ConnOpen()

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

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

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

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

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

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

  59.                 ORDER BY 編號"

  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 姓名, ras_Users.IsLockedOut AS 離職, 

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

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

  67.                 FROM       ras_Users INNER JOIN

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

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

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

  71.                 ORDER BY   編號"

  72.         CmdSet_For_DGV()

  73.     End Sub

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

  75.         ConnOpen()

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

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

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

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

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

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

  82.                 FROM     萬年曆 LEFT OUTER JOIN

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

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

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

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

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

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

  89.                          FROM   人事請假單

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

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

  92.                          FROM   加班申請單

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

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

  95.                 ORDER BY 萬年曆.日期"

  96.         CmdSet_For_DGV()

  97.     End Sub

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

  99.         ConnOpen()

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

  101.                 FROM     ras_AttRecord

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

  103.                 ORDER BY Clock"

  104.         CmdSet_For_DGV()

  105.     End Sub

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

  107.         ConnOpen()

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

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

  110.         CmdSet_For_DGV()

  111.     End Sub

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

  113.         ConnOpen()

  114.         SQL1 = "SELECT 

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

  116.          CASE 

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

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

  119.             ELSE 

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

  121.          END AS 日期

  122.         FROM 

  123.             ras_AttRecord

  124.         WHERE 

  125.         (DIN = " & PA & ") 

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

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

  128.         AND (

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

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

  131.              )

  132.         ORDER BY 

  133.         Clock"

  134.         CmdSet_For_DGV()

  135.     End Sub

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

  137.         ConnOpen()

  138.         SQL1 = "SELECT 

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

  140.          CASE 

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

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

  143.             ELSE 

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

  145.          END AS 日期

  146.         FROM 

  147.             ras_AttRecord

  148.         WHERE 

  149.         (DIN = " & PA & ") 

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

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

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

  153.         ORDER BY 

  154.         Clock"

  155.         CmdSet_For_DGV()

  156.     End Sub

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

  158.         ConnOpen()

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

  160.                 FROM     ras_AttRecord

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

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

  163.                 ORDER BY Clock"

  164.         CmdSet_For_DGV()

  165.     End Sub

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

  167.         ConnOpen()

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

  169.                 FROM     ras_AttRecord

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

  171.                 ORDER BY Clock"

  172.         CmdSet_For_DGV()

  173.     End Sub

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

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

  176.     End Sub

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

  178.         ConnOpen()

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

  180.         CmdSet_For_dr()

  181.     End Sub

  182.     Friend Sub SQL_讀取日期()

  183.         ConnOpen()

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

  185.         CmdSet_For_DGV()

  186.     End Sub

  187.     Friend Sub SQL_時間新增()

  188.         ConnOpen()

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

  190.                             LastUpdatedDate, Remark) 

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

  192.         CmdSet_For_dr()

  193.     End Sub

  194.     Friend Sub SQL_時間修改()

  195.         ConnOpen()

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

  197.         CmdSet_For_dr()

  198.     End Sub

  199.     Friend Sub SQL_時間刪除()

  200.         ConnOpen()

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

  202.         CmdSet_For_dr()

  203.     End Sub

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

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

  206.     End Sub

  207.     Friend Sub SQL_考勤地點()

  208.         ConnOpen()

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

  210.         CmdSet_For_DGV()

  211.     End Sub

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

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

  214.     End Sub

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

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

  217.     End Sub

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

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

  220.     End Sub

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

  222.         ConnOpen()

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

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

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

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

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

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

  229.         CmdSet_For_DGV()

  230.     End Sub

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

  232.         ConnOpen()

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

  234.                 FROM  考勤位置設定"

  235.         CmdSet_For_DGV()

  236.     End Sub

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

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

  239.     End Sub

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

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

  242.     End Sub

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

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

  245.     End Sub

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

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

  248.     End Sub

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

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

  251.     End Sub

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

  253.         ConnOpen()

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

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

  256.                           ras_Users.IsLockedOut AS 離職

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

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

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

  260.                 ORDER BY  系統編號"

  261.         CmdSet_For_DGV()

  262.     End Sub

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

  264.         ConnOpen()

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

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

  267.         CmdSet_For_DGV()

  268.     End Sub

  269.     Friend Sub SQL_排程日報資料讀取()

  270.         ConnOpen()

  271.         SQL1 = "SELECT     日期, CASE WHEN 醫師 LIKE '%治療' THEN LEFT(醫師, LEN(醫師) - 2) WHEN 醫師 LIKE '%回診' THEN LEFT(醫師, LEN(醫師)

  272.                             - 2) ELSE 醫師 END AS [醫師.], REPLACE(患者, '諮詢報到', '') AS 患者, 治療 AS 執行, 開始時間, 結束時間, 

  273.                            患者 AS [10: 00], 患者 AS [10: 05], 患者 AS [10: 10], 患者 AS [10: 15], 

  274.                            患者 AS [10: 20], 患者 AS [10: 25], 患者 AS [10: 30], 患者 AS [10: 35], 患者 AS [10: 40], 患者 AS [10: 45], 患者 AS [10: 50], 患者 AS [10: 55], 

  275.                            患者 AS [11: 00], 患者 AS [11: 05], 患者 AS [11: 10], 患者 AS [11: 15], 患者 AS [11: 20], 患者 AS [11: 25], 患者 AS [11: 30], 患者 AS [11: 35], 

  276.                            患者 AS [11: 40], 患者 AS [11: 45], 患者 AS [11: 50], 患者 AS [11: 55], 患者 AS [12: 00], 患者 AS [12: 05], 患者 AS [12: 10], 患者 AS [12: 15], 

  277.                            患者 AS [12: 20], 患者 AS [12: 25], 患者 AS [12: 30], 患者 AS [12: 35], 患者 AS [12: 40], 患者 AS [12: 45], 患者 AS [12: 50], 患者 AS [12: 55], 

  278.                            患者 AS [13: 00], 患者 AS [13: 05], 患者 AS [13: 10], 患者 AS [13: 15], 患者 AS [13: 20], 患者 AS [13: 25], 患者 AS [13: 30], 患者 AS [13: 35], 

  279.                            患者 AS [13: 40], 患者 AS [13: 45], 患者 AS [13: 50], 患者 AS [13: 55], 患者 AS [14: 00], 患者 AS [14: 05], 患者 AS [14: 10], 患者 AS [14: 15], 

  280.                            患者 AS [14: 20], 患者 AS [14: 25], 患者 AS [14: 30], 患者 AS [14: 35], 患者 AS [14: 40], 患者 AS [14: 45], 患者 AS [14: 50], 患者 AS [14: 55], 

  281.                            患者 AS [15: 00], 患者 AS [15: 05], 患者 AS [15: 10], 患者 AS [15: 15], 患者 AS [15: 20], 患者 AS [15: 25], 患者 AS [15: 30], 患者 AS [15: 35], 

  282.                            患者 AS [15: 40], 患者 AS [15: 45], 患者 AS [15: 50], 患者 AS [15: 55], 患者 AS [16: 00], 患者 AS [16: 05], 患者 AS [16: 10], 患者 AS [16: 15], 

  283.                            患者 AS [16: 20], 患者 AS [16: 25], 患者 AS [16: 30], 患者 AS [16: 35], 患者 AS [16: 40], 患者 AS [16: 45], 患者 AS [16: 50], 患者 AS [16: 55], 

  284.                            患者 AS [17: 00], 患者 AS [17: 05], 患者 AS [17: 10], 患者 AS [17: 15], 患者 AS [17: 20], 患者 AS [17: 25], 患者 AS [17: 30], 患者 AS [17: 35], 

  285.                            患者 AS [17: 40], 患者 AS [17: 45], 患者 AS [17: 50], 患者 AS [17: 55], 患者 AS [18: 00], 患者 AS [18: 05], 患者 AS [18: 10], 患者 AS [18: 15], 

  286.                            患者 AS [18: 20], 患者 AS [18: 25], 患者 AS [18: 30], 患者 AS [18: 35], 患者 AS [18: 40], 患者 AS [18: 45], 患者 AS [18: 50], 患者 AS [18: 55], 

  287.                            患者 AS [19: 00], 患者 AS [19: 05], 患者 AS [19: 10], 患者 AS [19: 15], 患者 AS [19: 20], 患者 AS [19: 25], 患者 AS [19: 30], 患者 AS [19: 35], 

  288.                            患者 AS [19: 40], 患者 AS [19: 45], 患者 AS [19: 50], 患者 AS [19: 55], 患者 AS [20: 00], 患者 AS [20: 05], 患者 AS [20: 10], 患者 AS [20: 15], 

  289.                            患者 AS [20: 20], 患者 AS [20: 25], 患者 AS [20: 30], 患者 AS [20: 35], 患者 AS [20: 40], 患者 AS [20: 45], 患者 AS [20: 50], 患者 AS [20: 55], 

  290.                            患者 AS [21: 00], 患者 AS [21: 05], 患者 AS [21: 10], 患者 AS [21: 15], 患者 AS [21: 20], 患者 AS [21: 25], 患者 AS [21: 30], 患者 AS [21: 35], 

  291.                            患者 AS [21: 40], 患者 AS [21: 45], 患者 AS [21: 50], 患者 AS [21: 55], 患者 AS [22: 00], 內容

  292.                 FROM       掛號日曆表

  293.                 ORDER BY  日期 DESC, [醫師.], 開始時間"

  294.         CmdSet_For_DGV()  ' WHERE     (日期 LIKE N'2025/03/25')

  295.     End Sub

  296. End Module