jj_11_11

app/DD-Record-Organiser/My Project/licenses.licx

@@ -1,2 +1,3 @@
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD-Record-Organiser/XtraForm2.Designer.vb

@@ -20,16 +20,16 @@ Partial Class frmConstructor_Main
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim TileViewItemElement8 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim TileViewItemElement9 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim TileViewItemElement10 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
         Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
         Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
         Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim TileViewItemElement11 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
+        Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
+        Dim TileViewItemElement5 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
+        Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
+        Dim TileViewItemElement7 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
         Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
         Me.GridControlSelection = New DevExpress.XtraGrid.GridControl()
         Me.ContextMenu_GridControlSelection = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -113,15 +113,15 @@ Partial Class frmConstructor_Main
         '
         Me.GridControlSelection.ContextMenuStrip = Me.ContextMenu_GridControlSelection
         Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill
-        GridLevelNode3.LevelTemplate = Me.grvwCarousel
+        GridLevelNode1.LevelTemplate = Me.grvwCarousel
-        GridLevelNode3.RelationName = "Level1"
+        GridLevelNode1.RelationName = "Level1"
-        GridLevelNode4.LevelTemplate = Me.grvwTiles
+        GridLevelNode2.LevelTemplate = Me.grvwTiles
-        GridLevelNode4.RelationName = "Level2"
+        GridLevelNode2.RelationName = "Level2"
-        Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3, GridLevelNode4})
+        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.Size = New System.Drawing.Size(1150, 272)
         Me.GridControlSelection.TabIndex = 2
         Me.GridControlSelection.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwTiles, Me.grvwGrid, Me.grvwCarousel})
         '
@@ -172,15 +172,15 @@ Partial Class frmConstructor_Main
         Me.grvwTiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.TileViewColumn1, Me.TileViewColumn2, Me.TileViewColumn3})
         Me.grvwTiles.GridControl = Me.GridControlSelection
         Me.grvwTiles.Name = "grvwTiles"
-        TileViewItemElement8.Column = Me.TileViewColumn1
+        TileViewItemElement1.Column = Me.TileViewColumn1
-        TileViewItemElement8.Text = "element1"
+        TileViewItemElement1.Text = "element1"
-        TileViewItemElement9.Column = Me.TileViewColumn2
+        TileViewItemElement2.Column = Me.TileViewColumn2
-        TileViewItemElement9.Text = "element2"
+        TileViewItemElement2.Text = "element2"
-        TileViewItemElement10.Column = Me.TileViewColumn3
+        TileViewItemElement3.Column = Me.TileViewColumn3
-        TileViewItemElement10.Text = "element3"
+        TileViewItemElement3.Text = "element3"
-        Me.grvwTiles.TileTemplate.Add(TileViewItemElement8)
+        Me.grvwTiles.TileTemplate.Add(TileViewItemElement1)
-        Me.grvwTiles.TileTemplate.Add(TileViewItemElement9)
+        Me.grvwTiles.TileTemplate.Add(TileViewItemElement2)
-        Me.grvwTiles.TileTemplate.Add(TileViewItemElement10)
+        Me.grvwTiles.TileTemplate.Add(TileViewItemElement3)
         '
         'TileViewColumn1
         '
@@ -326,7 +326,7 @@ Partial Class frmConstructor_Main
         Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage3
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1050, 320)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(1050, 313)
         Me.XtraTabControl1.TabIndex = 0
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage2})
         '
@@ -336,7 +336,7 @@ Partial Class frmConstructor_Main
         Me.XtraTabPage3.Appearance.PageClient.Options.UseBackColor = True
         Me.XtraTabPage3.Controls.Add(Me.GridControl1)
         Me.XtraTabPage3.Name = "XtraTabPage3"
-        Me.XtraTabPage3.Size = New System.Drawing.Size(1044, 292)
+        Me.XtraTabPage3.Size = New System.Drawing.Size(1048, 288)
         Me.XtraTabPage3.Text = "XtraTabPage3"
         '
         'GridControl1
@@ -345,7 +345,7 @@ Partial Class frmConstructor_Main
         Me.GridControl1.Location = New System.Drawing.Point(0, 0)
         Me.GridControl1.MainView = Me.TileView1
         Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(1044, 292)
