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

Add new nodes

Browse Source
This commit is contained in:
Jonathan Jenne
2023-09-21 15:09:28 +02:00
parent 16b2026a24
commit 1cf5c979db
15 changed files with 733 additions and 227 deletions
Download Patch File Download Diff File Expand all files Collapse all files

91
app/DD-Record-Organizer/Classes/ClassNodeNavigation.vb
View File

@@ -6,6 +6,9 @@ Public Class ClassNodeNavigation
Public Shared Datatable_Nodes As DataTable
Public Shared TREEVIEW_IMAGELIST As ImageList
Public Shared IMAGE_COLLECTION As ImageCollection
Public Shared Function CreateNodeProcedure(RECORD_ID As Integer, NODE_CONFIG_ID As Integer, NODE_CAPTION As String, NODE_ID1 As String, NODE_PARENT_ID As String, ADDED_WHO As String)
Try
Dim connection As New SqlConnection
@@ -38,56 +41,56 @@ Public Class ClassNodeNavigation
End Function
Public Shared Function CREATE_IMAGE_COLL(DT_IMAGELIST As DataTable)
IMAGE_COLLECTION = New ImageCollection
For Each row As DataRow In DT_IMAGELIST.Rows
Try
Dim bimage = row.Item("NODE_IMAGE")
If Not IsDBNull(bimage) Then
Dim Node_image = ByteArrayToBitmap(bimage)
IMAGE_COLLECTION.AddImage(Node_image, row.Item("GUID")) 'row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID")
'Public Shared Function CREATE_IMAGE_COLL(DT_IMAGELIST As DataTable)
' IMAGE_COLLECTION = New ImageCollection
' For Each row As DataRow In DT_IMAGELIST.Rows
' Try
' Dim bimage = row.Item("NODE_IMAGE")
' If Not IsDBNull(bimage) Then
' Dim Node_image = ByteArrayToBitmap(bimage)
' IMAGE_COLLECTION.AddImage(Node_image, row.Item("GUID")) 'row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID")
End If
Catch ex As Exception
' End If
' Catch ex As Exception
End Try
' End Try
Next
End Function
' Next
'End Function
Public Shared Function Return_Node(PARENT_ID As Integer, ParentNode As TreeNode)
Dim expression As String
expression = "PARENT_GUID = " & PARENT_ID 'Einschränkung auf Type und Parent_Guid
Dim foundRows() As DataRow
foundRows = Datatable_Nodes.Select(expression)
Dim q As Integer
For q = 0 To foundRows.GetUpperBound(0)
Dim ID9 = foundRows(q)("GUID")
Dim LevelEntity9 = foundRows(q)("ENTITY_ID")
Dim controlID9 = foundRows(q)("CONTROL_ID")
Dim nodetext9 = foundRows(q)("NODE_CAPTION")
Dim RECORD_ID = foundRows(q)("RECORD_ID")
Dim NODE_CONFIG_ID = foundRows(q)("NODE_CONFIG_ID")
' Node erstellen..
Dim NEW_NODE As TreeNode
NEW_NODE = New TreeNode(nodetext9)
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9, NEW_NODE)
NEW_NODE.Tag = ClassNodeNavigation.CreateNODE_TAG(LevelEntity9, ID9, RECORD_ID, NODE_CONFIG_ID)
'Public Shared Function Return_Node(PARENT_ID As Integer, ParentNode As TreeNode)
' Dim expression As String
' expression = "PARENT_GUID = " & PARENT_ID 'Einschränkung auf Type und Parent_Guid
' Dim foundRows() As DataRow
' foundRows = Datatable_Nodes.Select(expression)
' Dim q As Integer
' For q = 0 To foundRows.GetUpperBound(0)
' Dim ID9 = foundRows(q)("GUID")
' Dim LevelEntity9 = foundRows(q)("ENTITY_ID")
' Dim controlID9 = foundRows(q)("CONTROL_ID")
' Dim nodetext9 = foundRows(q)("NODE_CAPTION")
' Dim RECORD_ID = foundRows(q)("RECORD_ID")
' Dim NODE_CONFIG_ID = foundRows(q)("NODE_CONFIG_ID")
' ' Node erstellen..
' Dim NEW_NODE As TreeNode
' NEW_NODE = New TreeNode(nodetext9)
' ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9, NEW_NODE)
' NEW_NODE.Tag = ClassNodeNavigation.CreateNODE_TAG(LevelEntity9, ID9, RECORD_ID, NODE_CONFIG_ID)
Dim index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then
Exit For
End If
index += 1
Next
NEW_NODE.ImageIndex = index
NEW_NODE.SelectedImageIndex = index
' ..und einfügen
ParentNode.Nodes.Add(NEW_NODE)
Next '
End Function
' Dim index = 0
' For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
' If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then
' Exit For
' End If
' index += 1
' Next
' NEW_NODE.ImageIndex = index
' NEW_NODE.SelectedImageIndex = index
' ' ..und einfügen
' ParentNode.Nodes.Add(NEW_NODE)
' Next '
'End Function
Public Shared Sub Check_NODE_CONFIG_ID(ENTITY_ID As Integer, myTreeNode As TreeNode)
Try
If myTreeNode Is Nothing Then