HX-PGS-ERP-SYS-LEEHSIEHJUI/09、資料庫系統管理/門禁系統設定.vb

Option Strict Off
Public Class 門禁系統設定
    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 = 35
        SQL_門禁清單()
        da.Fill(ds1) : 門禁清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        門禁清單_dgv.Columns(0).ReadOnly = True : 門禁清單_dgv.Columns(0).FillWeight = 25 : 門禁清單_dgv.Columns(1).FillWeight = 55 : 門禁清單_dgv.Columns(4).FillWeight = 50
        門禁清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    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 = 系統語言字典("H001-153-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
    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(710) = True : 介面 = "H710" : 語言轉換讀取() : 顯示說明(999, False)
    End Sub
    Private Sub 門禁系統設定_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_門禁清單() : Set_預設權限()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H710" : 語言轉換讀取()
    End Sub
    Private Sub 系統開發用共享文件_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(710) = 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_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 = 1 Then
                If 預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(1).Value = False Then
                    預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(1).Value = True
                Else : 預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(1).Value = False : End If
            ElseIf 預設權限_dgv.SelectedCells(0).ColumnIndex = 2 Then
                If 預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(2).Value = False Then
                    預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(2).Value = True
                Else : 預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(2).Value = False : End If
            ElseIf 預設權限_dgv.SelectedCells(0).ColumnIndex = 3 Then
                If 預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(3).Value = False Then
                    預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(3).Value = True
                Else : 預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(3).Value = False : End If
            ElseIf 預設權限_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
            End If
            預設權限_dgv.CurrentCell = 預設權限_dgv.Rows(預設權限_dgv.SelectedCells(0).RowIndex).Cells(0)
        End If
    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(0, i).Value.ToString() : PA1 = 門禁清單_dgv(1, i).Value.ToString() : PA2 = 門禁清單_dgv(2, i).Value.ToString()
            PA3 = 門禁清單_dgv(3, i).Value.ToString() : PA4 = 門禁清單_dgv(4, i).Value.ToString() : SQL_門禁清單_修改()
        Next : MGB(系統語言字典("H204-133-" & 語言), 1) : Set_門禁清單()
    End Sub
    Private Sub 重讀2_bt_Click(sender As Object, e As EventArgs) Handles 重讀2_bt.Click
        Set_門禁清單()
    End Sub
    Private Sub 重讀1_bt_Click(sender As Object, e As EventArgs) Handles 重讀1_bt.Click
        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
            PA = 預設權限_dgv(0, i).Value.ToString() : PA1 = 預設權限_dgv(1, i).Value.ToString() : PA2 = 預設權限_dgv(2, i).Value.ToString()
            PA3 = 預設權限_dgv(3, i).Value.ToString() : PA4 = 預設權限_dgv(4, i).Value.ToString() : PA5 = 預設權限_dgv(5, i).Value.ToString()
            PA6 = 預設權限_dgv(6, i).Value.ToString() : PA7 = 預設權限_dgv(7, i).Value.ToString() : PA8 = 預設權限_dgv(8, i).Value.ToString()
            PA9 = 預設權限_dgv(9, i).Value.ToString() : PA10 = 預設權限_dgv(10, i).Value.ToString() : PA11 = 預設權限_dgv(11, i).Value.ToString()
            PA12 = 預設權限_dgv(12, i).Value.ToString() : SQL_門禁權限清單_修改()
        Next : MGB(系統語言字典("H204-133-" & 語言), 1) : Set_預設權限()
    End Sub
End Class