+        Me.GridControl1.Size = New System.Drawing.Size(1048, 288)
         Me.GridControl1.TabIndex = 0
         Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1})
         '
@@ -403,29 +403,29 @@ Partial Class frmConstructor_Main
         Me.TileView2.OptionsTiles.ItemSize = New System.Drawing.Size(280, 160)
         Me.TileView2.OptionsTiles.RowCount = 2
         Me.TileView2.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colAktenzustand, DevExpress.Data.ColumnSortOrder.Ascending)})
-        TileViewItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        TileViewItemElement4.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        TileViewItemElement1.Appearance.Normal.ForeColor = System.Drawing.Color.DodgerBlue
+        TileViewItemElement4.Appearance.Normal.ForeColor = System.Drawing.Color.DodgerBlue
-        TileViewItemElement1.Appearance.Normal.Options.UseFont = True
+        TileViewItemElement4.Appearance.Normal.Options.UseFont = True
-        TileViewItemElement1.Appearance.Normal.Options.UseForeColor = True
+        TileViewItemElement4.Appearance.Normal.Options.UseForeColor = True
-        TileViewItemElement1.Column = Me.colAktenzeichen
+        TileViewItemElement4.Column = Me.colAktenzeichen
-        TileViewItemElement1.Text = "colAktenzeichen"
+        TileViewItemElement4.Text = "colAktenzeichen"
-        TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
+        TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileViewItemElement1.TextLocation = New System.Drawing.Point(120, 0)
+        TileViewItemElement4.TextLocation = New System.Drawing.Point(120, 0)
-        TileViewItemElement2.Column = Me.TileViewColumn5
+        TileViewItemElement5.Column = Me.TileViewColumn5
-        TileViewItemElement2.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
+        TileViewItemElement5.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
-        TileViewItemElement2.ImageBorder = DevExpress.XtraEditors.TileItemElementImageBorderMode.None
+        TileViewItemElement5.ImageBorder = DevExpress.XtraEditors.TileItemElementImageBorderMode.None
-        TileViewItemElement2.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileViewItemElement5.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
-        TileViewItemElement2.Text = "TileViewColumn5"
+        TileViewItemElement5.Text = "TileViewColumn5"
-        TileViewItemElement3.Column = Me.colTagderEintragungimRegister
+        TileViewItemElement6.Column = Me.colTagderEintragungimRegister
-        TileViewItemElement3.Text = "colTagderEintragungimRegister"
+        TileViewItemElement6.Text = "colTagderEintragungimRegister"
-        TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
+        TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
-        TileViewItemElement3.TextLocation = New System.Drawing.Point(120, 20)
+        TileViewItemElement6.TextLocation = New System.Drawing.Point(120, 20)
-        TileViewItemElement11.Column = Me.colAktenzustand
+        TileViewItemElement7.Column = Me.colAktenzustand
-        TileViewItemElement11.Text = "colAktenzustand"
+        TileViewItemElement7.Text = "colAktenzustand"
-        Me.TileView2.TileTemplate.Add(TileViewItemElement1)
+        Me.TileView2.TileTemplate.Add(TileViewItemElement4)
-        Me.TileView2.TileTemplate.Add(TileViewItemElement2)
+        Me.TileView2.TileTemplate.Add(TileViewItemElement5)
-        Me.TileView2.TileTemplate.Add(TileViewItemElement3)
+        Me.TileView2.TileTemplate.Add(TileViewItemElement6)
-        Me.TileView2.TileTemplate.Add(TileViewItemElement11)
+        Me.TileView2.TileTemplate.Add(TileViewItemElement7)
         Me.TileView2.ViewCaption = "dfsdfsdf"
         '
         'TileViewColumn4
@@ -473,7 +473,7 @@ Partial Class frmConstructor_Main
         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.Size = New System.Drawing.Size(1460, 313)
         Me.SplitContainer_Bottom.SplitterPosition = 1050
         Me.SplitContainer_Bottom.TabIndex = 0
         Me.SplitContainer_Bottom.Text = "SplitContainerControl1"

app/DD-Record-Organiser/XtraForm2.resx

@@ -160,9 +160,6 @@
   <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>565, 17</value>
   </metadata>
