You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
708 lines
29 KiB
708 lines
29 KiB
Imports System.IO
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports QueryBuilder
|
|
''' <summary>
|
|
''' Hauptformular der Vertragsverwaltung als MDI-Container
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public Class frmMain
|
|
|
|
#Region "Deklarationen"
|
|
Dim ForceQuit As Boolean = False
|
|
Dim txt As New TKB.VV.Utils.MyMessage
|
|
Dim sec As New TKB.VV.Utils.MySecurity
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Beim schliessen des Formulars wird der User gefragt, ob die Applikation
|
|
''' geschlossen werden soll.
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
If Me.ForceQuit Then Exit Sub
|
|
|
|
'If txt.Show_MessageYesNo(1) <> MsgBoxResult.Yes Then e.Cancel = True
|
|
End Sub
|
|
''' <summary>
|
|
''' Laden des Formulars
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
|
|
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
'Globals.TTContextMenuStrip.Items.Add("Gaga")
|
|
If Not Init_System() Then
|
|
Me.Close()
|
|
Exit Sub
|
|
End If
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Application.DoEvents()
|
|
sec.Set_Form_Security(Me)
|
|
StartWindows(sender, e)
|
|
Delete_Temp_Files()
|
|
Me.Cursor = Cursors.Default
|
|
|
|
'Dim f As New frmLifeCycle
|
|
'f.MdiParent = Me
|
|
'f.Show()
|
|
|
|
'Dim f1 As New frmLifeCiclyReporting
|
|
'f1.MdiParent = Me
|
|
'f1.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
|
|
Dim xtop As String
|
|
Dim xleft As String
|
|
Dim xwidth As String
|
|
Dim xheight As String
|
|
Dim setpos As Boolean = False
|
|
Private Sub Start_Window(ByVal windownr As Integer, ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal positionstring As String)
|
|
Dim s As String()
|
|
Dim s1 As String()
|
|
Dim s3 As String()
|
|
s = positionstring.Split(":")
|
|
Select Case windownr
|
|
Case 1
|
|
For Each s2 As String In s
|
|
If InStr(s2, "frmVertragsuebersicht") > 0 Then
|
|
s3 = s2.Split(";")
|
|
xtop = s3(1)
|
|
xleft = s3(2)
|
|
xwidth = s3(3)
|
|
xheight = s3(4)
|
|
setpos = True
|
|
End If
|
|
Next
|
|
VertragsübersichtToolStripMenuItem_Click(sender, e)
|
|
setpos = False
|
|
Case 2
|
|
For Each s2 As String In s
|
|
If InStr(s2, "FrmAktivitaetenListe") > 0 Then
|
|
s3 = s2.Split(";")
|
|
xtop = s3(1)
|
|
xleft = s3(2)
|
|
xwidth = s3(3)
|
|
xheight = s3(4)
|
|
setpos = True
|
|
End If
|
|
Next
|
|
Me.AktivitätenToolStripMenuItem_Click(sender, e)
|
|
setpos = False
|
|
Case 3
|
|
For Each s2 As String In s
|
|
If InStr(s2, "frmPendenzübersicht") > 0 Then
|
|
s3 = s2.Split(";")
|
|
xtop = s3(1)
|
|
xleft = s3(2)
|
|
xwidth = s3(3)
|
|
xheight = s3(4)
|
|
setpos = True
|
|
End If
|
|
Next
|
|
Me.PendenzenToolStripMenuItem_Click(sender, e)
|
|
setpos = False
|
|
Case 4
|
|
For Each s2 As String In s
|
|
If InStr(s2, "frmApplikation") > 0 Then
|
|
s3 = s2.Split(";")
|
|
xtop = s3(1)
|
|
xleft = s3(2)
|
|
xwidth = s3(3)
|
|
xheight = s3(4)
|
|
setpos = True
|
|
End If
|
|
Next
|
|
Me.ApplikationToolStripMenuItem_Click(sender, e)
|
|
setpos = False
|
|
Case 5
|
|
For Each s2 As String In s
|
|
If InStr(s2, "FrmReportSelect") > 0 Then
|
|
s3 = s2.Split(";")
|
|
xtop = s3(1)
|
|
xleft = s3(2)
|
|
xwidth = s3(3)
|
|
xheight = s3(4)
|
|
setpos = True
|
|
End If
|
|
Next
|
|
Me.ReportingToolStripMenuItem_Click(sender, e)
|
|
setpos = False
|
|
Case 6
|
|
For Each s2 As String In s
|
|
If InStr(s2, "frmLizenzverwaltung") > 0 Then
|
|
s3 = s2.Split(";")
|
|
xtop = s3(1)
|
|
xleft = s3(2)
|
|
xwidth = s3(3)
|
|
xheight = s3(4)
|
|
setpos = True
|
|
End If
|
|
Next
|
|
|
|
Me.LizenzmanagementToolStripMenuItem1_Click(sender, e)
|
|
setpos = False
|
|
End Select
|
|
|
|
Application.DoEvents()
|
|
|
|
End Sub
|
|
Public Sub StartWindows(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim mae As New TKB.VV.DB.clsMitarbeitereinstellung
|
|
Dim dat As New DataTable
|
|
mae.cpMainConnectionProvider = Globals.conn
|
|
mae.iMitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
dat = mae.SelectAllWMitarbeiternrLogic
|
|
If dat.Rows.Count > 0 Then
|
|
|
|
mae.iMitarbeitereinstellungnr = New SqlInt32(CType(dat.Rows(0).Item(0), Int32))
|
|
mae.SelectOne()
|
|
Application.DoEvents()
|
|
If (mae.iWPos1.ToString = "0" Or mae.iWPos1.ToString = "6") And mae.bVertragsuebersicht.Value = True Then Start_Window(1, sender, e, mae.sWParam1.Value)
|
|
If (mae.iWPos2.ToString = "0" Or mae.iWPos2.ToString = "6") And mae.bAktivitaeten.Value = True Then Start_Window(2, sender, e, mae.sWParam1.Value)
|
|
If (mae.iWPos3.ToString = "0" Or mae.iWPos3.ToString = "6") And mae.bPendenzen.Value = True Then Start_Window(3, sender, e, mae.sWParam1.Value)
|
|
If (mae.iWPos4.ToString = "0" Or mae.iWPos4.ToString = "6") And mae.bApplikationsuebersicht.Value = True Then Start_Window(4, sender, e, mae.sWParam1.Value)
|
|
If (mae.iWPos5.ToString = "0" Or mae.iWPos5.ToString = "6") And mae.bReporting.Value = True Then Start_Window(5, sender, e, mae.sWParam1.Value)
|
|
If (mae.iWPos6.ToString = "0" Or mae.iWPos6.ToString = "6") And mae.bLizenzmanagement.Value = True Then Start_Window(6, sender, e, mae.sWParam1.Value)
|
|
|
|
If mae.iWPos1.ToString = "5" And mae.bVertragsuebersicht.Value = True Then Start_Window(1, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos2.ToString = "5" And mae.bAktivitaeten.Value = True Then Start_Window(2, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos3.ToString = "5" And mae.bPendenzen.Value = True Then Start_Window(3, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos4.ToString = "5" And mae.bApplikationsuebersicht.Value = True Then Start_Window(4, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos5.ToString = "5" And mae.bReporting.Value = True Then Start_Window(5, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos6.ToString = "5" And mae.bLizenzmanagement.Value = True Then Start_Window(6, sender, e, mae.sWParam1.Value)
|
|
|
|
If mae.iWPos1.ToString = "4" And mae.bVertragsuebersicht.Value = True Then Start_Window(1, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos2.ToString = "4" And mae.bAktivitaeten.Value = True Then Start_Window(2, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos3.ToString = "4" And mae.bPendenzen.Value = True Then Start_Window(3, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos4.ToString = "4" And mae.bApplikationsuebersicht.Value = True Then Start_Window(4, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos5.ToString = "4" And mae.bReporting.Value = True Then Start_Window(5, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos6.ToString = "4" And mae.bLizenzmanagement.Value = True Then Start_Window(6, sender, e, mae.sWParam1.Value)
|
|
|
|
If mae.iWPos1.ToString = "3" And mae.bVertragsuebersicht.Value = True Then Start_Window(1, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos2.ToString = "3" And mae.bAktivitaeten.Value = True Then Start_Window(2, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos3.ToString = "3" And mae.bPendenzen.Value = True Then Start_Window(3, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos4.ToString = "3" And mae.bApplikationsuebersicht.Value = True Then Start_Window(4, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos5.ToString = "3" And mae.bReporting.Value = True Then Start_Window(5, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos6.ToString = "3" And mae.bLizenzmanagement.Value = True Then Start_Window(6, sender, e, mae.sWParam1.Value)
|
|
|
|
If mae.iWPos1.ToString = "2" And mae.bVertragsuebersicht.Value = True Then Start_Window(1, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos2.ToString = "2" And mae.bAktivitaeten.Value = True Then Start_Window(2, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos3.ToString = "2" And mae.bPendenzen.Value = True Then Start_Window(3, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos4.ToString = "2" And mae.bApplikationsuebersicht.Value = True Then Start_Window(4, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos5.ToString = "2" And mae.bReporting.Value = True Then Start_Window(5, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos6.ToString = "2" And mae.bLizenzmanagement.Value = True Then Start_Window(6, sender, e, mae.sWParam1.Value)
|
|
|
|
If mae.iWPos1.ToString = "1" And mae.bVertragsuebersicht.Value = True Then Start_Window(1, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos2.ToString = "1" And mae.bAktivitaeten.Value = True Then Start_Window(2, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos3.ToString = "1" And mae.bPendenzen.Value = True Then Start_Window(3, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos4.ToString = "1" And mae.bApplikationsuebersicht.Value = True Then Start_Window(4, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos5.ToString = "1" And mae.bReporting.Value = True Then Start_Window(5, sender, e, mae.sWParam1.Value)
|
|
If mae.iWPos6.ToString = "1" And mae.bLizenzmanagement.Value = True Then Start_Window(6, sender, e, mae.sWParam1.Value)
|
|
|
|
End If
|
|
|
|
|
|
mae.Dispose()
|
|
dat.Dispose()
|
|
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 TKB.VV.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>
|
|
''' Quit-Button
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
|
|
''' <summary>in
|
|
''' Menu Beenden betätigt
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
TSBtnQuit_Click(sender, e)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Zeigt eine Liste sämtlicher offener MDI-Formulare an. Nach Auswahl wird für das selektierte Formular die Security-Objekt-Tabelle generier
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MySecurity"></seealso>
|
|
Private Sub ObjectListerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObjectListerToolStripMenuItem.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
|
|
''' <summary>
|
|
''' Aufrunf der Funktion für die Verwaltung der Zeiteinheittypen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub SLAZeiteinheitenVerwaltenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim f As New frmDomainEditor("Zeiteinheittyp")
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
''' <summary>
|
|
''' Aufruf der Funktion für die Verwaltung der SLA-Typen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub SLAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim f As New frmDomainEditor("SLATyp")
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
'Aufrunf der Funktion für die SLA-Katalogverwaltung
|
|
Private Sub SLAKatalogVerwaltenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim f As New frmSLAKatalog
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub ServicekatalogVerwaltenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim f As New frmServicekatalog
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub NeuAnmeldenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuAnmeldenToolStripMenuItem.Click
|
|
Login()
|
|
sec.Set_Form_Security(Me)
|
|
End Sub
|
|
''' <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
|
|
Me.ToolStripUser.Text = "U:" & Globals.clsmitarbeiter.sTgnummer.Value
|
|
Me.ToolStripDatabase.Text = "DB:" & Globals.conn.scoDBConnection.DataSource.ToString + "." + Globals.conn.scoDBConnection.Database.ToString
|
|
Return True
|
|
|
|
End Function
|
|
''' <summary>
|
|
''' Vertragspartner anzeigen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub VertragspartnerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertragspartnerToolStripMenuItem.Click
|
|
Dim f As New frmVertragspartner
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub ImageViewerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageViewerToolStripMenuItem.Click
|
|
If InputBox("Passwort:") = "341211" Then
|
|
Dim f As New form1
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End If
|
|
End Sub
|
|
''' <summary>
|
|
''' Vertragselement anzeigen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub VertragselementeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim f As New frmVertragselement
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
''' <summary>
|
|
''' Vertragsübersicht anzeigen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub VertragsübersichtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertragsübersichtToolStripMenuItem.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim f As New frmVertragsuebersicht
|
|
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
If setpos Then
|
|
f.Top = Me.xtop
|
|
f.Left = Me.xleft
|
|
f.Width = Me.xwidth
|
|
f.Height = Me.xheight
|
|
End If
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub PendenzenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendenzenToolStripMenuItem.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
Dim f As New frmPendenzübersicht
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
If setpos Then
|
|
f.Top = Me.xtop
|
|
f.Left = Me.xleft
|
|
f.Width = Me.xwidth
|
|
f.Height = Me.xheight
|
|
End If
|
|
Me.Cursor = Cursors.Default
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub SLAVerwaltenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim f As New frmVerbindungEditor("SLATyp", "SLASubTyp", "SLA", 999)
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub ApplikationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplikationToolStripMenuItem.Click
|
|
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim f As New frmApplikation
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
If setpos Then
|
|
f.Top = Me.xtop
|
|
f.Left = Me.xleft
|
|
f.Width = Me.xwidth
|
|
f.Height = Me.xheight
|
|
End If
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
|
|
Private Sub ServicekatalogVerwaltenToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ServicekatalogVerwaltenToolStripMenuItem.Click
|
|
Dim f As New frmServicekatalog
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Aufruf System-Administration
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub SystemadministrationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SystemadministrationToolStripMenuItem.Click
|
|
Dim f As New frmSysadminMenu
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
''' <summary>
|
|
''' Aktivitätenliste anzeigen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub AktivitätenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AktivitätenToolStripMenuItem.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
Dim f As New FrmAktivitaetenListe
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
If setpos Then
|
|
f.Top = Me.xtop
|
|
f.Left = Me.xleft
|
|
f.Width = Me.xwidth
|
|
f.Height = Me.xheight
|
|
End If
|
|
Me.Cursor = Cursors.Default
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub AktivitätenGenerierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AktivitätenGenerierenToolStripMenuItem.Click
|
|
Dim f As New FrmGenerateActivity
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub ApplikationsübersichtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplikationsübersichtToolStripMenuItem.Click
|
|
Dim f As New frmApplikationsuebersicht
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub ReportingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportingToolStripMenuItem.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim rep As New Reporting20.VV_ABA_Reporting(Globals.clsapplication.iApplikationsnr.Value, _
|
|
Globals.clsmitarbeiter.iMitarbeiternr.Value, Globals.sConnectionString, _
|
|
Globals.SecurityDaten, Globals.Spaltendaten, Globals.ToolTipDaten)
|
|
rep.ReportSelect(Me)
|
|
Me.Cursor = Cursors.Default
|
|
Exit Sub
|
|
|
|
'Dim f As New FrmReportSelect
|
|
'f.MdiParent = Me
|
|
'f.Show()
|
|
'If setpos Then
|
|
' f.Top = Me.xtop
|
|
' f.Left = Me.xleft
|
|
' f.Width = Me.xwidth
|
|
' f.Height = Me.xheight
|
|
'End If
|
|
'Me.Cursor = Cursors.Default
|
|
End Sub
|
|
''' <summary>
|
|
''' Vertragsübersicht über TS-Button
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnVertragsuebersicht_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnVertragsuebersicht.Click
|
|
VertragsübersichtToolStripMenuItem_Click(sender, e)
|
|
End Sub
|
|
''' <summary>
|
|
''' Monitoring (Aktivitäten/Pendenzen über TS-Button)
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnMonitoring_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnMonitoring.Click
|
|
PendenzenToolStripMenuItem_Click(sender, e)
|
|
AktivitätenToolStripMenuItem_Click(sender, e)
|
|
End Sub
|
|
''' <summary>
|
|
''' Applikationsübersicht über TSButton
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnApplikationen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnApplikationen.Click
|
|
'ApplikationsübersichtToolStripMenuItem_Click(sender, e)
|
|
ApplikationToolStripMenuItem_Click(sender, e)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Reporting über TS-Button
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnReporting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnReporting.Click
|
|
ReportingToolStripMenuItem_Click(sender, e)
|
|
End Sub
|
|
''' <summary>
|
|
''' About-Bildschirm anzeigen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
|
|
Dim f As New frmAbout
|
|
f.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub MitarbeitereinstellungenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MitarbeitereinstellungenToolStripMenuItem.Click
|
|
Dim f As New frmMAEinstellung
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub GremienverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GremienverwaltungToolStripMenuItem.Click
|
|
Dim f As New frmGremienverwaltung
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
|
|
Private Sub KaskadierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaskadierenToolStripMenuItem.Click
|
|
Me.LayoutMdi(MdiLayout.Cascade)
|
|
End Sub
|
|
|
|
Private Sub VertikalTeilenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalTeilenToolStripMenuItem.Click
|
|
Me.LayoutMdi(MdiLayout.TileVertical)
|
|
End Sub
|
|
|
|
Private Sub HorizontalTeilenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalTeilenToolStripMenuItem.Click
|
|
Me.LayoutMdi(MdiLayout.TileHorizontal)
|
|
End Sub
|
|
|
|
Private Sub LizenzmanagementToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LizenzmanagementToolStripMenuItem.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub QueryBuilderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QueryBuilderToolStripMenuItem.Click
|
|
Try
|
|
Cursor = Cursors.WaitCursor
|
|
Dim cn As New QueryBuilder.ConnectionInfo
|
|
cn.ConnectionString = Globals.sConnectionString
|
|
cn.ConnectionType = ConnectionTypes.MSSQL
|
|
cn.CacheFile = Globals.ApplicationPath + "datastructure.xml"
|
|
|
|
Dim qb As New QueryBuilder.FrmQueryBuilder(cn, False)
|
|
'Dim f As New frmDomainEditor("Queries")
|
|
'qb.DomainEditor = f
|
|
qb.MdiParent = Me
|
|
qb.Show()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
Cursor = Cursors.Default
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub LizenzmanagementToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LizenzmanagementToolStripMenuItem1.Click
|
|
Dim f As New frmLizenzverwaltung
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
If setpos = True Then
|
|
f.Top = Me.xtop
|
|
f.Left = Me.xleft
|
|
f.Width = Me.xwidth
|
|
f.Height = Me.xheight
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
|
LizenzmanagementToolStripMenuItem1_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub KPIToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
|
End Sub
|
|
|
|
Private Sub ServerInventarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ServerInventarToolStripMenuItem.Click
|
|
Dim f As New FrmSvrInventar
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub tsbtnServerInventar_Click(sender As Object, e As EventArgs) Handles tsbtnServerInventar.Click
|
|
ServerInventarToolStripMenuItem_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub LifeCycleManagementToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LifeCycleManagementToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmLifeCycle
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
Catch
|
|
Application.DoEvents()
|
|
Dim f As New frmLifeCycle
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
End Class
|