Option Strict Off
Public Class 人員ID卡系統配置設定
    ReadOnly ds, ds1 As New DataSet
    Private Sub Set_人員清單()
        主系統_dgv.DataSource = Nothing : ds1.Clear()
        主系統_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主系統_dgv.ColumnHeadersHeight = 25
        主系統_dgv.AllowUserToAddRows = False
        SQL_系統ID()
        da.Fill(ds1) : 主系統_dgv.DataSource = ds1.Tables(0) : conn.Close() : Set_grid1()
    End Sub
    Private Sub Set_人員清單1()
        考勤_dgv.DataSource = Nothing : ds.Clear()
        考勤_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        考勤_dgv.ColumnHeadersHeight = 25
        考勤_dgv.AllowUserToAddRows = False
        SQL_考勤ID()
        da.Fill(ds) : 考勤_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid1()
    End Sub
    Private Sub Set_grid1()
        主系統_dgv.Columns(0).FillWeight = 200 : 主系統_dgv.Columns(1).FillWeight = 200 : 主系統_dgv.Columns(2).FillWeight = 200
    End Sub
    Private Sub 人員ID卡系統配置設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_人員清單() : Set_人員清單1() : 姓名_tb.Enabled = False : 帳號_tb.Enabled = False
        ID卡號_tb.Focus()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    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.Text = 主系統_dgv(2, e.RowIndex).Value.ToString
            ID卡號_tb.Focus()
            For i As Integer = 0 To 考勤_dgv.Rows.Count - 1
                If 姓名_tb.Text = 考勤_dgv(1, i).Value.ToString Then
                    編號_tb.Text = 考勤_dgv(0, i).Value.ToString
                End If
            Next
        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_系統ID存檔() : SQL_SQL_考勤ID存檔() : conn.Close()
            MsgBox("卡片與系統帳號配對完成。") : ID卡號_tb.Text = ""
        End If
        Set_人員清單() : Set_人員清單1() : ID卡號_tb.Focus()
    End Sub
End Class