Initial commit
This commit is contained in:
281
BEA - Kopie/frmMain.vb
Normal file
281
BEA - Kopie/frmMain.vb
Normal file
@@ -0,0 +1,281 @@
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Public Class frmMain
|
||||
|
||||
#Region "Deklarationen"
|
||||
Dim ForceQuit As Boolean = False
|
||||
Dim txt As New Utils.MyMessage
|
||||
Dim sec As New Utils.MySecurity
|
||||
#End Region
|
||||
|
||||
Private Sub TSBtnVertragsuebersicht_Click(sender As System.Object, e As System.EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Laden des Formulars
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
|
||||
Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||||
If Not Init_System() Then
|
||||
Me.Close()
|
||||
Exit Sub
|
||||
End If
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Application.DoEvents()
|
||||
Try
|
||||
sec.Set_Form_Security(Me)
|
||||
Catch
|
||||
End Try
|
||||
Delete_Temp_Files()
|
||||
Me.Cursor = Cursors.Default
|
||||
Dim f As New frmUebersichtRE
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Löschen der Dateien im Temp-Verzeichnis
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Delete_Temp_Files()
|
||||
Dim s As String
|
||||
For Each s In System.IO.Directory.GetFiles(Globals.clsapplication.sTmp_filepath)
|
||||
Try
|
||||
System.IO.File.Delete(s)
|
||||
Catch
|
||||
End Try
|
||||
Next s
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' System-Initialosierung
|
||||
''' - Applikationsdaten auslesen
|
||||
''' - Aktueller Mitarbeiter auslesen bzw. Login-Dialog anzeigen
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Function Init_System() As Boolean
|
||||
' Dim dbconn As New TKB.VV.DB.DB_Connection
|
||||
' dbconn = Nothing
|
||||
Dim db As New DB.DB_Connection
|
||||
db = Nothing
|
||||
|
||||
Globals.clsapplication.iApplikationsnr = 1
|
||||
Globals.clsapplication.cpMainConnectionProvider = Globals.conn
|
||||
conn.OpenConnection()
|
||||
Globals.clsapplication.SelectOne()
|
||||
conn.CloseConnection(True)
|
||||
|
||||
Dim ob As New DB.clsObjekt
|
||||
Dim obb As New DB.clsObjektBeziehung
|
||||
|
||||
ob.cpMainConnectionProvider = Globals.conn
|
||||
obb.cpMainConnectionProvider = Globals.conn
|
||||
|
||||
Globals.Objekt = ob.SelectAll
|
||||
Globals.Objekt_Beziehung = obb.SelectAll
|
||||
ob.Dispose()
|
||||
obb.Dispose()
|
||||
|
||||
'Show Login, sofern der Applikationsparameter gesetzt ist
|
||||
If Globals.clsapplication.bShowlogin.Value = True Then
|
||||
If Not login() Then Return False
|
||||
Me.WindowState = FormWindowState.Maximized
|
||||
If Not Directory.Exists(Globals.clsapplication.sTmp_filepath) Then
|
||||
Directory.CreateDirectory(Globals.clsapplication.sTmp_filepath)
|
||||
End If
|
||||
Dim f As New frmSplash
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
Application.DoEvents()
|
||||
Return True
|
||||
Else
|
||||
'14.04.2009 - Menueintrag ausblenden, sofern das Loginfenster nicht angezeigt wird
|
||||
Me.NeuAnmeldenToolStripMenuItem.Visible = False
|
||||
Dim f As New frmSplash
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
Application.DoEvents()
|
||||
'Prüfung mittels TG-Nummer, ob der User berechtigt ist
|
||||
Dim tmp_mitarbeiter As New DB.MyMitarbeiter
|
||||
Dim tmp_mitarbeiterdata As New DataTable
|
||||
tmp_mitarbeiter.cpMainConnectionProvider = Globals.conn
|
||||
Globals.conn.OpenConnection()
|
||||
tmp_mitarbeiterdata = tmp_mitarbeiter.SelectWithTGNummer()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Application.DoEvents()
|
||||
If tmp_mitarbeiterdata.Rows.Count < 1 Then
|
||||
txt.show_standardmessage(2, MsgBoxStyle.Exclamation)
|
||||
Me.ForceQuit = True
|
||||
Return False
|
||||
Exit Function
|
||||
End If
|
||||
Globals.clsmitarbeiter.iMitarbeiternr = New SqlInt32(CType(tmp_mitarbeiterdata.Rows(0).Item("Mitarbeiternr"), Int32))
|
||||
Globals.clsmitarbeiter.cpMainConnectionProvider = Globals.conn
|
||||
conn.OpenConnection()
|
||||
Globals.clsmitarbeiter.SelectOne()
|
||||
Globals.conn.CloseConnection(True)
|
||||
tmp_mitarbeiter.Dispose()
|
||||
tmp_mitarbeiterdata.Dispose()
|
||||
Me.WindowState = FormWindowState.Maximized
|
||||
If Not Directory.Exists(Globals.clsapplication.sTmp_filepath) Then
|
||||
Directory.CreateDirectory(Globals.clsapplication.sTmp_filepath)
|
||||
End If
|
||||
Return True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Login-Fenster anzeigen und neuen User anmelden
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Function login() As Boolean
|
||||
Dim f As New frmLogin
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = Windows.Forms.DialogResult.OK Then
|
||||
Globals.clsmitarbeiter.iMitarbeiternr = f.Mitarbeiternr
|
||||
Globals.clsmitarbeiter.cpMainConnectionProvider = Globals.conn
|
||||
conn.OpenConnection()
|
||||
Globals.clsmitarbeiter.SelectOne()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub NeuAnmeldenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuAnmeldenToolStripMenuItem.Click
|
||||
login()
|
||||
sec.Set_Form_Security(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||
Me.BeendenToolStripMenuItem_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ThemenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÜbersichtToolStripMenuItem.Click
|
||||
Dim f As New frmUebersicht
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SystemAdministrationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SystemAdministrationToolStripMenuItem.Click
|
||||
Dim f As New frmSysadminMenu
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub ObjektListerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektListerToolStripMenuItem.Click
|
||||
If InputBox("Passwort:") <> "341211" Then Exit Sub
|
||||
Dim formselector As New frmFormSelector
|
||||
formselector.ListForms.Items.Clear()
|
||||
formselector.ListForms.Items.Add(Me.Name)
|
||||
For Each x As Form In Me.MdiChildren
|
||||
formselector.ListForms.Items.Add(x.Name)
|
||||
Next
|
||||
formselector.ShowDialog()
|
||||
If formselector.DialogResult = Windows.Forms.DialogResult.OK Then
|
||||
If formselector.ListForms.SelectedItem = Me.Name Then
|
||||
sec.List_Form_Controls(Me)
|
||||
sec.Print_Screen(Me)
|
||||
Exit Sub
|
||||
End If
|
||||
For Each x As Form In Me.MdiChildren
|
||||
If x.Name = formselector.ListForms.SelectedItem Then
|
||||
sec.List_Form_Controls(x)
|
||||
sec.Print_Screen(x)
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnMonitoring_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ÜberToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÜberToolStripMenuItem.Click
|
||||
Dim f As New frmAbout
|
||||
f.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub PersonalExcelVerarbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PersonalExcelVerarbeitenToolStripMenuItem.Click
|
||||
Dim imp As New clsExcelImport
|
||||
If imp.Import_Excel = True Then
|
||||
imp.Update_Data()
|
||||
Else
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub AuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswertungenToolStripMenuItem.Click
|
||||
Dim rpt As New _FRReporting._FRReporting
|
||||
rpt.ConnectionString = Globals.sConnectionString
|
||||
rpt.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
rpt.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
rpt.ReportSelect(Me)
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub KaskadierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KaskadierenToolStripMenuItem.Click
|
||||
Me.LayoutMdi(MdiLayout.Cascade)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VertikalTeilenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VertikalTeilenToolStripMenuItem.Click
|
||||
Me.LayoutMdi(MdiLayout.TileVertical)
|
||||
End Sub
|
||||
|
||||
Private Sub HorizontalTeilenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HorizontalTeilenToolStripMenuItem.Click
|
||||
Me.LayoutMdi(MdiLayout.TileHorizontal)
|
||||
End Sub
|
||||
|
||||
Private Sub TemporäreBerechtigungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TemporäreBerechtigungenToolStripMenuItem.Click
|
||||
Dim f As New frmTempBerechtigung
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub MassenMutationenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MassenMutationenToolStripMenuItem.Click
|
||||
Dim imp As New clsExcelImport
|
||||
If imp.Import_Excel = True Then
|
||||
imp.Update_MassenData()
|
||||
Else
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
|
||||
Dim f As New frmUebersichtRE
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
Exit Sub
|
||||
f.ToolStriptxtSuche.Text = "Eintritte"
|
||||
f.TSBtnSuche_Click(sender, e)
|
||||
f.TreeStruktur.SelectedNode.ExpandAll()
|
||||
|
||||
Dim f1 As New frmUebersichtRE
|
||||
f1.MdiParent = Me
|
||||
f1.Show()
|
||||
f1.ToolStriptxtSuche.Text = "Eintritte"
|
||||
f1.TSBtnSuche_Click(sender, e)
|
||||
f1.TreeStruktur.SelectedNode.ExpandAll()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user