338 lines
14 KiB
Plaintext
338 lines
14 KiB
Plaintext
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
|