Public Class Form1

    Dim databases As New Collection
    Dim allg As New clsAllgemein

    Private Sub FirmenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FirmenToolStripMenuItem.Click
        Dim f As New frmFirma
        f.MdiParent = Me
        f.Show()
    End Sub


    Private Sub KlasseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ZeittabelleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub SchülerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchülerToolStripMenuItem.Click
        Dim f As New frmSchueler
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub KeyTabelleToolStripMenuItem2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeyTabelleToolStripMenuItem2.Click
        Dim Dataadapter As New LPDataSetTableAdapters.key_tabelleTableAdapter
        Dim Daten As New LPDataSet.key_tabelleDataTable
        Dim f As New FrmDomainEditor(Dataadapter, Daten, "Key_Tabelle")
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub SpaltenToolStripMenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpaltenToolStripMenuItem1.Click
        Dim Dataadapter As New LPDataSetTableAdapters.spaltenTableAdapter
        Dim Daten As New LPDataSet.spaltenDataTable
        Dim f As New FrmDomainEditor(Dataadapter, Daten, "Spalten")
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub SpaltentitelGenerierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpaltentitelGenerierenToolStripMenuItem.Click
        Dim f As New FrmSpaltenTitel
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub KeytabelleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub AuswertungenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AuswertungenToolStripMenuItem.Click
        Dim Dataadapter As New LPDataSetTableAdapters.ReportTableAdapter
        Dim Daten As New LPDataSet.ReportDataTable
        Dim f As New FrmDomainEditor(Dataadapter, Daten, "Report")
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub OptionenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionenToolStripMenuItem.Click
        Dim Dataadapter As New LPDataSetTableAdapters.OptionenTableAdapter
        Dim Daten As New LPDataSet.OptionenDataTable
        Dim f As New FrmDomainEditor(Dataadapter, Daten, "Optionen")
        f.MdiParent = Me
        f.Show()

    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 SQLScriptsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SQLScriptsToolStripMenuItem.Click
        Dim dataadapter As New LPDataSetTableAdapters.SQLAbfragenTableAdapter
        Dim daten As New LPDataSet.SQLAbfragenDataTable
        Dim f As New FrmDomainEditor(dataadapter, daten, "SQLAbfrage")
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub AuswertungenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AuswertungenToolStripMenuItem1.Click
        Dim f As New FrmReportauswahl
        f.MdiParent = Me
        f.Show()

    End Sub

    Private Sub AuswertungsGruppenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AuswertungsGruppenToolStripMenuItem.Click
        Dim dataadapter As New LPDataSetTableAdapters.ReportGruppeTableAdapter
        Dim daten As New LPDataSet.ReportGruppeDataTable
        Dim f As New FrmDomainEditor(dataadapter, daten, "ReportGruppe")
        f.MdiParent = Me
        f.Show()

    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 ZuteilungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZuteilungToolStripMenuItem.Click
        
    End Sub

    Private Sub AutomatischeZuteilungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutomatischeZuteilungToolStripMenuItem.Click
        Dim f As New FrmZuteilung
        f.ShowDialog()
    End Sub

    Private Sub ÜbersichtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜbersichtToolStripMenuItem.Click
        Dim f As New frmZuteilungUebersicht
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub DatenbankÖffnenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
        FirmenToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click
        SchülerToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub ToolStripButton3_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton3.Click
        AuswertungenToolStripMenuItem1_Click(sender, e)
    End Sub


    Private Sub DatenbankToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DatenbankToolStripMenuItem.Click

    End Sub

    Private Sub KomprimierenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles KomprimierenToolStripMenuItem.Click
        Dim cd As New clsdbtools
        cd.Compress_Database()
    End Sub

    Private Sub ÖffnenoolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
        Me.OpenFileDialog1.FileName = ""
        Me.OpenFileDialog1.DefaultExt = "*.db"
        Me.OpenFileDialog1.Filter = "SQLite-Datenbanken (*.db)|*.db|Alle Dateien (*.*)|*.*"
        Me.OpenFileDialog1.ShowDialog()
        Dim found As Boolean = False
        If Me.OpenFileDialog1.FileName <> "" Then
            For i = 1 To databases.Count
                If OpenFileDialog1.FileName = databases(i) Then
                    found = True
                    set_database(Me.OpenFileDialog1.FileName)
                    Exit Sub
                End If
            Next
            set_database(Me.OpenFileDialog1.FileName)
            databases.Add(Me.OpenFileDialog1.FileName)
            save_databases()
        End If
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'If Not System.IO.File.Exists(Globals.ApplicationPath + "licence.xml") Then
        '    Dim f As New FrmLic
        '    f.ShowDialog()
        '    If f.DialogResult = Windows.Forms.DialogResult.OK Then
        '        ActivationProvider.CreateLicenceFile(f.TextBox1.Text, f.txtSerial.Text, f.TextBox2.Text, Now)
        '    End If
        'End If
        'If ActivationProvider.CheckLicenceFile = False Then
        '    MsgBox("Sie sind nicht befugt, diese Applikation zu verwenden.")
        '    Application.Exit()
        'End If

        ''ActivationProvider.CreateLicenceFile("Stefan Hutter", "1234", "5678", Now)
       set_db()
        Dim Version As String = allg.Get_Option(0)
        If My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString <> Version Then
            MsgBox("Die Datenbank-Version '" + Version + "' stimmt nicht mit der aktuellen Programmversion '" + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "' überein.", MsgBoxStyle.Critical)

        End If
    End Sub


    Private Sub set_db()
        FileOpen(1, Globals.ApplicationPath + "Databases.txt", OpenMode.Input)
        Dim i As Integer = 0
        Dim evh As EventHandler = AddressOf Clicked
        Dim s As String
        While Not EOF(1)
            i = i + 1
            Input(1, s)
            If i = 1 Then
                If Not System.IO.File.Exists(s) Then
                    MsgBox("Zuletzt geöffnete Datenbank konnte nicht gefunden werden. Bitte Datenbank manuell öffnen.", MsgBoxStyle.Critical)
                Else
                    set_database(s)
                End If
            End If
            Me.databases.Add(s)
            Me.ZuletztGeöffneteDatenbankenToolStripMenuItem.DropDownItems.Add(s)
        End While
        FileClose(1)
        For i = 0 To Me.ZuletztGeöffneteDatenbankenToolStripMenuItem.DropDownItems.Count - 1
            AddHandler ZuletztGeöffneteDatenbankenToolStripMenuItem.DropDownItems(i).Click, evh
        Next

    End Sub

    Private Sub clicked(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim s As String = Globals.Datenbank
        Try
            set_database(sender.text)
        Catch ex As Exception
            MsgBox("Datenbank konnte nicht geöffnet werden.")
            set_database(s)
        End Try

    End Sub
    Private Sub set_database(ByVal db As String)
        Globals.Datenbank = "data source=" + db & ";"
        My.Settings.Item("LPConnectionstring") = Globals.Datenbank
        Me.Text = "Gewerbe Bülach - Lehrlingsparcours - " + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + " (" + Globals.Datenbank + ")"
    End Sub

    Private Sub save_databases()
        FileOpen(1, Globals.ApplicationPath + "Databases.txt", OpenMode.Output)
        If databases.Count < 5 Then
            Dim i As Integer
            For i = databases.Count To 1 Step -1
                WriteLine(1, databases(i))
            Next
        Else
            WriteLine(1, databases(5))
            WriteLine(1, databases(1))
            WriteLine(1, databases(2))
            WriteLine(1, databases(3))
        End If
        FileClose(1)
    End Sub

    Private Sub NeuToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NeuToolStripMenuItem.Click
        Dim f As New frmNeu
        f.ShowDialog()
        If f.CreatedDB <> "" Then
            Dim found As Boolean = False
            If f.CreatedDB <> "" Then
                For i = 1 To databases.Count
                    If f.CreatedDB = databases(i) Then
                        found = True
                        set_database(f.CreatedDB)
                        MsgBox("Die Datenbank wurde erstellt. Bitte die Optionen anpassen.")
                        OptionenToolStripMenuItem_Click(sender, e)
                        Exit Sub
                    End If
                Next
                set_database(f.CreatedDB)
                databases.Add(f.CreatedDB)
                save_databases()
                MsgBox("Die Datenbank wurde erstellt. Bitte die Optionen anpassen.")
                OptionenToolStripMenuItem_Click(sender, e)
            End If
        End If
    End Sub

    Private Sub ZuletztGeöffneteDatenbankenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ZuletztGeöffneteDatenbankenToolStripMenuItem.Click

    End Sub

    Private Sub BerufeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BerufeToolStripMenuItem.Click
        Dim Dataadapter As New LPDataSetTableAdapters.BerufTableAdapter
        Dim Daten As New LPDataSet.BerufDataTable
        Dim f As New FrmDomainEditor(Dataadapter, Daten, "Beruf")
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub KlassenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles KlassenToolStripMenuItem.Click
        Dim dataadapter As New LPDataSetTableAdapters.KlasseTableAdapter
        Dim daten As New LPDataSet.KlasseDataTable
        Dim f As New FrmDomainEditor(dataadapter, daten, "Klasse")
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ZeittabelleToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ZeittabelleToolStripMenuItem1.Click
        Dim Dataadapter As New LPDataSetTableAdapters.ZeitenTableAdapter
        Dim Daten As New LPDataSet.ZeitenDataTable
        Dim f As New FrmDomainEditor(Dataadapter, Daten, "Zeiten")
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub KonfigurationToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
        Dim f As New frmMain
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TextInhaltSchüleranmeldungToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TextInhaltSchüleranmeldungToolStripMenuItem.Click
        Dim f As New frmMain
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ÜberToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
        Dim f As New frmAbout
        f.ShowDialog()
       
    End Sub

    Private Sub HilfeToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles HilfeToolStripMenuItem1.Click
        Process.Start(Globals.ApplicationPath + "LP.chm")
    End Sub

    Private Sub SchulhausToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SchulhausToolStripMenuItem.Click
        Dim dataadapter As New LPDataSetTableAdapters.SchulhausTableAdapter
        Dim daten As New LPDataSet.SchulhausDataTable
        Dim f As New FrmDomainEditor(dataadapter, daten, "Schulhaus")
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub PDFManualToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PDFManualToolStripMenuItem.Click
        Process.Start(Globals.ApplicationPath + "lp.pdf")
    End Sub

    Private Sub DatenVonAndererDatenbankKopierenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DatenVonAndererDatenbankKopierenToolStripMenuItem.Click
        Dim f As New frmdbcopy
        f.MdiParent = Me
        f.Show()
    End Sub

    
End Class