Initial commit

.svn/pristine/f9/f92643d6c7e9cca46437c6c519c9a927a3d4d5b3.svn-base

@@ -0,0 +1,336 @@
+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

.svn/pristine/f9/f96d360468f2ed250e9ce621fa79714a53bfb371.svn-base

@@ -0,0 +1,50 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmFormSelector
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormSelector))
+        Me.ListForms = New System.Windows.Forms.ListBox
+        Me.SuspendLayout()
+        '
+        'ListForms
+        '
+        Me.ListForms.FormattingEnabled = True
+        Me.ListForms.Location = New System.Drawing.Point(28, 36)
+        Me.ListForms.Name = "ListForms"
+        Me.ListForms.Size = New System.Drawing.Size(259, 199)
+        Me.ListForms.TabIndex = 0
+        '
+        'frmFormSelector
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(315, 322)
+        Me.Controls.Add(Me.ListForms)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmFormSelector"
+        Me.Text = "Form-Selector"
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents ListForms As System.Windows.Forms.ListBox
+End Class