Initial commit

BEA - Kopie (2)/Übersicht/clsUebersicht.vb

@@ -0,0 +1,251 @@
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Public Class clsUebersicht
+#Region "Deklarationen"
+    Dim treedata As New DataSet
+    Public treedata_for_search As New DataTable
+    Dim TreeaufbauSuche As Boolean = False
+    Dim TreeaufbauNr As Integer = 0
+    Dim FoundNode As Integer = 0
+    Dim Searchstring As String = ""
+    Public Treesearch As New TreeView
+    Dim Datenklasse As New _DataClass.DataClass
+#End Region
+
+#Region "Tree"
+
+    Public Sub Load_Treeview(ByRef tree As TreeView)
+        treedata.Tables.Clear()
+        TreeaufbauNr = -1
+        For Each dr As DataRow In Globals.Objekt.Rows
+            If dr.Item("Aktiv") = True Then
+                Load_Treedata(dr.Item("Bezeichnung"))
+                If Not (treedata Is Nothing) Then
+                    Dim oView As DataView = treedata.Tables(0).DefaultView
+                    Dim oTable As DataTable = oView.Table
+                    Dim oDS As DataSet = New DataSet()
+                    oDS.Tables.Add(oTable.Copy())
+
+                    If oDS.Relations.Contains("SelfRefenceRelation") = False Then
+                        oDS.Relations.Add("SelfRefenceRelation", _
+                            oDS.Tables(0).Columns("id"), _
+                            oDS.Tables(0).Columns("Parentid"))
+                    End If
+                    oTable.Dispose()
+                    oTable = Nothing
+
+                    LoadTreeView(oDS, tree)
+                    oDS.Dispose()
+                    oDS = Nothing
+                End If
+            End If
+
+        Next
+
+    End Sub
+
+    Public Function Load_Treedata(ByVal datatype As String) As DataTable
+        treedata.Tables.Clear()
+        Dim selectcommand As New SqlCommand
+        Dim connection As New SqlConnection()
+        Dim da As New SqlDataAdapter("", connection)
+
+        selectcommand.CommandText = "sp_get_struktur"
+        selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
+        selectcommand.Parameters(0).Value = Datatype
+        selectcommand.CommandType = CommandType.StoredProcedure
+        selectcommand.Connection = connection
+        Try
+            connection.ConnectionString = Globals.sConnectionString
+            connection.Open()
+            da.SelectCommand = selectcommand
+            da.Fill(treedata, "Tree")
+            If treedata_for_search.Rows.Count < 1 Then
+                For Each c As DataColumn In treedata.Tables(0).Columns
+                    If c.ColumnName = "ErweiterteSuche" Then
+                        Dim dc As New DataColumn
+                        dc.ColumnName = "ErweiterteSuche"
+                        dc.DataType = System.Type.GetType("System.String")
+                        dc.DefaultValue = "                                                                                                                          "
+                        Me.treedata_for_search.Columns.Add(dc)
+                    Else
+                        Me.treedata_for_search.Columns.Add(c.ColumnName)
+                    End If
+                Next
+            End If
+            For Each row As DataRow In treedata.Tables(0).Rows
+
+                Me.treedata_for_search.ImportRow(row)
+            Next
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            connection.Close()
+            da.Dispose()
+            selectcommand.Dispose()
+        End Try
+    End Function
+
+
+
+
+    ''' <summary>
+    ''' Tree aufbauen
+    ''' </summary>
+    ''' <param name="oDS"></param>
+    ''' <param name="oTreeview"></param>
+    ''' <remarks></remarks>
+    Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As TreeView)
+        'Dim oTreeView As TreeView = New TreeView()
+        Dim oDataRow As DataRow
+        For Each oDataRow In oDS.Tables(0).Rows
+            If Not oDataRow.IsNull("Parentid") Then
+                If oDataRow.Item("Parentid") = 0 Then
+                    'If oDataRow.IsNull("Parentid") Then
+                    Dim oNode As New TreeNode()
+                    oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
+                    Try
+                        oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
+                    Catch
+                    End Try
+                    oNode.Tag = oDataRow("id").ToString
+                    oNode.ImageIndex = oDataRow("ImageIndex")
+                    oNode.SelectedImageIndex = oDataRow("ImageIndex")
+                    oNode.StateImageIndex = oDataRow("ImageIndex")
+                    oTreeview.Nodes.Add(oNode)
+                    RecursivelyLoadTree(oDataRow, oNode)
+                End If
+            End If
+        Next oDataRow
+        oDS.Dispose()
+        oDS = Nothing
+    End Sub
+    ''' <summary>
+    ''' Child-Nodes hinzufügen
+    ''' </summary>
+    ''' <param name="oDataRow"></param>
+    ''' <param name="oNode"></param>
+    ''' <remarks></remarks>
+    Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As TreeNode)
+        Dim oChildRow As DataRow
+        For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
+            Dim oChildNode As New TreeNode()
+            oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
+            oChildNode.Tag = oChildRow("id").ToString()
+            oChildNode.ImageIndex = oChildRow("ImageIndex")
+            oChildNode.SelectedImageIndex = oChildRow("ImageIndex")
+            oChildNode.StateImageIndex = oChildRow("ImageIndex")
+            oNode.Nodes.Add(oChildNode)
+            RecursivelyLoadTree(oChildRow, oChildNode)
+        Next oChildRow
+    End Sub
+    Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
+        Dim tmpNode As TreeNode
+        For Each _child As TreeNode In _nodeCollection
+            If _child.Tag = SearchVal Then
+
+                Return _child
+            End If
+            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
+            ' Return _child
+            ' End If
+            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
+            If Not tmpNode Is Nothing Then
+                Return tmpNode
+            End If
+        Next
+        Return Nothing
+    End Function
+
+
+    Public Function TreeView_GetRootNode(objTV As TreeView, node As TreeNode) As _DataClass.DataClass.Struktur_Selectiontype
+        If node.Parent Is Nothing Then
+            Return Datenklasse.Get_Selectiontype(node.Text)
+            '            MsgBox(String.Format("You clicked a parent node named  {0}", node.Text))
+        Else
+            Dim parent As TreeNode = node.Parent
+            While Not parent.Parent Is Nothing
+                parent = parent.Parent
+            End While
+            Return Datenklasse.Get_Selectiontype(Trim(parent.Text))
+            'MsgBox(String.Format("The node's parent is {0}",            parent.Text))
+        End If
+    End Function
+
+   
+
+    Public Function Init_Search()
+        FoundNode = 0
+        Searchstring = ""
+        Me.Treesearch.Nodes.Clear()
+    End Function
+
+    Public Function SearchNode(ByRef tree As TreeView, ByVal SearchString As String) As TreeNode
+        Me.Treesearch.Nodes.Clear()
+        For Each dr As DataRow In treedata_for_search.Rows
+            If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
+                Dim tn As New TreeNode
+                tn = Me.Treesearch.Nodes.Add(dr.Item("Bezeichnung"))
+                tn.Tag = dr.Item("id")
+            End If
+        Next
+        Return FindFirst(tree)
+    End Function
+
+    Public Function FindFirst(ByRef Tree As TreeView) As TreeNode
+        Try
+            If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
+            Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch
+        End Try
+    End Function
+
+
+
+    Public Function FindNextNode(ByRef tree As TreeView) As TreeNode
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindFirst(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+
+        End Try
+    End Function
+
+    Public Function FindPrevNode(ByRef tree As TreeView) As TreeNode
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindLastNode(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+    End Function
+
+    Public Function FindLastNode(ByRef tree As TreeView) As TreeNode
+        Try
+            Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+
+    End Function
+
+    Public Function Get_DBObjektname(ByVal type As Integer) As String
+        For Each dr As DataRow In Globals.Objekt.Rows
+            If dr.Item("Objektnr") = type Then
+                Return dr.Item("DBOBject")
+                Exit For
+            End If
+        Next
+    End Function
+
+
+#End Region
+
+End Class

BEA - Kopie (2)/Übersicht/clsUebersichtRE.vb

@@ -0,0 +1,324 @@
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports DevComponents
+Public Class clsUebersichtre
+
+#Region "Deklarationen"
+    Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler
+
+
+    Dim treedata As New DataSet
+
+    Dim TreeaufbauSuche As Boolean = False
+    Dim TreeaufbauNr As Integer = 0
+    Dim FoundNode As Integer = 0
+    Dim Searchstring As String = ""
+    Public Treesearch As New AdvTree.AdvTree
+    Dim Datenklasse As New _DataClass.DataClass
+#End Region
+
+#Region "Tree"
+
+    Public Sub Load_Treeview(ByRef tree As DevComponents.AdvTree.AdvTree)
+        Globals.treedata_for_search.Rows.Clear()
+        treedata.Tables.Clear()
+        TreeaufbauNr = -1
+        For Each dr As DataRow In Globals.Objekt.Rows
+            If dr.Item("Aktiv") = True Then
+                Load_Treedata(dr.Item("Bezeichnung"))
+                If Not (treedata Is Nothing) Then
+                    Dim oView As DataView = treedata.Tables(0).DefaultView
+                    Dim oTable As DataTable = oView.Table
+                    Dim oDS As DataSet = New DataSet()
+                    oDS.Tables.Add(oTable.Copy())
+
+                    If oDS.Relations.Contains("SelfRefenceRelation") = False Then
+                        oDS.Relations.Add("SelfRefenceRelation", _
+                            oDS.Tables(0).Columns("id"), _
+                            oDS.Tables(0).Columns("Parentid"))
+                    End If
+                    oTable.Dispose()
+                    oTable = Nothing
+
+                    LoadTreeView(oDS, tree)
+                    oDS.Dispose()
+                    oDS = Nothing
+                End If
+            End If
+
+        Next
+
+    End Sub
+
+    Public Function Load_Treedata(ByVal datatype As String) As DataTable
+        treedata.Tables.Clear()
+        Dim selectcommand As New SqlCommand
+        Dim connection As New SqlConnection()
+        Dim da As New SqlDataAdapter("", connection)
+
+        selectcommand.CommandText = "sp_get_struktur"
+        selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
+        selectcommand.Parameters(0).Value = datatype
+        selectcommand.CommandType = CommandType.StoredProcedure
+        selectcommand.Connection = connection
+        Try
+            connection.ConnectionString = Globals.sConnectionString
+            connection.Open()
+            da.SelectCommand = selectcommand
+            da.Fill(treedata, "Tree")
+            If treedata_for_search.Rows.Count < 1 Then
+                For Each c As DataColumn In treedata.Tables(0).Columns
+                    If c.ColumnName = "ErweiterteSuche" Then
+                        Dim dc As New DataColumn
+                        dc.ColumnName = "ErweiterteSuche"
+                        dc.DataType = System.Type.GetType("System.String")
+                        dc.DefaultValue = "                                                                                                                          "
+                        Try
+                            Globals.treedata_for_search.Columns.Add(dc)
+                        Catch
+                        End Try
+                    Else
+                        Try
+                            Globals.treedata_for_search.Columns.Add(c.ColumnName)
+                        Catch
+                        End Try
+                    End If
+                Next
+            End If
+            For Each row As DataRow In treedata.Tables(0).Rows
+                Globals.treedata_for_search.ImportRow(row)
+            Next
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+        Finally
+            connection.Close()
+            da.Dispose()
+            selectcommand.Dispose()
+        End Try
+    End Function
+
+    Public Function Update_TreeSearch(ByVal fnkt As String, ByVal Keyvalue As String, ByVal treestruktur As DevComponents.AdvTree.AdvTree)
+        If Globals.Update_Treedata_for_search = False Then
+            'Exit Function
+
+        End If
+        treedata_for_search.Rows.Clear()
+        GetAllNodes(treestruktur)
+        Globals.Update_Treedata_for_search = False
+    End Function
+
+    Protected Function GetAllNodes(ByVal treestruktur As DevComponents.AdvTree.AdvTree) As List(Of TreeNode)
+
+        Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
+
+        ' start recursion for each root node of the treeview
+        For i As Integer = 0 To TreeStruktur.Nodes.Count - 1
+            GetAllNodes(TreeStruktur.Nodes(i), allNodes)
+        Next
+
+        Return allNodes
+
+    End Function
+
+    Protected Sub GetAllNodes(ByVal subRoot As DevComponents.AdvTree.Node, ByVal allNodes As List(Of TreeNode))
+
+        ' check for null (this can be removed since within th
+        If (subRoot Is Nothing) Then
+            Exit Sub
+        End If
+
+        ' add subroot
+        Dim r As DataRow
+        r = treedata_for_search.NewRow
+        r.Item(0) = subRoot.Tag
+        Try
+            r.Item(1) = subRoot.Parent.Tag
+        Catch
+            r.Item(1) = 0
+        End Try
+
+        r.Item(2) = subRoot.Text
+        r.Item(3) = subRoot.ImageIndex
+        treedata_for_search.Rows.Add(r)
+        'allNodes.Add(subRoot)
+        ' add all it's children
+        For i As Integer = 0 To subRoot.Nodes.Count - 1
+            GetAllNodes(subRoot.Nodes(i), allNodes)
+        Next
+
+
+    End Sub
+
+
+    ''' <summary>
+    ''' Tree aufbauen
+    ''' </summary>
+    ''' <param name="oDS"></param>
+    ''' <param name="oTreeview"></param>
+    ''' <remarks></remarks>
+    Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As DevComponents.AdvTree.AdvTree)
+        'Dim oTreeView As TreeView = New TreeView()
+        Dim oDataRow As DataRow
+        For Each oDataRow In oDS.Tables(0).Rows
+            If Not oDataRow.IsNull("Parentid") Then
+                If oDataRow.Item("Parentid") = 0 Then
+                    'If oDataRow.IsNull("Parentid") Then
+                    Dim oNode As New DevComponents.AdvTree.Node
+                    oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
+                    Try
+                        'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
+                    Catch
+                    End Try
+                    oNode.Tag = oDataRow("id").ToString
+                    oNode.ImageIndex = oDataRow("ImageIndex")
+                    oTreeview.Nodes.Add(oNode)
+                    RecursivelyLoadTree(oDataRow, oNode)
+                End If
+            End If
+        Next oDataRow
+        oDS.Dispose()
+        oDS = Nothing
+    End Sub
+    ''' <summary>
+    ''' Child-Nodes hinzufügen
+    ''' </summary>
+    ''' <param name="oDataRow"></param>
+    ''' <param name="oNode"></param>
+    ''' <remarks></remarks>
+    Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
+        Dim oChildRow As DataRow
+        For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
+            Dim oChildNode As New DevComponents.AdvTree.Node
+            oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
+            oChildNode.Tag = oChildRow("id").ToString()
+            oChildNode.ImageIndex = oChildRow("ImageIndex")
+           
+            oNode.Nodes.Add(oChildNode)
+            RecursivelyLoadTree(oChildRow, oChildNode)
+        Next oChildRow
+    End Sub
+    Public Function FindNode(ByVal _nodeCollection As AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As AdvTree.Node
+        Dim tmpNode As AdvTree.Node
+        For Each _child As AdvTree.Node In _nodeCollection
+            If _child.Tag = SearchVal Then
+
+                Return _child
+            End If
+            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
+            ' Return _child
+            ' End If
+            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
+            If Not tmpNode Is Nothing Then
+                Return tmpNode
+            End If
+        Next
+        Return Nothing
+    End Function
+
+
+    Public Function TreeView_GetRootNode(objTV As AdvTree.AdvTree, node As AdvTree.Node) As _DataClass.DataClass.Struktur_Selectiontype
+        Try
+            If node.Parent Is Nothing Then
+                Return Datenklasse.Get_Selectiontype(node.Text)
+            Else
+                Dim parent As AdvTree.Node = node.Parent
+                While Not parent.Parent Is Nothing
+                    parent = parent.Parent
+                End While
+                Return Datenklasse.Get_Selectiontype(Trim(parent.Text))
+            End If
+        Catch
+        End Try
+    End Function
+
+
+
+    Public Function Init_Search()
+        FoundNode = 0
+        Searchstring = ""
+        Me.Treesearch.Nodes.Clear()
+    End Function
+
+    Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
+        'Return tree.FindNodeByCellText(SearchString)
+
+        Me.Treesearch.Nodes.Clear()
+        For Each dr As DataRow In treedata_for_search.Rows
+            'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
+            If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
+                Dim tn As New AdvTree.Node
+                tn.Text = dr.Item("Bezeichnung")
+                tn.Tag = dr.Item("id")
+                Treesearch.Nodes.Add(tn)
+            End If
+        Next
+        Return FindFirst(tree)
+    End Function
+
+    Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
+            Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch
+        End Try
+    End Function
+
+
+
+    Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindFirst(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+
+        End Try
+    End Function
+
+    Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindLastNode(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+    End Function
+
+    Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+
+    End Function
+
+    Public Function Get_DBObjektname(ByVal type As Integer) As String
+        For Each dr As DataRow In Globals.Objekt.Rows
+            If dr.Item("Objektnr") = type Then
+                Return dr.Item("DBOBject")
+                Exit For
+            End If
+        Next
+    End Function
+
+
+
+
+#End Region
+
+#Region "EVH-Ereignisse"
+    Private Sub evh_Strucktur_Changed(ByVal keyvalue As Integer, ByVal treehanlde As Integer) Handles evh.Strucktur_Changed
+        Try
+           
+        Catch
+
+        End Try
+    End Sub
+#End Region
+
+End Class

BEA - Kopie (2)/Übersicht/frmSuche.Designer.vb

@@ -0,0 +1,173 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSuche
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSuche))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.lblSuchbegriff = New System.Windows.Forms.Label()
+        Me.txtSuchbegriff = New System.Windows.Forms.TextBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btnSuche = New System.Windows.Forms.Button()
+        Me.C1Suchresultat = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.ctxmenu = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.AnzeigenInNeuemFensterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.C1Suchresultat, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ctxmenu.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(346, 31)
+        Me.ToolStrip1.TabIndex = 6
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(29, 28)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
+        '
+        'lblSuchbegriff
+        '
+        Me.lblSuchbegriff.AutoSize = True
+        Me.lblSuchbegriff.Location = New System.Drawing.Point(3, 16)
+        Me.lblSuchbegriff.Name = "lblSuchbegriff"
+        Me.lblSuchbegriff.Size = New System.Drawing.Size(69, 15)
+        Me.lblSuchbegriff.TabIndex = 7
+        Me.lblSuchbegriff.Text = "Suchbegriff"
+        '
+        'txtSuchbegriff
+        '
+        Me.txtSuchbegriff.Location = New System.Drawing.Point(70, 13)
+        Me.txtSuchbegriff.Name = "txtSuchbegriff"
+        Me.txtSuchbegriff.Size = New System.Drawing.Size(189, 20)
+        Me.txtSuchbegriff.TabIndex = 8
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.btnSuche)
+        Me.Panel1.Controls.Add(Me.lblSuchbegriff)
+        Me.Panel1.Controls.Add(Me.txtSuchbegriff)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 31)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(346, 52)
+        Me.Panel1.TabIndex = 9
+        '
+        'btnSuche
+        '
+        Me.btnSuche.Location = New System.Drawing.Point(265, 10)
+        Me.btnSuche.Name = "btnSuche"
+        Me.btnSuche.Size = New System.Drawing.Size(75, 23)
+        Me.btnSuche.TabIndex = 9
+        Me.btnSuche.Text = "Suchen"
+        Me.btnSuche.UseVisualStyleBackColor = True
+        '
+        'C1Suchresultat
+        '
+        Me.C1Suchresultat.AllowDrag = True
+        Me.C1Suchresultat.AllowDrop = True
+        Me.C1Suchresultat.AllowUpdate = False
+        Me.C1Suchresultat.AlternatingRows = True
+        Me.C1Suchresultat.ContextMenuStrip = Me.ctxmenu
+        Me.C1Suchresultat.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1Suchresultat.FetchRowStyles = True
+        Me.C1Suchresultat.FilterBar = True
+        Me.C1Suchresultat.GroupByCaption = "Drag a column header here to group by that column"
+        Me.C1Suchresultat.Images.Add(CType(resources.GetObject("C1Suchresultat.Images"), System.Drawing.Image))
+        Me.C1Suchresultat.Location = New System.Drawing.Point(0, 83)
+        Me.C1Suchresultat.Name = "C1Suchresultat"
+        Me.C1Suchresultat.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.C1Suchresultat.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.C1Suchresultat.PreviewInfo.ZoomFactor = 75.0R
+        Me.C1Suchresultat.PrintInfo.PageSettings = CType(resources.GetObject("C1Suchresultat.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.C1Suchresultat.Size = New System.Drawing.Size(346, 313)
+        Me.C1Suchresultat.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
+        Me.C1Suchresultat.TabIndex = 11
+        Me.C1Suchresultat.Text = "C1TrueDBGrid1"
+        Me.C1Suchresultat.PropBag = resources.GetString("C1Suchresultat.PropBag")
+        '
+        'ctxmenu
+        '
+        Me.ctxmenu.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ctxmenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AnzeigenInNeuemFensterToolStripMenuItem, Me.AnzeigenToolStripMenuItem})
+        Me.ctxmenu.Name = "ctxmenu"
+        Me.ctxmenu.Size = New System.Drawing.Size(257, 52)
+        '
+        'AnzeigenInNeuemFensterToolStripMenuItem
+        '
+        Me.AnzeigenInNeuemFensterToolStripMenuItem.Name = "AnzeigenInNeuemFensterToolStripMenuItem"
+        Me.AnzeigenInNeuemFensterToolStripMenuItem.Size = New System.Drawing.Size(256, 24)
+        Me.AnzeigenInNeuemFensterToolStripMenuItem.Text = "Anzeigen in neuem Fenster"
+        '
+        'AnzeigenToolStripMenuItem
+        '
+        Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
+        Me.AnzeigenToolStripMenuItem.Size = New System.Drawing.Size(256, 24)
+        Me.AnzeigenToolStripMenuItem.Text = "Anzeigen"
+        '
+        'frmSuche
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(346, 396)
+        Me.Controls.Add(Me.C1Suchresultat)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmSuche"
+        Me.Text = "Suchen"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.C1Suchresultat, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ctxmenu.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents lblSuchbegriff As System.Windows.Forms.Label
+    Friend WithEvents txtSuchbegriff As System.Windows.Forms.TextBox
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents btnSuche As System.Windows.Forms.Button
+    Friend WithEvents C1Suchresultat As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents ctxmenu As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents AnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents AnzeigenInNeuemFensterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+End Class

