Imports FastReport
Imports System.Data.SQLite

Public Class FrmDomainEditor
    Dim DataAdapter As Object
    Dim Datatable As Object
    Dim MySpalten As New Utils.Tabellenspalte

    Dim dt As New DataTable

    Sub New(ByRef sDataadapter As Object, ByRef sDataTable As Object, ByVal Titel As String)

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
        Me.Datatable = sDataTable
        Me.DataAdapter = sDataadapter
        Me.Text = Titel
        If Titel = "Report" Then
            Me.ContextMenuStrip = Me.ctxMenuReport
        End If

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub FrmDomainEditor_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            dt = Datatable.GetChanges
            If dt.Rows.Count > 0 Then
                If MsgBox("Daten wurden geändert. Wollen Sie Änderungen speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                    Me.DataAdapter.Update(Me.Datatable)
                End If
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub FrmDomainEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataAdapter.Fill(Datatable)
        Me.C1Daten.DataSource = Datatable
        Me.C1Daten.DataMember = Datatable.TableName
        MySpalten.Spaltentitel_aktualisieren(Me.C1Daten, Datatable.TableName, Datatable)

    End Sub

    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
        Me.DataAdapter.Update(Me.Datatable)
        If Me.Text = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
    End Sub
    Private Sub C1Daten_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Daten.AfterColUpdate
        'Aktualisieren von Mutierer und Mutiert_am

        Dim i As Integer
        Try
            For i = 0 To Me.C1Daten.Columns.Count - 1
                If LCase(Me.C1Daten.Columns(i).DataField) = "mutiert_am" Then Me.C1Daten.Columns(i).Value = Now
                If LCase(Me.C1Daten.Columns(i).DataField) = "mutierer" Then Me.C1Daten.Columns(i).Value = 1
            Next
            Dim key As Integer

            If Me.C1Daten.Columns(0).Value Is DBNull.Value Then
                Dim dv As New DataView(Datatable, "", Datatable.columns(0).Caption + " desc", DataViewRowState.CurrentRows)
                If dv.Count < 1 Then
                    Me.C1Daten.Columns(0).Value = 1
                Else
                    For Each dr As DataRowView In dv
                        key = dr.Item(0) + 1
                        Me.C1Daten.Columns(0).Value = key
                        'MsgBox(dr.Item(0))
                        Exit For
                    Next
                End If

                For i = 0 To Me.C1Daten.Columns.Count - 1
                    If LCase(Me.C1Daten.Columns(i).DataField) = "erstellt_am" Then
                        Me.C1Daten.Columns(i).Value = Now
                    End If
                    If LCase(Me.C1Daten.Columns(i).DataField) = "aktiv" Then
                        Me.C1Daten.Columns(i).Value = 1
                    End If
                Next
            End If
        Catch ex As Exception
        End Try

    End Sub

    Private Sub ReportDatenbankToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportDatenbankToolStripMenuItem.Click
        Me.OpenFileDialog1.Filter = "Report-Dateien|*.frx|Alle Dateien|*.*"
        Me.OpenFileDialog1.ShowDialog()
        If Me.OpenFileDialog1.FileName <> "" Then
            Dim dms As New DocMgMt
            dms.Save_RptDatei(Me.C1Daten.Columns("ReportNr").Value, Me.OpenFileDialog1.FileName)
            dms = Nothing
        End If
    End Sub

    Private Sub DatenbankReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatenbankReportToolStripMenuItem.Click
        Me.SaveFileDialog1.Filter = "Report-Dateien|*.frx|Alle Dateien|*.*"
        Me.SaveFileDialog1.ShowDialog()
        If Me.SaveFileDialog1.FileName <> "" Then
            Dim dms As New DocMgMt

            dms.Get_RptDatei(Me.C1Daten.Columns("ReportNr").Value, Me.SaveFileDialog1.FileName)
            dms = Nothing
        End If

    End Sub

    Private Sub ReportDesignerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportDesignerToolStripMenuItem.Click
        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.C1Daten.Columns("ReportNr").Value)
        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.C1Daten.Columns("ReportNr").Value)
        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()
        Dim report As New Report
        If filename <> "" Then report.Load(filename)
        report.RegisterData(ds)
        report.GetDataSource("Daten").Enabled = True
        report.Design()
        report.Dispose()
    End Sub
End Class