ITSM/Vertragsverwaltung - Kopie/Applikation/Applikationsuebersicht/frmApplikationsuebersicht.vb

Public Class frmApplikationsuebersicht

#Region "Deklarationen"
    Dim Applikation As New TKB.VV.Applikation.clsApplikation
    Dim Uebersicht As New TKB.VV.Applikation.clsApplikationsuebersicht
    Dim Treeviewdata As New TKB.VV.Applikation.clsApplikationTree
    Dim TreeParent As New TKB.VV.Applikation.clsApplikationTree
    Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
    Dim c1data As New DataTable
    Friend selectPoint As New System.Drawing.Point()
    Dim NurAktive As Boolean = False
    ''' <summary>
    ''' Security-Klasse
    ''' </summary>
    ''' <remarks></remarks>
    Dim sec As New TKB.VV.Utils.MySecurity

#End Region

#Region "Formular"
    Private Sub frmApplikationsuebersicht_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.NurAktive)
        Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
        sec.Set_Form_Security(Me)

    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub BeendenToolStipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStipMenuItem.Click
        Me.Close()
    End Sub

#End Region

 
    Private Sub Refresh_Details()
        c1data = Uebersicht.Get_Applikationsdetails(Me.TreeApplikationen.SelectedNode.Tag, Me.tstxtSuche.Text)
        'Me.tstxtSuche.Text)
        'If Me.Profil.sV_Sort.ToString <> "" Then
        '    c1data.DefaultView.Sort = Me.Profil.sV_Sort.ToString
        'End If

        'Dim gv As C1.Win.C1TrueDBGrid.DataViewEnum
        'Dim s As New Collection
        'Dim i As Integer = -1
        'For Each g As C1.Win.C1TrueDBGrid.C1DataColumn In Me.C1Vertragselemente.GroupedColumns
        '    s.Add(g.Caption)
        '    i = i + 1
        '    '                xxx(i) = g.Caption
        'Next
        'i = Me.C1Vertragselemente.DataView
        'Me.C1Vertragselemente.Enabled = False
        Me.C1Applikationen.DataSource = c1data
        Me.C1Applikationen.DataMember = c1data.TableName
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Applikationen, "Applikationsuebersicht", Me.c1data, "")
        '       Update_Details()
        '        Docs.Get_Layout(Me.C1Vertragselemente, 1, Me.Profil.iProfilnr.Value)

    End Sub

    ''' <summary>
    ''' Treeview-AfterSelect
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeApplikationen_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeApplikationen.AfterSelect
        Refresh_Details()
    End Sub

    ''' <summary>
    ''' Anzeige eines Applikationselementes
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Applikationen_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Applikationen.DoubleClick
        Dim f As New frmApplikation(Me.C1Applikationen.Columns("Applikationnr").Value, False)
        f.MdiParent = Me.MdiParent
        f.Show()
    End Sub

    ''' <summary>
    ''' Bei inaktiven Eintr<74>gen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Vertragselemente_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Applikationen.FetchRowStyle
        Try
            If Me.C1Applikationen.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
    End Sub
    ''' <summary>
    ''' Mousedown-Ereignis auf dem Tree
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeStruktur_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeApplikationen.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.GetNodeAt(selectPoint)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    ''' <summary>
    ''' Alle Knoten schliessen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeApplikationenAlleKnotenSchliessenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeApplikationenAlleKnotenSchliessenToolStripMenuItem.Click
        Me.TreeApplikationen.CollapseAll()
    End Sub
    ''' <summary>
    ''' Alle Knoten <20>ffnen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeApplikationenAlleKnoten<EFBFBD>ffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeApplikationenAlleKnoten<EFBFBD>ffnenToolStripMenuItem.Click
        Me.TreeApplikationen.ExpandAll()
    End Sub

    Private Sub AnzeigenBearbeitenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnzeigenBearbeitenToolStripMenuItem.Click
        C1Applikationen_DoubleClick(sender, e)
    End Sub
    ''' <summary>
    ''' Detail-Contextmenu Open
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub DetailContextMenu_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles DetailContextMenu.Opening
        If Me.C1Applikationen.Splits(0).Rows.Count < 1 Then
            Me.DetailContextMenu.Enabled = False
        Else
            Me.DetailContextMenu.Enabled = True
        End If
    End Sub

    Private Sub C1Applikationen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Applikationen.MouseDown
        Me.C1Applikationen.Bookmark = Me.C1Applikationen.RowContaining(e.Y)
        Me.C1Applikationen.Bookmark = Me.C1Applikationen.RowBookmark(Me.C1Applikationen.RowContaining(e.Y))

    End Sub
    ''' <summary>
    ''' Applikation suchen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSBtnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSuche.Click
        Me.C1Applikationen.DataSource = Nothing
        Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.NurAktive)
        Try
            Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub tstxtSuche_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tstxtSuche.Enter

    End Sub

    Private Sub tstxtSuche_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tstxtSuche.KeyDown
        If e.KeyCode = Keys.Enter Then
            TSBtnSuche_Click(sender, e)
        End If
    End Sub

    Private Sub TSBtnFilterAufheben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnFilterAufheben.Click
        Me.tstxtSuche.Text = ""
        Me.C1Applikationen.DataSource = Nothing
        Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.NurAktive)
        Try
            Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
        Catch ex As Exception

        End Try

    End Sub

    Private Sub NeueApplikationErfassenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeueApplikationErfassenToolStripMenuItem.Click
        Dim f As New frmApplikation(True)
        f.MdiParent = Me.MdiParent
        f.Show()
    End Sub

    Private Sub NurAktiveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NurAktiveToolStripMenuItem.Click
        If Me.NurAktiveToolStripMenuItem.Text = "Nur Aktive" Then
            Me.NurAktiveToolStripMenuItem.Text = "Aktive und Inaktive"
            Me.NurAktive = True
        Else
            Me.NurAktive = False
            Me.NurAktiveToolStripMenuItem.Text = "Nur Aktive"
        End If
        Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.NurAktive)
        Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
    End Sub

End Class