104 lines
4.7 KiB
VB.net
104 lines
4.7 KiB
VB.net
Public Class frmRight_Management
|
|
Private Shared _Instance As frmRight_Management = Nothing
|
|
Private insert As Boolean = False
|
|
Public Shared Function Instance() As frmRight_Management
|
|
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
|
|
_Instance = New frmRight_Management
|
|
End If
|
|
_Instance.BringToFront()
|
|
Return _Instance
|
|
End Function
|
|
Private Sub Save_Data()
|
|
Try
|
|
Me.Validate()
|
|
Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit()
|
|
|
|
If DD_DMSDataSet.TBPMO_RIGHT_GROUP.GetChanges Is Nothing = False Then
|
|
Me.TBPMO_RIGHT_GROUPDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn6").Value = Environment.UserName
|
|
Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit()
|
|
Me.TBPMO_RIGHT_GROUPTableAdapter.Update(DD_DMSDataSet.TBPMO_RIGHT_GROUP)
|
|
tschangedlabel.Text = "Right Group changed - " & Now
|
|
tschangedlabel.Visible = True
|
|
Else
|
|
tschangedlabel.Visible = False
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Error in Save_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
Sub Load_Datagrid(ByVal _Datagrid As DataGridView, ByVal _settings_String As String)
|
|
Dim settings() As String
|
|
If My.Settings(_settings_String) <> String.Empty Then
|
|
settings = My.Settings(_settings_String).Split("$"c)
|
|
For idx As Integer = 0 To _Datagrid.Columns.Count - 1
|
|
Dim sv() As String = settings(idx).Split("/"c)
|
|
_Datagrid.Columns(idx).DisplayIndex = CInt(sv(0))
|
|
_Datagrid.Columns(idx).Width = CInt(sv(1))
|
|
Next
|
|
End If
|
|
End Sub
|
|
Sub Save_Datagrid(ByVal _Datagrid As DataGridView, ByVal _settings_String As String)
|
|
Dim settings As String = String.Empty
|
|
For idx As Integer = 0 To _Datagrid.Columns.Count - 1
|
|
settings += _Datagrid.Columns(idx).DisplayIndex.ToString()
|
|
settings += "/"
|
|
settings += _Datagrid.Columns(idx).Width.ToString
|
|
settings += "$"
|
|
Next
|
|
My.Settings(_settings_String) = settings
|
|
End Sub
|
|
|
|
Private Sub frmRight_Management_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
|
Save_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView")
|
|
End Sub
|
|
Private Sub frmGroup_Rights_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Refresh_Entities()
|
|
Try
|
|
Me.TBWH_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
|
|
Me.TBWH_USER_GROUPSTableAdapter.Fill(Me.DD_ECMAdmin.TBWH_USER_GROUPS)
|
|
Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
|
|
Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
|
|
Catch ex As Exception
|
|
MsgBox("Error in Loading Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
Refresh_Rights_Groups()
|
|
Load_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView")
|
|
End Sub
|
|
Sub Refresh_Rights_Groups()
|
|
Try
|
|
Me.TBPMO_RIGHT_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString
|
|
Me.TBPMO_RIGHT_GROUPTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RIGHT_GROUP)
|
|
Catch ex As Exception
|
|
MsgBox("Error in Refresh_Rights_Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
Private Sub Refresh_Entities()
|
|
Try
|
|
Me.TBWH_ENTITIESTableAdapter.Connection.ConnectionString = MyConnectionString
|
|
Me.TBWH_ENTITIESTableAdapter.Fill(Me.DD_ECMAdmin.TBWH_ENTITIES, USER_LANGUAGE, 1, USER_GUID)
|
|
Catch ex As System.Exception
|
|
MsgBox("Error in Refresh_Entities:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub TBPMO_RIGHT_GROUPBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.AddingNew
|
|
Me.DD_DMSDataSet.TBPMO_RIGHT_GROUP.ADDED_WHOColumn.DefaultValue = Environment.UserName
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
|
Save_Data()
|
|
End Sub
|
|
|
|
Private Sub TBPMO_RIGHT_GROUPBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.CurrentChanged
|
|
tschangedlabel.Visible = False
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
|
Refresh_Rights_Groups()
|
|
End Sub
|
|
End Class |