MS_1204.2016_2

2016-04-13 12:51:46 +02:00
parent 5a1aaed2f4
commit dab2f6ff83
8 changed files with 3575 additions and 1 deletions
--- a/app/DD-Record-Organiser/frmRight_Management.vb
+++ b/app/DD-Record-Organiser/frmRight_Management.vb
@@ -0,0 +1,104 @@
+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