Module SQL_總務系統
    Friend Sub SQL_圖片資料庫查詢()
        ConnOpen() : SQL1 = "SELECT TOP (1) 圖片資料庫, 是否可用 FROM 圖片資料庫管理 WHERE 是否可用 = 0 ORDER BY 圖片資料庫" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄_姓名_下拉清單()
        ConnOpen()
        SQL1 = "SELECT  UserName AS 姓名  FROM  ras_Users  WHERE  (IsLockedOut = 0) AND (DIN NOT LIKE '15') AND (DIN NOT LIKE '21') AND (DIN NOT LIKE '999')  ORDER BY   UserName"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄_執行時間_下拉清單()
        ConnOpen_ERP()
        SQL1 = "SELECT 執行時間 FROM 會議記錄控制表 WHERE 執行時間 NOT LIKE '' GROUP BY 執行時間 ORDER BY 執行時間"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄清單()
        ConnOpen_ERP()
        SQL1 = "SELECT 會議編號, 時間, 地點, 會議項目, 細項說明, 執行時間, 執行情況, 預計完成, 備註, 已完成, 長期執行, 圖片庫, 核准, 核准狀態 
                FROM   會議記錄控制表 " & SQL2 & " ORDER BY 時間 DESC, 會議編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會議記錄_預計完成_下拉清單()
        ConnOpen_ERP()
        SQL1 = "SELECT 預計完成 FROM 會議記錄控制表 
                WHERE 預計完成 NOT LIKE '' AND 預計完成 NOT LIKE '1%' AND 預計完成 NOT LIKE '2%' AND 預計完成 NOT LIKE '3%' AND 預計完成 NOT LIKE '4%' AND 
                      預計完成 NOT LIKE '5%' AND 預計完成 NOT LIKE '6%' AND 預計完成 NOT LIKE '7%' AND 預計完成 NOT LIKE '8%' AND 預計完成 NOT LIKE '9%' AND 
                      預計完成 NOT LIKE '0%' GROUP BY 預計完成 ORDER BY 預計完成"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄_執行情況_下拉清單()
        ConnOpen_ERP() : SQL1 = "SELECT 執行情況 FROM 會議記錄控制表 WHERE 執行情況 NOT LIKE '' GROUP BY 執行情況 ORDER BY 執行情況" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議決議執行人()
        ConnOpen_ERP() : SQL1 = "SELECT 項次, 執行人 FROM 會議決議執行人 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會議記錄_單號查詢()
        ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 會議編號 FROM 會議記錄控制表 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄修改()
        ConnOpen_ERP()
        SQL1 = "UPDATE 會議記錄控制表 SET 時間 = N'" & PA2 & "', 地點 = N'" & PA3 & "', 會議項目 = N'" & PA4 & "', 細項說明 = N'" & PA5 & "', 執行時間 = N'" & PA6 & "', 
                                          執行情況 = N'" & PA7 & "', 預計完成 = N'" & PA8 & "', 備註 = N'" & PA9 & "', 已完成 = N'" & BL1 & "', 長期執行 = N'" & BL2 & "', 
                                          核准 = N'" & BL3 & "' 
                WHERE (會議編號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄修改1()
        ConnOpen_ERP()
        SQL1 = "UPDATE 會議記錄控制表 SET  核准 = N'" & BL3 & "', 備註 = N'" & PA9 & "', 核准狀態  = N'" & PA10 & "' WHERE (會議編號 LIKE '" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄新增()
        ConnOpen_ERP()
        SQL1 = "INSERT INTO  會議記錄控制表 (會議編號, 時間, 地點, 會議項目, 細項說明, 執行時間, 執行情況, 預計完成, 備註, 已完成, 長期執行, 圖片庫, 核准) 
                VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', 
                        N'" & PA9 & "', N'" & BL1 & "', N'" & BL2 & "', N'" & PA10 & "', N'" & BL3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議決議執行人刪除()
        ConnOpen_ERP() : SQL1 = "DELETE 會議決議執行人 WHERE 會議編號 LIKE '" & PA1 & "' AND 執行人 LIKE N'" & PA3 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議決議執行人_單號查詢()
        ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 會議編號 FROM 會議決議執行人 WHERE (會議編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議決議執行人新增()
        ConnOpen_ERP()
        SQL1 = "INSERT INTO  會議決議執行人 (會議編號, 項次, 執行人) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議記錄刪除()
        ConnOpen_ERP() : SQL1 = "DELETE 會議記錄控制表 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
        ConnOpen_ERP() : SQL1 = "DELETE 會議決議執行人 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
        ConnOpen_圖庫SQL() : SQL1 = "DELETE 會議記錄圖片 WHERE (會議編號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議圖片讀取()
        ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議圖片()
        ConnOpen_圖庫SQL() : SQL1 = "UPDATE 會議記錄圖片 SET 檔案 = 'JPG' WHERE 檔案 IS NULL" : CmdSet_For_dr()
        ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 AS Item, 檔案 AS [File.] FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會議圖片讀取1()
        ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會議圖片入系統()
        ConnOpen_圖庫SQL()
        SQL1 = "INSERT INTO 會議記錄圖片 (會議編號, 項次, 檔案, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', @binary_file"
        CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_會議圖片最後一筆編號查詢()
        ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 FROM 會議記錄圖片 WHERE 會議編號 LIKE '" & PA1 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議_明細表讀取()
        ConnOpen_ERP()
        SQL1 = "SELECT  會議記錄明細表.控制表流水號, 會議記錄明細表.人員 AS 姓名, 會議記錄明細表.圖片資料庫, 會議記錄明細表.圖片流水號 , 空白圖片用.圖片, 
                        會議記錄明細表.簽名日期, 空白圖片用.圖片 AS 關閉
                FROM    會議記錄明細表 LEFT OUTER JOIN
                         空白圖片用 ON 會議記錄明細表.圖片資料庫 = 空白圖片用.選擇
                WHERE   控制表流水號 LIKE N'" & PA57 & "' AND (會議記錄明細表.關閉 IS NULL OR 會議記錄明細表.關閉 = 0)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會議_明細表關閉(控制表流水號 As String, 人員 As String)
        ConnOpen_ERP()
        SQL1 = "UPDATE 會議記錄明細表 SET 關閉 = 1 WHERE (控制表流水號 LIKE N'" & 控制表流水號 & "' AND 人員 LIKE N'" & 人員 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議_明細表新增_驗證()
        ConnOpen_ERP()
        SQL1 = "SELECT 人員 FROM 會議記錄明細表 WHERE 控制表流水號 LIKE N'" & PA57 & "' AND  人員 LIKE N'" & PA58 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議_明細表新增()
        ConnOpen_ERP()
        SQL1 = "INSERT INTO 會議記錄明細表 (控制表流水號, 人員, 圖片資料庫, 圖片流水號,簽名日期) VALUES (N'" & PA57 & "', N'" & PA58 & "', N'', N'', N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議_明細表刪除()
        ConnOpen_ERP()
        SQL1 = "DELETE FROM 會議記錄明細表 
                WHERE   控制表流水號 =N'" & PA1 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_通用_控制表清單()
        ConnOpen_ERP()
        If PA56 = "" Then
            SQL2 = ""
        Else
            SQL2 = " AND 文件控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 文件控制表.主旨 LIKE N'%" & PA56 & "%' OR 文件控制表.說明 LIKE N'%" & PA56 & "%'
                    OR 文件控制表.開單人 Like N'%" & PA56 & "%'"
        End If
        SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選,圖片庫 FROM 文件控制表
                WHERE (已儲存 = 1) AND (已作廢 = 0) AND (已發行 = 0) " & SQL2 & " 
                ORDER BY 流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_通用_控制表清單1()
        ConnOpen_ERP()
        If PA56 = "" Then
            SQL2 = ""
        Else
            SQL2 = " AND 文件控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 文件控制表.主旨 LIKE N'%" & PA56 & "%' OR 文件控制表.說明 LIKE N'%" & PA56 & "%'
                     OR 文件控制表.開單人 Like N'%" & PA56 & "%'"
        End If
        SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選,圖片庫 FROM 文件控制表
                WHERE 已作廢 = 1  " & SQL2 & " 
                ORDER BY 流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_通用_控制表清單2()
        ConnOpen_ERP()
        If PA56 = "" Then
            SQL2 = ""
        Else
            SQL2 = " AND 文件控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 文件控制表.主旨 LIKE N'%" & PA56 & "%' OR 文件控制表.說明 LIKE N'%" & PA56 & "%'
                     OR 文件控制表.開單人 Like N'%" & PA56 & "%'"
        End If
        SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選,圖片庫 FROM 文件控制表
                WHERE 已發行 = 1  " & SQL2 & " 
                ORDER BY 流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_通用_查詢第一筆單號()
        ConnOpen_ERP()
        SQL1 = "SELECT TOP (1)  流水號 FROM 文件控制表 ORDER BY 流水號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_文件沒存檔的全部存檔()
        ConnOpen_ERP() : SQL1 = "UPDATE  文件控制表  SET  已儲存 = 1  WHERE  (已儲存 = 0)" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_通用_新增一筆公函控制表(ByVal 檔案名稱 As String, ByVal 圖片庫 As String)
        ConnOpen_ERP()
        SQL1 = "INSERT INTO 文件控制表 (流水號 ,檔案名稱,選擇日期,主旨,說明,已儲存,已作廢,已發行,開單人,全選, 圖片庫) " &
               "VALUES (N'" & PA & "', N'" & 檔案名稱 & "', N'" & PA1 & "', N'', N'',0,0,0,N'" & gUserName & "',0, N'" & 圖片庫 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_通用_控制表刪除(ByVal 流水號 As String)
        ConnOpen_ERP()
        SQL1 = "DELETE FROM 文件控制表 WHERE (流水號 LIKE N'" & 流水號 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_通用_控制表修改(ByVal 檔案名稱 As String, ByVal 主旨 As String, ByVal 說明 As String, ByVal 流水號 As String, ByVal 全選 As Boolean)
        ConnOpen_ERP()

        SQL1 = "UPDATE 文件控制表 SET 檔案名稱 = N'" & 檔案名稱 & "', 主旨 = N'" & 主旨 & "',  說明= N'" & 說明 & "' , 已儲存 = 1  , 全選 =N'" & 全選 & "'
                 WHERE (流水號 LIKE N'" & 流水號 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_通用_控制表作廢(ByVal 流水號 As String)
        ConnOpen_ERP()
        SQL1 = "UPDATE 文件控制表 SET 已作廢 = 1 WHERE (流水號 LIKE N'" & 流水號 & "') "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_通用_控制表鎖定(ByVal 流水號 As String)
        ConnOpen_ERP()
        SQL1 = "UPDATE 文件控制表 SET 已儲存 = 1 WHERE (流水號 LIKE N'" & 流水號 & "') "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_通用_控制表發行(ByVal 流水號 As String)
        ConnOpen_ERP()
        SQL1 = "UPDATE 文件控制表 SET 已發行 = 1 WHERE (流水號 LIKE N'" & 流水號 & "') "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_通用_人員清單()
        ConnOpen()
        SQL1 = "SELECT     ras_Users.DIN AS 編號, ras_Users.UserName AS 姓名 ,ISNULL(空白選擇.選擇, 0) AS 選擇
                FROM       ras_Users 
                LEFT OUTER JOIN
                         空白選擇 ON ras_Users.DIN = 空白選擇.選擇
                WHERE     (ras_Users.IsLockedOut = 0)  AND (ras_Users.DIN NOT LIKE '18') AND 
                          (ras_Users.DIN NOT LIKE '19') AND (ras_Users.DIN NOT LIKE '21') AND (ras_Users.DIN NOT LIKE '999')  
                ORDER BY   編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_通用_明細表讀取()
        ConnOpen_ERP()
        SQL1 = "SELECT  文件明細表.控制表流水號, 文件明細表.人員 AS 姓名, 文件明細表.圖片資料庫, 文件明細表.圖片流水號 , 空白圖片用.圖片, 文件明細表.簽名日期
                FROM    文件明細表 
                LEFT OUTER JOIN
                         空白圖片用 ON 文件明細表.圖片資料庫 = 空白圖片用.選擇
                WHERE   控制表流水號 =N'" & PA57 & "'"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_通用_明細表新增()
        ConnOpen_ERP()
        SQL1 = "INSERT INTO 文件明細表 (控制表流水號, 人員, 圖片資料庫, 圖片流水號,簽名日期) VALUES (N'" & PA57 & "', N'" & PA58 & "', N'', N'', N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_通用_明細表刪除()
        ConnOpen_ERP()
        SQL1 = "DELETE FROM 文件明細表 
                WHERE   控制表流水號 =N'" & PA57 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_文件圖片讀取()
        ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_文件圖片()
        ConnOpen_圖庫SQL() : SQL1 = "UPDATE 文件圖片庫 SET 檔案 = 'JPG' WHERE 檔案 IS NULL" : CmdSet_For_dr()
        ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 AS Item, 檔案 AS [File.] FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_文件圖片讀取1()
        ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_文件圖片入系統()
        ConnOpen_圖庫SQL()
        SQL1 = "INSERT INTO 文件圖片庫 (文件編號, 項次, 檔案, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', @binary_file"
        CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_文件圖片最後一筆編號查詢()
        ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_文件圖片刪除()
        ConnOpen_圖庫SQL() : SQL1 = "DELETE 文件圖片庫 WHERE (文件編號 LIKE '" & PA57 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_會議未簽()
        ConnOpen_ERP()
        SQL1 = "SELECT    會議記錄控制表.會議項目, 會議記錄明細表.人員 AS 人員集合
                FROM      會議記錄明細表 INNER JOIN
                          會議記錄控制表 ON 會議記錄明細表.控制表流水號 = 會議記錄控制表.會議編號 RIGHT OUTER JOIN
                          Huang_PH_SYS.dbo.ras_Users ON 會議記錄明細表.人員 = Huang_PH_SYS.dbo.ras_Users.UserName
                WHERE    (會議記錄明細表.圖片流水號 LIKE '') AND (會議記錄明細表.人員 NOT LIKE '即時清') AND 
                         (Huang_PH_SYS.dbo.ras_Users.IsLockedOut = 0) AND (會議記錄控制表.已完成 = 0) AND (會議記錄明細表.關閉 IS NULL OR 會議記錄明細表.關閉 = 0) 
                ORDER BY  會議記錄明細表.控制表流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_會議未簽1()
        ConnOpen_ERP()
        SQL1 = "SELECT    會議記錄明細表.控制表流水號, 會議記錄控制表.會議項目
                FROM      會議記錄明細表 INNER JOIN
                          會議記錄控制表 ON 會議記錄明細表.控制表流水號 = 會議記錄控制表.會議編號 INNER JOIN
                          Huang_PH_SYS.dbo.ras_Users ON 會議記錄明細表.人員 = Huang_PH_SYS.dbo.ras_Users.UserName
                WHERE    (會議記錄明細表.圖片流水號 LIKE '') AND (會議記錄明細表.人員 NOT LIKE '即時清') AND 
                         (Huang_PH_SYS.dbo.ras_Users.IsLockedOut = 0) AND (會議記錄控制表.已完成 = 0) AND (會議記錄明細表.關閉 IS NULL OR 會議記錄明細表.關閉 = 0)
                GROUP BY  會議記錄控制表.會議項目, 會議記錄明細表.控制表流水號
                ORDER BY  會議記錄明細表.控制表流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_文件未簽()
        ConnOpen_ERP()
        SQL1 = "SELECT    文件控制表.主旨, STRING_AGG(文件明細表.人員, '、') AS 人員列表
                FROM      文件明細表 INNER JOIN
                          Huang_PH_SYS.dbo.ras_Users ON 文件明細表.人員 = Huang_PH_SYS.dbo.ras_Users.UserName INNER JOIN
                          文件控制表 ON 文件明細表.控制表流水號 = 文件控制表.流水號
                WHERE    (文件明細表.圖片流水號 LIKE '') AND (Huang_PH_SYS.dbo.ras_Users.IsLockedOut = 0) AND 
                         (文件明細表.人員 NOT LIKE '即時清') AND (文件控制表.已發行 = 1)
                GROUP BY  文件控制表.主旨, 文件明細表.控制表流水號
                ORDER BY  文件明細表.控制表流水號 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_判斷是否已經通知()
        ConnOpen_ERP() : SQL1 = "SELECT  發訊日期  FROM  到期LINE通知 WHERE 發訊日期 LIKE N'" & Strings.Format(Today(), "yyyy/MM/dd") & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_到期LINE通知寫入()
        SQL1 = "INSERT INTO  到期LINE通知 (發訊日期) VALUES (N'" & Strings.Format(Today(), "yyyy/MM/dd") & "')"
        ConnOpen_ERP() : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_溫度紀錄(年分 As String, 跨距 As String, 條件 As String)
        ConnOpen_ERP()
        SQL1 = "SELECT    ROUND(AVG(CAST(感測器1溫度 AS FLOAT)), 0) AS 溫度1, ROUND(AVG(CAST(感測器1濕度 AS FLOAT)), 0) AS 濕度1, 
                          ROUND(AVG(CAST(感測器1露點溫度 AS FLOAT)), 0) AS 露點1, ROUND(AVG(CAST(感測器2溫度 AS FLOAT)), 0) AS 溫度2, 
                          ROUND(AVG(CAST(感測器2濕度 AS FLOAT)), 0) AS 濕度2, ROUND(AVG(CAST(感測器2露點溫度 AS FLOAT)), 0) AS 露點2, 
                          LEFT(上傳時間, " & 跨距 & ") AS 日期
                FROM     [" & 年分 & "-溫控歷史記錄表]
                WHERE    (上傳時間 LIKE N'" & 條件 & "%')
                GROUP BY  LEFT(上傳時間, " & 跨距 & ")
                ORDER BY  日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_當前溫度()
        ConnOpen_ERP()
        Dim 年度 As String = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 4)
        SQL1 = "SELECT  TOP (1) 感測器1溫度 AS 溫度1, 感測器1濕度 AS 濕度1, 感測器2溫度 AS 溫度2, 感測器2濕度 AS 濕度2, 感測器1露點溫度 AS 露點1, 感測器2露點溫度 AS 露點2
                FROM    [" & 年度 & "-溫控歷史記錄表]  ORDER BY  上傳時間 DESC"
        CmdSet_For_dr()
    End Sub
End Module