-  <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>565, 17</value>
-  </metadata>
   <metadata name="VWTEMPQUICKVIEWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>945, 17</value>
   </metadata>

app/DD-Record-Organiser/frmForm_Constructor_Main.Designer.vb

@@ -22,8 +22,363 @@ Partial Class frmForm_Constructor_Main
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        components = New System.ComponentModel.Container
+        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(frmForm_Constructor_Main))
+        Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
+        Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.FunktionenDataGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ButtonQuickViewCarousel = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ButtonQuickViewTiles = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ButtonDetailView = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ButtonSetViewAsDefault = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ButtonResetView = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ButtonResetFilter = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ButtonExportToExcel = New System.Windows.Forms.ToolStripMenuItem()
+        Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
+        Me.grvwTiles = New DevExpress.XtraGrid.Views.Tile.TileView()
+        Me.NavPane = New DevExpress.XtraBars.Navigation.TileNavPane()
+        Me.NavButtonHome = New DevExpress.XtraBars.Navigation.NavButton()
+        Me.NavButtonRefresh = New DevExpress.XtraBars.Navigation.NavButton()
+        Me.StatusStrip_Main = New System.Windows.Forms.StatusStrip()
+        Me.tssStatus = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.tssRecord = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.TreeViewMain = New System.Windows.Forms.TreeView()
+        Me.SplitContainerBottom = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
+        Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
+        CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuGrid.SuspendLayout()
+        CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.StatusStrip_Main.SuspendLayout()
+        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerMain.SuspendLayout()
+        CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerTop.SuspendLayout()
+        CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerBottom.SuspendLayout()
+        CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'grvwGrid
+        '
+        Me.grvwGrid.GridControl = Me.GridControlMain
+        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
+        Me.grvwGrid.OptionsView.ColumnAutoWidth = False
+        Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
+        Me.grvwGrid.OptionsView.EnableAppearanceOddRow = True
+        Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
+        '
+        'GridControlMain
+        '
+        Me.GridControlMain.AllowDrop = True
+        Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
+        Me.GridControlMain.Dock = System.Windows.Forms.DockStyle.Fill
+        GridLevelNode1.LevelTemplate = Me.grvwGrid
+        GridLevelNode1.RelationName = "Level1"
+        GridLevelNode2.LevelTemplate = Me.grvwCarousel
+        GridLevelNode2.RelationName = "Level2"
+        Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2})
+        Me.GridControlMain.Location = New System.Drawing.Point(0, 0)
+        Me.GridControlMain.MainView = Me.grvwTiles
+        Me.GridControlMain.Name = "GridControlMain"
+        Me.GridControlMain.Size = New System.Drawing.Size(813, 270)
+        Me.GridControlMain.TabIndex = 0
+        Me.GridControlMain.UseEmbeddedNavigator = True
+        Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid})
+        '
+        'ContextMenuGrid
+        '
+        Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenDataGridToolStripMenuItem, Me.ToolStripSeparator1, Me.AnsichtUmschaltenToolStripMenuItem, Me.ButtonSetViewAsDefault, Me.ButtonResetView, Me.ToolStripSeparator2, Me.ButtonResetFilter, Me.ButtonExportToExcel})
+        Me.ContextMenuGrid.Name = "ContextMenuGrid"
+        Me.ContextMenuGrid.Size = New System.Drawing.Size(233, 148)
+        '
+        'FunktionenDataGridToolStripMenuItem
+        '
+        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(232, 22)
+        Me.FunktionenDataGridToolStripMenuItem.Text = "Funktionen DataGrid"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(229, 6)
+        '
+        'AnsichtUmschaltenToolStripMenuItem
+        '
+        Me.AnsichtUmschaltenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ButtonQuickViewCarousel, Me.ButtonQuickViewTiles, Me.ButtonDetailView})
+        Me.AnsichtUmschaltenToolStripMenuItem.Name = "AnsichtUmschaltenToolStripMenuItem"
+        Me.AnsichtUmschaltenToolStripMenuItem.Size = New System.Drawing.Size(232, 22)
+        Me.AnsichtUmschaltenToolStripMenuItem.Text = "Ansicht umschalten"
+        '
+        'ButtonQuickViewCarousel
+        '
+        Me.ButtonQuickViewCarousel.Name = "ButtonQuickViewCarousel"
+        Me.ButtonQuickViewCarousel.Size = New System.Drawing.Size(182, 22)
+        Me.ButtonQuickViewCarousel.Text = "Quick View Carousel"
+        '
+        'ButtonQuickViewTiles
+        '
+        Me.ButtonQuickViewTiles.Name = "ButtonQuickViewTiles"
+        Me.ButtonQuickViewTiles.Size = New System.Drawing.Size(182, 22)
+        Me.ButtonQuickViewTiles.Text = "Quick View Tiles"
+        '
+        'ButtonDetailView
+        '
+        Me.ButtonDetailView.Name = "ButtonDetailView"
+        Me.ButtonDetailView.Size = New System.Drawing.Size(182, 22)
+        Me.ButtonDetailView.Text = "Detail View"
+        '
+        'ButtonSetViewAsDefault
+        '
+        Me.ButtonSetViewAsDefault.Name = "ButtonSetViewAsDefault"
+        Me.ButtonSetViewAsDefault.Size = New System.Drawing.Size(232, 22)
+        Me.ButtonSetViewAsDefault.Text = "Ansicht als Standard festlegen"
+        '
+        'ButtonResetView
+        '
+        Me.ButtonResetView.Name = "ButtonResetView"
+        Me.ButtonResetView.Size = New System.Drawing.Size(232, 22)
+        Me.ButtonResetView.Text = "Ansicht zurücksetzen"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(229, 6)
+        '
+        'ButtonResetFilter
+        '
+        Me.ButtonResetFilter.Name = "ButtonResetFilter"
+        Me.ButtonResetFilter.Size = New System.Drawing.Size(232, 22)
+        Me.ButtonResetFilter.Text = "Alle Filter entfernen"
+        '
+        'ButtonExportToExcel
+        '
+        Me.ButtonExportToExcel.Name = "ButtonExportToExcel"
+        Me.ButtonExportToExcel.Size = New System.Drawing.Size(232, 22)
+        Me.ButtonExportToExcel.Text = "Export nach Excel"
+        '
+        'grvwCarousel
+        '
+        Me.grvwCarousel.GridControl = Me.GridControlMain
+        Me.grvwCarousel.Name = "grvwCarousel"
+        Me.grvwCarousel.TemplateCard = Nothing
+        '
+        'grvwTiles
+        '
+        Me.grvwTiles.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat
+        Me.grvwTiles.GridControl = Me.GridControlMain
+        Me.grvwTiles.Name = "grvwTiles"
+        Me.grvwTiles.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.grvwTiles.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.grvwTiles.OptionsBehavior.ReadOnly = True
+        Me.grvwTiles.OptionsTiles.IndentBetweenGroups = 8
+        Me.grvwTiles.OptionsTiles.ItemSize = New System.Drawing.Size(300, 145)
+        Me.grvwTiles.OptionsTiles.RowCount = 2
+        Me.grvwTiles.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
+        '
+        'NavPane
+        '
+        Me.NavPane.ButtonPadding = New System.Windows.Forms.Padding(12)
+        Me.NavPane.Buttons.Add(Me.NavButtonHome)
+        Me.NavPane.Buttons.Add(Me.NavButtonRefresh)
+        '
+        'TileNavCategory1
+        '
+        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(1074, 40)
+        Me.NavPane.TabIndex = 0
+        Me.NavPane.Text = "TileNavPane1"
+        '
+        'NavButtonHome
+        '
+        Me.NavButtonHome.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
+        Me.NavButtonHome.Caption = ""
+        Me.NavButtonHome.Glyph = CType(resources.GetObject("NavButtonHome.Glyph"), System.Drawing.Image)
+        Me.NavButtonHome.IsMain = True
+        Me.NavButtonHome.Name = "NavButtonHome"
+        '
+        'NavButtonRefresh
+        '
+        Me.NavButtonRefresh.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right
+        Me.NavButtonRefresh.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
+        Me.NavButtonRefresh.Caption = ""
+        Me.NavButtonRefresh.Glyph = CType(resources.GetObject("NavButtonRefresh.Glyph"), System.Drawing.Image)
+        Me.NavButtonRefresh.Name = "NavButtonRefresh"
+        '
+        '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, 611)
+        Me.StatusStrip_Main.Name = "StatusStrip_Main"
+        Me.StatusStrip_Main.Size = New System.Drawing.Size(1074, 22)
+        Me.StatusStrip_Main.TabIndex = 1
+        Me.StatusStrip_Main.Text = "StatusStrip1"
+        '
+        'tssStatus
+        '
+        Me.tssStatus.Name = "tssStatus"
+        Me.tssStatus.Size = New System.Drawing.Size(53, 17)
+        Me.tssStatus.Text = "tssStatus"
+        '
+        'tssRecord
+        '
+        Me.tssRecord.Name = "tssRecord"
+        Me.tssRecord.Size = New System.Drawing.Size(58, 17)
+        Me.tssRecord.Text = "tssRecord"
+        '
+        'SplitContainerMain
+        '
+        Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerMain.Horizontal = False
+        Me.SplitContainerMain.Location = New System.Drawing.Point(0, 40)
+        Me.SplitContainerMain.Name = "SplitContainerMain"
+        Me.SplitContainerMain.Panel1.Controls.Add(Me.SplitContainerTop)
+        Me.SplitContainerMain.Panel1.Text = "Panel1"
+        Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainerBottom)
+        Me.SplitContainerMain.Panel2.Text = "Panel2"
+        Me.SplitContainerMain.Size = New System.Drawing.Size(1074, 571)
+        Me.SplitContainerMain.SplitterPosition = 270
+        Me.SplitContainerMain.TabIndex = 2
+        Me.SplitContainerMain.Text = "SplitContainerControl1"
+        '
+        'SplitContainerTop
+        '
+        Me.SplitContainerTop.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
+        Me.SplitContainerTop.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerTop.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainerTop.Name = "SplitContainerTop"
+        Me.SplitContainerTop.Panel1.Controls.Add(Me.TreeViewMain)
+        Me.SplitContainerTop.Panel1.Text = "Panel1"
+        Me.SplitContainerTop.Panel2.Controls.Add(Me.GridControlMain)
+        Me.SplitContainerTop.Panel2.Text = "Panel2"
+        Me.SplitContainerTop.Size = New System.Drawing.Size(1074, 270)
+        Me.SplitContainerTop.SplitterPosition = 256
+        Me.SplitContainerTop.TabIndex = 0
+        Me.SplitContainerTop.Text = "SplitContainerControl1"
+        '
+        'TreeViewMain
+        '
+        Me.TreeViewMain.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.TreeViewMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TreeViewMain.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeViewMain.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TreeViewMain.Location = New System.Drawing.Point(0, 0)
+        Me.TreeViewMain.Name = "TreeViewMain"
+        Me.TreeViewMain.Size = New System.Drawing.Size(256, 270)
+        Me.TreeViewMain.TabIndex = 0
+        '
+        'SplitContainerBottom
+        '
+        Me.SplitContainerBottom.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+        Me.SplitContainerBottom.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerBottom.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainerBottom.Name = "SplitContainerBottom"
+        Me.SplitContainerBottom.Panel1.Text = "Panel1"
+        Me.SplitContainerBottom.Panel2.Text = "Panel2"
+        Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 296)
+        Me.SplitContainerBottom.SplitterPosition = 448
+        Me.SplitContainerBottom.TabIndex = 0
+        Me.SplitContainerBottom.Text = "SplitContainerControl1"
+        '
+        'DD_ECMAdmin
+        '
+        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
+        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'ImageCollection1
+        '
+        Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
+        '
+        'frmForm_Constructor_Main
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1074, 633)
+        Me.Controls.Add(Me.SplitContainerMain)
+        Me.Controls.Add(Me.StatusStrip_Main)
+        Me.Controls.Add(Me.NavPane)
+        Me.Name = "frmForm_Constructor_Main"
         Me.Text = "frmForm_Constructor_Main"
