TreeView

GUIs.ZooFlow/frmTreeViewNavi.Designer.vb

@@ -22,7 +22,6 @@ Partial Class frmTreeViewNavi
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTreeViewNavi))
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
@@ -123,7 +122,7 @@ Partial Class frmTreeViewNavi
         Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
         Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem2)
         Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
-        Me.RibbonPageGroup3.Text = "Relation"
+        Me.RibbonPageGroup3.Text = "Relationen anpassen"
         '
         'RibbonStatusBar1
         '
@@ -240,7 +239,7 @@ Partial Class frmTreeViewNavi
         'XtraTabPage2
         '
         Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(209, 717)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(209, 409)
         Me.XtraTabPage2.Text = "Freie Gruppen"
         '
         'ImageCollection1

GUIs.ZooFlow/frmTreeViewNavi.resx

@@ -232,19 +232,18 @@
         a2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAAChEZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0
         cmVhbWVyAgAAAAlJbWFnZVNpemUERGF0YQQHE1N5c3RlbS5EcmF3aW5nLlNpemUDAAAAAgIAAAAF/P//
         /xNTeXN0ZW0uRHJhd2luZy5TaXplAgAAAAV3aWR0aAZoZWlnaHQAAAgIAwAAABAAAAAQAAAACQUAAAAP
-        BQAAAMgCAAACogEAAIlQTkcNChoKAAAADUlIRFIAAAAQAAAAEAgGAAAAH/P/YQAAAAFzUkdCAK7OHOkA
-        AAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAA7DAAAOwwHHb6hkAAABN0lEQVQ4T8VRsUoEMRBNYamF/oZY
-        KIilaCHCJSsigtb6G7I3uYPDjxAUG+0sziRbHeg/iIWljXYWgscV+mZvspd1TyvBB28z8+bNJMyqP0VG
-        YUNb/2IovJpOsSlyCWO9A0eGfCFSE8aGz5QiK03hMtWRX0upjtSEmy5EVlt5WMDLzpMBT1KaQFNhkgHv
-        eO5JkvPALs63mEtbHbGobejHOGWlt92RtNRhOmGbDRkVa2ljpCa3iiFDsTexY2+XJGwslCkltZ4PZiQc
-        Q5M/iyYs6xhL2kN8F7WSFO6xl0Wcz2PNj1q9/jz/36uaUciDf8srHZ9qs5F4wWNm3QE3Zac3c3wyWP/u
-        ldIE+/lgFr/sgYstcrusmbY/LBugc700TgNuXU6n/0Sd+xVpqQML+pjW0CB80vLvUOoLDptCNie9mP0A
-        AAAASUVORK5CYIIeAQAAiVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c
-        6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACzSURBVDhPY6AZ8GncPs23acd/
-        ZAyVIg6gawZhn6YdG6DShAFWAxq3f4BK4we+zTudsBkAwlAl+AHQpg5smkEYqoQwwKbZp3FHBVSaMAAq
-        3o1uAFSKeODTtP09TLNP405PqDBxIHTVKmYokzTgX79dARjfV0G2hvSu5IQKA8Nk+xmoa5qhQpgAGPr3
-        YE6GYWBY/EEXA2Gvpl2aUG0QALShG5tCfBiqFQKwKSCEoVoHFDAwAACFQt+QLzhmJAAAAABJRU5ErkJg
-        ggs=
+        BQAAAK4CAAAClQEAAIlQTkcNChoKAAAADUlIRFIAAAAQAAAAEAgGAAAAH/P/YQAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAE3SURBVDhPxVGxSgQxEE1hqYX+hlgoiKVoIcIlKyKC1vob
+        sje5g8OPEBQb7SzOJFsd6D+IhaWNdhaCxxX6Zm+yl3VPK8EHbzPz5s0kzKo/RUZhQ1v/Yii8mk6xKXIJ
+        Y70DR4Z8IVITxobPlCIrTeEy1ZFfS6mO1ISbLkRWW3lYwMvOkwFPUppAU2GSAe947kmS88AuzreYS1sd
+        saht6Mc4ZaW33ZG01GE6YZsNGRVraWOkJreKIUOxN7Fjb5ckbCyUKSW1ng9mJBxDkz+LJizrGEvaQ3wX
+        tZIU7rGXRZzPY82PWr3+PP/fq5pRyIN/yysdn2qzkXjBY2bdATdlpzdzfDJY/+6V0gT7+WAWv+yBiy1y
+        u6yZtj8sG6BzvTROA25dTqf/RJ37FWmpAwv6mNbQIHzS8u9Q6gsOm0I2J72Y/QAAAABJRU5ErkJgghEB
+        AACJUE5HDQoaCgAAAA1JSERSAAAAEAAAABAIBgAAAB/z/2EAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMA
+        AA7DAAAOwwHHb6hkAAAAs0lEQVQ4T2OgGfBp3D7Nt2nHf2QMlSIOoGsGYZ+mHRug0oQBVgMat3+ASuMH
+        vs07nbAZAMJQJfgB0KYObJpBGKqEMMCm2adxRwVUmjAAKt6NbgBUinjg07T9PUyzT+NOT6gwcSB01Spm
+        KJM04F+/XQEY31dBtob0ruSECgPDZPsZqGuaoUKYABj692BOhmFgWPxBFwNhr6ZdmlBtEAC0oRubQnwY
+        qhUCsCkghKFaBxQwMAAAhULfkC84ZiQAAAAASUVORK5CYIIL
 </value>
   </data>
 </root>

