AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS StructureNodeConfig RightManagementUpdate

Browse Source
This commit is contained in:
SchreiberM 2024-05-24 14:24:58 +02:00
parent bd084a0072
commit 1309d61910
4 changed files with 193 additions and 283 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
app/DD-Record-Organizer/frmRight_Management.Designer.vb generated
View File

@ -31,6 +31,7 @@ Partial Class frmRight_Management
Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim ADDED_WHENLabel As System.Windows.Forms.Label Dim ADDED_WHENLabel As System.Windows.Forms.Label
Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
Me.VWPMO_RIGHT_GROUPBindingSource2 = New System.Windows.Forms.BindingSource(Me.components) Me.VWPMO_RIGHT_GROUPBindingSource2 = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin()
@ -56,11 +57,12 @@ Partial Class frmRight_Management
Me.InfoLabel = New System.Windows.Forms.ToolStripStatusLabel() Me.InfoLabel = New System.Windows.Forms.ToolStripStatusLabel()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmbSicht = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.cmbGroupNew = New System.Windows.Forms.ComboBox() Me.cmbGroupNew = New System.Windows.Forms.ComboBox()
Me.cmbSicht = New System.Windows.Forms.ComboBox() Me.Label4 = New System.Windows.Forms.Label()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
@ -143,7 +145,7 @@ Partial Class frmRight_Management
Me.USER_RIGHTSTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.USER_RIGHTSTableAdapter() Me.USER_RIGHTSTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.USER_RIGHTSTableAdapter()
Me.TBDD_GROUPSTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBDD_GROUPSTableAdapter() Me.TBDD_GROUPSTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBDD_GROUPSTableAdapter()
Me.VWPMO_RIGHT_GROUPTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.VWPMO_RIGHT_GROUPTableAdapter() Me.VWPMO_RIGHT_GROUPTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.VWPMO_RIGHT_GROUPTableAdapter()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
IDLabel = New System.Windows.Forms.Label() IDLabel = New System.Windows.Forms.Label()
ENTITY_NAMELabel = New System.Windows.Forms.Label() ENTITY_NAMELabel = New System.Windows.Forms.Label()
GROUP_NAMELabel = New System.Windows.Forms.Label() GROUP_NAMELabel = New System.Windows.Forms.Label()
@ -163,6 +165,7 @@ Partial Class frmRight_Management
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.VWPMO_RIGHT_GROUPDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_RIGHT_GROUPDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
@ -175,7 +178,6 @@ Partial Class frmRight_Management
CType(Me.USER_RIGHTSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.USER_RIGHTSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'IDLabel 'IDLabel
@ -220,7 +222,7 @@ Partial Class frmRight_Management
Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem
Me.BindingNavigator1.CountItemFormat = "von {0} Gruppenrechten" Me.BindingNavigator1.CountItemFormat = "von {0} Gruppenrechten"
Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem
Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorDeleteItem, Me.ToolStripButton2}) Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorDeleteItem, Me.ToolStripButton2, Me.ToolStripButton1})
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem
@ -385,6 +387,26 @@ Partial Class frmRight_Management
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cmbSicht)
Me.GroupBox1.Controls.Add(Me.Button1)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.cmbGroupNew)
Me.GroupBox1.Controls.Add(Me.Label4)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
'cmbSicht
'
Me.cmbSicht.DataSource = Me.TBWH_ENTITIESBindingSource
Me.cmbSicht.DisplayMember = "FORM_TITLE"
Me.cmbSicht.FormattingEnabled = True
resources.ApplyResources(Me.cmbSicht, "cmbSicht")
Me.cmbSicht.Name = "cmbSicht"
Me.cmbSicht.ValueMember = "GUID"
'
'Button1 'Button1
' '
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG
@ -392,11 +414,6 @@ Partial Class frmRight_Management
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True Me.Button1.UseVisualStyleBackColor = True
' '
'Label4
'
resources.ApplyResources(Me.Label4, "Label4")
Me.Label4.Name = "Label4"
'
'Label3 'Label3
' '
resources.ApplyResources(Me.Label3, "Label3") resources.ApplyResources(Me.Label3, "Label3")
@ -411,14 +428,10 @@ Partial Class frmRight_Management
Me.cmbGroupNew.Name = "cmbGroupNew" Me.cmbGroupNew.Name = "cmbGroupNew"
Me.cmbGroupNew.ValueMember = "GUID" Me.cmbGroupNew.ValueMember = "GUID"
' '
'cmbSicht 'Label4
' '
Me.cmbSicht.DataSource = Me.TBWH_ENTITIESBindingSource resources.ApplyResources(Me.Label4, "Label4")
Me.cmbSicht.DisplayMember = "FORM_TITLE" Me.Label4.Name = "Label4"
Me.cmbSicht.FormattingEnabled = True
resources.ApplyResources(Me.cmbSicht, "cmbSicht")
Me.cmbSicht.Name = "cmbSicht"
Me.cmbSicht.ValueMember = "GUID"
' '
'CHANGED_WHENTextBox 'CHANGED_WHENTextBox
' '
@ -518,12 +531,15 @@ Partial Class frmRight_Management
Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToOrderColumns = True Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToOrderColumns = True
Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToResizeColumns = False Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToResizeColumns = False
Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToResizeRows = False Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.VWPMO_RIGHT_GROUPDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
resources.ApplyResources(Me.VWPMO_RIGHT_GROUPDataGridView, "VWPMO_RIGHT_GROUPDataGridView") resources.ApplyResources(Me.VWPMO_RIGHT_GROUPDataGridView, "VWPMO_RIGHT_GROUPDataGridView")
Me.VWPMO_RIGHT_GROUPDataGridView.AutoGenerateColumns = False Me.VWPMO_RIGHT_GROUPDataGridView.AutoGenerateColumns = False
Me.VWPMO_RIGHT_GROUPDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.VWPMO_RIGHT_GROUPDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.VWPMO_RIGHT_GROUPDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.IDDataGridViewTextBoxColumn, Me.ENTITYNAMEDataGridViewTextBoxColumn, Me.GROUPNAMEDataGridViewTextBoxColumn, Me.EDITRECDataGridViewCheckBoxColumn, Me.ADDRECDataGridViewCheckBoxColumn, Me.DELETERECDataGridViewCheckBoxColumn, Me.ADDDOCDataGridViewCheckBoxColumn, Me.VIEWDOCDataGridViewCheckBoxColumn, Me.DELETEDOCDataGridViewCheckBoxColumn, Me.ADDEDWHODataGridViewTextBoxColumn, Me.ADDEDWHENDataGridViewTextBoxColumn, Me.CHANGEDWHODataGridViewTextBoxColumn, Me.CHANGEDWHENDataGridViewTextBoxColumn}) Me.VWPMO_RIGHT_GROUPDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.IDDataGridViewTextBoxColumn, Me.ENTITYNAMEDataGridViewTextBoxColumn, Me.GROUPNAMEDataGridViewTextBoxColumn, Me.EDITRECDataGridViewCheckBoxColumn, Me.ADDRECDataGridViewCheckBoxColumn, Me.DELETERECDataGridViewCheckBoxColumn, Me.ADDDOCDataGridViewCheckBoxColumn, Me.VIEWDOCDataGridViewCheckBoxColumn, Me.DELETEDOCDataGridViewCheckBoxColumn, Me.ADDEDWHODataGridViewTextBoxColumn, Me.ADDEDWHENDataGridViewTextBoxColumn, Me.CHANGEDWHODataGridViewTextBoxColumn, Me.CHANGEDWHENDataGridViewTextBoxColumn})
Me.VWPMO_RIGHT_GROUPDataGridView.DataSource = Me.VWPMO_RIGHT_GROUPBindingSource2 Me.VWPMO_RIGHT_GROUPDataGridView.DataSource = Me.VWPMO_RIGHT_GROUPBindingSource2
Me.VWPMO_RIGHT_GROUPDataGridView.Name = "VWPMO_RIGHT_GROUPDataGridView" Me.VWPMO_RIGHT_GROUPDataGridView.Name = "VWPMO_RIGHT_GROUPDataGridView"
Me.VWPMO_RIGHT_GROUPDataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
' '
'IDDataGridViewTextBoxColumn 'IDDataGridViewTextBoxColumn
' '
@ -534,14 +550,12 @@ Partial Class frmRight_Management
'ENTITYNAMEDataGridViewTextBoxColumn 'ENTITYNAMEDataGridViewTextBoxColumn
' '
Me.ENTITYNAMEDataGridViewTextBoxColumn.DataPropertyName = "ENTITY_NAME" Me.ENTITYNAMEDataGridViewTextBoxColumn.DataPropertyName = "ENTITY_NAME"
Me.ENTITYNAMEDataGridViewTextBoxColumn.FillWeight = 150.0!
resources.ApplyResources(Me.ENTITYNAMEDataGridViewTextBoxColumn, "ENTITYNAMEDataGridViewTextBoxColumn") resources.ApplyResources(Me.ENTITYNAMEDataGridViewTextBoxColumn, "ENTITYNAMEDataGridViewTextBoxColumn")
Me.ENTITYNAMEDataGridViewTextBoxColumn.Name = "ENTITYNAMEDataGridViewTextBoxColumn" Me.ENTITYNAMEDataGridViewTextBoxColumn.Name = "ENTITYNAMEDataGridViewTextBoxColumn"
' '
'GROUPNAMEDataGridViewTextBoxColumn 'GROUPNAMEDataGridViewTextBoxColumn
' '
Me.GROUPNAMEDataGridViewTextBoxColumn.DataPropertyName = "GROUP_NAME" Me.GROUPNAMEDataGridViewTextBoxColumn.DataPropertyName = "GROUP_NAME"
Me.GROUPNAMEDataGridViewTextBoxColumn.FillWeight = 150.0!
resources.ApplyResources(Me.GROUPNAMEDataGridViewTextBoxColumn, "GROUPNAMEDataGridViewTextBoxColumn") resources.ApplyResources(Me.GROUPNAMEDataGridViewTextBoxColumn, "GROUPNAMEDataGridViewTextBoxColumn")
Me.GROUPNAMEDataGridViewTextBoxColumn.Name = "GROUPNAMEDataGridViewTextBoxColumn" Me.GROUPNAMEDataGridViewTextBoxColumn.Name = "GROUPNAMEDataGridViewTextBoxColumn"
' '
@ -1004,16 +1018,12 @@ Partial Class frmRight_Management
' '
Me.VWPMO_RIGHT_GROUPTableAdapter.ClearBeforeFill = True Me.VWPMO_RIGHT_GROUPTableAdapter.ClearBeforeFill = True
' '
'GroupBox1 'ToolStripButton1
' '
Me.GroupBox1.Controls.Add(Me.cmbSicht) Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.GroupBox1.Controls.Add(Me.Button1) Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG
Me.GroupBox1.Controls.Add(Me.Label3) resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.GroupBox1.Controls.Add(Me.cmbGroupNew) Me.ToolStripButton1.Name = "ToolStripButton1"
Me.GroupBox1.Controls.Add(Me.Label4)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
' '
'frmRight_Management 'frmRight_Management
' '
@ -1037,6 +1047,8 @@ Partial Class frmRight_Management
Me.TabControl1.ResumeLayout(False) Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.VWPMO_RIGHT_GROUPDataGridView, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWPMO_RIGHT_GROUPDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False) Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout() Me.TabPage2.PerformLayout()
@ -1051,8 +1063,6 @@ Partial Class frmRight_Management
CType(Me.USER_RIGHTSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.USER_RIGHTSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -1138,19 +1148,6 @@ Partial Class frmRight_Management
Friend WithEvents VWPMO_RIGHT_GROUPTableAdapter As DD_ECMAdminTableAdapters.VWPMO_RIGHT_GROUPTableAdapter Friend WithEvents VWPMO_RIGHT_GROUPTableAdapter As DD_ECMAdminTableAdapters.VWPMO_RIGHT_GROUPTableAdapter
Friend WithEvents VWPMO_RIGHT_GROUPDataGridView As DataGridView Friend WithEvents VWPMO_RIGHT_GROUPDataGridView As DataGridView
Friend WithEvents VWPMO_RIGHT_GROUPBindingSource2 As BindingSource Friend WithEvents VWPMO_RIGHT_GROUPBindingSource2 As BindingSource
Friend WithEvents IDDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents ENTITYNAMEDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents GROUPNAMEDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents EDITRECDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents ADDRECDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents DELETERECDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents ADDDOCDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents VIEWDOCDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents DELETEDOCDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents ADDEDWHODataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents ADDEDWHENDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents CHANGEDWHODataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents CHANGEDWHENDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents DELETE_DOCCheckBox As CheckBox Friend WithEvents DELETE_DOCCheckBox As CheckBox
Friend WithEvents VIEW_DOCCheckBox As CheckBox Friend WithEvents VIEW_DOCCheckBox As CheckBox
Friend WithEvents ADD_DOCCheckBox As CheckBox Friend WithEvents ADD_DOCCheckBox As CheckBox
@ -1171,4 +1168,18 @@ Partial Class frmRight_Management
Friend WithEvents cmbGroupNew As ComboBox Friend WithEvents cmbGroupNew As ComboBox
Friend WithEvents cmbSicht As ComboBox Friend WithEvents cmbSicht As ComboBox
Friend WithEvents GroupBox1 As GroupBox Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents IDDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents ENTITYNAMEDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents GROUPNAMEDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents EDITRECDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents ADDRECDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents DELETERECDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents ADDDOCDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents VIEWDOCDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents DELETEDOCDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn
Friend WithEvents ADDEDWHODataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents ADDEDWHENDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents CHANGEDWHODataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents CHANGEDWHENDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents ToolStripButton1 As ToolStripButton
End Class End Class

282
app/DD-Record-Organizer/frmRight_Management.resx
View File

@ -480,6 +480,15 @@
<data name="ToolStripButton2.Text" xml:space="preserve"> <data name="ToolStripButton2.Text" xml:space="preserve">
<value>Refresh</value> <value>Refresh</value>
</data> </data>
<data name="ToolStripButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>23, 22</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>ToolStripButton1</value>
</data>
<data name="BindingNavigator1.Location" type="System.Drawing.Point, System.Drawing"> <data name="BindingNavigator1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 3</value> <value>3, 3</value>
</data> </data>
@ -504,18 +513,12 @@
<data name="&gt;&gt;BindingNavigator1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;BindingNavigator1.ZOrder" xml:space="preserve">
<value>22</value> <value>22</value>
</data> </data>
<metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>415, 54</value>
</metadata>
<metadata name="TBPMO_RIGHT_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_RIGHT_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>822, 17</value> <value>822, 17</value>
</metadata> </metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBWH_ENTITIESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBWH_ENTITIESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>551, 54</value> <value>551, 54</value>
</metadata> </metadata>
@ -528,6 +531,21 @@
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>501, 91</value> <value>501, 91</value>
</metadata> </metadata>
<data name="tschangedlabel.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 17</value>
</data>
<data name="tschangedlabel.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="statelbl.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 17</value>
</data>
<data name="InfoLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>36, 17</value>
</data>
<data name="InfoLabel.Text" xml:space="preserve">
<value>None</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 424</value> <value>0, 424</value>
</data> </data>
@ -552,21 +570,6 @@
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="tschangedlabel.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 17</value>
</data>
<data name="tschangedlabel.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="statelbl.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 17</value>
</data>
<data name="InfoLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>36, 17</value>
</data>
<data name="InfoLabel.Text" xml:space="preserve">
<value>None</value>
</data>
<data name="TabPage1.AutoScroll" type="System.Boolean, mscorlib"> <data name="TabPage1.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
@ -1030,9 +1033,15 @@
<data name="ENTITYNAMEDataGridViewTextBoxColumn.HeaderText" xml:space="preserve"> <data name="ENTITYNAMEDataGridViewTextBoxColumn.HeaderText" xml:space="preserve">
<value>Sicht Name</value> <value>Sicht Name</value>
</data> </data>
<data name="ENTITYNAMEDataGridViewTextBoxColumn.Width" type="System.Int32, mscorlib">
<value>180</value>
</data>
<data name="GROUPNAMEDataGridViewTextBoxColumn.HeaderText" xml:space="preserve"> <data name="GROUPNAMEDataGridViewTextBoxColumn.HeaderText" xml:space="preserve">
<value>Gruppen Name</value> <value>Gruppen Name</value>
</data> </data>
<data name="GROUPNAMEDataGridViewTextBoxColumn.Width" type="System.Int32, mscorlib">
<value>180</value>
</data>
<data name="EDITRECDataGridViewCheckBoxColumn.HeaderText" xml:space="preserve"> <data name="EDITRECDataGridViewCheckBoxColumn.HeaderText" xml:space="preserve">
<value>Edit Record</value> <value>Edit Record</value>
</data> </data>
@ -1054,12 +1063,18 @@
<data name="ADDEDWHODataGridViewTextBoxColumn.HeaderText" xml:space="preserve"> <data name="ADDEDWHODataGridViewTextBoxColumn.HeaderText" xml:space="preserve">
<value>Erstellt wer</value> <value>Erstellt wer</value>
</data> </data>
<data name="ADDEDWHODataGridViewTextBoxColumn.Width" type="System.Int32, mscorlib">
<value>80</value>
</data>
<data name="ADDEDWHENDataGridViewTextBoxColumn.HeaderText" xml:space="preserve"> <data name="ADDEDWHENDataGridViewTextBoxColumn.HeaderText" xml:space="preserve">
<value>Erstellt wann</value> <value>Erstellt wann</value>
</data> </data>
<data name="CHANGEDWHODataGridViewTextBoxColumn.HeaderText" xml:space="preserve"> <data name="CHANGEDWHODataGridViewTextBoxColumn.HeaderText" xml:space="preserve">
<value>Geändert wer</value> <value>Geändert wer</value>
</data> </data>
<data name="CHANGEDWHODataGridViewTextBoxColumn.Width" type="System.Int32, mscorlib">
<value>130</value>
</data>
<data name="CHANGEDWHENDataGridViewTextBoxColumn.HeaderText" xml:space="preserve"> <data name="CHANGEDWHENDataGridViewTextBoxColumn.HeaderText" xml:space="preserve">
<value>Geändert wann</value> <value>Geändert wann</value>
</data> </data>
@ -1111,174 +1126,9 @@
<data name="&gt;&gt;TabPage1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TabPage1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>617, 91</value>
</metadata>
<data name="TabPage2.AutoScroll" type="System.Boolean, mscorlib"> <data name="TabPage2.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="&gt;&gt;btndeleteUserRight.Name" xml:space="preserve">
<value>btndeleteUserRight</value>
</data>
<data name="&gt;&gt;btndeleteUserRight.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btndeleteUserRight.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;btndeleteUserRight.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data>
<data name="&gt;&gt;Label2.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;cmbEntity.Name" xml:space="preserve">
<value>cmbEntity</value>
</data>
<data name="&gt;&gt;cmbEntity.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbEntity.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;cmbEntity.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;btnAddUser2ConstructorREL.Name" xml:space="preserve">
<value>btnAddUser2ConstructorREL</value>
</data>
<data name="&gt;&gt;btnAddUser2ConstructorREL.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnAddUser2ConstructorREL.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;btnAddUser2ConstructorREL.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="&gt;&gt;GridControlUsers2Menue.Name" xml:space="preserve">
<value>GridControlUsers2Menue</value>
</data>
<data name="&gt;&gt;GridControlUsers2Menue.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControlUsers2Menue.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;GridControlUsers2Menue.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;lblUsers.Name" xml:space="preserve">
<value>lblUsers</value>
</data>
<data name="&gt;&gt;lblUsers.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblUsers.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;lblUsers.ZOrder" xml:space="preserve">
<value>6</value>
</data>
<data name="&gt;&gt;GridControl1.Name" xml:space="preserve">
<value>GridControl1</value>
</data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="&gt;&gt;BindingNavigator2.Name" xml:space="preserve">
<value>BindingNavigator2</value>
</data>
<data name="&gt;&gt;BindingNavigator2.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;BindingNavigator2.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;BindingNavigator2.ZOrder" xml:space="preserve">
<value>8</value>
</data>
<data name="TabPage2.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt</value>
</data>
<data name="TabPage2.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value>
</data>
<data name="TabPage2.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>1161, 398</value>
</data>
<data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="TabPage2.Text" xml:space="preserve">
<value>Benutzer Rechte</value>
</data>
<data name="&gt;&gt;TabPage2.Name" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;TabPage2.Type" xml:space="preserve">
<value>System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TabPage2.Parent" xml:space="preserve">
<value>TabControl1</value>
</data>
<data name="&gt;&gt;TabPage2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="TabControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="TabControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1169, 424</value>
</data>
<data name="TabControl1.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="&gt;&gt;TabControl1.Name" xml:space="preserve">
<value>TabControl1</value>
</data>
<data name="&gt;&gt;TabControl1.Type" xml:space="preserve">
<value>System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TabControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;TabControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="btndeleteUserRight.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btndeleteUserRight.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
@ -1893,6 +1743,60 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende
<data name="&gt;&gt;BindingNavigator2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;BindingNavigator2.ZOrder" xml:space="preserve">
<value>8</value> <value>8</value>
</data> </data>
<data name="TabPage2.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt</value>
</data>
<data name="TabPage2.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value>
</data>
<data name="TabPage2.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>1161, 398</value>
</data>
<data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="TabPage2.Text" xml:space="preserve">
<value>Benutzer Rechte</value>
</data>
<data name="&gt;&gt;TabPage2.Name" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;TabPage2.Type" xml:space="preserve">
<value>System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TabPage2.Parent" xml:space="preserve">
<value>TabControl1</value>
</data>
<data name="&gt;&gt;TabPage2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="TabControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="TabControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1169, 424</value>
</data>
<data name="TabControl1.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="&gt;&gt;TabControl1.Name" xml:space="preserve">
<value>TabControl1</value>
</data>
<data name="&gt;&gt;TabControl1.Type" xml:space="preserve">
<value>System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TabControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;TabControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="TBDD_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>770, 91</value> <value>770, 91</value>
</metadata> </metadata>
@ -2454,6 +2358,12 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende
<data name="&gt;&gt;VWPMO_RIGHT_GROUPTableAdapter.Type" xml:space="preserve"> <data name="&gt;&gt;VWPMO_RIGHT_GROUPTableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_ECMAdminTableAdapters.VWPMO_RIGHT_GROUPTableAdapter, DD_ECMAdmin.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organizer.DD_ECMAdminTableAdapters.VWPMO_RIGHT_GROUPTableAdapter, DD_ECMAdmin.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;ToolStripButton1.Name" xml:space="preserve">
<value>ToolStripButton1</value>
</data>
<data name="&gt;&gt;ToolStripButton1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmRight_Management</value> <value>frmRight_Management</value>
</data> </data>

91
app/DD-Record-Organizer/frmRight_Management.vb
View File

@ -1,10 +1,12 @@
Public Class frmRight_Management Imports DD_Record_Organizer.ControlLoader
Public Class frmRight_Management
Private Shared _Instance As frmRight_Management = Nothing Private Shared _Instance As frmRight_Management = Nothing
Private insert As Boolean = False Private insert As Boolean = False
Private formloaded As Boolean = False Private formloaded As Boolean = False
Private updateIP As Boolean = False Private updateIP As Boolean = False
Private DGSelection As Boolean = False
Private ID_CURR As Integer = 0 Private ID_CURR As Integer = 0
Public Shared Function Instance() As frmRight_Management Public Shared Function Instance() As frmRight_Management
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmRight_Management _Instance = New frmRight_Management
@ -126,7 +128,7 @@
Sub Refresh_Free_Users() Sub Refresh_Free_Users()
Dim Sql = $"SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID Dim Sql = $"SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGHT_USER WHERE ENTITY_ID = {cmbEntity.SelectedValue}) ORDER BY USERNAME" WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGHT_USER WHERE ENTITY_ID = {cmbEntity.SelectedValue}) ORDER BY USERNAME"
Dim DT_USER = MYDB_ECM.GetDatatable(sql) Dim DT_USER = MYDB_ECM.GetDatatable(Sql)
Try Try
DD_ECMAdmin.TBAD_Users.Clear() DD_ECMAdmin.TBAD_Users.Clear()
@ -247,66 +249,27 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
End Try End Try
End Sub End Sub
Private Sub EDIT_RECCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles EDIT_RECCheckBox.CheckedChanged
If updateIP = False Then
Update_RightGroup_VALUE("EDIT_REC", EDIT_RECCheckBox.Checked, IDTextBox.Text)
End If
End Sub Private Sub Update_RightGroup()
Private Sub Update_RightGroup_VALUE(pItem As String, obit As Boolean, pID As String)
If formloaded = False Or pID = "" Or DGSelection = True Then
Exit Sub
End If
updateIP = True updateIP = True
ID_CURR = pID ID_CURR = IDTextBox.Text
Dim oupdate = $"UPDATE TBPMO_RIGHT_GROUP SET {pItem} = '{obit}', CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {pID} Dim oID = IDTextBox.Text
and {pItem} <> '{obit}'" Dim oupdate = $"UPDATE TBPMO_RIGHT_GROUP SET EDIT_REC = '{EDIT_RECCheckBox.Checked}',
ADD_REC = '{ADD_RECCheckBox.Checked}',
DELETE_REC = '{DELETE_DOCCheckBox.Checked}',
ADD_DOC = '{ADD_DOCCheckBox.Checked}',
VIEW_DOC = '{VIEW_DOCCheckBox.Checked}',
DELETE_DOC = '{DELETE_DOCCheckBox.Checked}',
CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {oID}"
If MYDB_ECM.ExecuteNonQuery(oupdate) Then If MYDB_ECM.ExecuteNonQuery(oupdate) Then
InfoLabel.Text = $"{pItem} updated successfully - {Now.ToLongTimeString}" InfoLabel.Text = $"Group_Definition updated successfully - {Now.ToLongTimeString}"
Refresh_Rights_Groups() Refresh_Rights_Groups()
VWPMO_RIGHT_GROUPBindingSource2.Position = VWPMO_RIGHT_GROUPBindingSource2.Find("ID", ID_CURR) VWPMO_RIGHT_GROUPBindingSource2.Position = VWPMO_RIGHT_GROUPBindingSource2.Find("ID", oID)
updateIP = False updateIP = False
End If End If
End Sub End Sub
Private Sub ADD_RECCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ADD_RECCheckBox.CheckedChanged
If updateIP = False Then
Update_RightGroup_VALUE("ADD_REC", ADD_RECCheckBox.Checked, IDTextBox.Text)
End If
End Sub
Private Sub DELETE_RECCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles DELETE_RECCheckBox.CheckedChanged
If updateIP = False Then
Update_RightGroup_VALUE("DELETE_REC", DELETE_RECCheckBox.Checked, IDTextBox.Text)
End If
End Sub
Private Sub ADD_DOCCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ADD_DOCCheckBox.CheckedChanged
If updateIP = False Then
Update_RightGroup_VALUE("ADD_DOC", ADD_DOCCheckBox.Checked, IDTextBox.Text)
End If
End Sub
Private Sub VIEW_DOCCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles VIEW_DOCCheckBox.CheckedChanged
If updateIP = False Then
Update_RightGroup_VALUE("VIEW_DOC", VIEW_DOCCheckBox.Checked, IDTextBox.Text)
End If
End Sub
Private Sub DELETE_DOCCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles DELETE_DOCCheckBox.CheckedChanged
If updateIP = False Then
Update_RightGroup_VALUE("DELETE_DOC", DELETE_DOCCheckBox.Checked, IDTextBox.Text)
End If
End Sub
Private Sub frmRight_Management_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmRight_Management_Shown(sender As Object, e As EventArgs) Handles Me.Shown
formloaded = True formloaded = True
@ -337,4 +300,24 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
End If End If
End If End If
End Sub End Sub
Private Sub VWPMO_RIGHT_GROUPBindingSource2_PositionChanged(sender As Object, e As EventArgs) Handles VWPMO_RIGHT_GROUPBindingSource2.PositionChanged
If formloaded = False Then
Exit Sub
End If
Try
Dim oID = VWPMO_RIGHT_GROUPDataGridView.SelectedRows(0).Cells(0).Value
ID_CURR = oID
InfoLabel.Text = oID
Catch ex As Exception
InfoLabel.Text = ex.Message
End Try
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
If IDTextBox.Text <> "" Then
Update_RightGroup()
End If
End Sub
End Class End Class

6
app/DD-Record-Organizer/frmStructureNodeConfig.vb
View File

@ -335,6 +335,10 @@
Private Sub btnSelectBackground_Click(sender As Object, e As EventArgs) Handles btnSelectBackground.Click Private Sub btnSelectBackground_Click(sender As Object, e As EventArgs) Handles btnSelectBackground.Click
Try Try
If Me.GUIDTextBox.Text = "" Then
MsgBox("Please choose a node by clicking in the treeview!", MsgBoxStyle.Exclamation)
Exit Sub
End If
OpenFileDialog1.Filter = "PNG Bilder|*.png" OpenFileDialog1.Filter = "PNG Bilder|*.png"
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim path As String = OpenFileDialog1.FileName Dim path As String = OpenFileDialog1.FileName
@ -354,6 +358,7 @@
conn.Open() conn.Open()
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
conn.Close() conn.Close()
LoadData()
End If End If
End If End If
End If End If
@ -436,6 +441,7 @@
End If End If
End Sub End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
'Try 'Try
' TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.AddNew() ' TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.AddNew()