BEA/BEA - Kopie/frmMain.vb

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