+        CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuGrid.ResumeLayout(False)
+        CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.StatusStrip_Main.ResumeLayout(False)
+        Me.StatusStrip_Main.PerformLayout()
+        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerMain.ResumeLayout(False)
+        CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerTop.ResumeLayout(False)
+        CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerBottom.ResumeLayout(False)
+        CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
     End Sub
+    Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane
+    Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton
+    Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
+    Friend WithEvents SplitContainerMain As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents SplitContainerTop As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents TreeViewMain As System.Windows.Forms.TreeView
+    Friend WithEvents GridControlMain As DevExpress.XtraGrid.GridControl
+    Friend WithEvents SplitContainerBottom As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents grvwTiles As DevExpress.XtraGrid.Views.Tile.TileView
+    Friend WithEvents grvwGrid As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents tssStatus As System.Windows.Forms.ToolStripStatusLabel
+    Friend WithEvents tssRecord As System.Windows.Forms.ToolStripStatusLabel
+    Friend WithEvents NavButtonRefresh As DevExpress.XtraBars.Navigation.NavButton
+    Friend WithEvents BindingSource_Entity As System.Windows.Forms.BindingSource
+    Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin
+    Friend WithEvents ContextMenuGrid As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents FunktionenDataGridToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents ButtonResetFilter As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ButtonExportToExcel As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents AnsichtUmschaltenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ButtonResetView As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ButtonQuickViewCarousel As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ButtonQuickViewTiles As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ButtonDetailView As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ButtonSetViewAsDefault As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView
+    Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection
 End Class

