HX-PGS-ERP-SYS-SIU/01、人事管理系統/訊息通知系統/LINE_使用者管理表.vb

Option Strict Off
Imports System.IO
Public Class LINE_使用者管理表
    Dim HH As Integer
    Dim ds1, ds2, ds3, ds4 As New DataSet
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    DIM 對話框(5) As String
    Private Sub Set_使用者姓名清單()
        使用者姓名_dgv.DataSource = Nothing : ds3.Clear()
        使用者姓名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        使用者姓名_dgv.ColumnHeadersHeight = 25 : 使用者姓名_dgv.AllowUserToAddRows = False : 使用者姓名_dgv.RowTemplate.Height = 35
        SQL_系統使用者管理_使用者清單()
        da.Fill(ds3) : 使用者姓名_dgv.DataSource = ds3.Tables(0) : conn.Close()
        For i As Integer = 0 To 權限數量 + 10 : 使用者姓名_dgv.Columns(i + 1).Visible = False : Next
    End Sub
    Private Sub Set_權限名稱()
        Dim nob As Integer
        Dim ds4 As New DataSet
        LINE_權限清單_dgv.DataSource = Nothing : ds4.Clear()
        LINE_權限清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        LINE_權限清單_dgv.ColumnHeadersHeight = 25 : LINE_權限清單_dgv.AllowUserToAddRows = False : LINE_權限清單_dgv.RowTemplate.Height = 35
        SQL_LINE_權限清單載入()
        da.Fill(ds4) : LINE_權限清單_dgv.DataSource = ds4.Tables(0) : conn.Close()
        If LINE_權限清單_dgv.Rows.Count > 0 Then
            For no As Integer = 0 To LINE_權限數量 - 1
                HH = no + 200
                Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + HH.ToString(), True)(0), CheckBox)
                For noa As Integer = 0 To LINE_權限數量 - 1
                    If LINE_權限清單_dgv.Rows(noa).Cells("權限代號").Value.ToString = "CC" + HH.ToString() Then
                        nob = noa : Exit For
                    End If
                Next
                選擇.Text = HH.ToString() & "-" & LINE_權限清單_dgv.Rows(nob).Cells("權限名稱").Value.ToString
            Next
        End If
    End Sub
    Private Sub Set_使用者清單()
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 35
        SQL_LINE_使用者管理表_清單載入1()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).FillWeight = 50 : 清單_dgv.Columns(2).FillWeight = 60 : 清單_dgv.Columns(3).FillWeight = 30
        清單_dgv.Columns(4).FillWeight = 40 : 清單_dgv.Columns(5).FillWeight = 40 : 清單_dgv.Columns(6).FillWeight = 40
        清單_dgv.Columns(1).Visible = False
        清單_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        For i As Integer = 0 To LINE_權限數量 + 2 : 清單_dgv.Columns(i + 7).Visible = False : Next
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
            If IsDBNull(清單_dgv.Rows(i).Cells("Line").Value) Then : 清單_dgv.Rows(i).Cells("Line").Value = False : End If
            If IsDBNull(清單_dgv.Rows(i).Cells("WhatsApp").Value) Then : 清單_dgv.Rows(i).Cells("WhatsApp").Value = False : End If
            If IsDBNull(清單_dgv.Rows(i).Cells("Message").Value) Then : 清單_dgv.Rows(i).Cells("Message").Value = False : End If
            For no As Integer = 0 To LINE_權限數量 - 1
                HH = no + 200
                If IsDBNull(清單_dgv.Rows(i).Cells("CC" & HH.ToString).Value) Then : 清單_dgv.Rows(i).Cells("CC" & HH.ToString).Value = False : End If
            Next
        Next
    End Sub
    Private Sub Set_通知內容清單()
        通知內容_dgv.DataSource = Nothing : ds2.Clear()
        通知內容_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        通知內容_dgv.ColumnHeadersHeight = 25 : 通知內容_dgv.AllowUserToAddRows = False : 通知內容_dgv.RowTemplate.Height = 70
        SQL_LINE_通知內容清單載入()
        da.Fill(ds2) : 通知內容_dgv.DataSource = ds2.Tables(0) : conn.Close()

        通知內容_dgv.Columns(0).FillWeight = 30 : 通知內容_dgv.Columns(1).FillWeight = 50 : 通知內容_dgv.Columns(2).FillWeight = 200 : 通知內容_dgv.Columns(8).FillWeight = 35
        For i As Integer = 0 To 4 : 通知內容_dgv.Columns(i + 3).Visible = False : Next
        For I As Integer = 0 To 通知內容_dgv.Rows.Count - 1
            If IsDBNull(通知內容_dgv.Rows(I).Cells("已使用").Value) = True Then : 通知內容_dgv.Rows(I).Cells("已使用").Value = False : End If
        Next
    End Sub
    Private Sub Set_格式設定1()
        For no As Integer = 0 To LINE_權限數量 - 1
            HH = no + 200
            Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + HH.ToString(), True)(0), CheckBox)
            選擇.Checked = False
        Next
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next
        If File.Exists(Str + "\LANGUAGE_FILE.csv") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line <> Nothing Then
                    line = line.Replace("""", "")
                    If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-158" Or Strings.Left(line, 8) = "H606-102" Or Strings.Left(line, 4) = 介面 Then
                        If 系統語言 = "繁體中文" Then
                            If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "English" Then
                            If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "Indonesian" Then
                            If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        End If
                    End If
                End If
            End While
            filereader.Close()
        End If
    End Sub
    Private Sub Set_語言查詢()
        RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows
            If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then
                RI = row.Index : Exit For
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言()
        SK = "H001-158" : Set_語言查詢() : Me.Text = 語言_dgv(1, RI).Value.ToString : SK = "G000-125" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-121" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString : SK = "G000-118" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-119" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString : SK = "G000-124" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-120" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString : SK = "H606-102" : Set_語言查詢() : Label7.Text = 語言_dgv(1, RI).Value.ToString
    End Sub
    Private Sub LINE_使用者管理表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : 語言_dgv.SendToBack() : H(604) = True : 介面 = "H604" : 語言轉換讀取() : 顯示說明(999, False)

        PA = "" : 確認新增_bt.Enabled = False : Panel2.SendToBack() : 在職 = True
        修改_bt.Enabled = False : 權限代號_cb.Enabled = False : 修改存檔2_bt.Enabled = False : 確認新增2_bt.Enabled = False
        通知格式_cb.Enabled = False : 變數位置_cb.Enabled = False
        變數位置_cb.Items.Clear()

        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        通知內容_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        使用者姓名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub LINE_使用者管理表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        MGB(對話框(0), 1) : 計算分流.Enabled = True
    End Sub
    Private Sub 計算分流_Tick(sender As Object, e As EventArgs) Handles 計算分流.Tick
        計算分流.Enabled = False
        Set_使用者清單() : Set_通知內容清單() : Set_使用者姓名清單() : Set_權限名稱()
    End Sub
    Private Sub LINE_使用者管理表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            姓名_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("姓名").Value.ToString : 帳號_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("帳號").Value.ToString
            token_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("token").Value.ToString : 通知語言_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("通知語言").Value.ToString
            電話號碼1_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("電話號碼1").Value.ToString : 電話號碼2_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("電話號碼2").Value.ToString
            電話號碼3_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("電話號碼3").Value.ToString
            Line_cb.Checked = 清單_dgv.Rows(e.RowIndex).Cells("Line").Value : WhatsApp_cb.Checked = 清單_dgv.Rows(e.RowIndex).Cells("WhatsApp").Value
            Message_cb.Checked = 清單_dgv.Rows(e.RowIndex).Cells("Message").Value
            For no As Integer = 0 To LINE_權限數量 - 1
                HH = no + 200
                Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + HH.ToString(), True)(0), CheckBox)
                選擇.Checked = 清單_dgv.Rows(e.RowIndex).Cells("CC" + HH.ToString()).Value
                If 深色風格 = False Then
                    If 選擇.Checked = True Then : 選擇.ForeColor = Color.Blue : Else : 選擇.ForeColor = Color.Black : End If
                Else
                    If 選擇.Checked = True Then : 選擇.ForeColor = Color.LightBlue : Else : 選擇.ForeColor = Color.White : End If
                End If
            Next
        End If
    End Sub
    Private Sub 使用者姓名_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 使用者姓名_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            姓名_tb.Text = 使用者姓名_dgv.Rows(e.RowIndex).Cells("姓名").Value.ToString
            帳號_tb.Text = 使用者姓名_dgv.Rows(e.RowIndex).Cells("帳號").Value.ToString
        End If
    End Sub
    Private Sub 通知內容_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 通知內容_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            通知格式_cb.Text = "" : 變數位置_cb.Text = "" : 通知內容1_tb.Text = "" : 通知內容2_tb.Text = "" : 通知內容3_tb.Text = ""
            權限代號_cb.Text = 通知內容_dgv.Rows(e.RowIndex).Cells("權限代號").Value.ToString
        End If
    End Sub
    Private Sub Panel3_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel3.MouseMove
        For no As Integer = 0 To LINE_權限數量 - 1
            HH = no + 200
            Dim 選擇 As CheckBox = CType(Me.Controls.Find("CheckBox" + HH.ToString(), True)(0), CheckBox)
            If 深色風格 = False Then
                If 選擇.Checked = True Then : 選擇.ForeColor = Color.Blue : Else : 選擇.ForeColor = Color.Black : End If
            Else
                If 選擇.Checked = True Then : 選擇.ForeColor = Color.LightBlue : Else : 選擇.ForeColor = Color.White : End If
            End If
        Next
    End Sub
    Private Sub 修改1_bt_Click(sender As Object, e As EventArgs) Handles 修改1_bt.Click
        修改_bt.Enabled = True
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or 通知語言_cb.Text = "" Then
            MGB(對話框(1), 1)
        Else
            PA37 = 帳號_tb.Text : SQL_LINE_使用者資料查詢()
            If dr.Read Then
                SQL_LINE_使用者資料修改() : conn.Close()
                MGB(對話框(3), 1) : 修改_bt.Enabled = False
            Else
                SQL_LINE_新增使用者資料() : conn.Close()
                MGB(對話框(2), 1) : 修改_bt.Enabled = False
            End If
        End If
        PA = "" : Set_使用者清單()
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        電話號碼1_tb.Text = "" : 電話號碼2_tb.Text = "" : 電話號碼3_tb.Text = ""
        姓名_tb.Text = "" : 帳號_tb.Text = "" : token_tb.Text = "" : 新增_bt.Enabled = False : 確認新增_bt.Enabled = True
        Set_格式設定1()
    End Sub
    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        If 姓名_tb.Text = "" Then
            MGB(對話框(1), 1)
        Else
            SQL_LINE_新增使用者資料() : conn.Close()
            MGB(對話框(2), 1)
            Set_使用者清單()
            確認新增_bt.Enabled = False : 新增_bt.Enabled = True
        End If
    End Sub
    Private Sub 刪除2_bt_Click(sender As Object, e As EventArgs) Handles 刪除2_bt.Click
        MGB(對話框(4), 2)
        If 訊息回應 = "YES" Then : SQL_LINE_通知內容資料刪除() : conn.Close() : MGB(對話框(5), 1) : End If
        權限代號_cb.Text = "" : 權限名稱_tb.Text = "" : 通知內容_tb.Text = ""
        Set_通知內容清單()
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        MGB(對話框(4), 2)
        If 訊息回應 = "YES" Then : SQL_LINE_使用者資料刪除() : conn.Close() : MGB(對話框(5), 1) : End If
        姓名_tb.Text = "" : 帳號_tb.Text = "" : token_tb.Text = ""
        Set_使用者清單()
    End Sub
    Private Sub 確認新增2_bt_Click(sender As Object, e As EventArgs) Handles 確認新增2_bt.Click
        If 權限代號_cb.Text = "" Then : MGB(對話框(1), 1)
        Else
            SQL_LINE_新增通知內容資料() : SQL_LINE_通知內容資料修改() : conn.Close() : MGB(對話框(2), 1)
            Set_通知內容清單()
            確認新增2_bt.Enabled = False : 新增2_bt.Enabled = True : 權限代號_cb.Enabled = False
            通知格式_cb.Enabled = False : 變數位置_cb.Enabled = False
        End If
    End Sub
    Private Sub 修改2_bt_Click(sender As Object, e As EventArgs) Handles 修改2_bt.Click
        權限代號_cb.Enabled = False : 修改存檔2_bt.Enabled = True
        通知格式_cb.Enabled = True
    End Sub
    Private Sub 通知格式_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 通知格式_cb.SelectedIndexChanged
        變數位置_cb.Text = ""
        If 通知格式_cb.Text = "A" Then
            變數位置_cb.Enabled = True
            變數位置_cb.Items.Clear() : 變數位置_cb.Items.Add("A") : 變數位置_cb.Items.Add("X") : 變數位置_cb.Items.Add("A+X") : 變數位置_cb.Items.Add("X+A") : 變數位置_cb.Items.Add("X+A+Y")
        ElseIf 通知格式_cb.Text = "A+B" Then
            變數位置_cb.Enabled = True
            變數位置_cb.Items.Clear() : 變數位置_cb.Items.Add("A+X+B") : 變數位置_cb.Items.Add("X+A+Y+B") : 變數位置_cb.Items.Add("A+X+B+Y")
        ElseIf 通知格式_cb.Text = "A+B+C" Then
            變數位置_cb.Enabled = True
            變數位置_cb.Items.Clear() : 變數位置_cb.Items.Add("A+X+B+Y+C") : 變數位置_cb.Text = "A+X+B+Y+C"
        End If
    End Sub
    Private Sub 變數位置_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 變數位置_cb.SelectedIndexChanged
        If 變數位置_cb.Text = "X" Then : 通知內容_tb.Text = "'通知變數X'" : End If
    End Sub
    Private Sub 通知內容1_tb_TextChanged(sender As Object, e As EventArgs) Handles 通知內容1_tb.TextChanged
        If 變數位置_cb.Text = "A" Then
            通知內容_tb.Text = 通知內容1_tb.Text
        ElseIf 變數位置_cb.Text = "A+X" Then
            通知內容_tb.Text = 通知內容1_tb.Text + "+通知變數X"
        ElseIf 變數位置_cb.Text = "X+A" Then
            通知內容_tb.Text = "通知變數X+" + 通知內容1_tb.Text
        ElseIf 變數位置_cb.Text = "X+A+Y" Then
            通知內容_tb.Text = "通知變數X+" + 通知內容1_tb.Text + "+通知變數Y"
        ElseIf 變數位置_cb.Text = "A+X+B" Then
            通知內容_tb.Text = 通知內容1_tb.Text + "+通知變數X+" + 通知內容2_tb.Text
        ElseIf 變數位置_cb.Text = "X+A+Y+B" Then
            通知內容_tb.Text = "通知變數X+" + 通知內容1_tb.Text + "+通知變數Y+" + 通知內容2_tb.Text
        ElseIf 變數位置_cb.Text = "A+X+B+Y" Then
            通知內容_tb.Text = 通知內容1_tb.Text + "+通知變數X+" + 通知內容2_tb.Text + "+通知變數Y"
        ElseIf 變數位置_cb.Text = "A+X+B+Y+C" Then
            通知內容_tb.Text = 通知內容1_tb.Text + "+通知變數X+" + 通知內容2_tb.Text + "+通知變數Y+" + 通知內容3_tb.Text
        End If
    End Sub
    Private Sub 通知內容2_tb_TextChanged(sender As Object, e As EventArgs) Handles 通知內容2_tb.TextChanged
        If 變數位置_cb.Text = "A+X+B" Then
            通知內容_tb.Text = 通知內容1_tb.Text + "+通知變數X+" + 通知內容2_tb.Text
        ElseIf 變數位置_cb.Text = "X+A+Y+B" Then
            通知內容_tb.Text = "通知變數X+" + 通知內容1_tb.Text + "+通知變數Y+" + 通知內容2_tb.Text
        ElseIf 變數位置_cb.Text = "A+X+B+Y" Then
            通知內容_tb.Text = 通知內容1_tb.Text + "+通知變數X+" + 通知內容2_tb.Text + "+通知變數Y"
        ElseIf 變數位置_cb.Text = "A+X+B+Y+C" Then
            通知內容_tb.Text = 通知內容1_tb.Text + "+通知變數X+" + 通知內容2_tb.Text + "+通知變數Y+" + 通知內容3_tb.Text
        End If
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        H(604) = True : 介面 = "H604" : 語言轉換讀取() : Set_權限名稱() : Set_通知內容清單()
    End Sub
    Private Sub 權限代號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 權限代號_cb.SelectedIndexChanged
        RI = -1
        For Each row As DataGridViewRow In 通知內容_dgv.Rows
            If row.Cells(0).Value.ToString() = 權限代號_cb.Text Then
                RI = row.Index : Exit For
            End If
        Next
        If RI > -1 Then
            通知格式_cb.Text = "" : 變數位置_cb.Text = "" : 通知內容1_tb.Text = "" : 通知內容2_tb.Text = "" : 通知內容3_tb.Text = ""
            權限名稱_tb.Text = 通知內容_dgv.Rows(RI).Cells("權限名稱").Value.ToString
            通知內容_tb.Text = 通知內容_dgv.Rows(RI).Cells("通知內容").Value.ToString : 通知格式_cb.Text = 通知內容_dgv.Rows(RI).Cells("通知格式").Value.ToString
            變數位置_cb.Text = 通知內容_dgv.Rows(RI).Cells("變數位置").Value.ToString : 通知內容1_tb.Text = 通知內容_dgv.Rows(RI).Cells("通知內容1").Value.ToString
            通知內容2_tb.Text = 通知內容_dgv.Rows(RI).Cells("通知內容2").Value.ToString : 通知內容3_tb.Text = 通知內容_dgv.Rows(RI).Cells("通知內容3").Value.ToString
            已使用_ch.Checked = 通知內容_dgv.Rows(RI).Cells("已使用").Value
        End If
    End Sub
    Private Sub 通知內容3_tb_TextChanged(sender As Object, e As EventArgs) Handles 通知內容3_tb.TextChanged
        If 變數位置_cb.Text = "A+X+B+Y+C" Then
            通知內容_tb.Text = 通知內容1_tb.Text + "+通知變數X+" + 通知內容2_tb.Text + "+通知變數Y+" + 通知內容3_tb.Text
        End If
    End Sub
    Private Sub 修改存檔2_bt_Click(sender As Object, e As EventArgs) Handles 修改存檔2_bt.Click
        If 權限代號_cb.Text = "" Or 權限名稱_tb.Text = "" Or 通知內容_tb.Text = "" Then : MGB(對話框(1), 1) : Else
            SQL_LINE_通知內容資料修改() : conn.Close() : MGB(對話框(3), 1)
            權限代號_cb.Enabled = False : 修改存檔2_bt.Enabled = False : 通知格式_cb.Enabled = False : 變數位置_cb.Enabled = False
        End If
        PA = "" : Set_通知內容清單()
    End Sub
    Private Sub 新增2_bt_Click(sender As Object, e As EventArgs) Handles 新增2_bt.Click
        權限代號_cb.Enabled = True : 通知格式_cb.Enabled = True
        權限代號_cb.Text = "" : 權限名稱_tb.Text = "" : 通知內容_tb.Text = "" : 新增2_bt.Enabled = False : 確認新增2_bt.Enabled = True
        變數位置_cb.Text = "" : 通知內容1_tb.Text = "" : 通知內容2_tb.Text = "" : 通知內容3_tb.Text = "" : 通知內容_tb.Text = ""
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = Color.White
            Label3.ForeColor = Color.Black : Label2.ForeColor = Color.Black : Label6.ForeColor = Color.Black : 通知內容1.ForeColor = Color.Black
            Label7.ForeColor = Color.Black : 電話號碼2_lb.ForeColor = Color.Black : Label10.ForeColor = Color.Black : Label8.ForeColor = Color.Black
            電話號碼1_lb.ForeColor = Color.Black : 電話號碼3_lb.ForeColor = Color.Black : Label4.ForeColor = Color.Black : Label9.ForeColor = Color.Black
            Label1.ForeColor = Color.Black : 已使用_ch.ForeColor = Color.Black : Label11.ForeColor = Color.Black : Label5.ForeColor = Color.Black
            Label12.ForeColor = Color.Blue
            CheckBox200.ForeColor = Color.Black : CheckBox201.ForeColor = Color.Black : CheckBox202.ForeColor = Color.Black : CheckBox203.ForeColor = Color.Black
            CheckBox204.ForeColor = Color.Black : CheckBox205.ForeColor = Color.Black : CheckBox206.ForeColor = Color.Black : CheckBox207.ForeColor = Color.Black
            CheckBox208.ForeColor = Color.Black : CheckBox209.ForeColor = Color.Black : CheckBox210.ForeColor = Color.Black : CheckBox211.ForeColor = Color.Black
            CheckBox212.ForeColor = Color.Black : CheckBox213.ForeColor = Color.Black : CheckBox214.ForeColor = Color.Black : CheckBox215.ForeColor = Color.Black
            CheckBox216.ForeColor = Color.Black : CheckBox217.ForeColor = Color.Black : CheckBox218.ForeColor = Color.Black : CheckBox219.ForeColor = Color.Black
            CheckBox220.ForeColor = Color.Black : CheckBox221.ForeColor = Color.Black : CheckBox222.ForeColor = Color.Black : CheckBox223.ForeColor = Color.Black
            CheckBox224.ForeColor = Color.Black : CheckBox225.ForeColor = Color.Black : CheckBox226.ForeColor = Color.Black : CheckBox227.ForeColor = Color.Black
            CheckBox228.ForeColor = Color.Black : CheckBox229.ForeColor = Color.Black : CheckBox230.ForeColor = Color.Black : CheckBox231.ForeColor = Color.Black
            CheckBox232.ForeColor = Color.Black : CheckBox233.ForeColor = Color.Black : CheckBox234.ForeColor = Color.Black : CheckBox235.ForeColor = Color.Black
            CheckBox236.ForeColor = Color.Black : CheckBox237.ForeColor = Color.Black : CheckBox238.ForeColor = Color.Black : CheckBox239.ForeColor = Color.Black
            CheckBox240.ForeColor = Color.Black : CheckBox241.ForeColor = Color.Black : CheckBox242.ForeColor = Color.Black : CheckBox243.ForeColor = Color.Black
            CheckBox244.ForeColor = Color.Black : CheckBox245.ForeColor = Color.Black : CheckBox246.ForeColor = Color.Black : CheckBox247.ForeColor = Color.Black
            CheckBox248.ForeColor = Color.Black : CheckBox249.ForeColor = Color.Black : CheckBox250.ForeColor = Color.Black : CheckBox251.ForeColor = Color.Black
            CheckBox252.ForeColor = Color.Black : CheckBox253.ForeColor = Color.Black : CheckBox254.ForeColor = Color.Black : CheckBox255.ForeColor = Color.Black
            CheckBox256.ForeColor = Color.Black : CheckBox257.ForeColor = Color.Black : CheckBox258.ForeColor = Color.Black : CheckBox259.ForeColor = Color.Black
            CheckBox260.ForeColor = Color.Black

            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 權限代號_cb.BackColor = Color.White : 權限代號_cb.ForeColor = Color.Black
            通知內容1_tb.BackColor = Color.White : 通知內容1_tb.ForeColor = Color.Black : 通知內容2_tb.BackColor = Color.White : 通知內容2_tb.ForeColor = Color.Black
            通知內容3_tb.BackColor = Color.White : 通知內容3_tb.ForeColor = Color.Black : 通知內容_tb.BackColor = Color.White : 通知內容_tb.ForeColor = Color.Black
            帳號_tb.BackColor = Color.White : 帳號_tb.ForeColor = Color.Black : 姓名_tb.BackColor = Color.White : 姓名_tb.ForeColor = Color.Black
            通知語言_cb.BackColor = Color.White : 通知語言_cb.ForeColor = Color.Black : token_tb.BackColor = Color.White : token_tb.ForeColor = Color.Black
            電話號碼1_tb.BackColor = Color.White : 電話號碼1_tb.ForeColor = Color.Black : 電話號碼2_tb.BackColor = Color.White : 電話號碼2_tb.ForeColor = Color.Black
            電話號碼3_tb.BackColor = Color.White : 電話號碼3_tb.ForeColor = Color.Black : 權限名稱_tb.BackColor = Color.White : 權限名稱_tb.ForeColor = Color.Black

            新增_bt.BackColor = Color.White : 新增_bt.ForeColor = Color.Blue : 確認新增_bt.BackColor = Color.White : 確認新增_bt.ForeColor = Color.Blue
            新增2_bt.BackColor = Color.White : 新增2_bt.ForeColor = Color.Blue : 確認新增2_bt.BackColor = Color.White : 確認新增2_bt.ForeColor = Color.Blue

            修改_bt.BackColor = Color.White : 修改_bt.ForeColor = Color.Green : 修改1_bt.BackColor = Color.White : 修改1_bt.ForeColor = Color.Green
            修改2_bt.BackColor = Color.White : 修改2_bt.ForeColor = Color.Green : 修改存檔2_bt.BackColor = Color.White : 修改存檔2_bt.ForeColor = Color.Green

            刪除_bt.BackColor = Color.White : 刪除_bt.ForeColor = Color.Red : 刪除2_bt.BackColor = Color.White : 刪除2_bt.ForeColor = Color.Red

            清單_dgv.EnableHeadersVisualStyles = True : 清單_dgv.BackgroundColor = Color.White : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
            清單_dgv.DefaultCellStyle.BackColor = Color.White : 清單_dgv.DefaultCellStyle.ForeColor = Color.Black

            通知內容_dgv.EnableHeadersVisualStyles = True : 通知內容_dgv.BackgroundColor = Color.White : 通知內容_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            通知內容_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
            通知內容_dgv.DefaultCellStyle.BackColor = Color.White : 通知內容_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            Label3.ForeColor = Color.White : Label2.ForeColor = Color.White : Label6.ForeColor = Color.White : 通知內容1.ForeColor = Color.White
            Label7.ForeColor = Color.White : 電話號碼2_lb.ForeColor = Color.White : Label10.ForeColor = Color.White : Label8.ForeColor = Color.White
            電話號碼1_lb.ForeColor = Color.White : 電話號碼3_lb.ForeColor = Color.White : Label4.ForeColor = Color.White : Label9.ForeColor = Color.White
            Label1.ForeColor = Color.White : 已使用_ch.ForeColor = Color.White : Label11.ForeColor = Color.White : Label5.ForeColor = Color.White
            Label12.ForeColor = Color.LightBlue
            CheckBox200.ForeColor = Color.White : CheckBox201.ForeColor = Color.White : CheckBox202.ForeColor = Color.White : CheckBox203.ForeColor = Color.White
            CheckBox204.ForeColor = Color.White : CheckBox205.ForeColor = Color.White : CheckBox206.ForeColor = Color.White : CheckBox207.ForeColor = Color.White
            CheckBox208.ForeColor = Color.White : CheckBox209.ForeColor = Color.White : CheckBox210.ForeColor = Color.White : CheckBox211.ForeColor = Color.White
            CheckBox212.ForeColor = Color.White : CheckBox213.ForeColor = Color.White : CheckBox214.ForeColor = Color.White : CheckBox215.ForeColor = Color.White
            CheckBox216.ForeColor = Color.White : CheckBox217.ForeColor = Color.White : CheckBox218.ForeColor = Color.White : CheckBox219.ForeColor = Color.White
            CheckBox220.ForeColor = Color.White : CheckBox221.ForeColor = Color.White : CheckBox222.ForeColor = Color.White : CheckBox223.ForeColor = Color.White
            CheckBox224.ForeColor = Color.White : CheckBox225.ForeColor = Color.White : CheckBox226.ForeColor = Color.White : CheckBox227.ForeColor = Color.White
            CheckBox228.ForeColor = Color.White : CheckBox229.ForeColor = Color.White : CheckBox230.ForeColor = Color.White : CheckBox231.ForeColor = Color.White
            CheckBox232.ForeColor = Color.White : CheckBox233.ForeColor = Color.White : CheckBox234.ForeColor = Color.White : CheckBox235.ForeColor = Color.White
            CheckBox236.ForeColor = Color.White : CheckBox237.ForeColor = Color.White : CheckBox238.ForeColor = Color.White : CheckBox239.ForeColor = Color.White
            CheckBox240.ForeColor = Color.White : CheckBox241.ForeColor = Color.White : CheckBox242.ForeColor = Color.White : CheckBox243.ForeColor = Color.White
            CheckBox244.ForeColor = Color.White : CheckBox245.ForeColor = Color.White : CheckBox246.ForeColor = Color.White : CheckBox247.ForeColor = Color.White
            CheckBox248.ForeColor = Color.White : CheckBox249.ForeColor = Color.White : CheckBox250.ForeColor = Color.White : CheckBox251.ForeColor = Color.White
            CheckBox252.ForeColor = Color.White : CheckBox253.ForeColor = Color.White : CheckBox254.ForeColor = Color.White : CheckBox255.ForeColor = Color.White
            CheckBox256.ForeColor = Color.White : CheckBox257.ForeColor = Color.White : CheckBox258.ForeColor = Color.White : CheckBox259.ForeColor = Color.White
            CheckBox260.ForeColor = Color.White

            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 權限代號_cb.BackColor = Color.DimGray : 權限代號_cb.ForeColor = Color.White
            通知內容1_tb.BackColor = Color.DimGray : 通知內容1_tb.ForeColor = Color.White : 通知內容2_tb.BackColor = Color.DimGray : 通知內容2_tb.ForeColor = Color.White
            通知內容3_tb.BackColor = Color.DimGray : 通知內容3_tb.ForeColor = Color.White : 通知內容_tb.BackColor = Color.DimGray : 通知內容_tb.ForeColor = Color.White
            帳號_tb.BackColor = Color.DimGray : 帳號_tb.ForeColor = Color.White : 姓名_tb.BackColor = Color.DimGray : 姓名_tb.ForeColor = Color.White
            通知語言_cb.BackColor = Color.DimGray : 通知語言_cb.ForeColor = Color.White : token_tb.BackColor = Color.DimGray : token_tb.ForeColor = Color.White
            電話號碼1_tb.BackColor = Color.DimGray : 電話號碼1_tb.ForeColor = Color.White : 電話號碼2_tb.BackColor = Color.DimGray : 電話號碼2_tb.ForeColor = Color.White
            電話號碼3_tb.BackColor = Color.DimGray : 電話號碼3_tb.ForeColor = Color.White : 權限名稱_tb.BackColor = Color.DimGray : 權限名稱_tb.ForeColor = Color.White

            新增_bt.BackColor = Color.DimGray : 新增_bt.ForeColor = Color.LightBlue : 確認新增_bt.BackColor = Color.DimGray : 確認新增_bt.ForeColor = Color.LightBlue
            新增2_bt.BackColor = Color.DimGray : 新增2_bt.ForeColor = Color.LightBlue : 確認新增2_bt.BackColor = Color.DimGray : 確認新增2_bt.ForeColor = Color.LightBlue

            修改_bt.BackColor = Color.DimGray : 修改_bt.ForeColor = Color.LightGreen : 修改1_bt.BackColor = Color.DimGray : 修改1_bt.ForeColor = Color.LightGreen
            修改2_bt.BackColor = Color.DimGray : 修改2_bt.ForeColor = Color.LightGreen : 修改存檔2_bt.BackColor = Color.DimGray : 修改存檔2_bt.ForeColor = Color.LightGreen

            刪除_bt.BackColor = Color.DimGray : 刪除_bt.ForeColor = Color.LightPink : 刪除2_bt.BackColor = Color.DimGray : 刪除2_bt.ForeColor = Color.LightPink

            清單_dgv.EnableHeadersVisualStyles = False : 清單_dgv.BackgroundColor = Color.DimGray : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
            清單_dgv.DefaultCellStyle.BackColor = Color.DimGray : 清單_dgv.DefaultCellStyle.ForeColor = Color.White

            通知內容_dgv.EnableHeadersVisualStyles = False : 通知內容_dgv.BackgroundColor = Color.DimGray : 通知內容_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            通知內容_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 通知內容_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
            通知內容_dgv.DefaultCellStyle.BackColor = Color.DimGray : 通知內容_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class