GCM-LINE-SYS-LEEHSIEHJUI/GCM-LINE-SYS/01.人事系統管理/LINE_MCD管理表.vb

Public Class LINE_MCD管理表
    Private Sub Set_使用者清單()
        Dim ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 35
        清單_dgv.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        SQL_MCD_使用者清單載入()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns("姓名").ReadOnly = True : 清單_dgv.Columns("UserID").ReadOnly = True
        清單_dgv.Columns("姓名").FillWeight = 100 : 清單_dgv.Columns("UserID").FillWeight = 300
    End Sub
    Private Sub Set_金句清單()
        Dim ds1 As New DataSet
        金句_dgv.DataSource = Nothing : ds1.Clear()
        金句_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        金句_dgv.ColumnHeadersHeight = 25 : 金句_dgv.AllowUserToAddRows = False : 金句_dgv.RowTemplate.Height = 35
        金句_dgv.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        SQL_MCD_金句清單載入()
        da.Fill(ds1) : 金句_dgv.DataSource = ds1.Tables(0) : conn.Close()
        金句_dgv.Columns("ID").FillWeight = 40 : 金句_dgv.Columns("抬頭").FillWeight = 80 : 金句_dgv.Columns("內容").FillWeight = 80
        金句_dgv.Columns("頁腳").FillWeight = 80
    End Sub
    Private Sub Set_關鍵字清單()
        Dim ds1 As New DataSet
        關鍵字_dgv.DataSource = Nothing : ds1.Clear()
        關鍵字_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        關鍵字_dgv.ColumnHeadersHeight = 25 : 關鍵字_dgv.AllowUserToAddRows = False : 關鍵字_dgv.RowTemplate.Height = 35
        關鍵字_dgv.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        關鍵字_dgv.DefaultCellStyle.WrapMode = DataGridViewTriState.True
        SQL_MCD_關鍵字清單載入("Udf7a376553518469f3e9097fa6118ffc")
        da.Fill(ds1) : 關鍵字_dgv.DataSource = ds1.Tables(0) : conn.Close()
        關鍵字_dgv.Columns("ID").FillWeight = 40 : 關鍵字_dgv.Columns("關鍵字").FillWeight = 80 : 關鍵字_dgv.Columns("回應內容").FillWeight = 160
    End Sub
    Private Sub Set_歷史訊息()
        Dim ds1 As New DataSet
        歷史_dgv.DataSource = Nothing : ds1.Clear()
        歷史_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        歷史_dgv.ColumnHeadersHeight = 25 : 歷史_dgv.AllowUserToAddRows = False : 歷史_dgv.RowTemplate.Height = 35
        歷史_dgv.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        歷史_dgv.DefaultCellStyle.WrapMode = DataGridViewTriState.True
        SQL_MCD_歷史訊息清單()
        da.Fill(ds1) : 歷史_dgv.DataSource = ds1.Tables(0) : conn.Close()

    End Sub
    Private Sub LINE_MCD管理表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_使用者清單() : Set_金句清單() : Set_關鍵字清單() : 歷史訊息_pl.Visible = False
    End Sub

    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        Dim 姓名 As String : 姓名 = InputBox("請輸入要新增的名字：", "新增")
        If 姓名 <> "" Then
            SQL_MCD_檢查有無重複(姓名)
            If dr.Read() Then
                MsgBox("已有相同名稱，請重新輸入")
            Else
                SQL_MCD_新增使用者(姓名) : MsgBox("新增完畢!") : Set_使用者清單() : 姓名_tb.Text = "" : user_id_tb.Text = ""
            End If
        Else
            MsgBox("輸入資料有誤")
        End If
    End Sub

    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        If 姓名_tb.Text = "" Then
            MsgBox("請先選擇要刪除的對象")
        Else
            SQL_MCD_刪除使用者(姓名_tb.Text) : MsgBox("刪除完畢!") : Set_使用者清單() : 姓名_tb.Text = "" : user_id_tb.Text = ""
        End If
    End Sub

    Private Sub 清單_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            姓名_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("姓名").Value.ToString
            user_id_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("UserID").Value.ToString
        End If
    End Sub

    Private Sub 修改1_bt_Click(sender As Object, e As EventArgs) Handles 修改1_bt.Click
        If 姓名_tb.Text = "" Then
            MsgBox("請先選擇要修改的對象")
        Else
            Dim 姓名 As String : 姓名 = InputBox("請輸入要修改的名字：", "新增")
            If 姓名 <> "" Then
                SQL_MCD_修改使用者(姓名, 姓名_tb.Text)
                MsgBox("修改完畢!") : Set_使用者清單() : 姓名_tb.Text = "" : user_id_tb.Text = ""
            Else
                MsgBox("輸入資料有誤")
            End If
        End If

    End Sub

    Private Sub 帳號綁定_bt_Click(sender As Object, e As EventArgs) Handles 帳號綁定_bt.Click
        帳號綁定 = "MCD" : LINE_帳號綁定.ShowDialog() : LINE_帳號綁定.BringToFront()
    End Sub

    Private Sub 新增金句_bt_Click(sender As Object, e As EventArgs) Handles 新增金句_bt.Click
        SQL_MCD_查詢金句最後() : Dim 舊ID As String : If dr.Read() Then : 舊ID = dr("ID") : Else : 舊ID = "GD-0000" : End If
        Dim 新ID As Double = CDbl(舊ID.Substring(3)) : Dim ID As String = "GD-" & (新ID + 1).ToString.PadLeft(4, "0")
        SQL_MCD_金句新增(ID) : MsgBox("新增完畢!") : Set_金句清單()
    End Sub

    Private Sub 修改金句_bt_Click(sender As Object, e As EventArgs) Handles 修改金句_bt.Click
        For i As Integer = 0 To 金句_dgv.Rows.Count - 1
            Dim ID As String = 金句_dgv.Rows(i).Cells("ID").Value.ToString : Dim 抬頭 As String = 金句_dgv.Rows(i).Cells("抬頭").Value.ToString
            Dim 內容 As String = 金句_dgv.Rows(i).Cells("內容").Value.ToString : Dim 頁腳 As String = 金句_dgv.Rows(i).Cells("頁腳").Value.ToString
            SQL_MCD_金句修改(ID, 抬頭, 內容, 頁腳)
        Next
        MsgBox("存檔完成!") : Set_金句清單()
    End Sub

    Private Sub 新增關鍵字_bt_Click(sender As Object, e As EventArgs) Handles 新增關鍵字_bt.Click
        SQL_MCD_查詢關鍵字最後("Udf7a376553518469f3e9097fa6118ffc")
        Dim 舊ID As String : If dr.Read() Then : 舊ID = dr("ID") : Else : 舊ID = "KM-MCD-0000" : End If
        Dim parts() As String = 舊ID.Split("-"c) : Dim 新ID As Double = CDbl(parts(2))
        Dim ID As String = "KM-MCD-" & (新ID + 1).ToString.PadLeft(4, "0")
        SQL_MCD_關鍵字新增(ID, "Udf7a376553518469f3e9097fa6118ffc") : MsgBox("新增完畢!") : Set_關鍵字清單()
    End Sub

    Private Sub 批量修改關鍵字_bt_Click(sender As Object, e As EventArgs) Handles 批量修改關鍵字_bt.Click
        For i As Integer = 0 To 關鍵字_dgv.Rows.Count - 1
            Dim ID As String = 關鍵字_dgv.Rows(i).Cells("ID").Value.ToString : Dim 關鍵字 As String = 關鍵字_dgv.Rows(i).Cells("關鍵字").Value.ToString
            Dim 回應內容 As String = 關鍵字_dgv.Rows(i).Cells("回應內容").Value.ToString
            SQL_MCD_關鍵字修改(ID, 關鍵字, 回應內容, "Udf7a376553518469f3e9097fa6118ffc")
        Next
        MsgBox("存檔完成!") : Set_關鍵字清單()
    End Sub

    Private Sub 群組歷史訊息_bt_Click(sender As Object, e As EventArgs) Handles 群組歷史訊息_bt.Click
        If 歷史訊息_pl.Visible = False Then : 歷史訊息_pl.Visible = True : Set_歷史訊息() : Else : 歷史訊息_pl.Visible = False : End If
    End Sub

    Private Sub 通知測試表_bt_Click(sender As Object, e As EventArgs) Handles 通知測試表_bt.Click
        通知進入 = "MCD" : LINE_通知測試表.ShowDialog()
    End Sub
End Class