ITSM/Backup/Vertragsverwaltung/frmMain.vb

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
    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
        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
End Class