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

JJ Arbeit am neuen Constructor Form

Browse Source
This commit is contained in:
JenneJ 2015-11-03 15:51:24 +01:00
parent a1f8f619ea
commit 0d321282c6
3 changed files with 1051 additions and 458 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,128 +19,70 @@ 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 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.navPane = New DevExpress.XtraBars.Navigation.TileNavPane()
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.btn_Refresh = New DevExpress.XtraBars.Navigation.NavButton()
Me.TreeViewLevelSelect = New System.Windows.Forms.TreeView()
Me.GridControlSelection = New DevExpress.XtraGrid.GridControl()
Me.grvwSelection = New DevExpress.XtraGrid.Views.Grid.GridView()
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.tssEntity = New System.Windows.Forms.ToolStripStatusLabel()
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.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()
CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip_Main.SuspendLayout()
Me.ContextMenu_GridControlSelection.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()
Me.SuspendLayout()
'
'TileNavPane1
'navPane
'
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)
'
'TileNavCategory3
'
Me.TileNavCategory3.Caption = "Marken"
Me.TileNavCategory3.Name = "TileNavCategory3"
Me.TileNavCategory3.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.TileNavCategory3.OwnerCollection = Me.TileNavPane1.Categories
'
'TileBarItem2
'
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"
'
'TileNavCategory4
'
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
'
'TileBarItem3
'
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.navPane.ButtonPadding = New System.Windows.Forms.Padding(12)
Me.navPane.Buttons.Add(Me.NavButton2)
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.navPane.DefaultCategory.Name = "TileNavCategory1"
Me.navPane.DefaultCategory.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.navPane.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"
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"
'
'NavButton2
'
@ -150,346 +92,222 @@ Partial Class XtraForm2
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"
'btn_Refresh
'
'TileNavSubItem2
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"
'
Me.TileNavSubItem2.Caption = "TileNavSubItem2"
Me.TileNavSubItem2.Name = "TileNavSubItem2"
Me.TileNavSubItem2.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'TreeViewLevelSelect
'
'TileBarItem8
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, 180)
Me.TreeViewLevelSelect.TabIndex = 1
'
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"
'GridControlSelection
'
'TileNavSubItem3
Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlSelection.Location = New System.Drawing.Point(0, 0)
Me.GridControlSelection.MainView = Me.grvwSelection
Me.GridControlSelection.Name = "GridControlSelection"
Me.GridControlSelection.Size = New System.Drawing.Size(1157, 180)
Me.GridControlSelection.TabIndex = 2
Me.GridControlSelection.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwSelection})
'
Me.TileNavSubItem3.Caption = "TileNavSubItem3"
Me.TileNavSubItem3.Name = "TileNavSubItem3"
Me.TileNavSubItem3.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'grvwSelection
'
'TileBarItem9
Me.grvwSelection.GridControl = Me.GridControlSelection
Me.grvwSelection.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _
"ssen"
Me.grvwSelection.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
Me.grvwSelection.Name = "grvwSelection"
Me.grvwSelection.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwSelection.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwSelection.OptionsBehavior.Editable = False
Me.grvwSelection.OptionsBehavior.ReadOnly = True
'
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"
'StatusStrip_Main
'
'TileNavSubItem4
Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tssStatus, Me.tssEntity})
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"
'
Me.TileNavSubItem4.Caption = "TileNavSubItem4"
Me.TileNavSubItem4.Name = "TileNavSubItem4"
Me.TileNavSubItem4.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'tssStatus
'
'TileBarItem10
Me.tssStatus.Name = "tssStatus"
Me.tssStatus.Size = New System.Drawing.Size(121, 17)
Me.tssStatus.Text = "ToolStripStatusLabel1"
'
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"
'tssEntity
'
'TileNavSubItem5
Me.tssEntity.Name = "tssEntity"
Me.tssEntity.Size = New System.Drawing.Size(121, 17)
Me.tssEntity.Text = "ToolStripStatusLabel1"
'
Me.TileNavSubItem5.Caption = "TileNavSubItem5"
Me.TileNavSubItem5.Name = "TileNavSubItem5"
Me.TileNavSubItem5.OptionsDropDown.BackColor = System.Drawing.Color.Empty
'ContextMenu_GridControlSelection
'
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)
'
'FunktionenDatagridToolStripMenuItem
'
Me.FunktionenDatagridToolStripMenuItem.Enabled = False
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"
'
'ToolStripSeparator1
'
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"
'
'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, 412)
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, 384)
Me.XtraTabPage1.Text = "XtraTabPage1"
'
'XtraTabPage2
'
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(294, 274)
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 = 180
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, 180)
Me.SplitContainer_Top.SplitterPosition = 298
Me.SplitContainer_Top.TabIndex = 0
Me.SplitContainer_Top.Text = "SplitContainerControl1"
'
'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"
'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, 412)
Me.SplitContainer_Bottom.SplitterPosition = 1050
Me.SplitContainer_Bottom.TabIndex = 0
Me.SplitContainer_Bottom.Text = "SplitContainerControl1"
'
'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.GridControlSelection, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip_Main.ResumeLayout(False)
Me.StatusStrip_Main.PerformLayout()
Me.ContextMenu_GridControlSelection.ResumeLayout(False)
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)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TileNavPane1 As DevExpress.XtraBars.Navigation.TileNavPane
Friend WithEvents navPane 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 btn_Refresh As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents TreeViewLevelSelect As System.Windows.Forms.TreeView
Friend WithEvents GridControlSelection As DevExpress.XtraGrid.GridControl
Friend WithEvents grvwSelection 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 tssEntity 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
End Class

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

