GCM-LINE-SYS-LEEHSIEHJUI/GCM-LINE-SYS/01.人事系統管理/LINE_使用者管理表.vb

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_權限名稱()
        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
        If 帳號_tb.Text = "全部" Or 帳號_tb.Text = "" Then
            SQL2 = "WHERE 帳號 LIKE N'%%' AND 帳號 NOT LIKE N'MCD'"
        Else
            SQL2 = "WHERE 帳號 LIKE N'" & 帳號_tb.Text & "'  AND 帳號 NOT LIKE N'MCD'"
        End If
        SQL_LINE_使用者管理表_清單載入()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).FillWeight = 30 : 清單_dgv.Columns(1).FillWeight = 30 : 清單_dgv.Columns(2).FillWeight = 100 : 清單_dgv.Columns(3).FillWeight = 30
        清單_dgv.Columns(4).FillWeight = 40 : 清單_dgv.Columns(5).Visible = False : 清單_dgv.Columns(6).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 = 85
        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 載入公司CB()
        SQL_公司_下拉清單() : 帳號_tb.Items.Clear() : 帳號_tb.Items.Add("全部")
        While (dr.Read()) : 帳號_tb.Items.Add(dr("公司名稱")) : End While : conn.Close()
    End Sub
    Private Sub 載入語言CB()
        SQL_語言_下拉清單() : 通知語言_cb.Items.Clear()
        While (dr.Read()) : 通知語言_cb.Items.Add(dr("語言")) : End While : conn.Close()
    End Sub
    Private Sub LOG檔空白資料寫入()
        SQL_LOG檔空白資料寫入()
    End Sub
    Private Sub LINE_使用者管理表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "GCM-LINE-SYS 訊息中央控制系統"
        LOG檔空白資料寫入()
        對話框(0) = "該功能介面為系統開發人員使用，所以不提供語言轉換功能!!" : 對話框(1) = "輸入資料有誤!!" : 對話框(2) = "新增完成!!" : 對話框(3) = "存檔完成!!"
        對話框(4) = "確定要刪除該筆資料?" : 對話框(5) = "刪除完成!!"
        帳號_tb.Text = "全部"
        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() : 載入公司CB() : 載入語言CB()
        Set_使用者清單() : Set_通知內容清單() : Set_權限名稱()
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 9)
        通知內容_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 9)
        使用者姓名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 9)
    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
            token_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("UserID").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
            Next
        End If
    End Sub
    Private Sub 清單_dgv_CellClick_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 清單_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 清單_dgv("公司名稱", e.RowIndex).Value.ToString <> 清單_dgv("公司名稱", e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(清單_dgv.RowHeadersVisible, 清單_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        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)
        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 = "" Or 帳號_tb.Text = "全部" Then
            If 帳號_tb.Text = "全部" Then
                MsgBox("請先選擇公司")
            Else
                MGB(對話框(1), 1)
            End If

        Else
            SQL_LINE_使用者資料查詢(姓名_tb.Text, 帳號_tb.Text)
            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_使用者資料刪除(帳號_tb.Text, 姓名_tb.Text) : 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 = "" : 通知內容1_tb.Text = "" : 通知內容2_tb.Text = "" : 通知內容3_tb.Text = "" : 通知內容_tb.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
        通知內容1_tb.Clear() : 通知內容_tb.Clear() : 通知內容2_tb.Clear() : 通知內容3_tb.Clear()
        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 權限代號_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 帳號_tb_Click(sender As Object, e As EventArgs) Handles 帳號_tb.Click
        CB選擇清單(帳號_tb, 帳號_tb.Text)
    End Sub
    Private Sub 帳號_tb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳號_tb.SelectedIndexChanged
        Set_使用者清單()
    End Sub
    Private Sub 通知語言_cb_Click(sender As Object, e As EventArgs) Handles 通知語言_cb.Click
        CB選擇清單(通知語言_cb, 通知語言_cb.Text)
    End Sub
    Private Sub 通知語言_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 通知語言_cb.SelectedIndexChanged

    End Sub
    Private Sub 系統編碼規則_bt_Click(sender As Object, e As EventArgs) Handles 系統編碼規則_bt.Click
        系統編碼規則.ShowDialog()
    End Sub
    Private Sub 權限一覽表_bt_Click(sender As Object, e As EventArgs) Handles 權限一覽表_bt.Click
        LINE_權限一覽表.ShowDialog()
    End Sub
    Private Sub 通知測試表_bt_Click(sender As Object, e As EventArgs) Handles 通知測試表_bt.Click
        通知進入 = "GCM" : LINE_通知測試表.ShowDialog()
    End Sub
    Private Sub 歷史_bt_Click(sender As Object, e As EventArgs) Handles 歷史_bt.Click
        歷史發送數據.ShowDialog()
    End Sub
    Private Sub 帳號綁定_bt_Click(sender As Object, e As EventArgs) Handles 帳號綁定_bt.Click
        帳號綁定 = "一般" : LINE_帳號綁定.ShowDialog() : LINE_帳號綁定.BringToFront()
    End Sub
    Private Sub MCD_bt_Click(sender As Object, e As EventArgs) Handles MCD_bt.Click
        LINE_MCD管理表.ShowDialog() : LINE_MCD管理表.BringToFront()
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        LOG檔空白資料寫入()
        對話框(0) = "該功能介面為系統開發人員使用，所以不提供語言轉換功能!!" : 對話框(1) = "輸入資料有誤!!" : 對話框(2) = "新增完成!!" : 對話框(3) = "存檔完成!!"
        對話框(4) = "確定要刪除該筆資料?" : 對話框(5) = "刪除完成!!"
        帳號_tb.Text = "全部"
        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() : 載入公司CB() : 載入語言CB()
        Set_使用者清單() : Set_通知內容清單() : Set_權限名稱()
    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
End Class