GUIs.ZooFlow/frmTreeViewNavi.vb

@@ -6,7 +6,7 @@ Imports DigitalData.GUIs.ZooFlow.ClassConstants
 Public Class frmTreeViewNavi
     Dim RightAddActive As Boolean = False
     Dim FormShown As Boolean = False
-    Dim oSelectedNodeID As Integer = 0
+    Dim SelectedNodeID As Integer = 0
     Private Sub frmTreeViewNavi_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
             Dim oSQL = "select SN_ID ChildID,SN_PARENT_ID ParentID,TERM_VALUE as CAPTION from  VWIDB_STRUCTURE_NODES_STRUCTURE"
@@ -42,7 +42,7 @@ Public Class frmTreeViewNavi
             KeyValue = TreeList2.FocusedNode(TreeList2.KeyFieldName)
             Console.WriteLine($"keyfield: {KeyValue.ToString}")
             If IsNumeric(KeyValue) And RightAddActive Then
-                oSelectedNodeID = KeyValue
+                SelectedNodeID = KeyValue
                 Refresh_Relations()
                 If XtraTabControlRelationScope.SelectedTabPageIndex = 0 Then
                     Refresh_FreeUsers()
@@ -65,7 +65,7 @@ Public Class frmTreeViewNavi
     Private Sub Refresh_FreeUsers()
         Try
             Dim oSQL = $"SELECT GUID as USR_ID, EMAIL FROM DD_ECM.dbo.TBDD_USER USR WHERE GUID NOT IN (
-            SELECT ScopeID FROM VWIDB_SN_RELATIONS WHERE SN_ID = {oSelectedNodeID}) AND USR.ACTIVE = 1 AND LEN(EMAIL) > 0"
+            SELECT ScopeID FROM VWIDB_SN_RELATIONS WHERE SN_ID = {SelectedNodeID}) AND USR.ACTIVE = 1 AND LEN(EMAIL) > 0"
             Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
             If Not IsNothing(oDT) Then
                 GridViewFreeUser.Columns.Clear()
@@ -78,7 +78,7 @@ Public Class frmTreeViewNavi
     End Sub
     Private Sub Refresh_Relations()
         Try
-            Dim oSQL = $"SELECT * FROM VWIDB_SN_RELATIONS WHERE SN_ID = {oSelectedNodeID}"
+            Dim oSQL = $"SELECT * FROM VWIDB_SN_RELATIONS WHERE SN_ID = {SelectedNodeID}"
             Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
             If Not IsNothing(oDT) Then
                 GridViewRelations.Columns.Clear()
@@ -135,7 +135,12 @@ Public Class frmTreeViewNavi
             Dim oInsert = $"INSERT INTO [dbo].[TBIDB_STRUCTURE_NODES_RELATIONS]
            ([SN_ID]
            ,[USR_ID]
-           ,[ADDED_WHO]) VALUES ({BarButtonItem2.Tag},,,{My.Application.User.UserName})"
+           ,[ADDED_WHO]) VALUES ({SelectedNodeID}, {BarButtonItem2.Tag},'{My.Application.User.UserName}')"
+            If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then
+                Refresh_Relations()
+                Refresh_FreeUsers()
+
+            End If
         End If
     End Sub