GCM-LINE-SYS-LEEHSIEHJUI/GCM-LINE-SYS/01.人事系統管理/LINE_權限一覽表.vb

Public Class LINE_權限一覽表
    Dim ds1, ds2 As New DataSet
    Dim 對話框(4) As String
    Private Sub Set_使用者清單()
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25
        清單_dgv.AllowUserToAddRows = False
        清單_dgv.RowTemplate.Height = 25
        SQL_LINE_權限清單載入()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close() : Set_grid()
        清單_dgv.Columns(0).FillWeight = 30 : 清單_dgv.Columns(1).FillWeight = 80 : 清單_dgv.Columns(2).FillWeight = 30
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
            If IsDBNull(清單_dgv.Rows(i).Cells("已使用").Value) Then : 清單_dgv.Rows(i).Cells("已使用").Value = False : End If
        Next
    End Sub
    Private Sub Set_grid()
        清單_dgv.Columns(0).FillWeight = 30
    End Sub
    Private Sub LINE_權限一覽表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PA = "" : 確認新增_bt.Enabled = False : 修改存檔_bt.Enabled = False
        對話框(0) = "輸入資料有誤!!"
        對話框(1) = "新增完成!!"
        對話框(2) = "存檔完成!!"
        對話框(3) = "確定要刪除該筆資料?"
        對話框(4) = "刪除完成!!"
        Set_使用者清單()
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 9)
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        權限名稱_tb.Text = "" : 權限代號_cb.Text = "" : 新增_bt.Enabled = False : 確認新增_bt.Enabled = True
    End Sub
    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        If 權限代號_cb.Text = "" Or 權限名稱_tb.Text = "" Then : MGB(對話框(0), 1) : Else
            SQL_LINE_新增權限資料() : SQL_LINE_權限資料修改() : conn.Close()
            MGB(對話框(1), 1) : Set_使用者清單()
            確認新增_bt.Enabled = False : 新增_bt.Enabled = True : LINE_使用者管理表.語轉扭_bt.SendToBack()
        End If
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        修改_bt.Enabled = False : 修改存檔_bt.Enabled = True
    End Sub
    Private Sub 修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改存檔_bt.Click
        If 權限代號_cb.Text = "" Or 權限名稱_tb.Text = "" Then : MGB(對話框(0), 1) : Else
            SQL_LINE_權限資料修改() : conn.Close()
            MGB(對話框(2), 1) : PA = "" : Set_使用者清單()
            修改存檔_bt.Enabled = False : 修改_bt.Enabled = True : LINE_使用者管理表.語轉扭_bt.PerformClick()
        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 : 權限代號_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("權限代號").Value.ToString
        End If
    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
        MGB(對話框(3), 2)
        If 訊息回應 = "YES" Then : SQL_LINE_權限資料刪除() : conn.Close()
            MGB(對話框(4), 1) : LINE_使用者管理表.語轉扭_bt.SendToBack()
        End If
        權限名稱_tb.Text = "" : 權限代號_cb.Text = ""
        Set_使用者清單()
    End Sub
End Class