HX-PGS-ERP-SYS-LEEHSIEHJUI/01、人事管理系統/門禁管理/門禁權限管理.vb

Public Class 門禁權限管理
    Private Sub Set_門禁權限()
        Dim ds1 As New DataSet : 人員門禁清單_dgv.DataSource = Nothing : ds1.Clear()
        人員門禁清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        If 系統語言 = "繁體中文" Then : 人員門禁清單_dgv.ColumnHeadersHeight = 35 : Else : 人員門禁清單_dgv.ColumnHeadersHeight = 75 : End If
        人員門禁清單_dgv.AllowUserToAddRows = False : 人員門禁清單_dgv.RowTemplate.Height = 25
        人員_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員_dgv.ColumnHeadersHeight = 25 : 人員_dgv.AllowUserToAddRows = False : 人員_dgv.RowTemplate.Height = 25
        Dim SS As Integer
        If 系統語言 = "繁體中文" Then : SS = 1 : ElseIf 系統語言 = "English" Then : SS = 2 : ElseIf 系統語言 = "Indonesian" Then : SS = 3 : End If
        For i As Integer = 0 To 門禁清單_dgv.Rows.Count - 1 : 表頭(i) = 門禁清單_dgv(SS, i).Value.ToString() : Next
        SQL_人員門禁權限()
        da.Fill(ds1) : 人員門禁清單_dgv.DataSource = ds1.Tables(0) : 人員_dgv.DataSource = ds1.Tables(0) : conn.Close()
        If CInt(登入人級別) <= 3 Then : 人員門禁清單_dgv.Columns(4).Visible = True : 人員門禁清單_dgv.Columns(5).Visible = True
        Else : 人員門禁清單_dgv.Columns(4).Visible = False : 人員門禁清單_dgv.Columns(5).Visible = False : End If
        人員門禁清單_dgv.Columns(0).ReadOnly = True : 人員門禁清單_dgv.Columns(0).FillWeight = 200 : 人員門禁清單_dgv.Columns(1).FillWeight = 200 : 人員門禁清單_dgv.Columns(2).FillWeight = 120
        人員門禁清單_dgv.Columns(3).Visible = False : 人員_dgv.Columns(0).ReadOnly = True
        For i As Integer = 1 To 人員_dgv.Columns.Count - 1 : 人員_dgv.Columns(i).Visible = False : Next
        For i As Integer = 0 To 人員門禁清單_dgv.Rows.Count - 1
            If IsDBNull(人員門禁清單_dgv(4, i).Value) Then : 人員門禁清單_dgv(4, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(5, i).Value) Then : 人員門禁清單_dgv(5, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(6, i).Value) Then : 人員門禁清單_dgv(6, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(7, i).Value) Then : 人員門禁清單_dgv(7, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(8, i).Value) Then : 人員門禁清單_dgv(8, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(9, i).Value) Then : 人員門禁清單_dgv(9, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(10, i).Value) Then : 人員門禁清單_dgv(10, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(11, i).Value) Then : 人員門禁清單_dgv(11, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(12, i).Value) Then : 人員門禁清單_dgv(12, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(13, i).Value) Then : 人員門禁清單_dgv(13, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(14, i).Value) Then : 人員門禁清單_dgv(14, i).Value = False : End If
            If IsDBNull(人員門禁清單_dgv(15, i).Value) Then : 人員門禁清單_dgv(15, i).Value = False : End If
            If 深色風格 = False Then
                If 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "01" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If

                If 人員_dgv.Rows(i).Cells("級別").Value.ToString = "01" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If
            Else
                If 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "01" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If

                If 人員_dgv.Rows(i).Cells("級別").Value.ToString = "01" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If
            End If
        Next
    End Sub
    Private Sub Set_門禁清單()
        Dim ds1 As New DataSet : 門禁清單_dgv.DataSource = Nothing : ds1.Clear()
        門禁清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        門禁清單_dgv.ColumnHeadersHeight = 25 : 門禁清單_dgv.AllowUserToAddRows = False : 門禁清單_dgv.RowTemplate.Height = 25
        SQL_門禁清單()
        da.Fill(ds1) : 門禁清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        門禁清單_dgv.Columns(1).ReadOnly = True : 門禁清單_dgv.Columns(2).ReadOnly = True : 門禁清單_dgv.Columns(3).ReadOnly = True
        門禁清單_dgv.Columns(0).Visible = False : 門禁清單_dgv.Columns(4).Visible = False
        If 系統語言 = "繁體中文" Then : 門禁清單_dgv.Columns(1).Visible = True : 門禁清單_dgv.Columns(2).Visible = False : 門禁清單_dgv.Columns(3).Visible = False
        ElseIf 系統語言 = "English" Then : 門禁清單_dgv.Columns(1).Visible = False : 門禁清單_dgv.Columns(2).Visible = True : 門禁清單_dgv.Columns(3).Visible = False
        ElseIf 系統語言 = "Indonesian" Then : 門禁清單_dgv.Columns(1).Visible = False : 門禁清單_dgv.Columns(2).Visible = False : 門禁清單_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub Set_門禁查詢1()
        Dim ds1 As New DataSet : 門禁紀錄_dgv.DataSource = Nothing : ds1.Clear()
        門禁紀錄_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        門禁紀錄_dgv.ColumnHeadersHeight = 25 : 門禁紀錄_dgv.AllowUserToAddRows = False : 門禁紀錄_dgv.RowTemplate.Height = 25
        SQL_門禁查詢1()
        da.Fill(ds1) : 門禁紀錄_dgv.DataSource = ds1.Tables(0) : conn.Close()
        門禁紀錄_dgv.Columns(2).FillWeight = 40
        For i As Integer = 0 To 門禁紀錄_dgv.Rows.Count - 1
            If 系統語言 = "繁體中文" Then
                If 門禁紀錄_dgv.Rows(i).Cells(0).Value.ToString = "" Then : 門禁紀錄_dgv.Rows(i).Cells(0).Value = "沒有授權的卡片" : End If
            Else
                If 門禁紀錄_dgv.Rows(i).Cells(2).Value.ToString = "失敗" Then : 門禁紀錄_dgv.Rows(i).Cells(2).Value = "Fail"
                Else : 門禁紀錄_dgv.Rows(i).Cells(2).Value = "Turn" : End If
                If 門禁紀錄_dgv.Rows(i).Cells(0).Value.ToString = "" Then : 門禁紀錄_dgv.Rows(i).Cells(0).Value = "The card is not registered" : End If
            End If
        Next
    End Sub
    Private Sub Set_門禁查詢2()
        Dim ds1 As New DataSet : 人員記錄_dgv.DataSource = Nothing : ds1.Clear()
        人員記錄_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員記錄_dgv.ColumnHeadersHeight = 25 : 人員記錄_dgv.AllowUserToAddRows = False : 人員記錄_dgv.RowTemplate.Height = 25
        If 系統語言 = "繁體中文" Then : SQL2 = "位置" : ElseIf 系統語言 = "English" Then : SQL2 = "名稱_英文" : ElseIf 系統語言 = "Indonesian" Then : SQL2 = "名稱_印尼文" : End If
        SQL_門禁查詢2()
        da.Fill(ds1) : 人員記錄_dgv.DataSource = ds1.Tables(0) : conn.Close()
        人員記錄_dgv.Columns(2).FillWeight = 40
        For i As Integer = 0 To 人員記錄_dgv.Rows.Count - 1
            If 系統語言 = "繁體中文" Then : Else
                If 人員記錄_dgv.Rows(i).Cells(2).Value.ToString = "失敗" Then : 人員記錄_dgv.Rows(i).Cells(2).Value = "Fail"
                Else : 人員記錄_dgv.Rows(i).Cells(2).Value = "Turn" : End If
            End If
        Next
    End Sub
    Private Sub Set_預設權限()
        Dim ds1 As New DataSet : 預設權限_dgv.DataSource = Nothing : ds1.Clear()
        預設權限_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        預設權限_dgv.ColumnHeadersHeight = 45 : 預設權限_dgv.AllowUserToAddRows = False : 預設權限_dgv.RowTemplate.Height = 25
        Dim SS As Integer
        If 系統語言 = "繁體中文" Then : SS = 1 : ElseIf 系統語言 = "English" Then : SS = 2 : ElseIf 系統語言 = "Indonesian" Then : SS = 3 : End If
        For i As Integer = 0 To 門禁清單_dgv.Rows.Count - 1 : 表頭(i) = 門禁清單_dgv(SS, i).Value.ToString() : Next
        SQL_門禁權限清單()
        da.Fill(ds1) : 預設權限_dgv.DataSource = ds1.Tables(0) : conn.Close()
        預設權限_dgv.Columns(0).ReadOnly = True : 預設權限_dgv.Columns(0).FillWeight = 350
        For i As Integer = 0 To 預設權限_dgv.Rows.Count - 1
            If IsDBNull(預設權限_dgv(1, i).Value) Then : 預設權限_dgv(1, i).Value = False : End If : If IsDBNull(預設權限_dgv(2, i).Value) Then : 預設權限_dgv(2, i).Value = False : End If
            If IsDBNull(預設權限_dgv(3, i).Value) Then : 預設權限_dgv(3, i).Value = False : End If : If IsDBNull(預設權限_dgv(4, i).Value) Then : 預設權限_dgv(4, i).Value = False : End If
            If IsDBNull(預設權限_dgv(5, i).Value) Then : 預設權限_dgv(5, i).Value = False : End If : If IsDBNull(預設權限_dgv(6, i).Value) Then : 預設權限_dgv(6, i).Value = False : End If
            If IsDBNull(預設權限_dgv(7, i).Value) Then : 預設權限_dgv(7, i).Value = False : End If : If IsDBNull(預設權限_dgv(8, i).Value) Then : 預設權限_dgv(8, i).Value = False : End If
            If IsDBNull(預設權限_dgv(9, i).Value) Then : 預設權限_dgv(9, i).Value = False : End If : If IsDBNull(預設權限_dgv(10, i).Value) Then : 預設權限_dgv(10, i).Value = False : End If
            If IsDBNull(預設權限_dgv(11, i).Value) Then : 預設權限_dgv(11, i).Value = False : End If : If IsDBNull(預設權限_dgv(12, i).Value) Then : 預設權限_dgv(12, i).Value = False : End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H000-122-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        TabPage1.Text = 系統語言字典("H613-100-" & 語言) : TabPage2.Text = 系統語言字典("H613-101-" & 語言)
    End Sub
    Private Sub 門禁權限管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(613) = True : 介面 = "H613" : 語言轉換讀取() : 顯示說明(999, False)
        門禁清單_dgv.SendToBack() : 預設權限_dgv.SendToBack() : Panel1.SendToBack()
        MyMod.清單字體大小調整()
        人員門禁清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        門禁清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        門禁紀錄_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        人員_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        人員記錄_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 門禁系統設定_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_門禁清單() : Set_預設權限() : Set_門禁權限()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H613" : 語言轉換讀取()
    End Sub
    Private Sub 系統開發用共享文件_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(613) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 門禁紀錄_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 門禁紀錄_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 門禁紀錄_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If Strings.Left(門禁紀錄_dgv("Time", e.RowIndex).Value.ToString, 10) <> Strings.Left(門禁紀錄_dgv("Time", e.RowIndex + 1).Value.ToString, 10) Then
                Dim startX As Integer = IIf(門禁紀錄_dgv.RowHeadersVisible, 門禁紀錄_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 門禁紀錄_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 門禁紀錄_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 人員記錄_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 人員記錄_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 人員記錄_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If Strings.Left(人員記錄_dgv("Time", e.RowIndex).Value.ToString, 10) <> Strings.Left(人員記錄_dgv("Time", e.RowIndex + 1).Value.ToString, 10) Then
                Dim startX As Integer = IIf(人員記錄_dgv.RowHeadersVisible, 人員記錄_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 人員記錄_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 人員記錄_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 人員門禁清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 人員門禁清單_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 人員門禁清單_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 人員門禁清單_dgv("級別", e.RowIndex).Value.ToString <> 人員門禁清單_dgv("級別", e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(人員門禁清單_dgv.RowHeadersVisible, 人員門禁清單_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 人員門禁清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 人員門禁清單_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
        For i As Integer = 0 To 人員門禁清單_dgv.Rows.Count - 1
            If 深色風格 = False Then
                If 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "01" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If
            Else
                If 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "01" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
                ElseIf 人員門禁清單_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 人員門禁清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If
            End If
        Next
    End Sub
    Private Sub 人員_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 人員_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 人員_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 人員_dgv("級別", e.RowIndex).Value.ToString <> 人員_dgv("級別", e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(人員_dgv.RowHeadersVisible, 人員_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 人員_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 人員_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
        For i As Integer = 0 To 人員_dgv.Rows.Count - 1
            If 深色風格 = False Then
                If 人員_dgv.Rows(i).Cells("級別").Value.ToString = "01" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If
            Else
                If 人員_dgv.Rows(i).Cells("級別").Value.ToString = "01" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "02" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "03" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "04" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
                ElseIf 人員_dgv.Rows(i).Cells("級別").Value.ToString = "05" Then : 人員_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If
            End If
        Next
    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(0).Value.ToString : 處別_tb.Text = 人員門禁清單_dgv.Rows(e.RowIndex).Cells(1).Value.ToString
        End If
    End Sub
    Private Sub 門禁清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 門禁清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            PA30 = 門禁清單_dgv.Rows(e.RowIndex).Cells(0).Value.ToString : Set_門禁查詢1()
        End If
    End Sub
    Private Sub 人員_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            PA30 = 人員_dgv.Rows(e.RowIndex).Cells(0).Value.ToString : Set_門禁查詢2()
        End If
    End Sub
    Private Sub 人員門禁清單_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 人員門禁清單_dgv.MouseUp
        'If 報價總表_dgv.SelectedCells.Count = 1 Then : 通知訊息 = 報價總表_dgv.SelectedCells(0).ColumnIndex & "  " & 報價總表_dgv.SelectedCells(0).RowIndex) : End If
        If 人員門禁清單_dgv.SelectedCells.Count > 0 Then
            '--------------------------------加總計算--------------------------------------------------------------------------------------------------------------------
            If 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 4 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(4).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(4).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(4).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 5 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(5).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(5).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(5).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 6 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(6).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(6).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(6).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 7 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(7).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(7).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(7).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 8 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(8).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(8).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(8).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 9 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(9).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(9).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(9).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 10 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(10).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(10).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(10).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 11 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(11).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(11).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(11).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 12 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(12).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(12).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(12).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 13 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(13).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(13).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(13).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 14 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(14).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(14).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(14).Value = False : End If
            ElseIf 人員門禁清單_dgv.SelectedCells(0).ColumnIndex = 15 Then
                If 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(15).Value = False Then
                    人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(15).Value = True
                Else : 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(15).Value = False : End If
            End If
            人員門禁清單_dgv.CurrentCell = 人員門禁清單_dgv.Rows(人員門禁清單_dgv.SelectedCells(0).RowIndex).Cells(0)
        End If
    End Sub
    Private Sub 重讀2_bt_Click(sender As Object, e As EventArgs) Handles 重讀2_bt.Click
        Set_門禁權限() : Set_門禁清單()
    End Sub
    Private Sub 帶入預設值_bt_Click(sender As Object, e As EventArgs) Handles 帶入預設值_bt.Click
        For i As Integer = 0 To 人員門禁清單_dgv.Rows.Count - 1
            If 姓名_tb.Text = 人員門禁清單_dgv.Rows(i).Cells(0).Value.ToString Then
                For II As Integer = 0 To 預設權限_dgv.Rows.Count - 1
                    If 處別_tb.Text = 預設權限_dgv(0, II).Value.ToString Then
                        人員門禁清單_dgv(4, i).Value = 預設權限_dgv(1, II).Value : 人員門禁清單_dgv(5, i).Value = 預設權限_dgv(2, II).Value
                        人員門禁清單_dgv(6, i).Value = 預設權限_dgv(3, II).Value : 人員門禁清單_dgv(7, i).Value = 預設權限_dgv(4, II).Value
                        人員門禁清單_dgv(8, i).Value = 預設權限_dgv(5, II).Value : 人員門禁清單_dgv(9, i).Value = 預設權限_dgv(6, II).Value
                        人員門禁清單_dgv(10, i).Value = 預設權限_dgv(7, II).Value : 人員門禁清單_dgv(11, i).Value = 預設權限_dgv(8, II).Value
                        人員門禁清單_dgv(12, i).Value = 預設權限_dgv(9, II).Value : 人員門禁清單_dgv(13, i).Value = 預設權限_dgv(10, II).Value
                        人員門禁清單_dgv(14, i).Value = 預設權限_dgv(11, II).Value : 人員門禁清單_dgv(15, i).Value = 預設權限_dgv(12, II).Value : Exit Sub
                    End If
                Next
            End If
        Next
    End Sub
    Private Sub 資料寫入_bt_Click(sender As Object, e As EventArgs) Handles 資料寫入_bt.Click
        For i As Integer = 0 To 人員門禁清單_dgv.Rows.Count - 1
            PA = 人員門禁清單_dgv(2, i).Value.ToString() : PA1 = 人員門禁清單_dgv(4, i).Value.ToString() : PA2 = 人員門禁清單_dgv(5, i).Value.ToString()
            PA3 = 人員門禁清單_dgv(6, i).Value.ToString() : PA4 = 人員門禁清單_dgv(7, i).Value.ToString() : PA5 = 人員門禁清單_dgv(8, i).Value.ToString()
            PA6 = 人員門禁清單_dgv(9, i).Value.ToString() : PA7 = 人員門禁清單_dgv(10, i).Value.ToString() : PA8 = 人員門禁清單_dgv(11, i).Value.ToString()
            PA9 = 人員門禁清單_dgv(12, i).Value.ToString() : PA10 = 人員門禁清單_dgv(13, i).Value.ToString() : PA11 = 人員門禁清單_dgv(14, i).Value.ToString()
            PA12 = 人員門禁清單_dgv(15, i).Value.ToString() : SQL_人員門禁權限_修改()
        Next : MGB(系統語言字典("H204-133-" & 語言), 1) : Set_門禁權限()
    End Sub
    Private Sub 重讀1_bt_Click(sender As Object, e As EventArgs)
        Set_門禁權限() : Set_門禁清單()
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control : TabPage1.BackColor = SystemColors.Control : TabPage2.BackColor = SystemColors.Control
            資料寫入_bt.BackColor = Color.White : 重讀2_bt.BackColor = Color.White : 帶入預設值_bt.BackColor = Color.White

            人員門禁清單_dgv.EnableHeadersVisualStyles = True : 人員門禁清單_dgv.BackgroundColor = Color.White : 人員門禁清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            人員門禁清單_dgv.DefaultCellStyle.BackColor = Color.White : 人員門禁清單_dgv.DefaultCellStyle.ForeColor = Color.Black
            門禁清單_dgv.EnableHeadersVisualStyles = True : 門禁清單_dgv.BackgroundColor = Color.White : 門禁清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            門禁清單_dgv.DefaultCellStyle.BackColor = Color.White : 門禁清單_dgv.DefaultCellStyle.ForeColor = Color.Black
            人員_dgv.EnableHeadersVisualStyles = True : 人員_dgv.BackgroundColor = Color.White : 人員_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            人員_dgv.DefaultCellStyle.BackColor = Color.White : 人員_dgv.DefaultCellStyle.ForeColor = Color.Black
            門禁紀錄_dgv.EnableHeadersVisualStyles = True : 門禁紀錄_dgv.BackgroundColor = Color.White : 門禁紀錄_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            門禁紀錄_dgv.DefaultCellStyle.BackColor = Color.White : 門禁紀錄_dgv.DefaultCellStyle.ForeColor = Color.Black
            人員記錄_dgv.EnableHeadersVisualStyles = True : 人員記錄_dgv.BackgroundColor = Color.White : 人員記錄_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            人員記錄_dgv.DefaultCellStyle.BackColor = Color.White : 人員記錄_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black : TabPage1.BackColor = Color.DimGray : TabPage2.BackColor = Color.DimGray
            資料寫入_bt.BackColor = Color.DimGray : 重讀2_bt.BackColor = Color.DimGray : 帶入預設值_bt.BackColor = Color.DimGray

            人員門禁清單_dgv.EnableHeadersVisualStyles = False : 人員門禁清單_dgv.BackgroundColor = Color.DimGray : 人員門禁清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            人員門禁清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            人員門禁清單_dgv.DefaultCellStyle.BackColor = Color.Black : 人員門禁清單_dgv.DefaultCellStyle.ForeColor = Color.White
            門禁清單_dgv.EnableHeadersVisualStyles = False : 門禁清單_dgv.BackgroundColor = Color.DimGray : 門禁清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            門禁清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            門禁清單_dgv.DefaultCellStyle.BackColor = Color.Black : 門禁清單_dgv.DefaultCellStyle.ForeColor = Color.White
            人員_dgv.EnableHeadersVisualStyles = False : 人員_dgv.BackgroundColor = Color.DimGray : 人員_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            人員_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            人員_dgv.DefaultCellStyle.BackColor = Color.Black : 人員_dgv.DefaultCellStyle.ForeColor = Color.White
            門禁紀錄_dgv.EnableHeadersVisualStyles = False : 門禁紀錄_dgv.BackgroundColor = Color.DimGray : 門禁紀錄_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            門禁紀錄_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            門禁紀錄_dgv.DefaultCellStyle.BackColor = Color.Black : 門禁紀錄_dgv.DefaultCellStyle.ForeColor = Color.White
            人員記錄_dgv.EnableHeadersVisualStyles = False : 人員記錄_dgv.BackgroundColor = Color.DimGray : 人員記錄_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            人員記錄_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            人員記錄_dgv.DefaultCellStyle.BackColor = Color.Black : 人員記錄_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class