@ -131,39 +131,27 @@
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>
<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>
</root>

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

@ -1,6 +1,793 @@
Public Class XtraForm2
Imports DevExpress.Utils
Imports DevExpress.XtraBars.Navigation
Imports DevExpress.XtraEditors
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 SelectedRecordID As Integer
Public PARENT_RECORDID As Integer
Public ACT_EBENE_STRING
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 Enum EditState
None
Insert
Update
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)
Load_Tree_View()
End Sub
Public Sub Update_Status(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
Sub Load_Tree_View()
Try
Dim sql As String = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & CONSTRUCTORID & " ORDER BY SEQUENCE"
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim GRANDFATHERNODE1 As TreeNode
Dim GRANDFATHERNODE2 As TreeNode
Dim FATHERNODE As TreeNode
If dt Is Nothing Then
MsgBox("No Result for Level 1-Entities - Check logfile", MsgBoxStyle.Exclamation)
Else
If dt.Rows.Count = 1 Then
TreeViewLevelSelect.Nodes.Clear()
GRANDFATHERNODE1 = TreeViewLevelSelect.Nodes.Add(dt.Rows(0).Item("FORM_TITLE").ToString)
GRANDFATHERNODE1.Tag = dt.Rows(0).Item("FORM_ID")
'Ebene 2 Entities herausfinden
sql = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND PARENT_ID = " & GRANDFATHERNODE1.Tag & " ORDER BY SEQUENCE"
dt = ClassDatabase.Return_Datatable(sql)
If dt Is Nothing Then
MsgBox("No Result for Level 2-Entities - Check logfile", MsgBoxStyle.Exclamation)
Else
If dt.Rows.Count = 0 Then
'tslblStatusMain_show(True, "No Result for Level 2-Entities")
' MsgBox("Not allowed: No Result for Level 2-Entities! Check Config FormConstructor.", MsgBoxStyle.Exclamation)
Else
For Each rowentity2 As DataRow In dt.Rows
FATHERNODE = GRANDFATHERNODE1.Nodes.Add(rowentity2.Item("FORM_TITLE").ToString)
FATHERNODE.Tag = rowentity2.Item("FORM_ID")
EBENE2_PARENT_ID = dt.Rows(0).Item("PARENT_ID")
'Ebene 3 Entities herausfinden
Dim DT3 As DataTable
sql = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND PARENT_ID = " & FATHERNODE.Tag & " ORDER BY SEQUENCE"
DT3 = ClassDatabase.Return_Datatable(sql)
If DT3 Is Nothing Then
MsgBox("No Result for Level 3-Entities - Check logfile", MsgBoxStyle.Exclamation)
Else
For Each rowEntity3 As DataRow In DT3.Rows
Dim CHILDNODE As TreeNode = FATHERNODE.Nodes.Add(rowEntity3.Item("FORM_TITLE").ToString)
CHILDNODE.Tag = rowEntity3.Item("FORM_ID")
EBENE3_PARENT_ID = rowEntity3.Item("PARENT_ID")
Next
End If
Next
End If
End If
ElseIf dt.Rows.Count = 2 Then
TreeViewLevelSelect.Nodes.Clear()
GRANDFATHERNODE1 = TreeViewLevelSelect.Nodes.Add(dt.Rows(0).Item("FORM_TITLE").ToString)
GRANDFATHERNODE1.Tag = dt.Rows(0).Item("FORM_ID")
GRANDFATHERNODE2 = TreeViewLevelSelect.Nodes.Add(dt.Rows(1).Item("FORM_TITLE").ToString)
GRANDFATHERNODE2.Tag = dt.Rows(1).Item("FORM_ID")
Else
MsgBox("More than 2 results #(" & dt.Rows.Count & ") for Level 1-Entities!", MsgBoxStyle.Exclamation)
End If
TreeViewLevelSelect.ExpandAll()
TreeViewLevelSelect.Nodes(0).EnsureVisible()
End If
Catch ex As Exception
MsgBox("Error in Load TreeView Ebene:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class
Sub Load_Tree_View_Data()
ACT_EBENE = 0
If Not TreeViewLevelSelect.SelectedNode Is Nothing Then
Try
Dim selnode As TreeNode = TreeViewLevelSelect.SelectedNode
If (selnode.Parent IsNot Nothing) Then
If (selnode.Parent.GetType() Is GetType(TreeNode)) Then
ACT_EBENE = 2
Dim pnode As TreeNode = selnode.Parent
If (pnode.Parent IsNot Nothing) Then
If (selnode.Parent.GetType() Is GetType(TreeNode)) Then
ACT_EBENE = 3
End If
End If
End If
Else
ACT_EBENE = 1
End If
Catch ex As Exception
MsgBox("Error in Get ACT_EBENE:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
If LogErrorsOnly = False Then ClassLogger.Add(">> Tag (FormID) After Select: " & TreeViewLevelSelect.SelectedNode.Tag.ToString, False)
Load_Entity_Data(TreeViewLevelSelect.SelectedNode.Tag)
End If
End Sub
Sub Load_Entity_Data(FormId 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 ACT_EBENE
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_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & 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_SELECT_EBENE2 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
_sql = _sql.Replace("@RecordID", EBENE1_RECID)
Else
_sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE1 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
GridControlSelection.DataSource = Nothing
grvwSelection.Columns.Clear()
Me.Cursor = Cursors.Default
Exit Sub
End If
EBENE3_GRID_RESULT = Nothing
Case 4
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
GridControlSelection.DataSource = Nothing
grvwSelection.Columns.Clear()
'Databinding Neu
Me.BindingSource_Entity.DataSource = Datatable_Grid
GridControlSelection.DataSource = BindingSource_Entity
' Den Editor Initialisieren und Optionen setzen
'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
grvwSelection.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 = existingstring & " (" & grvwSelection.RowCount & ")"
Else
selnode.Text = selnode.Text & " (" & grvwSelection.RowCount & ")"
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 SelectedRecord_ShowData(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 grvwSelection.Columns.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 grvwSelection.RowCount > 0 Then
Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(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 = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(Columnname))
If result = String.Empty Then
Return "No Column configured"
Else
Return result
End If
End Function
Function GetSelected_RecordID()
Try
If grvwSelection.Columns.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 grvwSelection.RowCount > 0 Then
Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns("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
Private Sub grvwSelection_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwSelection.FocusedRowChanged
'If vFormClosing = True Or SaveRoutine_Active = True Then
' Exit Sub
'End If
'Check_Record_Changed()
Load_Record_Data()
'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
Sub Load_Record_Data()
Select Case EDIT_STATE
Case EditState.None
'Ganz normalerDatensatzwechsel Wechsel
SelectedRecord_ShowData("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 Anzeige_Selected_Entity()
'Try
' 'Me.tslblEntity1.Visible = False
' 'Me.tslblEntity2.Visible = False
' 'Me.tslblEntity3.Visible = False
' tslblEntity.Text = ""
' 'TileControl1.Groups(0).Items.Clear()
' Select Case ACT_EBENE
' Case 1
' tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT
' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT
' 'Me.tslblEntity1.Visible = True
' pnlNavButtons.Controls.Clear()
' Create_NavButton(1, EBENE1_GRID_RESULT)
' Case 2
' If CURRENT_FORM_TYPE = 5 Then
' tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### Gruppen-Entität: " & EBENE2_ENTITY
' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT
' 'tslblEntity2.Text = "Gruppen-Entität: " & EBENE2_ENTITY
' 'Me.tslblEntity1.Visible = True
' 'Me.tslblEntity2.Visible = True
' pnlNavButtons.Controls.Clear()
' Create_NavButton(1, EBENE1_GRID_RESULT)
' Create_NavButton(2, EBENE2_ENTITY)
' Exit Sub
' End If
' If EBENE1_GRID_RESULT Is Nothing = False Then
' tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT
' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT
' pnlNavButtons.Controls.Clear()
' Create_NavButton(1, EBENE1_GRID_RESULT)
' Create_NavButton(2, EBENE2_GRID_RESULT)
' 'Me.tslblEntity1.Visible = True
' 'Me.tslblEntity2.Visible = True
' Else
' ' tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT
' tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT
' 'Me.tslblEntity1.Visible = True
' Create_NavButton(1, EBENE2_GRID_RESULT)
' End If
' Case 3
' If CURRENT_FORM_TYPE = 5 Then
' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT
' 'tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT
' 'tslblEntity3.Text = "Gruppen-Entität: " & EBENE3_GRID_RESULT
' pnlNavButtons.Controls.Clear()
' Create_NavButton(1, EBENE1_GRID_RESULT)
' Create_NavButton(2, EBENE2_ENTITY)
' Create_NavButton(3, EBENE3_ENTITY)
' 'Me.tslblEntity1.Visible = True
' 'Me.tslblEntity2.Visible = True
' 'Me.tslblEntity3.Visible = True
' Exit Sub
' End If
' If EBENE1_GRID_RESULT Is Nothing = False Then
' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT
' 'tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT
' 'tslblEntity3.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT
' tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & _
' " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT
' 'Me.tslblEntity1.Visible = True
' 'Me.tslblEntity2.Visible = True
' 'Me.tslblEntity3.Visible = True
' pnlNavButtons.Controls.Clear()
' Create_NavButton(1, EBENE1_GRID_RESULT)
' Create_NavButton(2, EBENE2_GRID_RESULT)
' Create_NavButton(3, EBENE3_GRID_RESULT)
' Else
' 'tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT
' 'tslblEntity2.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT
' tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT
' ' Me.tslblEntity1.Visible = True
' 'Me.tslblEntity2.Visible = True
' pnlNavButtons.Controls.Clear()
' Create_NavButton(1, EBENE2_GRID_RESULT)
' Create_NavButton(2, EBENE3_GRID_RESULT)
' End If
' End Select
'Catch ex As Exception
' MsgBox("Error in Anzeige_Selected_Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try
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 Function LoadLevel1Nav()
Dim cat As New TileNavCategory()
cat.Caption = EBENE1_GRID_RESULT
cat.Name = EBENE1_GRID_RESULT
cat.TileText = EBENE1_GRID_RESULT
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
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
navPane.SelectedElement = subitem
Return subitem
End Function
End Class