WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/人事管理系統/人員ID卡系統配置設�...

Option Strict Off
Public Class 人員ID卡系統配置設定
    Private ReadOnly ds1 As New DataSet
    Private Sub Set_人員清單()
        在職員工_dgv.DataSource = Nothing : ds1.Clear()
        在職員工_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        在職員工_dgv.ColumnHeadersHeight = 25
        在職員工_dgv.AllowUserToAddRows = False
        SQL_使用者權限管理表()
        da.Fill(ds1) : 在職員工_dgv.DataSource = ds1.Tables(0) : conn.Close()
        在職員工_dgv.Columns(0).Width = 150 : 在職員工_dgv.Columns(1).Width = 150 : 在職員工_dgv.Columns(2).Width = 150 : 在職員工_dgv.Columns(3).Width = 150
        在職員工_dgv.Columns(4).Width = 150 : 在職員工_dgv.Columns(1).Width = 150
    End Sub
    Private Sub 人員ID卡系統配置設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_人員清單() : 姓名_tb.Enabled = False : 帳號_tb.Enabled = False
        ID卡號_tb.Focus()
    End Sub
    Private Sub DataGridView2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 在職員工_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            姓名_tb.Text = 在職員工_dgv(0, e.RowIndex).Value.ToString : 帳號_tb.Text = 在職員工_dgv(1, e.RowIndex).Value.ToString
            ID卡號_tb.Focus()
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 卡片配對_bt.Click
        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or ID卡號_tb.Text = "" Then
            MsgBox("輸入資料有誤")
        Else
            SQL_修改使用者權限管理表() : MsgBox("卡片與系統帳號配對完成") : ID卡號_tb.Text = ""
        End If
        Set_人員清單() : ID卡號_tb.Focus()
    End Sub
End Class