BEA - Kopie (2)/Übersicht/frmSuche.vb

@@ -0,0 +1,93 @@
+Public Class frmSuche
+
+    Dim m_suchdata As DataTable
+    Property SuchData As DataTable
+        Get
+            Return m_suchdata
+        End Get
+        Set(value As DataTable)
+            m_suchdata = value
+        End Set
+    End Property
+
+    Dim m_suchtree As DevComponents.AdvTree.AdvTree
+    Property SuchTree As DevComponents.AdvTree.AdvTree
+        Get
+            Return m_suchtree
+        End Get
+        Set(value As DevComponents.AdvTree.AdvTree)
+            m_suchtree = value
+        End Set
+    End Property
+
+    Dim dt As New DataTable
+    Dim u As New clsUebersichtre
+
+    Private Sub frmSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        dt.Columns.Add("Key")
+        dt.Columns.Add("Typ")
+        dt.Columns.Add("Bezeichnung")
+        If Me.txtSuchbegriff.Text <> "" Then btnSuche_Click(sender, e)
+    End Sub
+
+    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
+        dt.Rows.Clear()
+        For Each dr As DataRow In Me.SuchData.Rows
+            If InStr(UCase(dr.Item("Bezeichnung")), UCase(Me.txtSuchbegriff.Text)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(Me.txtSuchbegriff.Text)) > 0 Then
+                Dim r As DataRow = dt.NewRow
+                r.Item(0) = dr.Item("ID")
+                r.Item(2) = dr.Item("Bezeichnung")
+                dt.Rows.Add(r)
+            End If
+        Next
+
+        For Each dr As DataRow In dt.Rows
+            Dim tn As New DevComponents.AdvTree.Node
+            tn = u.FindNode(Me.SuchTree.Nodes, dr.Item(0), "")
+            If Not tn Is Nothing Then
+                dr.Item(1) = u.TreeView_GetRootNode(Me.SuchTree, tn)
+            End If
+        Next
+        Me.C1Suchresultat.DataSource = Nothing
+        Me.C1Suchresultat.DataSource = dt
+        Me.C1Suchresultat.DataMember = dt.TableName
+        Me.C1Suchresultat.Splits(0).DisplayColumns(0).Width = 0
+        Me.C1Suchresultat.Splits(0).DisplayColumns(1).Width = 100
+        Me.C1Suchresultat.Splits(0).DisplayColumns(2).Width = 200
+
+        Me.txtSuchbegriff.SelectAll()
+    End Sub
+
+
+    Private Sub txtSuchbegriff_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuchbegriff.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            btnSuche_Click(sender, e)
+        End If
+    End Sub
+
+    Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
+        Me.SuchTree.SelectedNode = u.FindNode(Me.SuchTree.Nodes, Me.C1Suchresultat.Columns(0).Value, "")
+    End Sub
+
+    Private Sub C1Suchresultat_DoubleClick(sender As Object, e As EventArgs) Handles C1Suchresultat.DoubleClick
+        Try
+            AnzeigenToolStripMenuItem_Click(sender, e)
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub C1Suchresultat_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Suchresultat.MouseDown
+        Me.C1Suchresultat.Bookmark = Me.C1Suchresultat.RowContaining(e.Y)
+    End Sub
+
+    Private Sub AnzeigenInNeuemFensterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenInNeuemFensterToolStripMenuItem.Click
+        Dim f As New frmUebersichtRE(Me.C1Suchresultat.Columns(0).Value)
+        f.MdiParent = Me.MdiParent
+        f.Show()
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+End Class

