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


    ''' <summary>
    ''' Laden des Formulars
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    ''' 
    Private Sub ParseCommandLineArgs()
        Dim inputArgument As String = "pnr="
        Dim inputName As String = ""

        For Each s As String In My.Application.CommandLineArgs
            If s.ToLower.StartsWith(inputArgument) Then
                inputName = s.Remove(0, inputArgument.Length)
            End If
        Next

        If inputName = "" Then

        Else
            'MsgBox("Input name: " & inputName)
        End If
    End Sub


    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Try
        '    Dim arguments As String() = Environment.GetCommandLineArgs()
        '    MsgBox(arguments.Count.ToString)
        'Catch ex As Exception
        '    MsgBox(ex.Message)
        'End Try

        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
        Load_ImageList("GueltigImages", Globals.GueltigImages)
        Load_ImageList("StatusImages", Globals.StatusImages)
        '        Globals.GueltigImages = Me.ImageList1
        PrüfschrittToolStripMenuItem_Click(sender, e)
        ParseCommandLineArgs()

    End Sub


    Sub Load_ImageList(ByVal Ort As String, ByRef Imagel As ImageList)
        Imagel.Images.Clear()
        Dim strFileSize As String = ""
        Dim di As New IO.DirectoryInfo(Globals.ApplicationPath + Ort)
        Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
        Dim fi As IO.FileInfo
        For Each fi In aryFi
            Dim ImportedImage As Image = Image.FromFile(fi.FullName)
            Imagel.Images.Add(ImportedImage)
        Next
    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 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 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 VorgabenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorgabenToolStripMenuItem.Click
        Dim f As New frmVorgabe
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub PrüfschritteToolStripMenuItem_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub PrüfplanToolStripMenuItem1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub PrüfschritteToolStripMenuItem1_Click(sender As Object, e As EventArgs)

    End Sub


    Private Sub PrüfschrittToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrüfschrittToolStripMenuItem.Click
        Try
            Me.Cursor = Cursors.WaitCursor
            Application.DoEvents()

            Dim f As New frmPruefschrittUebersicht
            f.MdiParent = Me
            f.Show()
        Catch ex As Exception
        Finally
            Me.Cursor = Cursors.Default
            Application.DoEvents()


        End Try
    End Sub

    Private Sub MassnahmenPlanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MassnahmenPlanToolStripMenuItem.Click
        Dim f As New frmMassnahmeplan
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub PrüfplanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrüfplanToolStripMenuItem.Click
        Dim f As New frmPPlan
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub MassnahmenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MassnahmenToolStripMenuItem.Click
        Dim f As New frmMassnahmenuebersicht
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub TSBtnPruefschritt_Click(sender As Object, e As EventArgs) Handles TSBtnPruefschritt.Click
        PrüfschrittToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub TSBtnMonitoring_Click(sender As Object, e As EventArgs) Handles TSBtnAssessmentuebersicht.Click
        AssessmentsIsiToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub AssessmentsIsiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AssessmentsIsiToolStripMenuItem.Click
        Try
            Me.Cursor = Cursors.WaitCursor
            Application.DoEvents()
            Dim f As New frmISI
            f.MdiParent = Me
            f.Show()
        Catch ex As Exception
        Finally
            Me.Cursor = Cursors.Default
            Application.DoEvents()
        End Try
    End Sub

    Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

    Private Sub DemoAssessmentGenerierungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DemoAssessmentGenerierungToolStripMenuItem.Click
        Dim f As New Demo_Assessmentgenerierung
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub ErinnerungsmailsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErinnerungsmailsToolStripMenuItem.Click
        Dim f As New frmMailInfo
        f.MdiParent = Me
        f.Show()
    End Sub

    Private Sub DemoMailGenerierungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DemoMailGenerierungToolStripMenuItem.Click
        Dim f As New Demo_Mailgenerierung
        f.mdiparent = Me
        f.show
    End Sub
End Class