Imports System.Data.SqlTypes

Public Class CtrlServerInventar

    Dim Server As TKB.VV.Server.clsServerinventar
    Dim sec As TKB.VV.Utils.MySecurity

    Dim msg As TKB.VV.Utils.MyMessage
    Dim FormReadonly As Boolean = False
    Dim FormDataChanged As Boolean = False
    Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
    Dim isnewServer As Boolean = False
    Dim baseform As Windows.Forms.Form
    Friend selectPoint As New System.Drawing.Point()

    Dim m_Show_In_Application As Boolean
    Property Show_In_Application As Boolean
        Get

        End Get
        Set(value As Boolean)
            Me.m_Show_In_Application = value
            If value = True Then
                GRPServer.Width = 160
                GrpApplication.Visible = False
                sec.ControlReadonly(Me)
            End If
        End Set
    End Property

#Region "Closing / Check_Changes"

    Public Sub init(ByRef bform As Windows.Forms.Form)
        Server = New TKB.VV.Server.clsServerinventar
        sec = New TKB.VV.Utils.MySecurity
        msg = New TKB.VV.Utils.MyMessage
        Me.baseform = bform
    End Sub
    ''' <summary>
    ''' Schliessen des Formulars
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
        If Me.FormReadonly = True Then Exit Sub
        If Check_Changes() = False Then
            e.Cancel = True
        Else


            Server.dispose()
            Me.Dispose()
        End If
    End Sub

    ''' <summary>
    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
    ''' </summary>
    ''' <remarks></remarks>
    Private Function Check_Changes() As Boolean
        If Me.FormReadonly Then
            Return True
            Exit Function
        End If
        Dim msgres As MsgBoxResult
        If Me.FormDataChanged Then
            msgres = msg.Show_MessageYesNoCancel(3)
            Select Case msgres
                Case MsgBoxResult.Yes
                    Save_data()
                    Return True
                Case MsgBoxResult.Cancel
                    Return False
                Case MsgBoxResult.No
                    Me.FormDataChanged = False
                    Return True
            End Select
        Else
            Return True
        End If
    End Function

#End Region

#Region "Eventhandler ChangeEreignisse"
        ''' <summary>
        ''' Allg Eventhandler für Chanage-Ereignise festlegen
        ''' </summary>
        ''' <param name="Container"></param>
        ''' <remarks></remarks>
        Private Sub AddChanges(ByVal Container As Control)
            Dim l As New List(Of Control)
            Me.GetControl(Me, "*", l)
            Dim evh As EventHandler = AddressOf ChangesMade
            For Each c As Control In l
                If TypeOf c Is TextBox Then
                    Dim ctl As TextBox = c
                    AddHandler ctl.TextChanged, evh
                End If
                If TypeOf c Is MaskedTextBox Then
                    Dim ctl As MaskedTextBox = c
                    AddHandler ctl.TextChanged, evh
                End If
                If TypeOf c Is ComboBox Then
                    Dim ctl As ComboBox = c
                    AddHandler ctl.SelectedValueChanged, evh
                End If
                If TypeOf c Is RichTextBox Then
                    Dim ctl As RichTextBox = c
                    AddHandler ctl.TextChanged, evh
                End If
                If TypeOf c Is CheckBox Then
                    If c.Name <> "cboxNurAktive" Then
                        Dim ctl As CheckBox = c
                        AddHandler ctl.CheckedChanged, evh
                    End If
                End If
                If TypeOf c Is CheckedListBox Then
                    Dim ctl As CheckedListBox = c
                    AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
                End If
            Next
        End Sub
        ''' <summary>
        ''' Envent-Handler für Change-Ereignisse
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        ''' <remarks></remarks>
        Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
            Me.FormDataChanged = True
            Dim objtype As System.Type = sender.GetType
            If objtype.Name = "MaskedTextBox" Then
                Dim o As MaskedTextBox = sender
                If o.Text = "01.01.1900" Then o.Text = "  .  .    "
            End If
        End Sub
        Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
            Me.FormDataChanged = True
        End Sub


        ''' <summary>
        ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
        ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
        ''' </summary>
        ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
        ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
        ''' <param name="L">Liste der gefundenen Objekte</param>
        ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
        ''' </returns>
        ''' <remarks></remarks>
        Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
            If L Is Nothing Then L = New List(Of Control)
            Dim Gut As Boolean
            Dim ReturnFlag As Boolean = False
            If Key IsNot Nothing Then Key = Key.ToLower

            If BaseControl.HasChildren = True Then
                For Each ctl As Control In BaseControl.Controls
                    Gut = False
                    If Key Is Nothing Then
                        Gut = True
                    Else
                        If ctl.Name.Length >= Key.Length Then
                            Key = Key.ToLower
                            If Key.StartsWith("*") Then
                                If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
                            ElseIf Key.EndsWith("*") Then
                                If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
                            Else
                                If Key = ctl.Name.ToLower Then Gut = True
                            End If
                        End If
                    End If

                    If Gut = True Then
                        L.Add(ctl)
                        If ReturnAtFirstElement = True Then ReturnFlag = True
                    End If
                    If ReturnFlag = False Then
                        Call GetControl(ctl, Key, L)
                    End If
                Next
            End If

            If L.Count - 1 > -1 Then
                Return True
            Else
                Return False
            End If
        End Function
