MS Verwaltung Doctype

This commit is contained in:
2022-03-04 14:18:23 +01:00
parent 35d129b2ce
commit 87619c9d9a
11 changed files with 250 additions and 206 deletions

View File

@@ -62,7 +62,6 @@ Partial Class frmAdmin_Start
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup20 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList()
@@ -367,7 +366,7 @@ Partial Class frmAdmin_Start
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1, Me.RibbonPageGroup20})
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
@@ -386,12 +385,6 @@ Partial Class frmAdmin_Start
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Datensätze"
'
'RibbonPageGroup20
'
Me.RibbonPageGroup20.ItemLinks.Add(Me.BarButtonItem26)
Me.RibbonPageGroup20.Name = "RibbonPageGroup20"
Me.RibbonPageGroup20.Text = "RibbonPageGroup20"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
@@ -422,20 +415,22 @@ Partial Class frmAdmin_Start
Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
Me.TreeListMenu.AppendNode(New Object() {"Attribute Relations"}, 1, 9, 9, -1, "ATTRIBUTE_RELATIONS")
Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES")
Me.TreeListMenu.AppendNode(New Object() {Nothing}, 3)
Me.TreeListMenu.AppendNode(New Object() {"Doctypes"}, 0, 10, 10, -1, "DOCTYPE_DEF")
Me.TreeListMenu.AppendNode(New Object() {"Doctype Config"}, 4, 10, 10, -1, "IDB_DOCTYPE_CONFIG")
Me.TreeListMenu.AppendNode(New Object() {"Doctypes Config"}, 5, 10, 10, -1, "IDB_DOCTYPE_CONFIG")
Me.TreeListMenu.AppendNode(New Object() {"Doctypes - Business Entities"}, 5, 9, 9, -1, "DOCTYPE_BE")
Me.TreeListMenu.AppendNode(New Object() {"Object Stores"}, 0, "IDB_OBJECT_STORES")
Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, 6, 6, -1, "")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 7, 4, 4, -1, "GI_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Profile Relations"}, 8, 9, 9, -1, "GI_RELATIONS")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 9, 4, 4, -1, "GI_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Profile Relations"}, 10, 9, 9, -1, "GI_RELATIONS")
Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, 7, 7, -1, "")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 10, 4, 4, -1, "CW_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 12, 4, 4, -1, "CW_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Administration"}, -1)
Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 12, 3, 3, -1, "META_SOURCE_SQL")
Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 14, 3, 3, -1, "META_SOURCE_SQL")
Me.TreeListMenu.AppendNode(New Object() {"User Management"}, -1, 11, 11, -1)
Me.TreeListMenu.AppendNode(New Object() {"User List"}, 14, 5, 5, -1, "USERS_USERLIST")
Me.TreeListMenu.AppendNode(New Object() {"Group List"}, 14, 12, 12, -1, "USERS_GROUPLIST")
Me.TreeListMenu.AppendNode(New Object() {"Module List"}, 14, 13, 13, -1, "USERS_MODULELIST")
Me.TreeListMenu.AppendNode(New Object() {"User List"}, 16, 5, 5, -1, "USERS_USERLIST")
Me.TreeListMenu.AppendNode(New Object() {"Group List"}, 16, 12, 12, -1, "USERS_GROUPLIST")
Me.TreeListMenu.AppendNode(New Object() {"Module List"}, 16, 13, 13, -1, "USERS_MODULELIST")
Me.TreeListMenu.EndUnboundLoad()
Me.TreeListMenu.OptionsBehavior.Editable = False
Me.TreeListMenu.OptionsView.ShowColumns = False
@@ -937,5 +932,4 @@ Partial Class frmAdmin_Start
Friend WithEvents RibbonGroup_ClipboardWatcher_Profile As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPage_ClipboardWatcher As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup20 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class