You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
93 lines
3.3 KiB
93 lines
3.3 KiB
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 frmUebersicht(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 |