#End Region

#Region "Formular"
    Public Sub Load()
        Me.cbboxUmgebung.DataSource = Server.Umgebung
        Me.cbboxUmgebung.DisplayMember = "Bezeichnung"
        Me.cbboxUmgebung.ValueMember = "Server_UmgebungNr"

        Me.cbboxOS.DataSource = Server.OS
        Me.cbboxOS.DisplayMember = "Bezeichnung"
        Me.cbboxOS.ValueMember = "Server_OSNr"

        Me.cbboxOSLevel.DataSource = Server.OSLevel
        Me.cbboxOSLevel.DisplayMember = "Bezeichnung"
        Me.cbboxOSLevel.ValueMember = "Server_OSLevelNr"

        Me.cbboxBackupLoesung.DataSource = Server.Backup
        Me.cbboxBackupLoesung.DisplayMember = "Bezeichnung"
        Me.cbboxBackupLoesung.ValueMember = "Server_Backup_Loesungnr"

        Me.cbboxBackupRetention.DataSource = Server.Retention
        Me.cbboxBackupRetention.DisplayMember = "Bezeichnung"
        Me.cbboxBackupRetention.ValueMember = "Server_Backup_RetentionNr"

        Me.cbboxDB.DataSource = Server.db
        Me.cbboxDB.DisplayMember = "Bezeichnung"
        Me.cbboxDB.ValueMember = "Server_DBNr"

        Me.cbboxDBBackupLoesung.DataSource = Server.dbBackup
        Me.cbboxDBBackupLoesung.DisplayMember = "Bezeichnung"
        Me.cbboxDBBackupLoesung.ValueMember = "Server_DB_Backup_LoesungNr"

        Me.cbboxDBBackupRetention.DataSource = Server.dbRetention
        Me.cbboxDBBackupRetention.DisplayMember = "Bezeichnung"
        Me.cbboxDBBackupRetention.ValueMember = "Server_DB_Backup_RetentionNr"

        Me.cbboxStandort.DataSource = Server.Standort
        Me.cbboxStandort.DisplayMember = "Bezeichnung"
        Me.cbboxStandort.ValueMember = "Server_StandortNr"

        Me.cbboxKategorie.DataSource = Server.Kategorie
        Me.cbboxKategorie.DisplayMember = "Bezeichnung"
        Me.cbboxKategorie.ValueMember = "Server_KategorieNr"


        Me.cbboxWeiteresTyp1.DataSource = Server.Weiteres_Typ1
        Me.cbboxWeiteresTyp1.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresTyp1.ValueMember = "Server_Weiteres_TypNr"
        Me.cbboxWeiteresTyp2.DataSource = Server.Weiteres_Typ2
        Me.cbboxWeiteresTyp2.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresTyp2.ValueMember = "Server_Weiteres_TypNr"
        Me.cbboxWeiteresTyp3.DataSource = Server.Weiteres_Typ3
        Me.cbboxWeiteresTyp3.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresTyp3.ValueMember = "Server_Weiteres_TypNr"
        Me.cbboxWeiteresTyp4.DataSource = Server.Weiteres_Typ4
        Me.cbboxWeiteresTyp4.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresTyp4.ValueMember = "Server_Weiteres_TypNr"
        Me.cbboxWeiteresTyp5.DataSource = Server.Weiteres_Typ5
        Me.cbboxWeiteresTyp5.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresTyp5.ValueMember = "Server_Weiteres_TypNr"

        Me.cbboxWeiteresBackupLoesung1.DataSource = Server.Weiteres_Backup_Loesung1
        Me.cbboxWeiteresBackupLoesung1.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresBackupLoesung1.ValueMember = "Server_Weiteres_Backup_LoesungNr"
        Me.cbboxWeiteresBackupLoesung2.DataSource = Server.Weiteres_Backup_Loesung2
        Me.cbboxWeiteresBackupLoesung2.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresBackupLoesung2.ValueMember = "Server_Weiteres_Backup_LoesungNr"
        Me.cbboxWeiteresBackupLoesung3.DataSource = Server.Weiteres_Backup_Loesung3
        Me.cbboxWeiteresBackupLoesung3.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresBackupLoesung3.ValueMember = "Server_Weiteres_Backup_LoesungNr"
        Me.cbboxWeiteresBackupLoesung4.DataSource = Server.Weiteres_Backup_Loesung4
        Me.cbboxWeiteresBackupLoesung4.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresBackupLoesung4.ValueMember = "Server_Weiteres_Backup_LoesungNr"
        Me.cbboxWeiteresBackupLoesung5.DataSource = Server.Weiteres_Backup_Loesung5
        Me.cbboxWeiteresBackupLoesung5.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresBackupLoesung5.ValueMember = "Server_Weiteres_Backup_LoesungNr"

        Me.cbboxWeiteresRetention1.DataSource = Server.Weiteres_Retention1
        Me.cbboxWeiteresRetention1.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresRetention1.ValueMember = "Server_Weiteres_RetentionNr"
        Me.cbboxWeiteresRetention2.DataSource = Server.Weiteres_Retention2
        Me.cbboxWeiteresRetention2.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresRetention2.ValueMember = "Server_Weiteres_RetentionNr"
        Me.cbboxWeiteresRetention3.DataSource = Server.Weiteres_Retention3
        Me.cbboxWeiteresRetention3.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresRetention3.ValueMember = "Server_Weiteres_RetentionNr"
        Me.cbboxWeiteresRetention4.DataSource = Server.Weiteres_Retention4
        Me.cbboxWeiteresRetention4.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresRetention4.ValueMember = "Server_Weiteres_RetentionNr"
        Me.cbboxWeiteresRetention5.DataSource = Server.Weiteres_Retention5
        Me.cbboxWeiteresRetention5.DisplayMember = "Bezeichnung"
        Me.cbboxWeiteresRetention5.ValueMember = "Server_Weiteres_RetentionNr"

        Server.Load_tree(Me.TVServer, 0)
        Me.TVServer.ExpandAll()
        'Me.TVServer.SelectedNode = Me.TVServer.Nodes(0).Nodes(0)

    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs)
        'e.Close()
    End Sub

