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
            tc.StateImageIndex = 1
            tc.SelectedImageIndex = 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

    Private Sub TreeView1_AfterSelect(sender As System.Object, e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

    End Sub
End Class