113 lines
4.9 KiB
Plaintext
113 lines
4.9 KiB
Plaintext
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
|