59 lines
2.2 KiB
Plaintext
59 lines
2.2 KiB
Plaintext
Imports System.Data.SQLite
|
|
|
|
Public Class FrmReportauswahl
|
|
|
|
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.ToolStripMenuItem2_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub FrmReportauswahl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim allg As New clsAllgemein
|
|
Dim sql As String = allg.Get_SQLAbfrage_Statement(2)
|
|
Dim ds As New DataSet
|
|
Dim SQLconnect As New SQLite.SQLiteConnection()
|
|
SQLconnect.ConnectionString = My.Settings.LPConnectionString & ";"
|
|
SQLconnect.Open()
|
|
Dim da As New SQLiteDataAdapter("", SQLconnect)
|
|
Dim sqlcmd As New SQLiteCommand
|
|
sqlcmd.Connection = SQLconnect
|
|
sqlcmd.CommandType = CommandType.Text
|
|
sqlcmd.CommandText = sql
|
|
da.SelectCommand = sqlcmd
|
|
da.Fill(ds, "Daten")
|
|
sqlcmd.Dispose()
|
|
SQLconnect.Close()
|
|
Dim grpalt As Integer = 0
|
|
Dim tn As TreeNode
|
|
Me.TreeView1.Nodes.Clear()
|
|
For Each r As DataRow In ds.Tables(0).Rows
|
|
If grpalt <> r.Item("ReportGruppeNr") Then
|
|
grpalt = r.Item("ReportGruppeNr")
|
|
tn = New TreeNode
|
|
tn.Tag = r.Item("ReportGruppeNr") * -1
|
|
tn.Text = r.Item("ReportGruppeName")
|
|
tn.ImageIndex = 0
|
|
Me.TreeView1.Nodes.Add(tn)
|
|
End If
|
|
Dim tc As New TreeNode
|
|
tc.Tag = r.Item("ReportNr")
|
|
tc.Text = r.Item("ReportName")
|
|
tc.ImageIndex = 1
|
|
tn.Nodes.Add(tc)
|
|
Next
|
|
Me.TreeView1.ExpandAll()
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TreeView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.DoubleClick
|
|
If Me.TreeView1.SelectedNode.Tag > 0 Then
|
|
Dim f As New frmReportview(Me.TreeView1.SelectedNode.Tag, False, Me.TreeView1.SelectedNode.Text)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
End If
|
|
End Sub
|
|
End Class |