GCM-LINE-SYS-LEEHSIEHJUI/GCM-LINE-SYS/0.MyModule/模組/SQL_LINE.vb

Imports System.IO
Imports System.Net
Imports System.Text
Imports Newtonsoft.Json

Module SQL_LINE
    ''' <summary>
    ''' 使用代號之前，請先到LINE使用者管理去進行設定
    ''' 對象  請在LINE使用者管理中去複製字串出來。
    ''' </summary>
    Public Sub LIN訊息通知(ByVal 代號 As String, ByVal 對象 As String, Optional ByVal 變數X As String = "", Optional ByVal 變數Y As String = "")
        LINE_權限代號 = 代號 : 發送對象 = 對象 : 通知變數X = 變數X : 通知變數Y = 變數Y : LINE_通知模塊()
    End Sub

    '=====LINE_權限代號 = "CC207" : 發送對象 = "tltony1234" : 通知變數X = "王詩文" : 通知變數Y = "9/7號" : LINE_通知模塊()=====
    Friend Sub SQL_LINE_使用者管理表_清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT    " & LINE_登入權限 & " FROM LINE_使用者權限管理表  " & SQL2 & "    ORDER BY   帳號 "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_未綁定使用者清單載入(區域 As String)
        ConnOpen_LINE_SQL()
        If 帳號綁定 = "MCD" Then
            SQL1 = "SELECT  姓名,帳號   FROM LINE_使用者權限管理表  WHERE (帳號 LIKE N'MCD' ) AND (UserID IS NULL  OR  UserID LIKE N'' )"
        Else
            SQL1 = "SELECT  姓名,帳號   FROM LINE_使用者權限管理表  WHERE (帳號 LIKE N'" & 區域 & "' AND 帳號 NOT LIKE N'MCD' ) AND (UserID IS NULL  OR  UserID LIKE N'' )"
        End If

        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_已綁定使用者清單載入(區域 As String)
        ConnOpen_LINE_SQL()
        If 帳號綁定 = "MCD" Then
            SQL1 = "SELECT  姓名,UserID,帳號   FROM LINE_使用者權限管理表  WHERE (帳號 LIKE N'MCD' ) AND UserID IS NOT NULL  AND  UserID NOT LIKE N'' "
        Else
            SQL1 = "SELECT  姓名,UserID,帳號   FROM LINE_使用者權限管理表  WHERE (帳號 LIKE N'" & 區域 & "'  AND 帳號 NOT LIKE N'MCD'  ) AND UserID IS NOT NULL  AND  UserID NOT LIKE N'' "
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_未綁定LINEid清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT DISTINCT LINE_使用者資料表.UserID
                        FROM              LINE_使用者資料表 LEFT OUTER JOIN
                                                    LINE_使用者權限管理表 ON LINE_使用者資料表.UserID = LINE_使用者權限管理表.UserID
                        WHERE          (LINE_使用者資料表.UserID IS NOT NULL) AND (LINE_使用者權限管理表.姓名 IS NULL OR
                                                    LINE_使用者權限管理表.姓名 LIKE N'')
                        ORDER BY   LINE_使用者資料表.UserID"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_個人對話紀錄(user_id As String)
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT createtime AS 日期, text AS 內容   FROM LINE_個人紀錄表  WHERE (UserID LIKE N'" & user_id & "' ) "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_群組對話紀錄(user_id As String)
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT         createtime AS 日期,  text AS 內容
                        FROM              LINE_WS群組紀錄表
                        WHERE          (UserID LIKE N'" & user_id & "')
                        UNION ALL
                        SELECT          createtime AS 日期, text AS 內容
                        FROM              LINE_MCD群組紀錄表
                        WHERE           (UserID LIKE N'" & user_id & "')
                        ORDER BY          createtime DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_綁定UserID(user_id As String, 姓名 As String, 區域 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE  LINE_使用者權限管理表  SET UserID=N'" & user_id & "' WHERE 姓名 LIKE N'" & 姓名 & "' AND 帳號 LIKE N'" & 區域 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_使用者清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT 姓名,UserID FROM LINE_使用者權限管理表 WHERE 帳號 LIKE N'MCD'"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_MCD_檢查有無重複(姓名 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT 姓名 FROM LINE_使用者權限管理表 WHERE 帳號 LIKE N'MCD' AND 姓名 LIKE N'" & 姓名 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_新增使用者(姓名 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO LINE_使用者權限管理表(姓名,帳號) VALUES (N'" & 姓名 & "',N'MCD')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_刪除使用者(姓名 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "DELETE FROM  LINE_使用者權限管理表 WHERE 姓名 LIKE N'" & 姓名 & "' AND 帳號 LIKE N'MCD'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_修改使用者(姓名 As String, 舊名 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE LINE_使用者權限管理表 SET 姓名=N'" & 姓名 & "' WHERE 姓名 LIKE N'" & 舊名 & "' AND 帳號 LIKE N'MCD'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_金句清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  ID, 抬頭, 內容, 頁腳 FROM  LINE_金句設定表 ORDER BY ID"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_MCD_查詢金句最後()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  ID FROM  LINE_金句設定表 ORDER BY ID DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_金句新增(ID As String)
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO LINE_金句設定表( ID, 抬頭, 內容, 頁腳) VALUES (N'" & ID & "' ,N'',N'',N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_金句修改(ID As String, 抬頭 As String, 內容 As String, 頁腳 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE LINE_金句設定表  SET 抬頭=N'" & 抬頭 & "', 內容=N'" & 內容 & "', 頁腳=N'" & 頁腳 & "' WHERE ID LIKE N'" & ID & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_歷史訊息清單()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT         LINE_使用者權限管理表.姓名, LINE_MCD群組紀錄表.UserID, LINE_MCD群組紀錄表.text, 
                                                    LINE_MCD群組紀錄表.createtime
                        FROM              LINE_MCD群組紀錄表 LEFT OUTER JOIN
                                                    LINE_使用者權限管理表 ON LINE_MCD群組紀錄表.UserID = LINE_使用者權限管理表.UserID
                        ORDER BY   LINE_MCD群組紀錄表.createtime DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_MCD_關鍵字清單載入(區域 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  ID, 關鍵字, 回應內容  FROM  LINE_關鍵字設定表   WHERE 區域 LIKE N'" & 區域 & "'  ORDER BY ID"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_MCD_查詢關鍵字最後(區域 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  ID FROM  LINE_關鍵字設定表 WHERE 區域 LIKE N'" & 區域 & "'  ORDER BY ID DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_關鍵字新增(ID As String, 區域 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO LINE_關鍵字設定表(ID, 關鍵字, 回應內容, 區域) VALUES (N'" & ID & "' ,N'',N'',N'" & 區域 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_MCD_關鍵字修改(ID As String, 關鍵字 As String, 回應內容 As String, 區域 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE LINE_關鍵字設定表  SET 關鍵字=N'" & 關鍵字 & "', 回應內容=N'" & 回應內容 & "' WHERE ID LIKE N'" & ID & "' AND 區域 LIKE N'" & 區域 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_使用者管理表_清單載入1()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT    " & LINE_登入權限2 & " FROM LINE_使用者權限管理表 RIGHT OUTER JOIN 使用者權限管理表 AS 使用者權限管理表_1 ON 
                           LINE_使用者權限管理表.帳號 = 使用者權限管理表_1.帳號 
                ORDER BY   使用者權限管理表_1.部門, 使用者權限管理表_1.職稱, 使用者權限管理表_1.課別, 使用者權限管理表_1.組別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_通知設定表_清單載入(通知參數 As String)
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT 帳號,姓名,通知語言,Line,WhatsApp,Message,UserID,token,電話號碼1,電話號碼2,電話號碼3 FROM LINE_使用者權限管理表 " & 通知參數 & " ORDER BY 帳號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_使用者資料修改()
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE LINE_使用者權限管理表 SET UserID = N'" & LINE_使用者管理表.token_tb.Text &
               "',通知語言 = N'" & LINE_使用者管理表.通知語言_cb.Text & "',電話號碼1 = N'" & LINE_使用者管理表.電話號碼1_tb.Text & "',電話號碼2 = N'" & LINE_使用者管理表.電話號碼2_tb.Text &
                "',電話號碼3 = N'" & LINE_使用者管理表.電話號碼3_tb.Text & "',Line = N'" & LINE_使用者管理表.Line_cb.Checked & "',WhatsApp = N'" & LINE_使用者管理表.WhatsApp_cb.Checked &
                "',Message = N'" & LINE_使用者管理表.Message_cb.Checked &
               "', CC200 = '" & LINE_使用者管理表.CheckBox200.Checked & "', CC201 = '" & LINE_使用者管理表.CheckBox201.Checked & "', CC202 = '" & LINE_使用者管理表.CheckBox202.Checked &
               "', CC203 = '" & LINE_使用者管理表.CheckBox203.Checked & "', CC204 = '" & LINE_使用者管理表.CheckBox204.Checked & "', CC205 = '" & LINE_使用者管理表.CheckBox205.Checked &
               "', CC206 = '" & LINE_使用者管理表.CheckBox206.Checked & "', CC207 = '" & LINE_使用者管理表.CheckBox207.Checked & "', CC208 = '" & LINE_使用者管理表.CheckBox208.Checked &
               "', CC209 = '" & LINE_使用者管理表.CheckBox209.Checked & "', CC210 = '" & LINE_使用者管理表.CheckBox210.Checked & "', CC211= '" & LINE_使用者管理表.CheckBox211.Checked &
               "', CC212 = '" & LINE_使用者管理表.CheckBox212.Checked & "', CC213 = '" & LINE_使用者管理表.CheckBox213.Checked & "', CC214 = '" & LINE_使用者管理表.CheckBox214.Checked &
               "', CC215 = '" & LINE_使用者管理表.CheckBox215.Checked & "', CC216 = '" & LINE_使用者管理表.CheckBox216.Checked & "', CC217 = '" & LINE_使用者管理表.CheckBox217.Checked &
               "', CC218 = '" & LINE_使用者管理表.CheckBox218.Checked & "', CC219 = '" & LINE_使用者管理表.CheckBox219.Checked & "', CC220 = '" & LINE_使用者管理表.CheckBox220.Checked &
               "', CC221 = '" & LINE_使用者管理表.CheckBox221.Checked & "', CC222 = '" & LINE_使用者管理表.CheckBox222.Checked & "', CC223 = '" & LINE_使用者管理表.CheckBox223.Checked &
               "', CC224 = '" & LINE_使用者管理表.CheckBox224.Checked & "', CC225 = '" & LINE_使用者管理表.CheckBox225.Checked & "', CC226 = '" & LINE_使用者管理表.CheckBox226.Checked &
               "', CC227 = '" & LINE_使用者管理表.CheckBox227.Checked & "', CC228 = '" & LINE_使用者管理表.CheckBox228.Checked & "', CC229 = '" & LINE_使用者管理表.CheckBox229.Checked &
               "', CC230 = '" & LINE_使用者管理表.CheckBox230.Checked & "', CC231 = '" & LINE_使用者管理表.CheckBox231.Checked & "', CC232 = '" & LINE_使用者管理表.CheckBox232.Checked &
               "', CC233 = '" & LINE_使用者管理表.CheckBox233.Checked & "', CC234 = '" & LINE_使用者管理表.CheckBox234.Checked & "', CC235 = '" & LINE_使用者管理表.CheckBox235.Checked &
               "', CC236 = '" & LINE_使用者管理表.CheckBox236.Checked & "', CC237 = '" & LINE_使用者管理表.CheckBox237.Checked & "', CC238 = '" & LINE_使用者管理表.CheckBox238.Checked &
               "', CC239 = '" & LINE_使用者管理表.CheckBox239.Checked & "', CC240 = '" & LINE_使用者管理表.CheckBox240.Checked & "', CC241 = '" & LINE_使用者管理表.CheckBox241.Checked &
               "', CC242 = '" & LINE_使用者管理表.CheckBox242.Checked & "', CC243 = '" & LINE_使用者管理表.CheckBox243.Checked & "', CC244 = '" & LINE_使用者管理表.CheckBox244.Checked &
               "', CC245 = '" & LINE_使用者管理表.CheckBox245.Checked & "', CC246 = '" & LINE_使用者管理表.CheckBox246.Checked & "', CC247 = '" & LINE_使用者管理表.CheckBox247.Checked &
               "', CC248 = '" & LINE_使用者管理表.CheckBox248.Checked & "', CC249 = '" & LINE_使用者管理表.CheckBox249.Checked & "', CC250 = '" & LINE_使用者管理表.CheckBox250.Checked &
               "', CC251 = '" & LINE_使用者管理表.CheckBox251.Checked & "', CC252 = '" & LINE_使用者管理表.CheckBox252.Checked & "', CC253 = '" & LINE_使用者管理表.CheckBox253.Checked &
               "', CC254 = '" & LINE_使用者管理表.CheckBox254.Checked & "', CC255 = '" & LINE_使用者管理表.CheckBox255.Checked & "', CC256 = '" & LINE_使用者管理表.CheckBox256.Checked &
               "', CC257 = '" & LINE_使用者管理表.CheckBox257.Checked & "', CC258 = '" & LINE_使用者管理表.CheckBox258.Checked & "', CC259 = '" & LINE_使用者管理表.CheckBox259.Checked &
               "', CC260 = '" & LINE_使用者管理表.CheckBox260.Checked &
               "' WHERE (姓名 LIKE N'" & LINE_使用者管理表.姓名_tb.Text & "' AND 帳號 LIKE N'" & LINE_使用者管理表.帳號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub

    Friend Sub SQL_LINE_使用者資料查詢(姓名 As String, 帳號 As String)
        ConnOpen_LINE_SQL() : SQL1 = "SELECT * FROM LINE_使用者權限管理表 WHERE (姓名 LIKE N'" & 姓名 & "' AND 帳號 LIKE N'" & 帳號 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_通知內容資料修改()
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE LINE_通知內容設定表 SET 權限名稱 = N'" & LINE_使用者管理表.權限名稱_tb.Text & "', 通知內容 = N'" & LINE_使用者管理表.通知內容_tb.Text & "', 
                       通知格式 = N'" & LINE_使用者管理表.通知格式_cb.Text & "', 變數位置 = N'" & LINE_使用者管理表.變數位置_cb.Text & "', 
                       通知內容1 = N'" & LINE_使用者管理表.通知內容1_tb.Text & "', 通知內容2 = N'" & LINE_使用者管理表.通知內容2_tb.Text & "', 
                       通知內容3 = N'" & LINE_使用者管理表.通知內容3_tb.Text & "', 已使用 = N'" & LINE_使用者管理表.已使用_ch.Checked & "' 
                WHERE (權限代號 = '" & LINE_使用者管理表.權限代號_cb.Text & "')"
        CmdSet_For_dr()
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE LINE_權限一覽表 SET 權限名稱 = N'" & LINE_使用者管理表.權限名稱_tb.Text & "' WHERE (權限代號 = '" & LINE_使用者管理表.權限代號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_新增使用者資料()
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO LINE_使用者權限管理表 (" & LINE_登入權限_IN & ") 
                VALUES (N'" & LINE_使用者管理表.姓名_tb.Text & "', N'" & LINE_使用者管理表.帳號_tb.Text & "', N'" & LINE_使用者管理表.token_tb.Text &
                "',N'" & LINE_使用者管理表.通知語言_cb.Text & "',N'" & LINE_使用者管理表.電話號碼1_tb.Text & "',N'" & LINE_使用者管理表.電話號碼2_tb.Text &
                "',N'" & LINE_使用者管理表.電話號碼3_tb.Text & "',N'" & LINE_使用者管理表.Line_cb.Checked & "',N'" & LINE_使用者管理表.WhatsApp_cb.Checked &
                "',N'" & LINE_使用者管理表.Message_cb.Checked &
                "','" & LINE_使用者管理表.CheckBox200.Checked & "','" & LINE_使用者管理表.CheckBox201.Checked & "','" & LINE_使用者管理表.CheckBox202.Checked &
                "','" & LINE_使用者管理表.CheckBox203.Checked & "','" & LINE_使用者管理表.CheckBox204.Checked & "','" & LINE_使用者管理表.CheckBox205.Checked &
                "','" & LINE_使用者管理表.CheckBox206.Checked & "','" & LINE_使用者管理表.CheckBox207.Checked & "','" & LINE_使用者管理表.CheckBox208.Checked &
                "','" & LINE_使用者管理表.CheckBox209.Checked & "','" & LINE_使用者管理表.CheckBox210.Checked & "','" & LINE_使用者管理表.CheckBox211.Checked &
                "','" & LINE_使用者管理表.CheckBox212.Checked & "','" & LINE_使用者管理表.CheckBox213.Checked & "','" & LINE_使用者管理表.CheckBox214.Checked &
                "','" & LINE_使用者管理表.CheckBox215.Checked & "','" & LINE_使用者管理表.CheckBox216.Checked & "','" & LINE_使用者管理表.CheckBox217.Checked &
                "','" & LINE_使用者管理表.CheckBox218.Checked & "','" & LINE_使用者管理表.CheckBox219.Checked & "','" & LINE_使用者管理表.CheckBox220.Checked &
                "','" & LINE_使用者管理表.CheckBox221.Checked & "','" & LINE_使用者管理表.CheckBox222.Checked & "','" & LINE_使用者管理表.CheckBox223.Checked &
                "','" & LINE_使用者管理表.CheckBox224.Checked & "','" & LINE_使用者管理表.CheckBox225.Checked & "','" & LINE_使用者管理表.CheckBox226.Checked &
                "','" & LINE_使用者管理表.CheckBox227.Checked & "','" & LINE_使用者管理表.CheckBox228.Checked & "','" & LINE_使用者管理表.CheckBox229.Checked &
                "','" & LINE_使用者管理表.CheckBox230.Checked & "','" & LINE_使用者管理表.CheckBox231.Checked & "','" & LINE_使用者管理表.CheckBox232.Checked &
                "','" & LINE_使用者管理表.CheckBox233.Checked & "','" & LINE_使用者管理表.CheckBox234.Checked & "','" & LINE_使用者管理表.CheckBox235.Checked &
                "','" & LINE_使用者管理表.CheckBox236.Checked & "','" & LINE_使用者管理表.CheckBox237.Checked & "','" & LINE_使用者管理表.CheckBox238.Checked &
                "','" & LINE_使用者管理表.CheckBox239.Checked & "','" & LINE_使用者管理表.CheckBox240.Checked & "','" & LINE_使用者管理表.CheckBox241.Checked &
                "','" & LINE_使用者管理表.CheckBox242.Checked & "','" & LINE_使用者管理表.CheckBox243.Checked & "','" & LINE_使用者管理表.CheckBox244.Checked &
                "','" & LINE_使用者管理表.CheckBox245.Checked & "','" & LINE_使用者管理表.CheckBox246.Checked & "','" & LINE_使用者管理表.CheckBox247.Checked &
                "','" & LINE_使用者管理表.CheckBox248.Checked & "','" & LINE_使用者管理表.CheckBox249.Checked & "','" & LINE_使用者管理表.CheckBox250.Checked &
                "','" & LINE_使用者管理表.CheckBox251.Checked & "','" & LINE_使用者管理表.CheckBox252.Checked & "','" & LINE_使用者管理表.CheckBox253.Checked &
                "','" & LINE_使用者管理表.CheckBox254.Checked & "','" & LINE_使用者管理表.CheckBox255.Checked & "','" & LINE_使用者管理表.CheckBox256.Checked &
                "','" & LINE_使用者管理表.CheckBox257.Checked & "','" & LINE_使用者管理表.CheckBox258.Checked & "','" & LINE_使用者管理表.CheckBox259.Checked &
                "','" & LINE_使用者管理表.CheckBox260.Checked &
                "')"
        CmdSet_For_dr()
    End Sub
    'Friend Sub SQL_LINE_新增使用者資料1()
    '    ConnOpen_LINE_SQL()
    '    SQL1 = "INSERT INTO 使用者權限管理表 (" & LINE_登入權限 & ") 
    '            VALUES (N'" & 人員基本資料.姓名_tb.Text & "', N'" & 人員基本資料.帳號_tb.Text & "', N'" & 人員基本資料.token_tb.Text &
    '            "',N'" & 人員基本資料.通知語言_cb.Text & "',N'" & 人員基本資料.電話號碼1_tb.Text & "',N'" & 人員基本資料.電話號碼2_tb.Text &
    '            "',N'" & 人員基本資料.電話號碼3_tb.Text & "',N'" & 人員基本資料.Line_cb.Checked & "',N'" & 人員基本資料.WhatsApp_cb.Checked &
    '            "',N'" & 人員基本資料.Message_cb.Checked & "','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0',
    '            '0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0',
    '            '0','0','0','0','0','0','0','0','0')"
    '    CmdSet_For_dr()
    'End Sub
    Friend Sub SQL_LINE_新增通知內容資料()
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO LINE_通知內容設定表 ( 權限代號,權限名稱,通知內容,通知格式,變數位置,通知內容1,通知內容2,通知內容3) 
                VALUES (N'" & LINE_使用者管理表.權限代號_cb.Text & "', N'" & LINE_使用者管理表.權限名稱_tb.Text & "', N'" & LINE_使用者管理表.通知內容_tb.Text &
                "',N'" & LINE_使用者管理表.通知格式_cb.Text & "',N'" & LINE_使用者管理表.變數位置_cb.Text & "',N'" & LINE_使用者管理表.通知內容1_tb.Text &
                "',N'" & LINE_使用者管理表.通知內容2_tb.Text & "',N'" & LINE_使用者管理表.通知內容3_tb.Text &
                "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_使用者資料刪除(帳號 As String, 姓名 As String)
        ConnOpen_LINE_SQL() : SQL1 = "DELETE FROM LINE_使用者權限管理表 WHERE (帳號 LIKE N'" & 帳號 & "' AND 姓名 LIKE N'" & 姓名 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_通知內容資料刪除()
        ConnOpen_LINE_SQL() : SQL1 = "DELETE FROM LINE_通知內容設定表 WHERE (權限代號 = '" & LINE_使用者管理表.權限代號_cb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_新增發送通知()
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO LINE_通知設定表 (token,發送內容,隨機碼,通知語言,發送APP) VALUES (N'" & PA201 & "',N'" & PA202 & "',N'" & PA203 & "',N'" & PA204 & "',N'" & PA205 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_搜尋符合通知對象()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  UserID,token,通知語言,電話號碼1,電話號碼2,電話號碼3,Line,WhatsApp,Message  FROM LINE_使用者權限管理表 WHERE(" & LINE_權限代號 & "='True' and 姓名 LIKE N'" & 發送對象 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_通知內容清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT     LINE_通知內容設定表.權限代號, LINE_權限一覽表.權限名稱, LINE_通知內容設定表.通知內容, LINE_通知內容設定表.通知格式, 
                           LINE_通知內容設定表.變數位置, LINE_通知內容設定表.通知內容1, LINE_通知內容設定表.通知內容2, LINE_通知內容設定表.通知內容3, 
                           LINE_通知內容設定表.已使用
                FROM       LINE_通知內容設定表 INNER JOIN
                           LINE_權限一覽表 ON LINE_通知內容設定表.權限代號 = LINE_權限一覽表.權限代號
                ORDER BY   LINE_通知內容設定表.權限代號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_通知內容()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  通知格式,變數位置,通知內容1,通知內容2,通知內容3  FROM LINE_通知內容設定表 WHERE (權限代號='" & LINE_權限代號 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_權限清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT   LINE_權限一覽表.權限代號, LINE_權限一覽表.權限名稱, LINE_通知內容設定表.已使用
                FROM     LINE_權限一覽表 LEFT OUTER JOIN LINE_通知內容設定表 ON LINE_權限一覽表.權限代號 = LINE_通知內容設定表.權限代號
                ORDER BY LINE_權限一覽表.權限代號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_新增權限資料()
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO LINE_權限一覽表 ( 權限代號,權限名稱) 
                VALUES (N'" & LINE_權限一覽表.權限代號_cb.Text & "', N'" & LINE_權限一覽表.權限名稱_tb.Text &
                "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_權限資料修改()
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE LINE_權限一覽表 SET 權限名稱 = N'" & LINE_權限一覽表.權限名稱_tb.Text &
               "' WHERE (權限代號 = '" & LINE_權限一覽表.權限代號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_權限資料刪除()
        ConnOpen_LINE_SQL() : SQL1 = "DELETE FROM LINE_權限一覽表 WHERE (權限代號 = '" & LINE_權限一覽表.權限代號_cb.Text & "')" : CmdSet_For_dr()
    End Sub
    Function SQL_LINE_隨機碼()
        Dim rancode As String
        Dim RndNum As New Random()
        rancode = Str(Date.Now.Year).Trim().PadLeft(4, "0") + Str(Date.Now.Month).Trim().PadLeft(2, "0") + Str(Date.Now.Day).Trim().PadLeft(2, "0") + Str(Date.Now.Hour).Trim().PadLeft(2, "0") + Str(Date.Now.Minute).Trim().PadLeft(2, "0") + Str(Date.Now.Second).Trim().PadLeft(2, "0") + Str(RndNum.Next(1000)).Trim().PadLeft(4, "0")
        Return rancode
    End Function
    Friend Sub LINE_通知模塊()
        Dim ds5, ds6 As New DataSet : ds5.Clear() : ds6.Clear()
        Dim 通知格式, 變數位置, 通知內容1, 通知內容2, 通知內容3, 發送X, 發送Y As String
        Dim L, M, W As Boolean
        SQL_LINE_搜尋符合通知對象()
        da.Fill(ds5) : LINE_使用者管理表.LINE_需通知清單_dgv.DataSource = ds5.Tables(0) : conn.Close()
        If 通知變數X = "" Then : 發送X = "未設定通知變數X" : Else : 發送X = 通知變數X : End If
        If 通知變數Y = "" Then : 發送Y = "未設定通知變數Y" : Else : 發送Y = 通知變數Y : End If
        For x As Integer = 0 To LINE_使用者管理表.LINE_需通知清單_dgv.Rows.Count - 1
            L = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("Line").Value
            W = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("WhatsApp").Value
            M = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("Message").Value
            SQL_LINE_通知內容() : da.Fill(ds6) : LINE_使用者管理表.LINE_通知內容清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
            If LINE_使用者管理表.LINE_需通知清單_dgv.Rows.Count = 0 Then : Else
                通知格式 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(0).Value
                變數位置 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(1).Value
                通知內容1 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(2).Value
                通知內容2 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(3).Value
                通知內容3 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(4).Value
                Dim 發送訊息 As String = "這是一則來自GCM智能小幫手的通知訊息"
                If 變數位置 = "A" Then
                    發送訊息 = 通知內容1
                ElseIf 變數位置 = "X" Then
                    發送訊息 = 發送X
                ElseIf 變數位置 = "A+X" Then
                    發送訊息 = 通知內容1 + 發送X
                ElseIf 變數位置 = "X+A" Then
                    發送訊息 = 發送X + 通知內容1
                ElseIf 變數位置 = "X+A+Y" Then
                    發送訊息 = 發送X + 通知內容1 + 發送Y
                ElseIf 變數位置 = "A+X+B" Then
                    發送訊息 = 通知內容1 + 發送X + 通知內容2
                ElseIf 變數位置 = "X+A+Y+B" Then
                    發送訊息 = 發送X + 通知內容1 + 發送Y + 通知內容2
                ElseIf 變數位置 = "A+X+B+Y" Then
                    發送訊息 = 通知內容1 + 發送X + 通知內容2 + 發送Y
                ElseIf 變數位置 = "A+X+B+Y+C" Then
                    發送訊息 = 通知內容1 + 發送X + 通知內容2 + 發送Y + 通知內容3
                End If
                'If 變數位置 = "A" Then
                '    PA202 = 通知內容1
                'ElseIf 變數位置 = "X" Then
                '    PA202 = 發送X
                'ElseIf 變數位置 = "A+X" Then
                '    PA202 = 通知內容1 + 發送X
                'ElseIf 變數位置 = "X+A" Then
                '    PA202 = 發送X + 通知內容1
                'ElseIf 變數位置 = "X+A+Y" Then
                '    PA202 = 發送X + 通知內容1 + 發送Y
                'ElseIf 變數位置 = "A+X+B" Then
                '    PA202 = 通知內容1 + 發送X + 通知內容2
                'ElseIf 變數位置 = "X+A+Y+B" Then
                '    PA202 = 發送X + 通知內容1 + 發送Y + 通知內容2
                'ElseIf 變數位置 = "A+X+B+Y" Then
                '    PA202 = 通知內容1 + 發送X + 通知內容2 + 發送Y
                'ElseIf 變數位置 = "A+X+B+Y+C" Then
                '    PA202 = 通知內容1 + 發送X + 通知內容2 + 發送Y + 通知內容3
                'End If
                'PA204 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(1).Value
                Dim UserID As String = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("UserID").Value
                If L = True Then
                    'PA203 = SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(0).Value.ToString : PA205 = "Line" : SQL_LINE_新增發送通知()
                    PostData(UserID, 發送訊息, "RB-0002")
                End If
                'If W = True Then
                '    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString <> "" Then
                '        PA203 = SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString : PA205 = "WhatsApp" : SQL_LINE_新增發送通知()
                '    End If
                '    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString <> "" Then
                '        PA203 = SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString : PA205 = "WhatsApp" : SQL_LINE_新增發送通知()
                '    End If
                '    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString <> "" Then
                '        PA203 = SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString : PA205 = "WhatsApp" : SQL_LINE_新增發送通知()
                '    End If
                'End If
                'If M = True Then
                '    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString <> "" Then
                '        PA203 = SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString : PA205 = "Message" : SQL_LINE_新增發送通知()
                '    End If
                '    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString <> "" Then
                '        PA203 = SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString : PA205 = "Message" : SQL_LINE_新增發送通知()
                '    End If
                '    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString <> "" Then
                '        PA203 = SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString : PA205 = "Message" : SQL_LINE_新增發送通知()
                '    End If
                'End If
            End If
        Next
        ds5.Clear() : ds6.Clear() : 通知變數X = "" : 通知變數Y = ""
    End Sub




    '----------CB-------------------
    Friend Sub SQL_公司_下拉清單()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT 公司名稱 FROM 公司清單  ORDER BY 公司名稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_年份_下拉清單()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT 年份 FROM 年份清單  ORDER BY 年份 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_語言_下拉清單()
        ConnOpen_LINE_SQL() : SQL1 = "SELECT  語言 FROM 語言清單 ORDER BY 語言 DESC" : CmdSet_For_dr()
    End Sub

    '----------系統編碼規則-----------
    Friend Sub SQL_語言()
        ConnOpen_LINE_SQL() : SQL1 = "SELECT  語言 FROM 語言清單 ORDER BY 語言 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_公司名稱()
        ConnOpen_LINE_SQL() : SQL1 = "SELECT  公司名稱 FROM 公司清單 ORDER BY 公司名稱 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_年份()
        ConnOpen_LINE_SQL() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_公司新增查詢()
        SQL1 = "SELECT 公司名稱 FROM 公司清單 WHERE 公司名稱 LIKE N'" & 系統編碼規則.公司名稱_tb.Text & "'"
    End Sub
    Friend Sub SQL_公司新增()
        SQL1 = "INSERT INTO 公司清單 (公司名稱) VALUES (N'" & 系統編碼規則.公司名稱_tb.Text & "')"
    End Sub
    Friend Sub SQL_公司修改()
        SQL1 = "UPDATE 公司清單 SET 公司名稱 = N'" & PA & "' WHERE 公司名稱 LIKE N'" & 系統編碼規則.公司名稱_tb.Text & "'"
    End Sub
    Friend Sub SQL_公司刪除()
        SQL1 = "DELETE FROM 公司清單 WHERE (公司名稱 = N'" & 系統編碼規則.公司名稱_tb.Text & "')"
    End Sub
    Friend Sub SQL_語言新增查詢()
        SQL1 = "SELECT 語言 FROM 語言清單 WHERE 語言 LIKE N'" & 系統編碼規則.語言_tb.Text & "'"
    End Sub
    Friend Sub SQL_語言新增()
        SQL1 = "INSERT INTO 語言清單 (語言) VALUES (N'" & 系統編碼規則.語言_tb.Text & "')"
    End Sub
    Friend Sub SQL_語言修改()
        SQL1 = "UPDATE 語言清單 SET 語言 = N'" & PA & "' WHERE 語言 LIKE N'" & 系統編碼規則.語言_tb.Text & "'"
    End Sub
    Friend Sub SQL_語言刪除()
        SQL1 = "DELETE FROM 語言清單 WHERE (語言 = N'" & 系統編碼規則.語言_tb.Text & "')"
    End Sub
    Friend Sub SQL_年份新增查詢()
        SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE N'" & 系統編碼規則.年份_tb.Text & "'"
    End Sub
    Friend Sub SQL_年份新增()
        SQL1 = "INSERT INTO 年份清單 (年份) VALUES (N'" & 系統編碼規則.年份_tb.Text & "')"
    End Sub
    Friend Sub SQL_年份修改()
        SQL1 = "UPDATE 年份清單 SET 年份 = N'" & PA & "' WHERE 年份 LIKE N'" & 系統編碼規則.年份_tb.Text & "'"
    End Sub
    Friend Sub SQL_年份刪除()
        SQL1 = "DELETE FROM 年份清單 WHERE (年份 = N'" & 系統編碼規則.年份_tb.Text & "')"
    End Sub
    Friend Sub SQL_Robot清單()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  ID, RobotName AS 機器人名稱, channel_secret, channel_token, channel_destination
                        FROM LINE_機器人控制表 ORDER BY ID"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_Robot清單_最後流水()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  ID FROM LINE_機器人控制表 ORDER BY ID DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_Robot清單_新增(ID As String, channel_secret As String, channel_token As String, RobotName As String, channel_destination As String)
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO  LINE_機器人控制表 (ID, channel_secret, channel_token, RobotName, channel_destination ) 
                         VALUES (N'" & ID & "',N'" & channel_secret & "',N'" & channel_token & "',N'" & RobotName & "',N'" & channel_destination & "'   )"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_Robot清單_刪除(ID As String)
        ConnOpen_LINE_SQL()
        SQL1 = "DELETE FROM LINE_機器人控制表 WHERE ID LIKE N'" & ID & "'"
        CmdSet_For_dr()
    End Sub
    '=========================
    Friend Sub SQL_LOG檔空白資料寫入()
        ConnOpen_LINE_LOG_SQL() : SQL1 = "UPDATE  HX_MESSAGE_LOG  SET 公司名稱='HX' WHERE 公司名稱 IS NULL" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LOG檔清單()
        ConnOpen_LINE_LOG_SQL()
        SQL1 = "SELECT  日期, 發送對象, 訊息類別, 公司名稱 FROM HX_MESSAGE_LOG WHERE 日期 LIKE N'" & SQL3 & "' AND 公司名稱 LIKE N'" & SQL2 & "' ORDER BY 日期 DESC"
        CmdSet_For_DGV()
    End Sub

    Sub PostData(userID As String, text As String, robotID As String)
        ' 定義要請求的 URL
        Dim url As String = "https://gcmlineauto-4acbbd534d6e.herokuapp.com/wsw/webhook"
        ' 準備要傳送的資料（這裡使用 JSON 格式）
        Dim data As New Dictionary(Of String, String) From {
            {"userID", userID},
            {"text", text},
            {"robotID", robotID}
        }
        Dim json As String = JsonConvert.SerializeObject(data)

        ' 建立 HttpWebRequest
        Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        request.Method = "POST"
        request.ContentType = "application/json"
        request.ContentLength = Encoding.UTF8.GetByteCount(json)

        ' 將 JSON 資料寫入請求中
        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(json)
            streamWriter.Flush()
        End Using

        Try
            ' 獲取回應
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine("回應內容: " & result)
            End Using
        Catch ex As WebException
            ' 如果請求失敗，顯示錯誤
            Dim errorResponse As HttpWebResponse = CType(ex.Response, HttpWebResponse)
            Console.WriteLine("錯誤: " & errorResponse.StatusCode)
        End Try
    End Sub
End Module