Public Class Form1

    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) Handles KlasseToolStripMenuItem.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 ZeittabelleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZeittabelleToolStripMenuItem.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 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.Datenbank = My.Settings.LPConnectionString
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub KeytabelleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeytabelleToolStripMenuItem.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 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
End Class