BEA - Kopie (2)/Übersicht/frmUebersichtRE.designer.vb

@@ -0,0 +1,515 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmUebersichtRE
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUebersichtRE))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.TsBtnSuchArt = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.ApplikationSucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStriptxtSuche = New System.Windows.Forms.ToolStripTextBox()
+        Me.TSBtnSuche = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnFilterAufheben = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnFirst = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnPrevious = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnNext = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnLast = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnReadonly = New System.Windows.Forms.ToolStripButton()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.ctxMenuStripUebersicht = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.FensterGrösseSpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ctxMenuTree = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.KnotenÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.KnotenSchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.NeuesElementToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ElementLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ExportExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ExportVorbereitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
+        Me.Sync = New System.Windows.Forms.ToolStripMenuItem()
+        Me.NeueBeziehungErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.TreeStruktur = New DevComponents.AdvTree.AdvTree()
+        Me.Node1 = New DevComponents.AdvTree.Node()
+        Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
+        Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
+        Me.AllgMainObjekte1 = New _AllgMainObjekte.AllgMainObjekte()
+        Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
+        Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
+        Me.ToolStrip1.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
+        Me.ctxMenuStripUebersicht.SuspendLayout()
+        Me.ctxMenuTree.SuspendLayout()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.Panel2.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        CType(Me.TreeStruktur, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripSeparator1, Me.TsBtnSuchArt, Me.ToolStriptxtSuche, Me.TSBtnSuche, Me.TSBtnFilterAufheben, Me.ToolStripButton1, Me.TSBtnFirst, Me.TSBtnPrevious, Me.TSBtnNext, Me.TSBtnLast, Me.tsbtnReadonly})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(1034, 25)
+        Me.ToolStrip1.TabIndex = 7
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+        '
+        'TsBtnSuchArt
+        '
+        Me.TsBtnSuchArt.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.TsBtnSuchArt.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ApplikationSucheToolStripMenuItem})
+        Me.TsBtnSuchArt.Image = CType(resources.GetObject("TsBtnSuchArt.Image"), System.Drawing.Image)
+        Me.TsBtnSuchArt.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TsBtnSuchArt.Name = "TsBtnSuchArt"
+        Me.TsBtnSuchArt.Size = New System.Drawing.Size(59, 22)
+        Me.TsBtnSuchArt.Text = "Suchen"
+        '
+        'ApplikationSucheToolStripMenuItem
+        '
+        Me.ApplikationSucheToolStripMenuItem.Name = "ApplikationSucheToolStripMenuItem"
+        Me.ApplikationSucheToolStripMenuItem.Size = New System.Drawing.Size(107, 22)
+        Me.ApplikationSucheToolStripMenuItem.Text = "Filtern"
+        '
+        'ToolStriptxtSuche
+        '
+        Me.ToolStriptxtSuche.Name = "ToolStriptxtSuche"
+        Me.ToolStriptxtSuche.Size = New System.Drawing.Size(227, 25)
+        '
+        'TSBtnSuche
+        '
+        Me.TSBtnSuche.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnSuche.Image = CType(resources.GetObject("TSBtnSuche.Image"), System.Drawing.Image)
+        Me.TSBtnSuche.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnSuche.Name = "TSBtnSuche"
+        Me.TSBtnSuche.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnSuche.Text = "Suchen"
+        '
+        'TSBtnFilterAufheben
+        '
+        Me.TSBtnFilterAufheben.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnFilterAufheben.Image = CType(resources.GetObject("TSBtnFilterAufheben.Image"), System.Drawing.Image)
+        Me.TSBtnFilterAufheben.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnFilterAufheben.Name = "TSBtnFilterAufheben"
+        Me.TSBtnFilterAufheben.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnFilterAufheben.Text = "Filter aufheben"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "Suchdialog"
+        '
+        'TSBtnFirst
+        '
+        Me.TSBtnFirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnFirst.Image = CType(resources.GetObject("TSBtnFirst.Image"), System.Drawing.Image)
+        Me.TSBtnFirst.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnFirst.Name = "TSBtnFirst"
+        Me.TSBtnFirst.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnFirst.Text = "Erster Datensatz"
+        '
+        'TSBtnPrevious
+        '
+        Me.TSBtnPrevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnPrevious.Image = CType(resources.GetObject("TSBtnPrevious.Image"), System.Drawing.Image)
+        Me.TSBtnPrevious.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnPrevious.Name = "TSBtnPrevious"
+        Me.TSBtnPrevious.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnPrevious.Text = "Vorheriger Datensatz"
+        '
+        'TSBtnNext
+        '
+        Me.TSBtnNext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnNext.Image = CType(resources.GetObject("TSBtnNext.Image"), System.Drawing.Image)
+        Me.TSBtnNext.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnNext.Name = "TSBtnNext"
+        Me.TSBtnNext.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnNext.Text = "Nächster Datensatz"
+        '
+        'TSBtnLast
+        '
+        Me.TSBtnLast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnLast.Image = CType(resources.GetObject("TSBtnLast.Image"), System.Drawing.Image)
+        Me.TSBtnLast.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnLast.Name = "TSBtnLast"
+        Me.TSBtnLast.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnLast.Text = "Letzter Datensatz"
+        '
+        'tsbtnReadonly
+        '
+        Me.tsbtnReadonly.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnReadonly.Image = CType(resources.GetObject("tsbtnReadonly.Image"), System.Drawing.Image)
+        Me.tsbtnReadonly.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnReadonly.Name = "tsbtnReadonly"
+        Me.tsbtnReadonly.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnReadonly.Text = "ReadonlyButton"
+        Me.tsbtnReadonly.Visible = False
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.AllowMerge = False
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(1034, 24)
+        Me.MenuStrip1.TabIndex = 6
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'DateiToolStripMenuItem
+        '
+        Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
+        Me.DateiToolStripMenuItem.MergeAction = System.Windows.Forms.MergeAction.MatchOnly
+        Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Text = "&Datei"
+        '
+        'SchliessenToolStripMenuItem
+        '
+        Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
+        Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
+        Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "chart-organisation-icon.png")
+        Me.ImageList1.Images.SetKeyName(1, "chart-organisation-add-icon.png")
+        Me.ImageList1.Images.SetKeyName(2, "Person-Male-Light-icon.png")
+        Me.ImageList1.Images.SetKeyName(3, "Actions-user-group-new-icon.png")
+        Me.ImageList1.Images.SetKeyName(4, "security-unlock-icon.png")
+        Me.ImageList1.Images.SetKeyName(5, "security-unlock-icon_grp.png")
+        Me.ImageList1.Images.SetKeyName(6, "rules-icon.png")
+        Me.ImageList1.Images.SetKeyName(7, "rules-icon_grp.png")
+        Me.ImageList1.Images.SetKeyName(8, "Home-Server-icon.png")
+        Me.ImageList1.Images.SetKeyName(9, "Home-Server-icon.png")
+        Me.ImageList1.Images.SetKeyName(10, "Maint_1.png")
+        Me.ImageList1.Images.SetKeyName(11, "Maint_1.png")
+        Me.ImageList1.Images.SetKeyName(12, "Main_2.png")
+        Me.ImageList1.Images.SetKeyName(13, "Main_2.png")
+        '
+        'ctxMenuStripUebersicht
+        '
+        Me.ctxMenuStripUebersicht.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FensterGrösseSpeichernToolStripMenuItem})
+        Me.ctxMenuStripUebersicht.Name = "ContextMenuStrip1"
+        Me.ctxMenuStripUebersicht.Size = New System.Drawing.Size(207, 26)
+        '
+        'FensterGrösseSpeichernToolStripMenuItem
+        '
+        Me.FensterGrösseSpeichernToolStripMenuItem.Name = "FensterGrösseSpeichernToolStripMenuItem"
+        Me.FensterGrösseSpeichernToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.FensterGrösseSpeichernToolStripMenuItem.Text = "Fenster-Grösse speichern"
+        '
+        'ctxMenuTree
+        '
+        Me.ctxMenuTree.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InEinemNeuenFensterÖffnenToolStripMenuItem, Me.ToolStripMenuItem3, Me.KnotenÖffnenToolStripMenuItem, Me.KnotenSchliessenToolStripMenuItem, Me.ToolStripMenuItem1, Me.NeuesElementToolStripMenuItem, Me.ElementLöschenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ExportExcelToolStripMenuItem, Me.ExportVorbereitenToolStripMenuItem, Me.ToolStripMenuItem4, Me.Sync, Me.NeueBeziehungErstellenToolStripMenuItem})
+        Me.ctxMenuTree.Name = "ctxMenuTree"
+        Me.ctxMenuTree.Size = New System.Drawing.Size(321, 226)
+        '
+        'InEinemNeuenFensterÖffnenToolStripMenuItem
+        '
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.Name = "InEinemNeuenFensterÖffnenToolStripMenuItem"
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.Text = "In einem neuen Fenster öffnen"
+        '
+        'ToolStripMenuItem3
+        '
+        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(317, 6)
+        '
+        'KnotenÖffnenToolStripMenuItem
+        '
+        Me.KnotenÖffnenToolStripMenuItem.Name = "KnotenÖffnenToolStripMenuItem"
+        Me.KnotenÖffnenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.KnotenÖffnenToolStripMenuItem.Text = "Knoten öffnen"
+        '
+        'KnotenSchliessenToolStripMenuItem
+        '
+        Me.KnotenSchliessenToolStripMenuItem.Name = "KnotenSchliessenToolStripMenuItem"
+        Me.KnotenSchliessenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.KnotenSchliessenToolStripMenuItem.Text = "Knoten schliessen"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(317, 6)
+        '
+        'NeuesElementToolStripMenuItem
+        '
+        Me.NeuesElementToolStripMenuItem.Name = "NeuesElementToolStripMenuItem"
+        Me.NeuesElementToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys)
+        Me.NeuesElementToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.NeuesElementToolStripMenuItem.Text = "&Neues Element"
+        '
+        'ElementLöschenToolStripMenuItem
+        '
+        Me.ElementLöschenToolStripMenuItem.Name = "ElementLöschenToolStripMenuItem"
+        Me.ElementLöschenToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.X), System.Windows.Forms.Keys)
+        Me.ElementLöschenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.ElementLöschenToolStripMenuItem.Text = "&Element löschen"
+        '
+        'ToolStripMenuItem2
+        '
+        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(317, 6)
+        '
+        'ExportExcelToolStripMenuItem
+        '
+        Me.ExportExcelToolStripMenuItem.Name = "ExportExcelToolStripMenuItem"
+        Me.ExportExcelToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.ExportExcelToolStripMenuItem.Text = "Export Excel"
+        '
+        'ExportVorbereitenToolStripMenuItem
+        '
+        Me.ExportVorbereitenToolStripMenuItem.Name = "ExportVorbereitenToolStripMenuItem"
+        Me.ExportVorbereitenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.ExportVorbereitenToolStripMenuItem.Text = "Export vorbereiten"
+        '
+        'ToolStripMenuItem4
+        '
+        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(317, 6)
+        '
+        'Sync
+        '
+        Me.Sync.Name = "Sync"
+        Me.Sync.Size = New System.Drawing.Size(320, 22)
+        Me.Sync.Text = "Sync. Verwaltung durch/mit, Dateneigentümer"
+        '
+        'NeueBeziehungErstellenToolStripMenuItem
+        '
+        Me.NeueBeziehungErstellenToolStripMenuItem.Name = "NeueBeziehungErstellenToolStripMenuItem"
+        Me.NeueBeziehungErstellenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.NeueBeziehungErstellenToolStripMenuItem.Text = "Neue Beziehung erstellen"
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 49)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TreeStruktur)
+        '
+        'SplitContainer1.Panel2
+        '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.AllgMainObjekte1)
+        Me.SplitContainer1.Size = New System.Drawing.Size(1034, 426)
+        Me.SplitContainer1.SplitterDistance = 300
+        Me.SplitContainer1.TabIndex = 14
+        '
+        'TreeStruktur
+        '
+        Me.TreeStruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
+        Me.TreeStruktur.AllowDrop = True
+        Me.TreeStruktur.BackColor = System.Drawing.SystemColors.Window
+        '
+        '
+        '
+        Me.TreeStruktur.BackgroundStyle.Class = "TreeBorderKey"
+        Me.TreeStruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.TreeStruktur.ContextMenuStrip = Me.ctxMenuTree
+        Me.TreeStruktur.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeStruktur.DragDropNodeCopyEnabled = False
+        Me.TreeStruktur.HotTracking = True
+        Me.TreeStruktur.ImageList = Me.ImageList1
+        Me.TreeStruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
+        Me.TreeStruktur.Location = New System.Drawing.Point(0, 0)
+        Me.TreeStruktur.MultiSelect = True
+        Me.TreeStruktur.Name = "TreeStruktur"
+        Me.TreeStruktur.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
+        Me.TreeStruktur.NodesConnector = Me.NodeConnector1
+        Me.TreeStruktur.NodeStyle = Me.ElementStyle1
+        Me.TreeStruktur.NodeStyleSelected = Me.ElementStyle1
+        Me.TreeStruktur.PathSeparator = ";"
+        Me.TreeStruktur.Size = New System.Drawing.Size(300, 426)
+        Me.TreeStruktur.Styles.Add(Me.ElementStyle1)
+        Me.TreeStruktur.Styles.Add(Me.ElementStyle2)
+        Me.TreeStruktur.TabIndex = 14
+        Me.TreeStruktur.Text = "AdvTree1"
+        '
+        'Node1
+        '
+        Me.Node1.Expanded = True
+        Me.Node1.Name = "Node1"
+        Me.Node1.Text = "Node1"
+        '
+        'NodeConnector1
+        '
+        Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
+        '
+        'ElementStyle1
+        '
+        Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.ElementStyle1.Name = "ElementStyle1"
+        Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
+        '
+        'AllgMainObjekte1
+        '
+        Me.AllgMainObjekte1.AllowDrop = True
+        Me.AllgMainObjekte1.ConnectionFilename = Nothing
+        Me.AllgMainObjekte1.ConnectionString = Nothing
+        Me.AllgMainObjekte1.Generic_Event_Handler = Nothing
+        Me.AllgMainObjekte1.isDirty = False
+        Me.AllgMainObjekte1.KeyValue = 0
+        Me.AllgMainObjekte1.Location = New System.Drawing.Point(15, 23)
+        Me.AllgMainObjekte1.Mitarbeiternr = 0
+        Me.AllgMainObjekte1.Name = "AllgMainObjekte1"
+        Me.AllgMainObjekte1.NewEntry = False
+        Me.AllgMainObjekte1.Size = New System.Drawing.Size(674, 376)
+        Me.AllgMainObjekte1.TabIndex = 0
+        Me.AllgMainObjekte1.TargetObjekt = 0
+        Me.AllgMainObjekte1.TempFilePath = Nothing
+        Me.AllgMainObjekte1.TreeHandle = 0
+        Me.AllgMainObjekte1.Type = Nothing
+        '
+        'ImageList2
+        '
+        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList2.Images.SetKeyName(0, "Hands-One-Finger-icon.png")
+        '
+        'ElementStyle2
+        '
+        Me.ElementStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(221, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(247, Byte), Integer))
+        Me.ElementStyle2.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(168, Byte), Integer), CType(CType(228, Byte), Integer))
+        Me.ElementStyle2.BackColorGradientAngle = 90
+        Me.ElementStyle2.BorderBottom = DevComponents.DotNetBar.eStyleBorderType.Solid
+        Me.ElementStyle2.BorderBottomWidth = 1
+        Me.ElementStyle2.BorderColor = System.Drawing.Color.DarkGray
+        Me.ElementStyle2.BorderLeft = DevComponents.DotNetBar.eStyleBorderType.Solid
+        Me.ElementStyle2.BorderLeftWidth = 1
+        Me.ElementStyle2.BorderRight = DevComponents.DotNetBar.eStyleBorderType.Solid
+        Me.ElementStyle2.BorderRightWidth = 1
+        Me.ElementStyle2.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
+        Me.ElementStyle2.BorderTopWidth = 1
+        Me.ElementStyle2.CornerDiameter = 4
+        Me.ElementStyle2.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.ElementStyle2.Description = "Blue"
+        Me.ElementStyle2.Name = "ElementStyle2"
+        Me.ElementStyle2.PaddingBottom = 1
+        Me.ElementStyle2.PaddingLeft = 1
+        Me.ElementStyle2.PaddingRight = 1
+        Me.ElementStyle2.PaddingTop = 1
+        Me.ElementStyle2.TextColor = System.Drawing.Color.Black
+        '
+        'frmUebersichtRE
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1034, 475)
+        Me.ContextMenuStrip = Me.ctxMenuStripUebersicht
+        Me.Controls.Add(Me.SplitContainer1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmUebersichtRE"
+        Me.Text = "Übersicht"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ctxMenuStripUebersicht.ResumeLayout(False)
+        Me.ctxMenuTree.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel2.ResumeLayout(False)
+        Me.SplitContainer1.ResumeLayout(False)
+        CType(Me.TreeStruktur, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents TsBtnSuchArt As System.Windows.Forms.ToolStripDropDownButton
+    Friend WithEvents ApplikationSucheToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStriptxtSuche As System.Windows.Forms.ToolStripTextBox
+    Friend WithEvents TSBtnSuche As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnFilterAufheben As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnFirst As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnPrevious As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnNext As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnLast As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsbtnReadonly As System.Windows.Forms.ToolStripButton
+    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
+    Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+    Friend WithEvents ctxMenuTree As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents InEinemNeuenFensterÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents KnotenÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents KnotenSchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents NeuesElementToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ElementLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents ExportExcelToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ExportVorbereitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents Sync As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents NeueBeziehungErstellenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ctxMenuStripUebersicht As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents FensterGrösseSpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
+    Friend WithEvents TreeStruktur As DevComponents.AdvTree.AdvTree
+    Friend WithEvents Node1 As DevComponents.AdvTree.Node
+    Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
+    Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
+    Friend WithEvents AllgMainObjekte1 As _AllgMainObjekte.AllgMainObjekte
+    Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
+    Friend WithEvents ElementStyle2 As DevComponents.DotNetBar.ElementStyle
+End Class