GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/01、人事管理系統/LINE_通知測試表.vb

Public Class LINE_通知測試表
    Dim ds1 As New DataSet
    Private Sub Set_使用者清單()
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25
        清單_dgv.AllowUserToAddRows = False
        清單_dgv.RowTemplate.Height = 35
        SQL_LINE_通知設定表_清單載入()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub LINE_通知設定表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_使用者清單() : 清單_dgv.Columns(0).FillWeight = 80 : 姓名_tb.Enabled = False : token_tb.Enabled = False : 通知語言_tb.Enabled = False
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    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("token").Value.ToString
            通知語言_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("通知語言").Value.ToString
        End If
    End Sub
    Private Sub 發送測試_bt_Click(sender As Object, e As EventArgs) Handles 發送測試_bt.Click
        If token_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If
        Else
            If 內容_tb.Text = "" Then : PA202 = "Test" : Else : PA202 = 內容_tb.Text : End If
            PA203 = SQL_LINE_隨機碼() : PA201 = token_tb.Text : PA204 = 通知語言_tb.Text
            SQL_LINE_新增發送通知() : conn.Close() : 內容_tb.Text = ""
            If 系統語言 = "繁體中文" Then : MsgBox("發送完畢!!") : Else : MsgBox("Terkirim!!") : End If
        End If
    End Sub
End Class