Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Drawing
Imports System.Drawing.Color
Public Class _frmSysadminMenu

    Const CtrlMask As Byte = 8
    Dim todelete(50) As Integer
    Dim itodelete As Integer
    Dim ssort As Integer

    Private Sub Toolbtn_Schliessen_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles Toolbtn_Schliessen.ButtonClick
        Me.Close()
    End Sub

    Private Sub FrmSysadminMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SysMenu.ContextMenu = Me.ContextMenu1
        Dim menu As New edokadb.clsMySysadminfunkion()
        menu.LoadTreeMenu(SysMenu)
        SysMenu.ExpandAll()
        itodelete = 0
        DivFnkt.Searchnode(Me.SysMenu, 11, 0)
        If DivFnkt.found Then
            Me.ContextMenu1.MenuItems(4).Enabled = True
        Else
            Me.ContextMenu1.MenuItems(4).Enabled = False
        End If
    End Sub

    Private Sub SysMenu_DblClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SysMenu.DoubleClick
        Try

            Dim Eintrag As Long
            Eintrag = Me.SysMenu.SelectedNode.Tag
            Select Case Eintrag
                Case 2
                    Dim frm As New frmApplication()
                    frm.Text = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 3
                    Dim frm As New frmDomainMandant()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 5
                    Dim frm As New frmDomainMeldungstexte()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 6
                    Dim frm As New frmDomainTipTexte()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 7
                    Dim frm As New frmDomainSpalten()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 11
                    Dim frm As New frmDomainSysadminfuntkion()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 12
                    Dim frm As New frmDomainStatusBezeichnung()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 27
                    Dim frm As New frmDomainFunktion()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 32
                    Dim frm As New frmStatustypStatusbezeichnung()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 33
                    Dim frm As New frmDomainStatusTyp()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 35
                    Dim frm As New FrmDomainDokumentart()
                    DivFnkt.Searchnode(Me.SysMenu, 76, 0)
                    If DivFnkt.found Then
                        frm.ContextMenu1.MenuItems(4).Enabled = True
                        frm.ContextMenu1.MenuItems(6).Enabled = True
                    Else
                        frm.ContextMenu1.MenuItems(4).Enabled = False
                        frm.ContextMenu1.MenuItems(6).Enabled = False
                    End If
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 36
                    Dim frm As New frmDomainOfficeVorlage()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 37
                    Try
                        Dim frm As New frmDomainDokumenttyp()
                        frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                        frm.Eintrag = SysMenu.SelectedNode.Text
                        frm.MdiParent = Me.ParentForm
                        frm.Show()
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                Case 38
                    Dim frm As New frmDomainVorlagenfeldregel()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 40
                    Dim frm As New frmDomainIDVMakros()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 41
                    Dim frm As New frmIDVMakroOfficeVorlage()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 42
                    Dim frm As New frmDomainPhsischesArchiv()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 45
                    Dim frm As New frmDomainRolle()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 47
                    Dim frm As New frmRolle_Sysadminfunktion()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 49    'alt
                    'alt, nur noch für überprüfung, wird gelöscht
                    Dim frm As New frmDomainMitarbeiter()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 118
                    Dim frm As New frmAdminMitarbeiter()
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 50
                    Dim frm As New frmDomainTeam()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 52
                    Dim frm As New frmDomainMarktbereich()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 53
                    Dim frm As New frmKostenstelle()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 54
                    Dim frm As New frmDomainNiederlassung()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 56
                    Dim frm As New frmDomainColdFolder()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 57
                    Dim frm As New frmDomainColdIndexFeld()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 58
                    Dim frm As New frmcoldindx()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 59
                    Dim frm As New frmDomainAnwendung()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 62
                    Dim frm As New frmDomainAuswertungen()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 63
                    ' Koe und shu - 2004-08-01
                    Dim frm As New frmReport_reportfeldregel()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 64
                    Dim frm As New frmDomainReportfeldregel()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 65
                    Dim frm As New frmDomainAuswertungsgruppe()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()

                Case 66
                    Dim frm As New frmDomainKeyTabelle()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 68
                    Dim frm As New frmDomainBankinformation()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 69
                    ' Koe und shu - 2004-08-01
                    Dim frm As New frmReportgruppe_Report()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 70
                    Dim frm As New frmDomainMailtexte()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 71
                    Dim frm As New frmMitarbeiterRolle()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 72
                    Dim frm As New frmRolleReportGruppe()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 73
                    Dim frm As New frmRolleDokumentHierarchie()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 74
                    Dim frm As New frmRolleDokumentTyp()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 75
                    Dim frm As New frmDomainBerechtigung()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 76
                    Dim frm As New frmDomainDokumentartDaten()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 78
                    Dim frm As New frmDomainProzess()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 79
                    Dim frm As New frmRolleBerechtigung()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 81
                    Dim frm As New frmDomainFunktionsgruppe()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 83
                    Dim frm As New frmFunktionsgruppeRolle()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 84
                    Dim frm As New frmMitarbeiterFunktionsgruppe()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 86
                    Dim frm As New frmDokumentInBearbeitung()
                    frm.Show()
                    frm.MdiParent = Me.ParentForm
                Case 87
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    Dim t As New TreeView()
                    Dim da As New edokadb.clsMyDokumentart()
                    da.Refresh = True
                    da.Load_Neue_Dokumente(t, "", False, 0)
                    da.Dispose()
                    t.Dispose()
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Case 88
                    If MsgBox("Berechtigungen wirklich neu generieren?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                        Me.Cursor = Cursors.WaitCursor
                        DivFnkt.Generate_Berechtigungen()
                        Me.Cursor = Cursors.Default
                        MsgBox("Berechtigungen wurden generiert.", MsgBoxStyle.Information)
                    End If
                Case 89
                    Dim w As New WordLib()
                    w.Create_Labels()
                Case 90
                    Dim frm As New frmDomainObjektbezeichnung()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 91
                    Dim frm As New frmedokaUpdate()
                    frm.ShowDialog()
                Case 92
                    Dim frm As New frmDomainZuordnungen()
                    frm.ShowDialog()
                Case 93
                    Dim frm As New frmSetDokVerantwortlicher()
                    frm.ShowDialog()
                Case 94
                    Dim frm As New frmDokumentStatistik()
                    frm.Show()
                Case 95
                    Dim frm As New frmLog()
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 96
                    Dim frm As New frmRestorJournal()
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 97
                    Dim frm As New frmNLDokumente()
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 98
                    Dim frm As New frmDokumenttypbeschreibung()
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 99
                    'Koe und shu - 2004-08-01
                    Dim frm As New FrmFunktionsgruppe_Reportgruppe()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 100
                    'Koe und shu - 2004-08-01
                    Dim frm As New frmDomainFeldtyp()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 101
                    'Koe und shu - 2004-08-01
                    Dim frm As New frmDomainSteuerbefehl()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 102
                    'Koe und shu - 2004-08-01
                    Dim frm As New frmQuery()
                    frm.Text = "EDOKA-Queryanalyzer"
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 103
                    Dim f As New frmReportSelection()
                    f.Text = "Auswertungen"
                    Me.Cursor = Cursors.WaitCursor
                    f.MdiParent = Me.ParentForm
                    Try
                        f.Show()
                    Catch ex As Exception
                        Me.Cursor = Cursors.Default
                        MsgBox(ex.Message)
                    End Try
                    Me.Cursor = Cursors.Default
                Case 104
                    Dim frm As New frmDomainGrund()
                    frm.Text = "Lösch-/Reaktivierungsgründe"
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 105
                    'Koe 0
                    Dim frm As New frmDoaminStellvertretung()
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 106
                    'Bud / Rel.4.0 - BUD - 21.05.2007 Korrektur, Dielog nich Mehrmals.
                    Dim frm As New frmNotfallDataGenerate()
                    frm.ShowDialog()
                Case 107
                    'SHU
                    Dim frm As New frmSicherungsjournal()
                    frm.ShowDialog()
                Case 108
                    Dim f As New frmNotfallimport()
                    f.ShowDialog()
                Case 110
                    'Hutter 2005-01-04
                    'EDEX_Dokumentpakete
                    Dim f As New frmDokumentpaketuebersicht(0)
                    f.Text = "Lösch-/Reaktivierungsgründe"
                    f.MdiParent = Me.ParentForm
                    f.Show()
                Case 108
                    Dim f As New frmNotfallimport()
                    f.ShowDialog()
                Case 111
                    Dim f As New frmDomainFAAppl()
                    f.Text = "EDOKA-Import - Fremdanwendungen"
                    f.MdiParent = Me.ParentForm
                    f.Show()
                Case 112
                    Dim f As New frmDomainFADokumenttyp()
                    f.Text = "EDOKA-Import - Zuweisung FA-Dokumenttyp zu EDOKA-Dokumenttyp"
                    f.MdiParent = Me.ParentForm
                    f.Show()
                Case 113
                    Dim f As New frmEDOKA_Import()
                    f.Text = "EDOKA-Import - Journale"
                    f.MdiParent = Me.ParentForm
                    f.Show()
                Case 115
                    Dim f As New frmBLParameter()
                    f.Text = "Banklagernd Parameter"
                    f.MdiParent = Me.ParentForm
                    f.Show()
                Case 116
                    Dim f As New frmpartnermavip()
                    f.Text = "Partner als Mitarbeiter/VIP"
                    f.MdiParent = Me.ParentForm
                    f.Show()
                Case 119
                    'Rel.4.0 - BUD - 21.05.2007 Datenexport für Fremdanwendung
                    Dim frm As New frmExportDataFremdanwendung()
                    frm.ShowDialog()
                Case 122
                    ' Rel.4.0 - KCL Avaloq Doktypen
                    Globals.MandantNr = 1
                    Dim frm As New frmDomainAVQDoktype
                    frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
                    frm.Eintrag = SysMenu.SelectedNode.Text
                    frm.MdiParent = Me.ParentForm
                    frm.Show()
                Case 123
                    Dim f As New FrmDokMail
                    f.MdiParent = Me.ParentForm
                    f.Show()
                Case 124
                    Dim f As New frmBlPartnerUebersicht
                    f.MdiParent = Me.ParentForm
                    f.Show()
                Case 125
                    Dim f As New frmUMVDokumente
                    f.MdiParent = Me.ParentForm
                    f.Show()
                    f.Refresh()
                    f.Load_Data()
                Case 126
                    Dim cnativ As New clsNativ.clsNativeDok
                    cnativ.Connectionstring = Globals.sConnectionString
                    cnativ.Mitarbeiternr = Globals.MitarbeiterNr
                    cnativ.Parentform = Me.MdiParent
                    cnativ.Show_Dokvorlagen()
                Case 128
                    Dim f As New frmAllgDomainEditor("Office_2010_Params", Globals.sConnectionString)
                    f.MdiParent = Me.MdiParent
                    f.Show()
                Case 129
                    Dim f As New FrmBinData
                    f.txtConnstring.Text = Globals.sConnectionString
                    f.MdiParent = Me.MdiParent
                    f.Show()
                Case 130
                    Dim f As New frmAllgDomainEditor("Dokumentmeldung", Globals.sConnectionString)
                    f.MdiParent = Me.MdiParent
                    f.Show()

                Case Else
            End Select
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub MnuNeuerKnoten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeuerKnoten.Click
        Dim a As String
        Dim tn As New TreeNode()
        Dim tnnew As New TreeNode()
        a = InputBox(Globals.MyMsg.Get_Meldungstext(500))
        If a = "" Then Exit Sub
        tn = Me.SysMenu.SelectedNode
        tnnew = tn.Nodes.Add(a)
        With tnnew
            .Tag() = 0
            .ImageIndex() = 3
            .SelectedImageIndex() = 3
        End With
        tn.ImageIndex = 1
        tn.SelectedImageIndex = 2
        If tn.GetNodeCount(True) > 0 Then
            tn.ImageIndex = 1
            tn.SelectedImageIndex = 2
        End If
        Me.SysMenu.Refresh()
    End Sub

    Private Sub MnuKnotenLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuKnotenLoeschen.Click
        Dim tn As New TreeNode()
        Dim tnp As New TreeNode()
        Dim i As Integer
        tn = Me.SysMenu.SelectedNode
        tnp = tn.Parent
        If Not (Me.SysMenu.SelectedNode Is Nothing) Then
            itodelete = itodelete + 1
            todelete(itodelete) = tn.Tag
            If Globals.MyMsg.Show_MessageYesNo(3) = MsgBoxResult.Yes Then
                tn.Remove()
            End If
            If tnp.GetNodeCount(True) = 0 Then
                tnp.ImageIndex = 3
                tnp.SelectedImageIndex = 3
            End If
            Me.SysMenu.Refresh()
        End If
    End Sub

    'Drag and Drop innerhalb des Systemmenus
    Private Sub TreeView_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles SysMenu.DragDrop
        Dim OriginationNode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)

        If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", False) Then
            Dim pt As Point
            Dim DestinationNode As TreeNode
            pt = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
            DestinationNode = CType(sender, TreeView).GetNodeAt(pt)
            DestinationNode.Nodes.Add(CType(OriginationNode.Clone, TreeNode))
            DestinationNode.Expand()
            If (e.KeyState And CtrlMask) <> CtrlMask Then
                OriginationNode.Remove()
            End If
        End If
    End Sub

    Private Sub TreeView_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles SysMenu.DragEnter
        If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then
            If (e.KeyState And CtrlMask) = CtrlMask Then
                e.Effect = DragDropEffects.Copy
            Else
                e.Effect = DragDropEffects.Move
            End If
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Private Sub TreeView_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles SysMenu.ItemDrag
        If e.Button = MouseButtons.Left Then
            DoDragDrop(e.Item, DragDropEffects.Move Or DragDropEffects.Copy)
        End If
    End Sub

    Private Sub MnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSave.Click
        Dim i As Integer
        conn.OpenConnection()
        ListNodeCollectionRecursive(Me.SysMenu.Nodes(0), 0)
        i = conn.CloseConnection(True)
    End Sub

    Private Sub ListNodeCollectionRecursive(ByVal tnParent As TreeNode, ByRef iSort As Integer)
        Dim tn As TreeNode
        If tnParent.GetNodeCount(False) > 0 Then
            tn = tnParent.Nodes(0)
        Else
            tn = Nothing
        End If
        ssort = 0
        Do Until tn Is Nothing
            iSort = iSort + 1
            ListNodeSave(tn, iSort)
            If tn.GetNodeCount(False) > 0 Then
                Call ListNodeCollectionRecursive(tn, iSort)
            End If
            tn = tn.NextNode
        Loop
    End Sub

    Private Sub ListNodeSave(ByVal tn As TreeNode, ByRef isort As Integer)
        Dim dbkey As New edokadb.clsMyKey_Tabelle()
        Dim t As DataTable
        Dim key As Long
        Dim i As Integer
        Dim ftop, fleft, fheight, fwidth As Integer
        Dim sysadmfnkt As New edokadb.clsMySysadminfunkion()
        dbkey.cpMainConnectionProvider = conn
        sysadmfnkt.cpMainConnectionProvider = conn

        If tn.Tag <> 0 Then
            sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(tn.Tag, Int32))
            sysadmfnkt.SelectOne()
            ftop = sysadmfnkt.iFtop.Value
            fleft = sysadmfnkt.iFleft.Value
            fwidth = sysadmfnkt.iFwidth.Value
            fheight = sysadmfnkt.iFheight.Value
        End If
        sysadmfnkt.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        sysadmfnkt.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
        sysadmfnkt.sBezeichnung = New SqlString(CType(tn.Text, String))
        sysadmfnkt.sBeschreibung = New SqlString(CType("", String))
        sysadmfnkt.iParentID = New SqlInt32(CType(tn.Parent.Tag, Int32))
        sysadmfnkt.iImageIndex = New SqlInt32(CType(tn.ImageIndex, Int32))
        sysadmfnkt.iImageIndexOpen = New SqlInt32(CType(tn.SelectedImageIndex, Int32))
        sysadmfnkt.iSort = New SqlInt32(CType(isort, Int32))
        sysadmfnkt.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        sysadmfnkt.bAktiv = New SqlBoolean(CType(True, Boolean))
        sysadmfnkt.iSprache = New SqlInt32(CType(Globals.Sprache, Int32))
        sysadmfnkt.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
        sysadmfnkt.iFtop = New SqlInt32(CType(ftop, Int32))
        sysadmfnkt.iFleft = New SqlInt32(CType(fleft, Int32))
        sysadmfnkt.iFwidth = New SqlInt32(CType(fwidth, Int32))
        sysadmfnkt.iFheight = New SqlInt32(CType(fheight, Int32))

        If tn.Tag <> 0 Then
            sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(tn.Tag, Int32))
            sysadmfnkt.Update()
        Else
            key = dbkey.get_dbkey("sysadminfunktion")
            conn.OpenConnection()
            sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(key, Int32))
            sysadmfnkt.Insert()
            tn.Tag = key
        End If

        For i = 1 To itodelete
            sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(todelete(i), Int32))
            t = sysadmfnkt.SelectOne
            If t.Rows.Count > 0 Then
                sysadmfnkt.Delete()
            End If
        Next
    End Sub

    Private Sub MnuNodeUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim a As String
        a = InputBox("Neuer Name:")
        If a = "" Then Exit Sub
        Me.SysMenu.SelectedNode.Text = a
    End Sub


    Private Sub SysMenu_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles SysMenu.AfterSelect

    End Sub
End Class