AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of http://scmadmin@172.24.11.74:90/scm/git/record_organizer

Browse Source
This commit is contained in:
SchreiberM 2015-11-05 15:57:55 +01:00
commit 599831b576
3 changed files with 1198 additions and 480 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

752
app/DD-Record-Organiser/XtraForm2.Designer.vb generated
View File

@ -19,477 +19,335 @@ Partial Class XtraForm2
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement15 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Me.components = New System.ComponentModel.Container()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XtraForm2))
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten1")
Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten2")
Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten3")
Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten4")
Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten5")
Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten0", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3, TreeNode4, TreeNode5})
Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten14")
Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten15")
Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten16")
Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten6", New System.Windows.Forms.TreeNode() {TreeNode7, TreeNode8, TreeNode9})
Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten12")
Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten13")
Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten7", New System.Windows.Forms.TreeNode() {TreeNode11, TreeNode12})
Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten9")
Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten10")
Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten11")
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten8", New System.Windows.Forms.TreeNode() {TreeNode14, TreeNode15, TreeNode16})
Dim TileItemElement4 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement8 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement12 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement14 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement3 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement5 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement6 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement7 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement9 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement10 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement11 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement13 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Me.TileNavPane1 = New DevExpress.XtraBars.Navigation.TileNavPane()
Me.TileNavCategory3 = New DevExpress.XtraBars.Navigation.TileNavCategory()
Me.TileNavCategory4 = New DevExpress.XtraBars.Navigation.TileNavCategory()
Me.NavButton2 = New DevExpress.XtraBars.Navigation.NavButton()
Me.NavButton3 = New DevExpress.XtraBars.Navigation.NavButton()
Me.TileNavCategory5 = New DevExpress.XtraBars.Navigation.TileNavCategory()
Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager()
Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel()
Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.hideContainerLeft = New DevExpress.XtraBars.Docking.AutoHideContainer()
Me.TileNavItem1 = New DevExpress.XtraBars.Navigation.TileNavItem()
Me.TileNavItem2 = New DevExpress.XtraBars.Navigation.TileNavItem()
Me.TileNavItem3 = New DevExpress.XtraBars.Navigation.TileNavItem()
Me.TileNavItem4 = New DevExpress.XtraBars.Navigation.TileNavItem()
Me.TileNavSubItem1 = New DevExpress.XtraBars.Navigation.TileNavSubItem()
Me.TileNavSubItem2 = New DevExpress.XtraBars.Navigation.TileNavSubItem()
Me.TileNavSubItem3 = New DevExpress.XtraBars.Navigation.TileNavSubItem()
Me.TileNavSubItem4 = New DevExpress.XtraBars.Navigation.TileNavSubItem()
Me.TileNavSubItem5 = New DevExpress.XtraBars.Navigation.TileNavSubItem()
Me.TileNavSubItem6 = New DevExpress.XtraBars.Navigation.TileNavSubItem()
Me.TileNavSubItem7 = New DevExpress.XtraBars.Navigation.TileNavSubItem()
Me.TileNavSubItem8 = New DevExpress.XtraBars.Navigation.TileNavSubItem()
Me.TileNavSubItem9 = New DevExpress.XtraBars.Navigation.TileNavSubItem()
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DockPanel1.SuspendLayout()
Me.DockPanel1_Container.SuspendLayout()
Me.hideContainerLeft.SuspendLayout()
Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
Me.GridControlSelection = New DevExpress.XtraGrid.GridControl()
Me.ContextMenu_GridControlSelection = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.FunktionenDatagridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.AlleFilterEntfernenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.LayoutViewCard1 = New DevExpress.XtraGrid.Views.Layout.LayoutViewCard()
Me.navPane = New DevExpress.XtraBars.Navigation.TileNavPane()
Me.btn_home = New DevExpress.XtraBars.Navigation.NavButton()
Me.btn_Refresh = New DevExpress.XtraBars.Navigation.NavButton()
Me.TreeViewLevelSelect = New System.Windows.Forms.TreeView()
Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
Me.StatusStrip_Main = New System.Windows.Forms.StatusStrip()
Me.tssStatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.tssRecord = New System.Windows.Forms.ToolStripStatusLabel()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.SplitContainer_Main = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainer_Top = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainer_Bottom = New DevExpress.XtraEditors.SplitContainerControl()
Me.grvwTiles = New DevExpress.XtraGrid.Views.Tile.TileView()
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenu_GridControlSelection.SuspendLayout()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutViewCard1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip_Main.SuspendLayout()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer_Main.SuspendLayout()
CType(Me.SplitContainer_Top, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer_Top.SuspendLayout()
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer_Bottom.SuspendLayout()
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TileNavPane1
'grvwCarousel
'
Me.TileNavPane1.ButtonPadding = New System.Windows.Forms.Padding(12)
Me.TileNavPane1.Buttons.Add(Me.NavButton2)
Me.TileNavPane1.Buttons.Add(Me.NavButton3)
Me.TileNavPane1.Buttons.Add(Me.TileNavCategory5)
Me.grvwCarousel.GridControl = Me.GridControlSelection
Me.grvwCarousel.Name = "grvwCarousel"
Me.grvwCarousel.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwCarousel.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwCarousel.OptionsBehavior.Editable = False
Me.grvwCarousel.OptionsBehavior.ReadOnly = True
Me.grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Row
Me.grvwCarousel.TemplateCard = Me.LayoutViewCard1
'
'TileNavCategory3
'GridControlSelection
'
Me.TileNavCategory3.Caption = "Marken"
Me.TileNavCategory3.Name = "TileNavCategory3"
Me.TileNavCategory3.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavCategory3.OwnerCollection = Me.TileNavPane1.Categories
Me.GridControlSelection.ContextMenuStrip = Me.ContextMenu_GridControlSelection
Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill
GridLevelNode1.LevelTemplate = Me.grvwCarousel
GridLevelNode1.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwTiles
GridLevelNode2.RelationName = "Level2"
Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2})
Me.GridControlSelection.Location = New System.Drawing.Point(0, 0)
Me.GridControlSelection.MainView = Me.grvwGrid
Me.GridControlSelection.Name = "GridControlSelection"
Me.GridControlSelection.Size = New System.Drawing.Size(1157, 272)
Me.GridControlSelection.TabIndex = 2
Me.GridControlSelection.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles})
'
'TileBarItem2
'ContextMenu_GridControlSelection
'
Me.TileNavCategory3.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement1.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement1.Text = "Marken"
Me.TileNavCategory3.Tile.Elements.Add(TileItemElement1)
Me.TileNavCategory3.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavCategory3.Tile.Name = "TileBarItem2"
Me.ContextMenu_GridControlSelection.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenDatagridToolStripMenuItem, Me.ToolStripSeparator1, Me.AlleFilterEntfernenToolStripMenuItem, Me.ExportNachExcelToolStripMenuItem, Me.AnsichtUmschaltenToolStripMenuItem, Me.AnsichtZurücksetzenToolStripMenuItem})
Me.ContextMenu_GridControlSelection.Name = "ContextMenu_GridControlSelection"
Me.ContextMenu_GridControlSelection.Size = New System.Drawing.Size(191, 120)
'
'TileNavCategory4
'FunktionenDatagridToolStripMenuItem
'
Me.TileNavCategory4.Caption = "Personalakte"
Me.TileNavCategory4.Items.AddRange(New DevExpress.XtraBars.Navigation.TileNavItem() {Me.TileNavItem1, Me.TileNavItem2, Me.TileNavItem3, Me.TileNavItem4})
Me.TileNavCategory4.Name = "TileNavCategory4"
Me.TileNavCategory4.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavCategory4.OwnerCollection = Me.TileNavPane1.Categories
Me.FunktionenDatagridToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FunktionenDatagridToolStripMenuItem.Name = "FunktionenDatagridToolStripMenuItem"
Me.FunktionenDatagridToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.FunktionenDatagridToolStripMenuItem.Text = "Funktionen DataGrid"
'
'TileBarItem3
'ToolStripSeparator1
'
Me.TileNavCategory4.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement15.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement15.Text = "Personalakte"
Me.TileNavCategory4.Tile.Elements.Add(TileItemElement15)
Me.TileNavCategory4.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavCategory4.Tile.Name = "TileBarItem3"
Me.TileNavPane1.Categories.AddRange(New DevExpress.XtraBars.Navigation.TileNavCategory() {Me.TileNavCategory3, Me.TileNavCategory4})
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(187, 6)
'
'AlleFilterEntfernenToolStripMenuItem
'
Me.AlleFilterEntfernenToolStripMenuItem.Name = "AlleFilterEntfernenToolStripMenuItem"
Me.AlleFilterEntfernenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.AlleFilterEntfernenToolStripMenuItem.Text = "Alle Filter entfernen"
'
'ExportNachExcelToolStripMenuItem
'
Me.ExportNachExcelToolStripMenuItem.Name = "ExportNachExcelToolStripMenuItem"
Me.ExportNachExcelToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.ExportNachExcelToolStripMenuItem.Text = "Export nach Excel"
'
'AnsichtUmschaltenToolStripMenuItem
'
Me.AnsichtUmschaltenToolStripMenuItem.Name = "AnsichtUmschaltenToolStripMenuItem"
Me.AnsichtUmschaltenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.AnsichtUmschaltenToolStripMenuItem.Text = "Ansicht umschalten"
'
'AnsichtZurücksetzenToolStripMenuItem
'
Me.AnsichtZurücksetzenToolStripMenuItem.Name = "AnsichtZurücksetzenToolStripMenuItem"
Me.AnsichtZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.AnsichtZurücksetzenToolStripMenuItem.Text = "Ansicht zurücksetzen"
'
'grvwGrid
'
Me.grvwGrid.GridControl = Me.GridControlSelection
Me.grvwGrid.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _
"ssen"
Me.grvwGrid.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True
'
'LayoutViewCard1
'
Me.LayoutViewCard1.ExpandButtonLocation = DevExpress.Utils.GroupElementLocation.AfterText
Me.LayoutViewCard1.Name = "LayoutViewCard1"
'
'navPane
'
Me.navPane.ButtonPadding = New System.Windows.Forms.Padding(12)
Me.navPane.Buttons.Add(Me.btn_home)
Me.navPane.Buttons.Add(Me.btn_Refresh)
'
'TileNavCategory1
'
Me.TileNavPane1.DefaultCategory.Name = "TileNavCategory1"
Me.TileNavPane1.DefaultCategory.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavPane1.DefaultCategory.OwnerCollection = Nothing
'
'
'
Me.TileNavPane1.DefaultCategory.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
Me.TileNavPane1.DefaultCategory.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavPane1.Dock = System.Windows.Forms.DockStyle.Top
Me.TileNavPane1.Location = New System.Drawing.Point(0, 0)
Me.TileNavPane1.Name = "TileNavPane1"
Me.TileNavPane1.OptionsPrimaryDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavPane1.OptionsSecondaryDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavPane1.Size = New System.Drawing.Size(1460, 40)
Me.TileNavPane1.TabIndex = 0
Me.TileNavPane1.Text = "TileNavPane1"
'
'NavButton2
'
Me.NavButton2.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.NavButton2.Caption = ""
Me.NavButton2.Glyph = CType(resources.GetObject("NavButton2.Glyph"), System.Drawing.Image)
Me.NavButton2.IsMain = True
Me.NavButton2.Name = "NavButton2"
'
'NavButton3
'
Me.NavButton3.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right
Me.NavButton3.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.NavButton3.Caption = ""
Me.NavButton3.Glyph = CType(resources.GetObject("NavButton3.Glyph"), System.Drawing.Image)
Me.NavButton3.Name = "NavButton3"
'
'TileNavCategory5
'
Me.TileNavCategory5.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right
Me.TileNavCategory5.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.TileNavCategory5.Caption = ""
Me.TileNavCategory5.Glyph = CType(resources.GetObject("TileNavCategory5.Glyph"), System.Drawing.Image)
Me.TileNavCategory5.Name = "TileNavCategory5"
Me.TileNavCategory5.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavCategory5.OwnerCollection = Nothing
'
'
'
Me.TileNavCategory5.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
Me.TileNavCategory5.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
'
'DockManager1
'
Me.DockManager1.AutoHideContainers.AddRange(New DevExpress.XtraBars.Docking.AutoHideContainer() {Me.hideContainerLeft})
Me.DockManager1.Form = Me
Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane"})
'
'DockPanel1
'
Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
Me.DockPanel1.ID = New System.Guid("63f074fd-6844-4a20-8383-8cb6dec31421")
Me.DockPanel1.Location = New System.Drawing.Point(-200, 0)
Me.DockPanel1.Name = "DockPanel1"
Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200)
Me.DockPanel1.SavedDock = DevExpress.XtraBars.Docking.DockingStyle.Left
Me.DockPanel1.SavedIndex = 0
Me.DockPanel1.Size = New System.Drawing.Size(200, 619)
Me.DockPanel1.Text = "DockPanel1"
Me.DockPanel1.Visibility = DevExpress.XtraBars.Docking.DockVisibility.AutoHide
'
'DockPanel1_Container
'
Me.DockPanel1_Container.Controls.Add(Me.TreeView1)
Me.DockPanel1_Container.Location = New System.Drawing.Point(4, 38)
Me.DockPanel1_Container.Name = "DockPanel1_Container"
Me.DockPanel1_Container.Size = New System.Drawing.Size(192, 577)
Me.DockPanel1_Container.TabIndex = 0
'
'TreeView1
'
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeView1.Location = New System.Drawing.Point(0, 0)
Me.TreeView1.Name = "TreeView1"
TreeNode1.Name = "Knoten1"
TreeNode1.Text = "Knoten1"
TreeNode2.Name = "Knoten2"
TreeNode2.Text = "Knoten2"
TreeNode3.Name = "Knoten3"
TreeNode3.Text = "Knoten3"
TreeNode4.Name = "Knoten4"
TreeNode4.Text = "Knoten4"
TreeNode5.Name = "Knoten5"
TreeNode5.Text = "Knoten5"
TreeNode6.Name = "Knoten0"
TreeNode6.Text = "Knoten0"
TreeNode7.Name = "Knoten14"
TreeNode7.Text = "Knoten14"
TreeNode8.Name = "Knoten15"
TreeNode8.Text = "Knoten15"
TreeNode9.Name = "Knoten16"
TreeNode9.Text = "Knoten16"
TreeNode10.Name = "Knoten6"
TreeNode10.Text = "Knoten6"
TreeNode11.Name = "Knoten12"
TreeNode11.Text = "Knoten12"
TreeNode12.Name = "Knoten13"
TreeNode12.Text = "Knoten13"
TreeNode13.Name = "Knoten7"
TreeNode13.Text = "Knoten7"
TreeNode14.Name = "Knoten9"
TreeNode14.Text = "Knoten9"
TreeNode15.Name = "Knoten10"
TreeNode15.Text = "Knoten10"
TreeNode16.Name = "Knoten11"
TreeNode16.Text = "Knoten11"
TreeNode17.Name = "Knoten8"
TreeNode17.Text = "Knoten8"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode6, TreeNode10, TreeNode13, TreeNode17})
Me.TreeView1.Size = New System.Drawing.Size(192, 577)
Me.TreeView1.TabIndex = 6
'
'hideContainerLeft
'
Me.hideContainerLeft.BackColor = System.Drawing.Color.White
Me.hideContainerLeft.Controls.Add(Me.DockPanel1)
Me.hideContainerLeft.Dock = System.Windows.Forms.DockStyle.Left
Me.hideContainerLeft.Location = New System.Drawing.Point(0, 40)
Me.hideContainerLeft.Name = "hideContainerLeft"
Me.hideContainerLeft.Size = New System.Drawing.Size(35, 619)
'
'TileNavItem1
'
Me.TileNavItem1.Caption = "TileNavItem1"
Me.TileNavItem1.Name = "TileNavItem1"
Me.TileNavItem1.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavItem1.SubItems.AddRange(New DevExpress.XtraBars.Navigation.TileNavSubItem() {Me.TileNavSubItem1, Me.TileNavSubItem2})
'
'TileBarItem1
'
Me.TileNavItem1.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement4.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement4.Text = "TileNavItem1"
Me.TileNavItem1.Tile.Elements.Add(TileItemElement4)
Me.TileNavItem1.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavItem1.Tile.Name = "TileBarItem1"
'
'TileNavItem2
'
Me.TileNavItem2.Caption = "TileNavItem2"
Me.TileNavItem2.Name = "TileNavItem2"
Me.TileNavItem2.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavItem2.SubItems.AddRange(New DevExpress.XtraBars.Navigation.TileNavSubItem() {Me.TileNavSubItem3, Me.TileNavSubItem4, Me.TileNavSubItem5})
'
'TileBarItem4
'
Me.TileNavItem2.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement8.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement8.Text = "TileNavItem2"
Me.TileNavItem2.Tile.Elements.Add(TileItemElement8)
Me.TileNavItem2.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavItem2.Tile.Name = "TileBarItem4"
'
'TileNavItem3
'
Me.TileNavItem3.Caption = "TileNavItem3"
Me.TileNavItem3.Name = "TileNavItem3"
Me.TileNavItem3.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavItem3.SubItems.AddRange(New DevExpress.XtraBars.Navigation.TileNavSubItem() {Me.TileNavSubItem6, Me.TileNavSubItem7, Me.TileNavSubItem8})
'
'TileBarItem5
'
Me.TileNavItem3.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement12.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement12.Text = "TileNavItem3"
Me.TileNavItem3.Tile.Elements.Add(TileItemElement12)
Me.TileNavItem3.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavItem3.Tile.Name = "TileBarItem5"
'
'TileNavItem4
'
Me.TileNavItem4.Caption = "TileNavItem4"
Me.TileNavItem4.Name = "TileNavItem4"
Me.TileNavItem4.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavItem4.SubItems.AddRange(New DevExpress.XtraBars.Navigation.TileNavSubItem() {Me.TileNavSubItem9})
'
'TileBarItem6
'
Me.TileNavItem4.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement14.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement14.Text = "TileNavItem4"
Me.TileNavItem4.Tile.Elements.Add(TileItemElement14)
Me.TileNavItem4.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavItem4.Tile.Name = "TileBarItem6"
'
'TileNavSubItem1
'
Me.TileNavSubItem1.Caption = "TileNavSubItem1"
Me.TileNavSubItem1.Name = "TileNavSubItem1"
Me.TileNavSubItem1.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'
'TileBarItem7
'
Me.TileNavSubItem1.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement2.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement2.Text = "TileNavSubItem1"
Me.TileNavSubItem1.Tile.Elements.Add(TileItemElement2)
Me.TileNavSubItem1.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavSubItem1.Tile.Name = "TileBarItem7"
'
'TileNavSubItem2
'
Me.TileNavSubItem2.Caption = "TileNavSubItem2"
Me.TileNavSubItem2.Name = "TileNavSubItem2"
Me.TileNavSubItem2.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'
'TileBarItem8
'
Me.TileNavSubItem2.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement3.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement3.Text = "TileNavSubItem2"
Me.TileNavSubItem2.Tile.Elements.Add(TileItemElement3)
Me.TileNavSubItem2.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavSubItem2.Tile.Name = "TileBarItem8"
'
'TileNavSubItem3
'
Me.TileNavSubItem3.Caption = "TileNavSubItem3"
Me.TileNavSubItem3.Name = "TileNavSubItem3"
Me.TileNavSubItem3.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'
'TileBarItem9
'
Me.TileNavSubItem3.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement5.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement5.Text = "TileNavSubItem3"
Me.TileNavSubItem3.Tile.Elements.Add(TileItemElement5)
Me.TileNavSubItem3.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavSubItem3.Tile.Name = "TileBarItem9"
'
'TileNavSubItem4
'
Me.TileNavSubItem4.Caption = "TileNavSubItem4"
Me.TileNavSubItem4.Name = "TileNavSubItem4"
Me.TileNavSubItem4.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'
'TileBarItem10
'
Me.TileNavSubItem4.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement6.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement6.Text = "TileNavSubItem4"
Me.TileNavSubItem4.Tile.Elements.Add(TileItemElement6)
Me.TileNavSubItem4.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavSubItem4.Tile.Name = "TileBarItem10"
'
'TileNavSubItem5
'
Me.TileNavSubItem5.Caption = "TileNavSubItem5"
Me.TileNavSubItem5.Name = "TileNavSubItem5"
Me.TileNavSubItem5.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'
'TileBarItem11
'
Me.TileNavSubItem5.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement7.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement7.Text = "TileNavSubItem5"
Me.TileNavSubItem5.Tile.Elements.Add(TileItemElement7)
Me.TileNavSubItem5.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavSubItem5.Tile.Name = "TileBarItem11"
'
'TileNavSubItem6
'
Me.TileNavSubItem6.Caption = "TileNavSubItem6"
Me.TileNavSubItem6.Name = "TileNavSubItem6"
Me.TileNavSubItem6.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'
'TileBarItem12
'
Me.TileNavSubItem6.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement9.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement9.Text = "TileNavSubItem6"
Me.TileNavSubItem6.Tile.Elements.Add(TileItemElement9)
Me.TileNavSubItem6.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavSubItem6.Tile.Name = "TileBarItem12"
'
'TileNavSubItem7
'
Me.TileNavSubItem7.Caption = "TileNavSubItem7"
Me.TileNavSubItem7.Name = "TileNavSubItem7"
Me.TileNavSubItem7.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'
'TileBarItem13
'
Me.TileNavSubItem7.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement10.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement10.Text = "TileNavSubItem7"
Me.TileNavSubItem7.Tile.Elements.Add(TileItemElement10)
Me.TileNavSubItem7.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavSubItem7.Tile.Name = "TileBarItem13"
'
'TileNavSubItem8
'
Me.TileNavSubItem8.Caption = "TileNavSubItem8"
Me.TileNavSubItem8.Name = "TileNavSubItem8"
Me.TileNavSubItem8.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'
'TileBarItem14
'
Me.TileNavSubItem8.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement11.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement11.Text = "TileNavSubItem8"
Me.TileNavSubItem8.Tile.Elements.Add(TileItemElement11)
Me.TileNavSubItem8.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavSubItem8.Tile.Name = "TileBarItem14"
'
'TileNavSubItem9
'
Me.TileNavSubItem9.Caption = "TileNavSubItem9"
Me.TileNavSubItem9.Name = "TileNavSubItem9"
Me.TileNavSubItem9.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'
'TileBarItem15
'
Me.TileNavSubItem9.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
TileItemElement13.ImageBorderColor = System.Drawing.Color.Empty
TileItemElement13.Text = "TileNavSubItem9"
Me.TileNavSubItem9.Tile.Elements.Add(TileItemElement13)
Me.TileNavSubItem9.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.TileNavSubItem9.Tile.Name = "TileBarItem15"
Me.navPane.DefaultCategory.Name = "TileNavCategory1"
Me.navPane.DefaultCategory.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.navPane.DefaultCategory.OwnerCollection = Nothing
'
'
'
Me.navPane.DefaultCategory.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
Me.navPane.DefaultCategory.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.navPane.Dock = System.Windows.Forms.DockStyle.Top
Me.navPane.Location = New System.Drawing.Point(0, 0)
Me.navPane.Name = "navPane"
Me.navPane.OptionsPrimaryDropDown.BackColor = System.Drawing.Color.Empty
Me.navPane.OptionsSecondaryDropDown.BackColor = System.Drawing.Color.Empty
Me.navPane.Size = New System.Drawing.Size(1460, 40)
Me.navPane.TabIndex = 0
Me.navPane.Text = "TileNavPane1"
'
'btn_home
'
Me.btn_home.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.btn_home.Caption = ""
Me.btn_home.Glyph = CType(resources.GetObject("btn_home.Glyph"), System.Drawing.Image)
Me.btn_home.IsMain = True
Me.btn_home.Name = "btn_home"
'
'btn_Refresh
'
Me.btn_Refresh.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right
Me.btn_Refresh.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.btn_Refresh.Caption = ""
Me.btn_Refresh.Glyph = CType(resources.GetObject("btn_Refresh.Glyph"), System.Drawing.Image)
Me.btn_Refresh.Name = "btn_Refresh"
'
'TreeViewLevelSelect
'
Me.TreeViewLevelSelect.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeViewLevelSelect.Location = New System.Drawing.Point(0, 0)
Me.TreeViewLevelSelect.Name = "TreeViewLevelSelect"
Me.TreeViewLevelSelect.Size = New System.Drawing.Size(298, 272)
Me.TreeViewLevelSelect.TabIndex = 1
'
'StatusStrip_Main
'
Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tssStatus, Me.tssRecord})
Me.StatusStrip_Main.Location = New System.Drawing.Point(0, 637)
Me.StatusStrip_Main.Name = "StatusStrip_Main"
Me.StatusStrip_Main.Size = New System.Drawing.Size(1460, 22)
Me.StatusStrip_Main.TabIndex = 3
Me.StatusStrip_Main.Text = "StatusStrip1"
'
'tssStatus
'
Me.tssStatus.Name = "tssStatus"
Me.tssStatus.Size = New System.Drawing.Size(121, 17)
Me.tssStatus.Text = "ToolStripStatusLabel1"
'
'tssRecord
'
Me.tssRecord.Name = "tssRecord"
Me.tssRecord.Size = New System.Drawing.Size(121, 17)
Me.tssRecord.Text = "ToolStripStatusLabel1"
'
'XtraTabControl1
'
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.Size = New System.Drawing.Size(1050, 320)
Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
'
'XtraTabPage1
'
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(1044, 292)
Me.XtraTabPage1.Text = "XtraTabPage1"
'
'XtraTabPage2
'
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1044, 384)
Me.XtraTabPage2.Text = "XtraTabPage2"
'
'SplitContainer_Main
'
Me.SplitContainer_Main.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer_Main.Horizontal = False
Me.SplitContainer_Main.Location = New System.Drawing.Point(0, 40)
Me.SplitContainer_Main.Name = "SplitContainer_Main"
Me.SplitContainer_Main.Panel1.Controls.Add(Me.SplitContainer_Top)
Me.SplitContainer_Main.Panel1.Text = "Panel1"
Me.SplitContainer_Main.Panel2.Controls.Add(Me.SplitContainer_Bottom)
Me.SplitContainer_Main.Panel2.Text = "Panel2"
Me.SplitContainer_Main.Size = New System.Drawing.Size(1460, 597)
Me.SplitContainer_Main.SplitterPosition = 272
Me.SplitContainer_Main.TabIndex = 4
Me.SplitContainer_Main.Text = "SplitContainerControl1"
'
'SplitContainer_Top
'
Me.SplitContainer_Top.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer_Top.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer_Top.Name = "SplitContainer_Top"
Me.SplitContainer_Top.Panel1.Controls.Add(Me.TreeViewLevelSelect)
Me.SplitContainer_Top.Panel1.Text = "Panel1"
Me.SplitContainer_Top.Panel2.Controls.Add(Me.GridControlSelection)
Me.SplitContainer_Top.Panel2.Text = "Panel2"
Me.SplitContainer_Top.Size = New System.Drawing.Size(1460, 272)
Me.SplitContainer_Top.SplitterPosition = 298
Me.SplitContainer_Top.TabIndex = 0
Me.SplitContainer_Top.Text = "SplitContainerControl1"
'
'SplitContainer_Bottom
'
Me.SplitContainer_Bottom.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainer_Bottom.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer_Bottom.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer_Bottom.Name = "SplitContainer_Bottom"
Me.SplitContainer_Bottom.Panel1.Controls.Add(Me.XtraTabControl1)
Me.SplitContainer_Bottom.Panel1.Text = "Panel1"
Me.SplitContainer_Bottom.Panel2.Text = "Panel2"
Me.SplitContainer_Bottom.Size = New System.Drawing.Size(1460, 320)
Me.SplitContainer_Bottom.SplitterPosition = 1050
Me.SplitContainer_Bottom.TabIndex = 0
Me.SplitContainer_Bottom.Text = "SplitContainerControl1"
'
'grvwTiles
'
Me.grvwTiles.GridControl = Me.GridControlSelection
Me.grvwTiles.Name = "grvwTiles"
'
'XtraForm2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1460, 659)
Me.Controls.Add(Me.hideContainerLeft)
Me.Controls.Add(Me.TileNavPane1)
Me.Controls.Add(Me.SplitContainer_Main)
Me.Controls.Add(Me.StatusStrip_Main)
Me.Controls.Add(Me.navPane)
Me.Name = "XtraForm2"
Me.Text = "XtraForm2"
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit()
Me.DockPanel1.ResumeLayout(False)
Me.DockPanel1_Container.ResumeLayout(False)
Me.hideContainerLeft.ResumeLayout(False)
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenu_GridControlSelection.ResumeLayout(False)
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutViewCard1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip_Main.ResumeLayout(False)
Me.StatusStrip_Main.PerformLayout()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer_Main.ResumeLayout(False)
CType(Me.SplitContainer_Top, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer_Top.ResumeLayout(False)
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer_Bottom.ResumeLayout(False)
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TileNavPane1 As DevExpress.XtraBars.Navigation.TileNavPane
Friend WithEvents NavButton2 As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents NavButton3 As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents TileNavCategory5 As DevExpress.XtraBars.Navigation.TileNavCategory
Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager
Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel
Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
Friend WithEvents hideContainerLeft As DevExpress.XtraBars.Docking.AutoHideContainer
Friend WithEvents TileNavCategory4 As DevExpress.XtraBars.Navigation.TileNavCategory
Friend WithEvents TileNavItem1 As DevExpress.XtraBars.Navigation.TileNavItem
Friend WithEvents TileNavSubItem1 As DevExpress.XtraBars.Navigation.TileNavSubItem
Friend WithEvents TileNavSubItem2 As DevExpress.XtraBars.Navigation.TileNavSubItem
Friend WithEvents TileNavItem2 As DevExpress.XtraBars.Navigation.TileNavItem
Friend WithEvents TileNavSubItem3 As DevExpress.XtraBars.Navigation.TileNavSubItem
Friend WithEvents TileNavSubItem4 As DevExpress.XtraBars.Navigation.TileNavSubItem
Friend WithEvents TileNavSubItem5 As DevExpress.XtraBars.Navigation.TileNavSubItem
Friend WithEvents TileNavItem3 As DevExpress.XtraBars.Navigation.TileNavItem
Friend WithEvents TileNavSubItem6 As DevExpress.XtraBars.Navigation.TileNavSubItem
Friend WithEvents TileNavSubItem7 As DevExpress.XtraBars.Navigation.TileNavSubItem
Friend WithEvents TileNavSubItem8 As DevExpress.XtraBars.Navigation.TileNavSubItem
Friend WithEvents TileNavItem4 As DevExpress.XtraBars.Navigation.TileNavItem
Friend WithEvents TileNavSubItem9 As DevExpress.XtraBars.Navigation.TileNavSubItem
Friend WithEvents TileNavCategory3 As DevExpress.XtraBars.Navigation.TileNavCategory
Friend WithEvents navPane As DevExpress.XtraBars.Navigation.TileNavPane
Friend WithEvents btn_home As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents btn_Refresh As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents TreeViewLevelSelect As System.Windows.Forms.TreeView
Friend WithEvents GridControlSelection As DevExpress.XtraGrid.GridControl
Friend WithEvents grvwGrid As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents BindingSource_Entity As System.Windows.Forms.BindingSource
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
Friend WithEvents tssStatus As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tssRecord As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ContextMenu_GridControlSelection As System.Windows.Forms.ContextMenuStrip
Friend WithEvents FunktionenDatagridToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents AlleFilterEntfernenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ExportNachExcelToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AnsichtUmschaltenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AnsichtZurücksetzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents SplitContainer_Main As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents SplitContainer_Top As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents SplitContainer_Bottom As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView
Friend WithEvents LayoutViewCard1 As DevExpress.XtraGrid.Views.Layout.LayoutViewCard
Friend WithEvents grvwTiles As DevExpress.XtraGrid.Views.Tile.TileView
End Class

48
app/DD-Record-Organiser/XtraForm2.resx
View File

@ -117,8 +117,11 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenu_GridControlSelection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>321, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="NavButton2.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="btn_home.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAAWlJREFUWEfF
@ -131,39 +134,24 @@
oP8AAAAASUVORK5CYII=
</value>
</data>
<data name="NavButton3.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="btn_Refresh.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAodEVYdFRpdGxlAERvY3VtZW50YXRpb247SGVscDtR
dWVzdGlvbjtJbmRleDtvPDV3AAABxklEQVRYR8WXPW7CQBCFOQESEifIOdzT0aWnSsVBuAKnSItEky4N
ZaRUoUtLSeu8F+1Y4/WLdzde4eKT8Mx748H7Zy/atp0VGXwkMqhommYJtuAATuAK7gH+Zow5apaqhkIG
PSi2BnvwBtpMqKVnrWp6ZNBAgQ14BeomOdC7UbUNGSQw7sBnKDQF1tipexAZpAF8hwI1YC3ZxCAAIR97
jX8ew5qD4ehdQMAJlxrzM3iJfCvAFfAOlMdg7d7E7H4QJDlzldE4eH0M8mzk4vSKvfd4M9f52FI7e2Pw
PJMo9gRuQNUgvEe3T3gjNxBlMFZOy3/65XK9J8Nrl1NsTZttMl3QHqP8LcrzKfh8TNewN3ErVeIcShs4
mdabuJ8rcQ5HqxNqpYbgalpv4qGixCkuViPU4cQcm4TkbvqpDfRWBq5TK8CQDZQOATek/9ycyCEonYRc
it7/4XIp5CRMTZwYerxfaf5CLsPURlQTuRGltuJa6K04NJE6jDq8L3ilTqAPI4JkznH8i/cFr9RFjB/H
BIL5XkgMCOd7JTNoADWeBGukX0ohUlR5LQeD2rkNkEkfJkDVLGrAKPo0A6pGx6CBuZDBx9EufgAlyUUt
rUY3UwAAAABJRU5ErkJggg==
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAndEVYdFRpdGxlAFJlZnJlc2g7UmVwZWF0O0JhcnM7
UmliYm9uO1JlbG9hZM1N9ukAAAGxSURBVFhHxZYxTsNAEEVzACSuk8LcJCegJE1ocg5OQZUCbkLHEaiQ
6Mx/1tqaGY9jC5tN8STv+P/5jnez3l3btjclLdYkLdYkLdZkVGia5hp7cRKv4kN8F7imxj00mbcj5o0K
mUk8iBfxJdoZ0KDFk/U62zwXDonhUfALs7Br4MFre52FYpY/wLP4EVnAEvDSYwgHm+fCoYiBp8/C38WT
YK7vC1xT417U0+NiazbPhYMEwPzF1/4pjuIuenq4VzRorddhPa4BSAAsImui4SFqI9L0HIrH9hiwHtcA
JOB1xtV+jLoM6SxvwvYYsB7XACTgv2wNzOvka7dI1zMsuAzrcQ3Wouaz4WA9rsFa1Hw2HKzHNbgFabEm
bpC9rgS3l6/FDZKwCHPsPGtxgxAW6cLBeqaQjl0xbs2nqHODILawqXThYD1TSMeWbHuwue2jzg2CwdJt
xWLRAxRt3IrZ3kdaNwiGCA3/+jHiw9YdUKLHDYwB+IRu9TkeDiY2D9ygGKBfcFseSBY/wLDaC1seyVwe
uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
</value>
</data>
<data name="TileNavCategory5.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAsdEVYdFRpdGxlAE9wdGlvbnM7Q3VzdG9taXo7QmFy
cztSaWJib247U3RhbmRhcmQ7ZTTRegAAAkBJREFUWEfF1rFqFUEUxvEELVOLKHkBISBYCVfSWvkMqQJC
ijxBgm8gBBR8BBu1SsTCENIHAj6AoE3akGAhrP8v7FnOzH5zk3uLtfixu2fOzJm7O7N3V7qu+69scEo2
OCUblNlstoFzXOAQu1iH2myfZdhgoNAmfqPrfcZz2Pxl2GBGMTeJdZdbI28LR7jqj7oucoqLFjrtIyYg
uy4vI2cHf1Mf+YOtnJc7bOSGjLYn/QDh0OUF2l+iLh6Ocm7upAW3mRtTWz2BC5cntGnxXqbc2lXOzx21
2vWsR5MgVj8COwHiD/Ez5TnNO6CtpgRNQgX1q0XneRHK6BEQW8NZynH0WJprQPvcdXJOcQ/qJzqPH9Ci
4ju5uOQJ6CWjLeY6O1+gX62+B32s5RqvUBSX4USN0EtmkUk8g7abawu/0NxhwwlJQXdCj0O3VAszXsUn
yAO/xrztJtpZj1EUzWzQYZD8nN/jtu2WH5EdU2zQ6QfSgB/wAPO22zvkRWrHFBt00mCr+AhXeFjpHAv1
eMEGnTwQxx+oi8dKf4FPGG6/1OMFG3TyQBy/IxfXSn+K7RQbFqDU4wUbdGIg7EEFjqE78RWP8BZRPNxs
QdgxxQbVoSGKv0m59/GtjzvNl5DYoJKNobiuU+7Sr2EZBYTkWlFcqtyl/oikuAgkZqPiYnIX/iuW4iKQ
GGxxMbmy0MeIFBeBRGkWlyo3u/PnmBQXgcS5xSXlOnf6IJXiIpCoCTSLi+uXkXPrJ7mMAlOzwSnZ4HS6
lX+hk+uQBU3bYgAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>178, 17</value>
</metadata>
</root>

878
app/DD-Record-Organiser/XtraForm2.vb
View File

@ -1,6 +1,878 @@
Public Class XtraForm2
Imports DevExpress.Utils
Imports DevExpress.XtraBars.Navigation
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile
Private Sub NavButton2_ElementClick(sender As Object, e As DevExpress.XtraBars.Navigation.NavElementEventArgs) Handles NavButton2.ElementClick
Public Class XtraForm2
Public CONSTRUCTORID As Integer
Public DT_CONSTRUCT_VIEW As DataTable
Public EBENE2_PARENT_ID As Integer
Public EBENE3_PARENT_ID As Integer
Public ACT_EBENE As Integer
Public ACT_EBENE_STRING
Public SelectedRecordID As Integer
Public PARENT_RECORDID As Integer
Public EBENE1_ENTITY
Public EBENE2_ENTITY
Public EBENE3_ENTITY
Public EBENE1_COLUMNNAME
Public EBENE2_COLUMNNAME
Public EBENE3_COLUMNNAME
Public EBENE1_RECID
Public EBENE2_RECID
Public EBENE3_RECID
Public EBENE1_GRID_RESULT
Public EBENE2_GRID_RESULT
Public EBENE3_GRID_RESULT
Public act_FormViewID
Public DT_SELECTION
Public EBENE_SQLRESULT
Public EDIT_STATE As EditState = EditState.None
Public GRID_TYPE As GridType = GridType.Carousel
Public Enum EditState
None
Insert
Update
End Enum
Public Enum GridType
Grid
Carousel
End Enum
Private Sub XtraForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
Init_Grid_Control()
'Load_Tree_View()
Load_Tree_View(CONSTRUCTORID)
End Sub
#Region "NavPane"
Private Function FindNode(tncoll As TreeNodeCollection, strText As [String]) As TreeNode
Dim tnFound As TreeNode
For Each tnCurr As TreeNode In tncoll
If tnCurr.Text.StartsWith(strText) Then
Return tnCurr
End If
tnFound = FindNode(tnCurr.Nodes, strText)
If tnFound IsNot Nothing Then
Return tnFound
End If
Next
Return Nothing
End Function
Private Sub navPane_MouseUp(sender As Object, e As MouseEventArgs) Handles navPane.MouseUp
Dim pane As TileNavPane = TryCast(sender, TileNavPane)
Dim hitInfo As TileNavPaneHitInfo = pane.ViewInfo.CalcHitInfo(e.Location)
If hitInfo.InButton Then
Dim element = hitInfo.ButtonInfo.Element
navPane.HideDropDownWindow()
If TypeOf element Is NavButton Then
Dim btn As NavButton = TryCast(element, NavButton)
If btn.IsMain Then ResetNav()
Else
Dim Entity As String = element.Tag
Dim Node = FindNode(TreeViewLevelSelect.Nodes, Entity)
If Node IsNot Nothing Then
TreeViewLevelSelect.SelectedNode = Node
Load_Tree_View_Data()
End If
End If
End If
End Sub
Private Sub ResetNav()
' Grid zurücksetzen
Clear_Grid_View()
' Navigation zurücksetzen
navPane.Categories.Clear()
' TreeView zurücksetzen
'Load_Tree_View(CONSTRUCTORID)
TreeViewLevelSelect.SelectedNode = Nothing
End Sub
Private Function LoadLevel1Nav()
Dim cat As New TileNavCategory()
cat.Caption = EBENE1_GRID_RESULT
cat.Name = EBENE1_GRID_RESULT
cat.TileText = EBENE1_GRID_RESULT
cat.Tag = EBENE1_ENTITY
navPane.SelectedElement = cat
Return cat
End Function
Private Function LoadLevel2Nav()
Dim item As New TileNavItem()
item.Caption = EBENE2_GRID_RESULT
item.Name = EBENE2_GRID_RESULT
item.TileText = EBENE2_GRID_RESULT
item.Tag = EBENE2_ENTITY
navPane.SelectedElement = item
Return item
End Function
Private Function LoadLevel3Nav()
Dim subitem As New TileNavSubItem()
subitem.Caption = EBENE3_GRID_RESULT
subitem.Name = EBENE3_GRID_RESULT
subitem.TileText = EBENE3_GRID_RESULT
subitem.Tag = EBENE3_ENTITY
navPane.SelectedElement = subitem
Return subitem
End Function
#End Region
#Region "TreeView"
Sub Load_Tree_View(ConstructorId As Integer)
Dim LEVEL1_NODE As TreeNode
Dim LEVEL2_NODE As TreeNode
Dim LEVEL3_NODE As TreeNode
Dim SQL As String
Dim DT, DT2, DT3 As DataTable
' Daten für Level1 Nodes Laden
SQL = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & ConstructorId & " ORDER BY SEQUENCE"
DT = ClassDatabase.Return_Datatable(SQL)
If DT Is Nothing Then
Exit Sub
End If
If DT.Rows.Count = 1 Then
Dim LEVEL1_TITLE = DT.Rows(0).Item("FORM_TITLE").ToString
Dim LEVEL1_ID = DT.Rows(0).Item("FORM_ID").ToString
' Rootnode erstellen und taggen
LEVEL1_NODE = New TreeNode(LEVEL1_TITLE)
LEVEL1_NODE.Tag = LEVEL1_ID
' TreeView leeren und Rootnode einfügen
TreeViewLevelSelect.Nodes.Clear()
TreeViewLevelSelect.Nodes.Add(LEVEL1_NODE)
' Daten für Level2 Nodes Laden
SQL = String.Format("SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND PARENT_ID = {1} ORDER BY SEQUENCE", ConstructorId, LEVEL1_ID)
DT2 = ClassDatabase.Return_Datatable(SQL)
If DT2 Is Nothing Or DT2.Rows.Count = 0 Then
Exit Sub
End If
For Each row As DataRow In DT2.Rows
Dim LEVEL2_TITLE As String = row.Item("FORM_TITLE").ToString
Dim LEVEL2_ID As Integer = row.Item("FORM_ID")
Dim LEVEL2_PARENT_ID As Integer = row.Item("PARENT_ID")
' Node erstellen..
LEVEL2_NODE = New TreeNode(LEVEL2_TITLE)
LEVEL2_NODE.Tag = LEVEL2_ID
' ..und einfügen
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
' Daten für Level3 Nodes laden
SQL = String.Format("SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND PARENT_ID = {1} ORDER BY SEQUENCE", ConstructorId, LEVEL2_ID)
DT3 = ClassDatabase.Return_Datatable(SQL)
If DT3 Is Nothing Or DT3.Rows.Count = 0 Then
Exit Sub
End If
For Each subrow As DataRow In DT3.Rows
Dim LEVEL3_TITLE As String = subrow.Item("FORM_TITLE")
Dim LEVEL3_ID As Integer = subrow.Item("FORM_ID")
' Node erstellen..
LEVEL3_NODE = New TreeNode(LEVEL3_TITLE)
LEVEL3_NODE.Tag = LEVEL3_ID
' ..und einfügen
LEVEL2_NODE.Nodes.Add(LEVEL3_NODE)
Next
Next
TreeViewLevelSelect.ExpandAll()
TreeViewLevelSelect.Nodes(0).EnsureVisible()
End If
End Sub
End Class
Sub Load_Tree_View_Data()
Dim SelectedNode As TreeNode = TryCast(TreeViewLevelSelect.SelectedNode, TreeNode)
Dim FormId As Integer = SelectedNode.Tag
If SelectedNode IsNot Nothing Then
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
ACT_EBENE = 2
If parentNode IsNot Nothing Then
Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
If grandParentNode IsNot Nothing Then
ACT_EBENE = 3
End If
Else
ACT_EBENE = 1
End If
Load_Entity_Data(FormId, ACT_EBENE)
End If
End Sub
#End Region
#Region "GridControl"
Public Sub Init_Grid_Control()
GridControlSelection.MainView = grvwCarousel
'GridControlSelection.MainView = grvwTiles
End Sub
Public Sub Hide_Grid_Columns()
If GRID_TYPE = GridType.Grid Then
grvwGrid.Columns.Item("Record-ID").Visible = False
grvwGrid.Columns.Item("Form-ID").Visible = False
Else
Dim cols As New List(Of String) From {"Record-ID", "Form-ID", "AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}
For Each colname As String In cols
Dim col = grvwCarousel.Columns.Item(colname)
If col IsNot Nothing Then
col.Visible = False
End If
Next
End If
End Sub
Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer)
If GRID_TYPE = GridType.Grid Then
Return String.Format("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
Else
Return String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
End If
End Function
Public Sub Clear_Grid_View()
GridControlSelection.DataSource = Nothing
If GRID_TYPE = GridType.Grid Then
grvwGrid.Columns.Clear()
Else
grvwCarousel.Columns.Clear()
End If
End Sub
Public Function Get_Grid_Row_Count() As Integer
If GRID_TYPE = GridType.Grid Then
Return grvwGrid.RowCount
Else
Return grvwCarousel.RowCount
End If
End Function
Public Function Get_Grid_Column_Count() As Integer
If GRID_TYPE = GridType.Grid Then
Return grvwGrid.Columns.Count
Else
Return grvwCarousel.Columns.Count
End If
End Function
Public Function Get_Focused_Row_Cell_Value(columnName As String)
If GRID_TYPE = GridType.Grid Then
Return grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
Else
Return grvwCarousel.GetFocusedRowCellValue(grvwCarousel.Columns(columnName))
End If
End Function
Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwCarousel.FocusedRowChanged
'If vFormClosing = True Or SaveRoutine_Active = True Then
' Exit Sub
'End If
'Check_Record_Changed()
Load_Record_Data()
'Hide_Grid_Columns()
'If dataloaded = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
' Dim selRecID = GetSelected_RecordID()
' If Not selRecID Is Nothing And selRecID <> SelectedRecordID Or EDIT_STATE = "insert" Then
' Focused_Row_Column_Changed()
' Else
' 'Console.WriteLine("SelRecordID identisch")
' End If
'End If
End Sub
#End Region
#Region "Status Bar"
Public Sub Update_Status_Label(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None)
tssStatus.Text = text
tssStatus.Visible = visible
Select Case state
Case EditState.Insert
tssStatus.BackColor = Color.Yellow
Case EditState.Update
tssStatus.BackColor = Color.LightBlue
Case Else
tssStatus.BackColor = Color.LightGray
End Select
End Sub
Public Sub Update_Record_Label(RecordId As Integer)
Dim SQL As String = "SELECT 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RecordId
Dim result = ClassDatabase.Execute_Scalar(SQL)
If IsDBNull(result) Or IsNothing(result) Then
tssRecord.Visible = False
Else
If CURRENT_FORM_TYPE = 5 Then
tssRecord.Text = String.Format("Group-Record ({0}) - {1}", RecordId, result.ToString)
Else
tssRecord.Text = String.Format("Record ({0}) - {1}", RecordId, result.ToString)
End If
tssRecord.Visible = True
End If
End Sub
#End Region
Sub Load_Entity_Data(FormId As Integer, CurrentLevel As Integer)
Try
Me.Cursor = Cursors.WaitCursor
Dim IS_SINGLE_RECORD As Boolean
Dim LOAD_DIRECT As Boolean
'VerknüpfungenToolStripMenuItem.Enabled = False
CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FormId)
IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & FormId)
LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
SelectedRecordID = 0
Dim DT As DataTable
Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId
Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql)
If PARENT_ID Is Nothing Then
MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation)
Exit Sub
End If
'dataloaded = False
'Abhängig von der Entität die Selektierungs-Daten laden
Dim _sql As String
Select Case CurrentLevel
Case 1
PARENT_RECORDID = 0
CURRENT_PARENTID = 0
EBENE1_ENTITY = TreeViewLevelSelect.SelectedNode.Text
ACT_EBENE_STRING = EBENE1_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 1 in TreeView selektiert", False)
EBENE2_ENTITY = ""
EBENE3_ENTITY = ""
'tslblEntity2.Visible = False
'tslblEntity3.Visible = False
EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
EBENE2_COLUMNNAME = ""
EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing
'_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
_sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
Case 2
Dim Level1Select = ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
If CBool(Level1Select) = False And CURRENT_FORM_TYPE <> 5 And EBENE1_RECID = 0 Then
MsgBox("Entität '" & TreeViewLevelSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent
Exit Sub
End If
EBENE2_ENTITY = TreeViewLevelSelect.SelectedNode.Text
ACT_EBENE_STRING = EBENE2_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 2 in TreeView selektiert", False)
EBENE3_ENTITY = ""
'Parent-ID setzen
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
CURRENT_PARENTID = EBENE1_RECID
End If
'tslblEntity3.Visible = False
Select Case CURRENT_FORM_TYPE
Case 5
If GET_GROUP_RECORD(FormId) = True Then
EBENE2_RECID = CURRENT_RECORD_ID
End If
End Select
EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
EBENE3_COLUMNNAME = ""
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
If EBENE1_RECID > 0 Then
'_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
_sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
_sql = _sql.Replace("@RecordID", EBENE1_RECID)
Else
_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
End If
EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing
Case 3
Select Case CURRENT_FORM_TYPE
Case 5
If GET_GROUP_RECORD(FormId) = True Then
EBENE3_RECID = CURRENT_RECORD_ID
End If
End Select
If EBENE2_RECID = 0 Then
MsgBox("Entität '" & TreeViewLevelSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent
Exit Sub
End If
EBENE3_ENTITY = TreeViewLevelSelect.SelectedNode.Text
ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False)
'Parent-ID setzen
If EBENE2_RECID > 0 Then
PARENT_RECORDID = EBENE2_RECID
CURRENT_PARENTID = EBENE2_RECID
End If
EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken
If EBENE2_RECID > 0 Then
Try
_sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId, True)
_sql = _sql.Replace("@RecordID", EBENE2_RECID)
Catch ex As Exception
End Try
Else
MsgBox("Entität kann nicht ohne Auswahl eines Ebene 2 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
'Grid leeren
Clear_Grid_View()
Me.Cursor = Cursors.Default
Exit Sub
End If
EBENE3_GRID_RESULT = Nothing
End Select
CURRENT_FORM_ID = FormId
CURRENT_ENTITYSTRING = ACT_EBENE_STRING
CURRENT_PARENTID = PARENT_RECORDID
act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & FormId)
'If EDIT_STATE = "none" Then
' 'Die Controls der Entität laden
' Load_Controls(act_FormViewID)
' set_pnlsize()
'End If
CURRENT_FORMVIEW_ID = act_FormViewID
'Überprüfen ob windream Dos angezeigt werden sollen?
'Check_windream_Show(act_FormViewID)
'If windream_Docshow = True Then
' Clear_Windream_ResultList()
' If WD_ShowEnitityDocs = True Then
' RUN_WD_SEARCH("", "ENTITY")
' End If
'End If
' Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsbtnRecordAdd.Enabled = True
Select Case CURRENT_FORM_TYPE
Case 5
'Nur eine Gruppen-Entität: d.h. es wird nur die Dateientab angezeigt
Console.WriteLine("OnlyGroupType")
'TabPageDetails.PageVisible = False
'Anzeige_Selected_Entity()
'tsbtnRecordAdd.Visible = False
'tsbtnRecorddelete.Visible = False
'tsbtnRecordSave.Visible = False
Case Else
'tsbtnRecordAdd.Visible = True
'tsbtnRecorddelete.Visible = True
'tsbtnRecordSave.Visible = True
'TabPageDetails.PageVisible = True
Dim Beschreibung = ClassDatabase.Execute_Scalar("SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = " & act_FormViewID)
'TabPageDetails.Text = "Detaileingabe zu " & Beschreibung
'Den Spaltennamen für die Selektion laden
sql = "SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId
'Jetzt die Datensätze zur Entität laden
CURRENT_ENTITYSQL = _sql
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "LoadEntityData - Get DTEntity")
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
LoadGrid_Selection(_sql, DTEntity)
'If LOAD_DIRECT = True Then
' Dim sql1 = CURRENT_ENTITYSQL
' sql1.Replace("T.*", "TOP 1 [Record-ID]")
' Dim id = ClassDatabase.Execute_Scalar(sql1, True)
' If Not id Is Nothing Then
' If LogErrorsOnly = False Then ClassLogger.Add(">> Load Record directly - RecordID: " & CURRENT_RECORD_ID, False)
' Load_Record_Data()
' End If
'Else
'End If
'Überprüfen ob es für diese Entität Wiedervorlagen gibt?
'Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID)
End Select
'Load_Templates()
Me.Cursor = Cursors.Default
'dataloaded = True
Catch ex As Exception
MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Function GET_GROUP_RECORD(FORM_ID As Integer)
Dim sqlRecord As String = "select guid from TBPMO_RECORD where Form_ID = " & FORM_ID
Dim recid = ClassDatabase.Execute_Scalar(sqlRecord, True)
If IsNothing(recid) Then
If ClassControlCommandsUI.CreateRecord(FORM_ID) = True Then
recid = ClassControlCommandsUI.GetLastRecord
If IsNothing(recid) Then
CURRENT_RECORD_ID = recid
ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID, "Group-Entity Link")
Else
Return False
End If
Else
Return False
End If
Else
Try
CURRENT_RECORD_ID = CInt(recid)
Catch ex As Exception
MsgBox("Error while getting CURRENT_RECORDID: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End If
'Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID)
Return True
End Function
Private Function LoadGrid_Selection(Grid_SQL As String, Datatable_Grid As DataTable)
Try
DT_SELECTION = Datatable_Grid
EBENE_SQLRESULT = Grid_SQL
Dim i = EBENE_SQLRESULT.ToLower.IndexOf("from")
EBENE_SQLRESULT = EBENE_SQLRESULT.ToLower.Substring(i)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & CURRENT_FORM_ID
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim listcheck As New List(Of String)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
Next
End If
'Duplikate entfernen
listcheck = listcheck.Distinct().ToList()
'Grid leeren
Clear_Grid_View()
'Databinding Neu
BindingSource_Entity.DataSource = Datatable_Grid
GridControlSelection.DataSource = BindingSource_Entity
' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
'For Each col As String In listcheck
' grvwSelection.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
' If Not IsNothing(grvwSelection.Columns(col)) Then
' grvwSelection.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If
'Next
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
'Load_GridSelection_Layout()
'HideColumns()
Dim selnode As TreeNode = TreeViewLevelSelect.SelectedNode
Dim origtext As String = selnode.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
selnode.Text = String.Format("{0} ({1})", existingstring, Get_Grid_Row_Count())
Else
selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
End If
Catch ex As Exception
MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
Return True
End Function
Sub Show_Selected_Record_Data(GridColumn_String As String, Optional DirectRecID As Integer = 0)
Try
'Me.pnlDetails.Visible = True
'ZeigeRecordLogsToolStripMenuItem.Enabled = False
If DirectRecID = 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False)
'Überhaupt Columns in Grid?
If Get_Grid_Column_Count() = 0 Then
'Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid")
Exit Sub
End If
'Überhaupt Rows in Grid?
If Get_Grid_Row_Count() > 0 Then
Dim Grid_RecordID = Get_Focused_Row_Cell_Value(GridColumn_String)
If Grid_RecordID Is Nothing = False Then
SelectedRecordID = Grid_RecordID
CURRENT_RECORD_ID = Grid_RecordID
Else
'tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!")
ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
Exit Sub
End If
End If
Else 'Record wird direkt geladen
If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird DIREKT geladen", False)
SelectedRecordID = DirectRecID
CURRENT_RECORD_ID = DirectRecID
End If
Dim Record_Changes As String = "SELECT count(GUID) FROM VWPMO_RECORD_CHANGES WHERE RECORD_ID = " & CURRENT_RECORD_ID
Dim RC = ClassDatabase.Execute_Scalar(Record_Changes)
If Not RC Is Nothing Then
If RC > 0 Then
'ZeigeRecordLogsToolStripMenuItem.Enabled = True
End If
End If
'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen
Select Case ACT_EBENE
Case 1
PARENT_RECORDID = 0
EBENE1_RECID = SelectedRecordID
CURRENT_PARENTID = EBENE1_RECID
If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
navPane.Categories.Clear()
navPane.Categories.Add(cat)
End If
Case 2
EBENE2_RECID = SelectedRecordID
If Not EBENE2_COLUMNNAME Is Nothing Then
EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
'Dim sql As String = "select @p " & EBENE_SQLRESULT & " where [Record-ID] = " & SelectedRecordID
'sql = sql.Replace("@p", EBENE2_COLUMNNAME)
'Dim result = ClassDatabase.Execute_Scalar(sql)
'EBENE2_GRID_RESULT = result 'grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE2_COLUMNNAME))
Dim cat As TileNavCategory = LoadLevel1Nav()
navPane.Categories.Clear()
navPane.Categories.Add(cat)
Dim item As TileNavItem = LoadLevel2Nav()
cat.Items.Add(item)
End If
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
CURRENT_PARENTID = EBENE1_RECID
Else
CURRENT_PARENTID = EBENE2_RECID
End If
Case 3
EBENE3_RECID = SelectedRecordID
If Not EBENE3_COLUMNNAME Is Nothing Then
EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
'EBENE3_GRID_RESULT = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE3_COLUMNNAME))
Dim cat As TileNavCategory = LoadLevel1Nav()
navPane.Categories.Clear()
navPane.Categories.Add(cat)
Dim item As TileNavItem = LoadLevel2Nav()
cat.Items.Add(item)
Dim subitem As TileNavSubItem = LoadLevel3Nav()
item.SubItems.Add(subitem)
End If
If EBENE2_RECID > 0 Then
PARENT_RECORDID = EBENE2_RECID
CURRENT_PARENTID = EBENE2_RECID
End If
End Select
'Me.pnlDetails.Enabled = True
'Me.tsbtnshowWorkflowtasks.Enabled = True
'Me.tsbtnshowTaskoverview.Enabled = True
'tsstatus_Detail_show(False, "")
Catch ex As Exception
MsgBox("Error in SelectedRecord_ShowData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Function Get_GridResult(Columnname As String)
Dim result As String = Get_Focused_Row_Cell_Value(Columnname)
If result = String.Empty Then
Return "No Column configured"
Else
Return result
End If
End Function
Function GetSelected_RecordID()
Try
If Get_Grid_Column_Count() = 0 Then
'Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid")
Return Nothing
End If
'Überhaupt Rows in Grid?
If Get_Grid_Row_Count() > 0 Then
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If Grid_RecordID Is Nothing = False Then
Return Grid_RecordID
Else
'tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!")
'ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
Return Nothing
End If
Else
Return Nothing
End If
Catch ex As Exception
End Try
End Function
Sub Load_Record_Data()
Select Case EDIT_STATE
Case EditState.None
'Ganz normalerDatensatzwechsel Wechsel
Show_Selected_Record_Data("Record-ID")
'Refresh_Treeview_SelectedData()
'tslblStatusMain_show(False, "")
Case EditState.Insert
'Refresh_Treeview_SelectedData()
Case EditState.Update
' Refresh_Treeview_SelectedData()
End Select
'Select Case TCDetails.SelectedTabPageIndex
' Case 0
' 'Die Values in die Controls laden
' If EDIT_STATE = "none" Then
' 'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")"
' 'Die Daten auf dem Panel laden
' ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
' 'Load_Control_Values(CtrlBuilder.AllControls)
' 'Refresh_Treeview_SelectedData()
' RECORD_CHANGED = False
' End If
' Case 1
' RUN_WD_SEARCH(WD_Suche, "RECORD")
' Case 2
' If FOLLOW_UPisActive = True Then Refresh_FollowUps()
'End Select
'DT_FU_Record = Nothing
'VerknüpfungenToolStripMenuItem.Enabled = True
'If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader()
'Refresh_CreatedChangedRecordByID(SelectedRecordID)
'Anzeige_Selected_Entity()
'Show_act_WFTask()
'Get_RecordCounts_Nodes()
'Refresh_TaskOverview()
End Sub
Private Sub TreeViewEbeneSelect_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewLevelSelect.AfterSelect
Load_Tree_View_Data()
End Sub
Private Sub btn_Refresh_ElementClick(sender As Object, e As NavElementEventArgs) Handles btn_Refresh.ElementClick
Load_Tree_View_Data()
End Sub
Private Sub btn_home_ElementClick(sender As Object, e As NavElementEventArgs) Handles btn_home.ElementClick
Load_Tree_View(CURRENT_CONSTRUCTOR_ID)
End Sub
End Class