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

Public Class LINE_使用者管理表
    Dim HH As Integer
    Dim ds1, ds2, ds3, ds4 As New DataSet
    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
        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
                    End If
                Next
                選擇.Text = "CC" + 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_使用者管理表_清單載入()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).FillWeight = 50 : 清單_dgv.Columns(1).FillWeight = 30 : 清單_dgv.Columns(2).FillWeight = 130 : 清單_dgv.Columns(3).FillWeight = 30
        For i As Integer = 0 To LINE_權限數量 - 1
            清單_dgv.Columns(i + 4).Visible = False
        Next
    End Sub
    Private Sub Set_通知內容清單()
        通知內容_dgv.DataSource = Nothing : ds2.Clear()
        通知內容_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        通知內容_dgv.ColumnHeadersHeight = 25
        通知內容_dgv.AllowUserToAddRows = False
        通知內容_dgv.RowTemplate.Height = 35
        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_格式設定()
        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 LINE_使用者管理表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        PA = "" : 確認新增_bt.Enabled = False
        姓名_tb.Enabled = False : 帳號_tb.Enabled = False : 修改_bt.Enabled = False : token_tb.Enabled = False
        權限代號_cb.Enabled = False : 權限名稱_tb.Enabled = False : 修改存檔2_bt.Enabled = False : 確認新增2_bt.Enabled = False : 通知格式_cb.Enabled = False
        變數位置_cb.Enabled = False : 通知內容1_tb.Enabled = False : 通知內容2_tb.Enabled = False : 通知內容3_tb.Enabled = False
        變數位置_cb.Items.Clear()
        Set_使用者清單() : Set_通知內容清單() : Set_使用者姓名清單() : Set_權限名稱()
        清單_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_使用者管理表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        MyModule1.虛擬桌面開啟()
    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
            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_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 : 權限名稱_tb.Text = 通知內容_dgv.Rows(e.RowIndex).Cells("權限名稱").Value.ToString
            通知內容_tb.Text = 通知內容_dgv.Rows(e.RowIndex).Cells("通知內容").Value.ToString : 通知格式_cb.Text = 通知內容_dgv.Rows(e.RowIndex).Cells("通知格式").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
            已使用_ch.Checked = 通知內容_dgv.Rows(e.RowIndex).Cells("已使用").Value
        End If
    End Sub
    Private Sub 修改1_bt_Click(sender As Object, e As EventArgs) Handles 修改1_bt.Click
        姓名_tb.Enabled = False : 帳號_tb.Enabled = False : token_tb.Enabled = True : 修改_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 token_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If
        Else
            SQL_LINE_使用者資料修改() : conn.Close() : If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If
            姓名_tb.Enabled = False : 帳號_tb.Enabled = False : token_tb.Enabled = False : 修改_bt.Enabled = False

        End If
        PA = "" : Set_使用者清單()
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        姓名_tb.Enabled = False : 帳號_tb.Enabled = False : token_tb.Enabled = True
        姓名_tb.Text = "" : 帳號_tb.Text = "" : token_tb.Text = "" : 新增_bt.Enabled = False : 確認新增_bt.Enabled = True
        Set_格式設定()
    End Sub
    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        If 姓名_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If
        Else
            SQL_LINE_新增使用者資料() : SQL_LINE_使用者資料修改() : conn.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Tambahkan selesai!!") : End If : Set_使用者清單()
            確認新增_bt.Enabled = False : 新增_bt.Enabled = True
            姓名_tb.Enabled = False : 帳號_tb.Enabled = False : token_tb.Enabled = False
        End If
    End Sub
    Private Sub 刪除2_bt_Click(sender As Object, e As EventArgs) Handles 刪除2_bt.Click
        Dim SS As String
        If 系統語言 = "繁體中文" Then : SS = "確定要刪除該筆資料?" : Else : SS = "Apakah Anda yakin ingin menghapus data ini?" : End If
        Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : SQL_LINE_通知內容資料刪除() : conn.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If : End If
        權限代號_cb.Text = "" : 權限名稱_tb.Text = "" : 通知內容_tb.Text = ""
        Set_通知內容清單()
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim SS As String
        If 系統語言 = "繁體中文" Then : SS = "確定要刪除該筆資料?" : Else : SS = "Apakah Anda yakin ingin menghapus data ini?" : End If
        Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : SQL_LINE_使用者資料刪除() : conn.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If : 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
            If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If
        Else
            SQL_LINE_新增通知內容資料() : SQL_LINE_通知內容資料修改() : conn.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Tambahkan selesai!!") : End If : Set_通知內容清單()
            確認新增2_bt.Enabled = False : 新增2_bt.Enabled = True
            權限代號_cb.Enabled = False : 權限名稱_tb.Enabled = False : 通知內容_tb.Enabled = False
            通知格式_cb.Enabled = False : 變數位置_cb.Enabled = False : 通知內容1_tb.Enabled = False : 通知內容2_tb.Enabled = False : 通知內容3_tb.Enabled = False
        End If
    End Sub
    Private Sub 修改2_bt_Click(sender As Object, e As EventArgs) Handles 修改2_bt.Click
        權限代號_cb.Enabled = False : 權限名稱_tb.Enabled = True : 通知內容_tb.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 : 通知內容1_tb.Enabled = True : 通知內容2_tb.Enabled = False : 通知內容3_tb.Enabled = False
            變數位置_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 : 通知內容1_tb.Enabled = True : 通知內容2_tb.Enabled = True : 通知內容3_tb.Enabled = False
            變數位置_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 : 通知內容1_tb.Enabled = True : 通知內容2_tb.Enabled = True : 通知內容3_tb.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
            通知內容1_tb.Enabled = False
            通知內容_tb.Text = "'通知變數X'"
        Else
            通知內容1_tb.Enabled = True
        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

    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
            If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If
        Else
            SQL_LINE_通知內容資料修改() : conn.Close() : If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If
            權限代號_cb.Enabled = False : 權限名稱_tb.Enabled = False : 通知內容_tb.Enabled = False : 修改存檔2_bt.Enabled = False
            通知格式_cb.Enabled = False : 變數位置_cb.Enabled = False : 通知內容1_tb.Enabled = False : 通知內容2_tb.Enabled = False : 通知內容3_tb.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 : 權限名稱_tb.Enabled = True : 通知內容_tb.Enabled = False : 通知格式_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