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