Imports System.Data.SQLite
Imports FastReport
Imports FastReport.Data
Imports FastReport.Preview
Imports FastReport.Utils
Imports System.Data
Imports System.vs


Public Class frmReportview

    Dim freport As New Report
    Dim ReportNr As Integer
    Dim Design As Boolean
    Sub New()
        InitializeComponent()
    End Sub

    Sub New(ByVal Reportnr As Integer, ByVal design As Boolean, ByVal Titel As String)
        InitializeComponent()
        Me.ReportNr = Reportnr
        Me.Design = design
        Me.Text = "Auswertung " + Titel
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim allg As New clsAllgemein
        Dim dms As New DocMgMt
        Dim Path As String = allg.Get_Option(1)

        Dim sql As String = allg.Get_SQL_Statement(Me.ReportNr)
        If sql.Substring(0, 1) = "[" Then
            sql = sql.Replace("[", "")
            sql = sql.Replace("]", "")
            sql = allg.Get_SQLAbfrage_Statement(sql)
        End If

        Dim filename As String = dms.Get_RptDatei(Me.ReportNr)
        Dim selectFirst As Boolean = False
        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()
        Me.freport.Preview = Me.previewControl1
        freport.Load(filename)
        freport.RegisterData(ds)
        freport.GetDataSource("Daten").Enabled = True
        freport.Show()
    End Sub
End Class