app/DD-Record-Organiser/frmForm_Constructor_Main.resx

@@ -117,4 +117,55 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>477, 15</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAAWlJREFUWEfF
+        lNFOxDAMBO/D+m1IfHmIT5mTvWzS9DiVhxG1O/WuQOLRWvtX7PJOynAch6MJ+d1XsPjWkjPL4OTOrECE
+        s4vn/M2SnFkGJ3dyOEE5XN+dkjPL4OSOBrhw2CqRM8vg5E4+vAqH0xI5swxO7lwJh2WJnFkGJw9m4d8D
+        925aImeWwcmdVTjOpRI5swxGnoYPP97zf2C7RM4sQxb6z51wdqcl9D6UASE+6LhDLhy2fxM5swxDeCcc
+        tkrkzDIMwX24Ew5bfw7QAu6DK+GwLEFecFbgnXCYliAvWBX4SzjYEuQFswKfCIdfJcgLXIFPhkMpQV6g
+        BZ7h49kdeoKjOBeS88oIXg+KHsioC84FdcEuA3cE1AXngrpgl4E7AuqCc0FdsMvAHQF1wbmgLthl4I6A
+        uuBcUBfsMnBHQF1wLqgLdhm4I6AuOBfUBbsM3BFQF5wL6oJdBu4IqAvOBXXBLu/ELu+jPX4ATMNRVtCQ
+        oP8AAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="NavButtonRefresh.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        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>
+  <metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>162, 11</value>
+  </metadata>
+  <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>342, 15</value>
+  </metadata>
+  <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>626, 15</value>
+  </metadata>
+  <assembly alias="DevExpress.Utils.v15.1" name="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.1" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4xLCBWZXJzaW9uPTE1LjEu
+        Ny4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
+        ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
+</value>
+  </data>
 </root>

app/DD-Record-Organiser/frmMain.Designer.vb

@@ -69,6 +69,7 @@ Partial Class frmMain
         Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel(Me.components)
         Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
         Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
         CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -449,6 +450,15 @@ Partial Class frmMain
         Me.Button1.Text = "Button1"
         Me.Button1.UseVisualStyleBackColor = True
         '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(504, 32)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 23)
+        Me.Button2.TabIndex = 7
+        Me.Button2.Text = "Button2"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'frmMain
         '
         Me.Appearance.BackColor = System.Drawing.Color.White
@@ -457,6 +467,7 @@ Partial Class frmMain
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1498, 678)
+        Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.ribbonMain)
@@ -520,5 +531,6 @@ Partial Class frmMain
     Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem17 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Button2 As System.Windows.Forms.Button
 
 End Class

app/DD-Record-Organiser/frmMain.vb

@@ -444,4 +444,9 @@ Public Class frmMain
         Dim form As New frmConstructor_Main()
         form.Show()
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim frm As New frmForm_Constructor_Main()
+        frm.Show()
+    End Sub
 End Class