Themenmanagement/.svn/pristine/ae/ae7ba8e04d13c702916f6d65cfe9d17a3d5fec31.svn-base

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) Handles TSBtnVertragsuebersicht.Click
        Dim f As New frmThemenübersicht
        f.MdiParent = Me
        f.Show()
    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
    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

        Globals.clsapplication.iApplikationsnr = 1
        Globals.clsapplication.cpMainConnectionProvider = Globals.conn
        conn.OpenConnection()
        Globals.clsapplication.SelectOne()
        conn.CloseConnection(True)

        '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 ThemenToolStripMenuItem.Click
        Dim f As New frmThemenübersicht
        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) Handles TSBtnMonitoring.Click
        Dim f As New frmDetail
        f.MdiParent = Me
        f.Show()
    End Sub
End Class