GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/模組/SQL_LINE.vb

Module SQL_LINE
    '=====LINE_權限代號 = "CC207" : 發送對象 = "tltony1234" : 通知變數X = "王詩文" : 通知變數Y = "9/7號" : LINE_通知模塊()=====
    Friend Sub SQL_LINE_使用者管理表_清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT " & LINE_登入權限 & " FROM 使用者權限管理表"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_通知設定表_清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT 姓名,token,通知語言 FROM 使用者權限管理表"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_使用者資料修改()
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = N'" & LINE_使用者管理表.姓名_tb.Text & "',token = N'" & LINE_使用者管理表.token_tb.Text &
               "',通知語言 = N'" & LINE_使用者管理表.通知語言_cb.Text &
               "', 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 (帳號 = '" & LINE_使用者管理表.帳號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_通知內容資料修改()
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE 通知內容設定表 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()
    End Sub
    Friend Sub SQL_LINE_新增使用者資料()
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO 使用者權限管理表 (" & LINE_登入權限 & ") 
                VALUES (N'" & LINE_使用者管理表.姓名_tb.Text & "', N'" & LINE_使用者管理表.帳號_tb.Text & "', N'" & LINE_使用者管理表.token_tb.Text &
                "',N'" & LINE_使用者管理表.通知語言_cb.Text &
                "','" & 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_新增通知內容資料()
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO 通知內容設定表 ( 權限代號,權限名稱,通知內容,通知格式,變數位置,通知內容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_使用者資料刪除()
        ConnOpen_LINE_SQL() : SQL1 = "DELETE FROM 使用者權限管理表 WHERE (帳號 = '" & LINE_使用者管理表.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_通知內容資料刪除()
        ConnOpen_LINE_SQL() : SQL1 = "DELETE FROM 通知內容設定表 WHERE (權限代號 = '" & LINE_使用者管理表.權限代號_cb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_新增發送通知()
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO 通知設定表 (token,發送內容,隨機碼,通知語言) VALUES (N'" & PA201 & "',N'" & PA202 & "',N'" & PA203 & "',N'" & PA204 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_搜尋符合通知對象()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  token,通知語言  FROM 使用者權限管理表 WHERE(" & LINE_權限代號 & "='True' and 姓名='" & 發送對象 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_通知內容清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  *  FROM 通知內容設定表 ORDER BY 權限代號"
        CmdSet_For_DGV()
    End Sub

    Friend Sub SQL_LINE_通知內容()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  通知格式,變數位置,通知內容1,通知內容2,通知內容3  FROM 通知內容設定表 WHERE (權限代號='" & LINE_權限代號 & "')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_權限清單載入()
        ConnOpen_LINE_SQL()
        SQL1 = "SELECT  *  FROM 權限一覽表 ORDER BY 權限代號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LINE_新增權限資料()
        ConnOpen_LINE_SQL()
        SQL1 = "INSERT INTO 權限一覽表 ( 權限代號,權限名稱) 
                VALUES (N'" & LINE_權限一覽表.權限代號_cb.Text & "', N'" & LINE_權限一覽表.權限名稱_tb.Text &
                "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_權限資料修改()
        ConnOpen_LINE_SQL()
        SQL1 = "UPDATE 權限一覽表 SET 權限名稱 = N'" & LINE_權限一覽表.權限名稱_tb.Text &
               "' WHERE (權限代號 = '" & LINE_權限一覽表.權限代號_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LINE_權限資料刪除()
        ConnOpen_LINE_SQL() : SQL1 = "DELETE FROM 權限一覽表 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
        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
            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
                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
                PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(0).Value : PA203 = SQL_LINE_隨機碼()
                PA204 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(1).Value
                If PA201 = "" Then : Else : SQL_LINE_新增發送通知() : End If
            End If
        Next
        ds5.Clear() : ds6.Clear() : 通知變數X = "" : 通知變數Y = ""
    End Sub
End Module