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
2.8 KiB
93 lines
2.8 KiB
|
|
Public Class frmPrivatSelect
|
|
Dim intNr As Integer
|
|
|
|
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
|
|
Try
|
|
intNr = Me.TreeView1.SelectedNode.Tag
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TreeView1_DoubleClick(sender As Object, e As EventArgs) Handles TreeView1.DoubleClick
|
|
Try
|
|
intNr = Me.TreeView1.SelectedNode.Tag
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Try
|
|
intNr = Me.TreeView1.SelectedNode.Tag
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Me.DialogResult = DialogResult.Abort
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TreeView1_KeyDown(sender As Object, e As KeyEventArgs) Handles TreeView1.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
TreeView1_DoubleClick(sender, e)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmPrivatSelect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Public Sub txtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtsuche.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
suchen
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub Suchen()
|
|
Dim db As New clsDB
|
|
Dim s As String = ""
|
|
If RadioButton1.Checked = True Then
|
|
s = db.Get_SQL(38)
|
|
Else
|
|
s = db.Get_SQL(39)
|
|
End If
|
|
If s Is Nothing Then
|
|
db.Get_Tabledata("privat", " where name like '%" + Me.txtsuche.Text + "%'" + " order by name, vorname, ort")
|
|
Else
|
|
db.Get_Tabledata("privat", "", s + " order by name, vorname, ort", Me.txtsuche.Text)
|
|
|
|
End If
|
|
Me.TreeView1.Nodes.Clear()
|
|
|
|
For Each r As DataRow In db.dsDaten.Tables(0).Rows
|
|
Dim tn As New TreeNode
|
|
tn.Text = r("nrprivat").ToString + " " + r("Name") + " " + r("vorname") + ", " + r("PLZ") + " " + r("ort")
|
|
tn.Tag = r("nrprivat")
|
|
Me.TreeView1.Nodes.Add(tn)
|
|
Next
|
|
Try
|
|
Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
|
|
Catch
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
|
|
If RadioButton1.Checked Then Suchen()
|
|
Suchen()
|
|
End Sub
|
|
|
|
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
|
|
If RadioButton2.Checked Then Suchen()
|
|
End Sub
|
|
End Class |