jj: Subject Encoding & Deleting Groups

Global_Indexer/frmAdministration.vb

@@ -1,6 +1,11 @@
-Public Class frmAdministration
+Imports System.ComponentModel
+
+Public Class frmAdministration
     Public Shared _Namenkonvention As String
     Public Shared _aktDokart_Id As Integer
+
+    Private GroupToDelete As Integer = Nothing
+
     Private IsInsert As Boolean = False
     Dim frmloaded As Boolean = False
     Private Sub TBDD_DOKUMENTARTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingNavigatorSaveItem.Click
@@ -360,7 +365,7 @@
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexMan: ")
         End Try
-      
+
     End Sub
 
     Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
@@ -480,7 +485,7 @@
                             Me.IDX_EMAIL_SUBJECTComboBox.Items.Add(index)
                             Me.IDX_EMAIL_TOComboBox.Items.Add(index)
                     End Select
-                   
+
 
                 Next
             End If
@@ -578,7 +583,7 @@
         End Try
     End Sub
     Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
-         Load_TabData()
+        Load_TabData()
     End Sub
     Private Sub ToolStripButton22_Click(sender As Object, e As EventArgs) Handles ToolStripButton22.Click
         Save_IndexAuto()
@@ -594,7 +599,7 @@
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexeAuto: ")
         End Try
-     
+
     End Sub
 
     Private Sub TBDD_INDEX_AUTOMBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_AUTOMBindingSource.CurrentChanged
@@ -651,7 +656,7 @@
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
-       
+
     End Sub
 
     Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged
@@ -783,8 +788,14 @@
         Try
             TBDD_USER_GROUPSBindingSource.EndEdit()
             If MyDataset.TBDD_USER_GROUPS.GetChanges Is Nothing = False Then
+                Dim changes = MyDataset.TBDD_USER_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
+                    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
+                End If
 
                 CHANGED_WHOTextBox5.Text = Environment.UserName
                 TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
@@ -836,7 +847,7 @@
             Catch ex As Exception
                 MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add User-Relation: ")
             End Try
-            
+
         End If
     End Sub
 
@@ -918,8 +929,8 @@
 
                 End If
             Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
-        End Try
+                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
+            End Try
         End If
     End Sub
 
@@ -944,7 +955,7 @@
     End Sub
 
     Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click
-        Save_User
+        Save_User()
     End Sub
     Sub Save_User()
         Try
@@ -959,7 +970,7 @@
             End If
             If ClassDatabase.Execute_Scalar("SELECT MODULE_GI FROM TBDD_USER WHERE GUID = " & USER_GUIDTextBox.Text, MyConnectionString) = 0 Then
                 Dim sql As String = "UPDATE TBDD_USER SET MODULE_GI = 1 where GUID = " & USER_GUIDTextBox.Text
-                ClassDatabase.Execute_non_Query(Sql)
+                ClassDatabase.Execute_non_Query(sql)
 
             End If
         Catch ex As Exception
@@ -1156,4 +1167,15 @@
     Private Sub tsbtnRefreshAutomatic_Click(sender As Object, e As EventArgs) Handles tsbtnRefreshAutomatic.Click
         Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
     End Sub
-End Class
+
+    Private Sub ToolStripButton33_Click(sender As Object, e As EventArgs) Handles ToolStripButton33.Click
+        Dim list As ListBox = ListBox4
+
+        If Not IsNothing(list.SelectedItem) Then
+            Dim item As DataRowView = list.SelectedItem
+            GroupToDelete = Integer.Parse(item.Row.Item("GUID"))
+        Else
+            GroupToDelete = Nothing
+        End If
+    End Sub
+End Class