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

MS DDGroups

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-12 16:02:38 +02:00
parent 7b445c8d36
commit 4e478db15f
29 changed files with 4442 additions and 2640 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Global_Indexer/frmAdministration.vb
View File

@@ -27,7 +27,7 @@ Public Class frmAdministration
Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_GROUPS_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWGI_DOCTYPE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -789,12 +789,12 @@ Public Class frmAdministration
End Sub
Sub Save_UserGroups()
Try
TBDD_USER_GROUPSBindingSource.EndEdit()
If MyDataset.TBDD_USER_GROUPS.GetChanges Is Nothing = False Then
Dim changes = MyDataset.TBDD_USER_GROUPS.GetChanges()
TBDD_GROUPSBindingSource.EndEdit()
If MyDataset.TBDD_GROUPS.GetChanges Is Nothing = False Then
Dim changes = MyDataset.TBDD_GROUPS.GetChanges()
' If a Group was selected and deleted, delete references in TBDD_USRGRP_DOCTYPE and TBDD_GROUPS_USER
If Not IsNothing(GroupToDelete) And MyDataset.TBDD_USER_GROUPS.GetChanges(DataRowState.Deleted) Is Nothing = False Then
If Not IsNothing(GroupToDelete) And MyDataset.TBDD_GROUPS.GetChanges(DataRowState.Deleted) Is Nothing = False Then
ClassDatabase.Execute_non_Query($"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE GROUP_ID = {GroupToDelete}")
ClassDatabase.Execute_non_Query($"DELETE FROM TBDD_GROUPS_USER WHERE GROUP_ID = {GroupToDelete}")
GroupToDelete = Nothing
@@ -802,7 +802,7 @@ Public Class frmAdministration
CHANGED_WHOTextBox5.Text = Environment.UserName
TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
Me.TBDD_USER_GROUPSTableAdapter.Update(MyDataset.TBDD_USER_GROUPS)
Me.TBDD_GROUPSTableAdapter.Update(MyDataset.TBDD_GROUPS)
lblsaveTBDD_USER_GROUPS.Visible = True
Else
lblsaveTBDD_USER_GROUPS.Visible = False
@@ -813,7 +813,7 @@ Public Class frmAdministration
End Sub
Sub Load_UserGroups()
Try
Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.MyDataset.TBDD_USER_GROUPS)
Me.TBDD_GROUPSTableAdapter.Fill(Me.MyDataset.TBDD_GROUPS)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load User-Groups: ")
End Try
@@ -828,8 +828,8 @@ Public Class frmAdministration
End Select
End Sub
Private Sub TBDD_USER_GROUPSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USER_GROUPSBindingSource.AddingNew
Me.MyDataset.TBDD_USER_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName
Private Sub TBDD_USER_GROUPSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_GROUPSBindingSource.AddingNew
Me.MyDataset.TBDD_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName
End Sub
Private Sub Load_UserRelation(UserID As Integer)