Initial commit

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