HSKIN-MIS-SYS-SIU/GRAMS-SYS/06、總務管理/選擇人員.vb

Imports System.Security.Cryptography
Imports Telerik.WinControls.VirtualKeyboard

Public Class 選擇人員
    Private Sub 選擇人員_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_清單2() : Set_清單1()
    End Sub
    Private Sub Set_清單2()
        Dim ds1 As New DataSet
        人員1_dgv.DataSource = Nothing : ds1.Clear()
        人員1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員1_dgv.ColumnHeadersHeight = 25
        人員1_dgv.AllowUserToAddRows = False
        SQL_通用_明細表讀取()
        da.Fill(ds1) : 人員1_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單1()
        Dim ds As New DataSet
        人員_dgv.DataSource = Nothing : ds.Clear()
        人員_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員_dgv.ColumnHeadersHeight = 25
        人員_dgv.AllowUserToAddRows = False
        SQL_通用_人員清單()
        da.Fill(ds) : 人員_dgv.DataSource = ds.Tables(0) : conn.Close()
        Dim chkColumn As New DataGridViewCheckBoxColumn()

        人員_dgv.Columns(0).FillWeight = 30 : 人員_dgv.Columns(1).FillWeight = 40 : 人員_dgv.Columns(2).FillWeight = 30

        For I As Integer = 0 To 人員_dgv.Rows.Count - 1
            人員_dgv.Rows(I).Cells("選擇").Value = False
        Next
    End Sub

    Private Sub 加入_tb_Click(sender As Object, e As EventArgs) Handles 加入_tb.Click
        SQL_通用_明細表刪除()
        For Each row1 As DataGridViewRow In 人員_dgv.Rows
            If Convert.ToBoolean(row1.Cells("選擇").Value) = True Then
                PA58 = row1.Cells("姓名").Value.ToString()
                SQL_通用_明細表新增()
            End If
        Next
        MsgBox("編輯完成") : Me.Close()
    End Sub
End Class