MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/人事系統管理/員工ID卡系統配置設�...

Option Strict Off
Public Class 員工ID卡系統配置設定
    ReadOnly ds1 As New DataSet
    Private Sub Set_人員清單()
        DataGridView2.DataSource = Nothing : ds1.Clear()
        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView2.ColumnHeadersHeight = 25
        DataGridView2.AllowUserToAddRows = False
        SQL_人員清單()
        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
        DataGridView2.Columns(0).FillWeight = 150 : DataGridView2.Columns(1).FillWeight = 150 : DataGridView2.Columns(2).FillWeight = 150
    End Sub
    Private Sub 員工ID卡系統配置設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_人員清單() : TextBox1.Enabled = False : TextBox2.Enabled = False
        TextBox3.Focus()
    End Sub
    Private Sub DataGridView2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox1.Text = DataGridView2(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView2(1, e.RowIndex).Value.ToString : TextBox3.Focus()
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then : MsgBox("輸入資料有誤")
        Else
            SQL_ID卡號註冊() : conn.Close() : MsgBox("卡片與系統帳號配對完成") : TextBox3.Text = ""
        End If : Set_人員清單() : TextBox3.Focus()
    End Sub
End Class