#End Region

#Region "Daten"
    ''' <summary>
    ''' Daten ab DB laden uns ins Form befüllen
    ''' </summary>
    ''' <param name="Vertragselementnr"></param>
    ''' <remarks></remarks>
    Private Sub Init_Controls()
        Me.txtBezeichnung.Text = ""
        Me.txtBeschreibung.Text = ""
        Me.cbboxUmgebung.SelectedValue = -1
        Me.cbboxOS.SelectedValue = -1
        Me.cbboxOSLevel.SelectedValue = -1

        Me.cbboxBackupLoesung.SelectedValue = -1
        Me.cbboxBackupRetention.SelectedValue = -1
        Me.txtBakup.Text = ""

        Me.cbboxDB.SelectedValue = -1
        Me.txtDB.Text = ""

        Me.cbboxDBBackupLoesung.SelectedValue = 1
        Me.cbboxDBBackupRetention.SelectedValue = -1
        Me.txtdbbackup.Text = ""

        Me.cbboxStandort.SelectedValue = -1
        Me.txtStandort.Text = ""

        Me.cbboxKategorie.SelectedValue = -1

        Me.cbboxWeiteresTyp1.SelectedValue = 1
        Me.cbboxWeiteresTyp2.SelectedValue = 1
        Me.cbboxWeiteresTyp3.SelectedValue = 1
        Me.cbboxWeiteresTyp4.SelectedValue = 1
        Me.cbboxWeiteresTyp5.SelectedValue = 1

        Me.cbboxWeiteresBackupLoesung1.SelectedValue = 1
        Me.cbboxWeiteresBackupLoesung2.SelectedValue = 1
        Me.cbboxWeiteresBackupLoesung3.SelectedValue = 1
        Me.cbboxWeiteresBackupLoesung4.SelectedValue = 1
        Me.cbboxWeiteresBackupLoesung5.SelectedValue = 1

        Me.cbboxWeiteresRetention1.SelectedValue = 1
        Me.cbboxWeiteresRetention2.SelectedValue = 1
        Me.cbboxWeiteresRetention3.SelectedValue = 1
        Me.cbboxWeiteresRetention4.SelectedValue = 1
        Me.cbboxWeiteresRetention5.SelectedValue = 1

        Me.txtWeiteres1.Text = ""
        Me.txtWeiteres2.Text = ""
        Me.txtWeiteres3.Text = ""
        Me.txtWeiteres4.Text = ""
        Me.txtWeiteres5.Text = ""


        Me.txtmutierer.Text = ""
        Me.cbaktiv.Checked = True
        Me.txterstellt_am.Text = ""
        Me.txtmutiert_am.Text = ""
        'ec.Set_Form_Security(Me)

        Me.GrpDB.Height = 42
        Me.grpWeiteres.Height = 42


    End Sub
    Private Sub Get_Data(ByVal Servernr As Integer)
        Try
            init_Controls()


            Server.Get_Server(Servernr)
            Me.txtBezeichnung.Text = Server.sBezeichnung.Value
            Me.txtBeschreibung.Text = Server.sBeschreibung.Value
            Me.cbboxUmgebung.SelectedValue = Server.iServer_UmgebungNr.Value
            Me.cbboxOS.SelectedValue = Server.iServer_OSNr.Value
            Me.cbboxOSLevel.SelectedValue = Server.iServer_OSLevelNr.Value

            Me.cbboxBackupLoesung.SelectedValue = Server.iServer_Backup_LoesungNr.Value
            Me.cbboxBackupRetention.SelectedValue = Server.iServer_Backup_RetentionNr.Value
            Me.txtBakup.Text = Server.sServer_Backup_Bemerkung.Value

            Me.cbboxDB.SelectedValue = Server.iServer_DBNr.Value
            Me.txtDB.Text = Server.sServer_DB_Bemerkung.Value

            Me.cbboxDBBackupLoesung.SelectedValue = Server.iServer_DB_Backup_LoesungNr.Value
            Me.cbboxDBBackupRetention.SelectedValue = Server.iServer_DB_Backup_RetentionNr.Value
            Me.txtdbbackup.Text = Server.sServer_DB_Backup_Bemerkung

            Me.cbboxStandort.SelectedValue = Server.iServer_StandortNr.Value
            Me.txtStandort.Text = Server.sServer_Stanmdort_Bemerkung.Value

            Me.cbboxKategorie.SelectedValue = Server.iServer_KategorieNr.Value

            Me.cbboxWeiteresTyp1.SelectedValue = Server.iServer_Weiteres_TypNr1.Value
            Me.cbboxWeiteresTyp2.SelectedValue = Server.iServer_Weiteres_TypNr2.Value
            Me.cbboxWeiteresTyp3.SelectedValue = Server.iServer_Weiteres_TypNr3.Value
            Me.cbboxWeiteresTyp4.SelectedValue = Server.iServer_Weiteres_TypNr4.Value
            Me.cbboxWeiteresTyp5.SelectedValue = Server.iServer_Weiteres_TypNr5.Value

            Me.cbboxWeiteresBackupLoesung1.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr1.Value
            Me.cbboxWeiteresBackupLoesung2.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr2.Value
            Me.cbboxWeiteresBackupLoesung3.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr3.Value
            Me.cbboxWeiteresBackupLoesung4.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr4.Value
            Me.cbboxWeiteresBackupLoesung5.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr5.Value

            Me.cbboxWeiteresRetention1.SelectedValue = Server.iServer_Weiteres_RetentionNr1.Value
            Me.cbboxWeiteresRetention2.SelectedValue = Server.iServer_Weiteres_RetentionNr2.Value
            Me.cbboxWeiteresRetention3.SelectedValue = Server.iServer_Weiteres_RetentionNr3.Value
            Me.cbboxWeiteresRetention4.SelectedValue = Server.iServer_Weiteres_RetentionNr4.Value
            Me.cbboxWeiteresRetention5.SelectedValue = Server.iServer_Weiteres_RetentionNr5.Value

            Me.txtWeiteres1.Text = Server.sServer_Weiteres_Bemerkung1.Value
            Me.txtWeiteres2.Text = Server.sServer_Weiteres_Bemerkung2.Value
            Me.txtWeiteres3.Text = Server.sServer_Weiteres_Bemerkung3.Value
            Me.txtWeiteres4.Text = Server.sServer_Weiteres_Bemerkung4.Value
            Me.txtWeiteres5.Text = Server.sServer_Weiteres_Bemerkung5.Value


            Me.txtmutierer.Text = Server.MutiererText
            Me.cbaktiv.Checked = Server.bAktiv.Value = True
            Me.txterstellt_am.Text = Server.daErstellt_am.Value
            Me.txtmutiert_am.Text = Server.daMutiert_am.Value
            'ec.Set_Form_Security(Me)
            refresh_applikation(Servernr)

            If Me.cbboxDB.SelectedValue = 1 Then Me.GrpDB.Height = 42 Else Me.GrpDB.Height = 185
            If Me.cbboxWeiteresTyp1.SelectedValue <> 1 Or Me.cbboxWeiteresTyp2.SelectedValue <> 1 Or Me.cbboxWeiteresTyp3.SelectedValue <> 1 Or Me.cbboxWeiteresTyp4.SelectedValue <> 1 Or Me.cbboxWeiteresTyp5.SelectedValue <> 1 Then
                Me.grpWeiteres.Height = 190
            Else
                Me.grpWeiteres.Height = 42
            End If



            Me.FormDataChanged = False

        Catch ex As Exception
            If Me.cbboxDB.SelectedValue = 1 Then Me.GrpDB.Height = 42 Else Me.GrpDB.Height = 185
            If Me.cbboxWeiteresTyp1.SelectedValue <> 1 Or Me.cbboxWeiteresTyp2.SelectedValue <> 1 Or Me.cbboxWeiteresTyp3.SelectedValue <> 1 Or Me.cbboxWeiteresTyp4.SelectedValue <> 1 Or Me.cbboxWeiteresTyp5.SelectedValue <> 1 Then
                Me.grpWeiteres.Height = 190
            Else
                Me.grpWeiteres.Height = 42
            End If
            '    MsgBox(ex.Message)
            '    Try
            '        For Each ctl As ToolStripButton In Me.ToolStrip1.Items
            '            ctl.Enabled = False
            '        Next
            '    Catch
            '    End Try
            'Me.TSBtnQuit.Enabled = True
        End Try
        Me.FormDataChanged = False

    End Sub

        Private Sub Set_Checkedlistbox(ByRef clb As CheckedListBox, ByRef data As DataTable)
            Dim i As Integer
            For i = 0 To clb.Items.Count - 1
                clb.SetItemCheckState(i, CheckState.Unchecked)
            Next

            Dim chk As Integer = 0
            Dim ii As Integer
            Dim oc As CheckedListBox.ObjectCollection = clb.Items
            For i = 0 To data.Rows.Count - 1
                For ii = 0 To oc.Count - 1
                    If oc.Item(ii).item(0) = data.Rows(i).Item(2) Then
                        clb.SetItemCheckState(ii, CheckState.Checked)
                    End If
                Next
            Next


        End Sub
        ''' <summary>
        ''' Daten ab Form speichern
        ''' </summary>
        ''' <remarks></remarks>
    Private Sub Save_data()

        Server.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))
        Server.iServer_UmgebungNr = New SqlInt32(CType(Me.cbboxUmgebung.SelectedValue, Int32))
        Server.iServer_OSNr = New SqlInt32(CType(Me.cbboxOS.SelectedValue, Int32))
        Server.iServer_OSLevelNr = New SqlInt32(CType(Me.cbboxOSLevel.SelectedValue, Int32))
        Server.sBeschreibung = New SqlString(CType(Me.txtBeschreibung.Text, String))

        Server.iServer_Backup_LoesungNr = New SqlInt32(CType(Me.cbboxBackupLoesung.SelectedValue, Int32))
        Server.iServer_Backup_RetentionNr = New SqlInt32(CType(Me.cbboxBackupRetention.SelectedValue, Int32))
        Server.sServer_Backup_Bemerkung = New SqlString(CType(Me.txtBakup.Text, String))

        Server.iServer_DBNr = New SqlInt32(CType(Me.cbboxDB.SelectedValue, Int32))
        Server.sServer_DB_Bemerkung = New SqlString(CType(Me.txtDB.Text, String))

        Server.iServer_DB_Backup_LoesungNr = New SqlInt32(CType(Me.cbboxDBBackupLoesung.SelectedValue, Int32))
        Server.iServer_DB_Backup_RetentionNr = New SqlInt32(CType(Me.cbboxDBBackupRetention.SelectedValue, Int32))
        Server.sServer_DB_Backup_Bemerkung = New SqlString(CType(Me.txtdbbackup.Text, String))

        Server.iServer_StandortNr = New SqlInt32(CType(Me.cbboxStandort.SelectedValue, Int32))
        Server.sServer_Stanmdort_Bemerkung = New SqlString(CType(Me.txtStandort.Text, String))

        Server.iServer_KategorieNr = New SqlInt32(CType(Me.cbboxKategorie.SelectedValue, Int32))

        Server.iServer_Weiteres_TypNr1 = New SqlInt32(CType(Me.cbboxWeiteresTyp1.SelectedValue, Int32))
        Server.iServer_Weiteres_TypNr2 = New SqlInt32(CType(Me.cbboxWeiteresTyp2.SelectedValue, Int32))
        Server.iServer_Weiteres_TypNr3 = New SqlInt32(CType(Me.cbboxWeiteresTyp3.SelectedValue, Int32))
        Server.iServer_Weiteres_TypNr4 = New SqlInt32(CType(Me.cbboxWeiteresTyp4.SelectedValue, Int32))
        Server.iServer_Weiteres_TypNr5 = New SqlInt32(CType(Me.cbboxWeiteresTyp5.SelectedValue, Int32))

        Server.iServer_Weiteres_Backup_LoesungNr1 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung1.SelectedValue, Int32))
        Server.iServer_Weiteres_Backup_LoesungNr2 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung2.SelectedValue, Int32))
        Server.iServer_Weiteres_Backup_LoesungNr3 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung3.SelectedValue, Int32))
        Server.iServer_Weiteres_Backup_LoesungNr4 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung4.SelectedValue, Int32))
        Server.iServer_Weiteres_Backup_LoesungNr5 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung5.SelectedValue, Int32))

        Server.iServer_Weiteres_RetentionNr1 = New SqlInt32(CType(Me.cbboxWeiteresRetention1.SelectedValue, Int32))
        Server.iServer_Weiteres_RetentionNr2 = New SqlInt32(CType(Me.cbboxWeiteresRetention2.SelectedValue, Int32))
        Server.iServer_Weiteres_RetentionNr3 = New SqlInt32(CType(Me.cbboxWeiteresRetention3.SelectedValue, Int32))
        Server.iServer_Weiteres_RetentionNr4 = New SqlInt32(CType(Me.cbboxWeiteresRetention4.SelectedValue, Int32))
        Server.iServer_Weiteres_RetentionNr5 = New SqlInt32(CType(Me.cbboxWeiteresRetention5.SelectedValue, Int32))

        Server.sServer_Weiteres_Bemerkung1 = New SqlString(CType(Me.txtWeiteres1.Text, String))
        Server.sServer_Weiteres_Bemerkung2 = New SqlString(CType(Me.txtWeiteres2.Text, String))
        Server.sServer_Weiteres_Bemerkung3 = New SqlString(CType(Me.txtWeiteres3.Text, String))
        Server.sServer_Weiteres_Bemerkung4 = New SqlString(CType(Me.txtWeiteres4.Text, String))
        Server.sServer_Weiteres_Bemerkung5 = New SqlString(CType(Me.txtWeiteres5.Text, String))

        Server.bAktiv = New SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))

        Me.txtmutierer.Text = Server.MutiererText
        Me.cbaktiv.Checked = Server.bAktiv.Value = True
        Me.txterstellt_am.Text = Server.daErstellt_am.Value
        Me.txtmutiert_am.Text = Server.daMutiert_am.Value

        Server.Save_Data()
        Me.FormDataChanged = False
    End Sub

    Private Function Get_CheckedItems(ByRef clb As CheckedListBox) As String
        Dim i As Integer = 0
        Dim s As String = ""
        For i = 1 To clb.CheckedItems.Count
            s = s + clb.CheckedItems(i).ToString

        Next
        Return s
    End Function

    Public Function Refresh_Application(ByRef applid As Integer)
        Init_Controls()
        Server.refresh_Server(applid, Me.TVServer)
    End Function

#End Region

#Region "Security"
        ''' <summary>
        ''' Laden der Securitylevel-Daten in die Combobox
        ''' </summary>
        ''' <remarks></remarks>
        Private Sub Load_Securitylevel()
            Dim seclevel As New TKB.VV.DB.clsSecurityLevel
            Dim secleveldata As New DataTable

            seclevel.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            secleveldata = seclevel.SelectAll
            Globals.conn.CloseConnection(True)

            ' Me.cboxSecurityLevel.DataSource = secleveldata
            ' Me.cboxSecurityLevel.DisplayMember = "Bezeichnung"
            ' Me.cboxSecurityLevel.ValueMember = "SecurityLevelNr"

            seclevel.Dispose()

        End Sub
#End Region

#Region "Public Methoths"
    Public Sub Add_New()
        If Me.Check_Changes = False Then Exit Sub
        Me.Get_Data(Me.Server.Add_New)
        Dim sk As Integer = Server.iServerInventarNr.Value
        Me.isnewServer = True
        Server.Load_tree(Me.TVServer, 0)
        Server.FindByTag(Me.TVServer, sk.ToString)
        'Me.TVServer.SelectedNode = Server.FindNode(Me.TVServer.Nodes, Me.Server.iServerInventarNr.Value, "*** Neues Element  ***")
    End Sub

    Public Sub Save()
        Dim tn As New TreeNode
        tn = TVServer.SelectedNode
        Me.Save_data()
        Server.Load_tree(Me.TVServer, 0)
        Me.TVServer.ExpandAll()
        Me.TVServer.SelectedNode = Server.FindNode(Me.TVServer.Nodes, tn.Tag, tn.Text)
    End Sub

    Public Sub Delete()
        If msg.Show_MessageYesNo(7) Then
            Server.Delete_Server_Applikation(Me.TVServer.SelectedNode.Tag, -1)
            Server.Delete_Server(Me.TVServer.SelectedNode.Tag)
        End If
        Me.Save_data()
        Server.Load_tree(Me.TVServer, 0)
        Me.TVServer.ExpandAll()
        Server.Select_First_Datanode(Me.TVServer)
    End Sub


    Private Sub TVServer_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TVServer.AfterSelect
        Try
            Me.Init_Controls()
            If Me.TVServer.SelectedNode.Tag > 0 And Me.TVServer.SelectedNode.Tag < 10000 Then Me.RefreshData(Me.TVServer.SelectedNode.Tag)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub RefreshData(id As Integer)
        Me.Get_Data(id)
    End Sub

#End Region

#Region "Treehandling"


    Private Sub TVApplikation_DragDrop(sender As Object, e As DragEventArgs) Handles TVApplikation.DragDrop
        If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
            Dim SourceNode As TreeNode
            SourceNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
            Server.insert_server_applikation(Me.TVServer.SelectedNode.Tag, SourceNode.Tag)
            refresh_applikation(Me.TVServer.SelectedNode.Tag)
        End If
    End Sub


    Private Sub TVApplikation_DragEnter1(sender As Object, e As DragEventArgs) Handles TVApplikation.DragEnter
        If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then

            'TreeNode found allow move effect
            e.Effect = DragDropEffects.Move
        Else
            'No TreeNode found, prevent move
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Private Sub TVApplikation_DragOver(sender As Object, e As DragEventArgs) Handles TVApplikation.DragOver
        If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) = False Then Exit Sub
        e.Effect = DragDropEffects.Move
    End Sub

    Sub refresh_applikation(ByVal servernr As Integer)
        Try
            Server.refresh_applikation(servernr, TVApplikation)
        Catch
        End Try
    End Sub

    Private Sub ApplikationAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ApplikationAnzeigenToolStripMenuItem.Click
        Try
            Dim f As New frmApplikation(TVApplikation.SelectedNode.Tag, False)
            f.MdiParent = baseform.MdiParent
            f.Show()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
        If MsgBox("Eintrag wirklich löschen?", vbYesNo + MsgBoxStyle.Question) = MsgBoxResult.Yes Then
            Server.Delete_Server_Applikation(Me.TVServer.SelectedNode.Tag, Me.TVApplikation.SelectedNode.Tag)
            refresh_applikation(Me.TVServer.SelectedNode.Tag)
        End If
    End Sub
#End Region

#Region "Open/Close Details"

    Private Sub btnDBOpen_Click(sender As Object, e As EventArgs) Handles btnDBOpen.Click
        Me.GrpDB.Height = 190
    End Sub

    Private Sub btnDBClose_Click(sender As Object, e As EventArgs) Handles btnDBClose.Click
        Me.GrpDB.Height = 42
    End Sub

    Private Sub btnWeitersClose_Click(sender As Object, e As EventArgs) Handles btnWeitersClose.Click
        Me.grpWeiteres.Height = 42
    End Sub

    Private Sub btnWeiteresOpen_Click(sender As Object, e As EventArgs) Handles btnWeiteresOpen.Click
        Me.grpWeiteres.Height = 190
    End Sub
#End Region

#Region "Mausevents"
    Private Sub TVServer_MouseDown(sender As Object, e As MouseEventArgs) Handles TVServer.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Me.TVServer.SelectedNode = Me.TVServer.GetNodeAt(selectPoint)

        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub TVApplikation_MouseDown(sender As Object, e As MouseEventArgs) Handles TVApplikation.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Me.TVApplikation.SelectedNode = Me.TVApplikation.GetNodeAt(selectPoint)

        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub
#End Region
End Class