Initial commit
This commit is contained in:
336
SW/AssessmentMgmt/frmMain.vb
Normal file
336
SW/AssessmentMgmt/frmMain.vb
Normal file
@@ -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
|
||||
Reference in New Issue
Block a user