JJ constructor neu
This commit is contained in:
JenneJ
parent
bd5d829b1e
commit
654d7102a3
210
app/DD-Record-Organiser/XtraForm2.Designer.vb
generated
210
app/DD-Record-Organiser/XtraForm2.Designer.vb
generated
@ -20,17 +20,11 @@ Partial Class XtraForm2
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
|
||||
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XtraForm2))
|
||||
Me.navPane = New DevExpress.XtraBars.Navigation.TileNavPane()
|
||||
Me.btn_home = New DevExpress.XtraBars.Navigation.NavButton()
|
||||
Me.btn_Refresh = New DevExpress.XtraBars.Navigation.NavButton()
|
||||
Me.TreeViewLevelSelect = New System.Windows.Forms.TreeView()
|
||||
Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
|
||||
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.tssRecord = 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()
|
||||
@ -38,17 +32,30 @@ Partial Class XtraForm2
|
||||
Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.LayoutViewCard1 = New DevExpress.XtraGrid.Views.Layout.LayoutViewCard()
|
||||
Me.navPane = New DevExpress.XtraBars.Navigation.TileNavPane()
|
||||
Me.btn_home = New DevExpress.XtraBars.Navigation.NavButton()
|
||||
Me.btn_Refresh = New DevExpress.XtraBars.Navigation.NavButton()
|
||||
Me.TreeViewLevelSelect = New System.Windows.Forms.TreeView()
|
||||
Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.StatusStrip_Main = New System.Windows.Forms.StatusStrip()
|
||||
Me.tssStatus = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.tssRecord = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
|
||||
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
|
||||
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
|
||||
Me.SplitContainer_Main = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.SplitContainer_Top = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.SplitContainer_Bottom = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.grvwTiles = New DevExpress.XtraGrid.Views.Tile.TileView()
|
||||
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenu_GridControlSelection.SuspendLayout()
|
||||
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutViewCard1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.StatusStrip_Main.SuspendLayout()
|
||||
Me.ContextMenu_GridControlSelection.SuspendLayout()
|
||||
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.XtraTabControl1.SuspendLayout()
|
||||
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -57,8 +64,95 @@ Partial Class XtraForm2
|
||||
Me.SplitContainer_Top.SuspendLayout()
|
||||
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer_Bottom.SuspendLayout()
|
||||
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'grvwCarousel
|
||||
'
|
||||
Me.grvwCarousel.GridControl = Me.GridControlSelection
|
||||
Me.grvwCarousel.Name = "grvwCarousel"
|
||||
Me.grvwCarousel.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.grvwCarousel.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.grvwCarousel.OptionsBehavior.Editable = False
|
||||
Me.grvwCarousel.OptionsBehavior.ReadOnly = True
|
||||
Me.grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Row
|
||||
Me.grvwCarousel.TemplateCard = Me.LayoutViewCard1
|
||||
'
|
||||
'GridControlSelection
|
||||
'
|
||||
Me.GridControlSelection.ContextMenuStrip = Me.ContextMenu_GridControlSelection
|
||||
Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
GridLevelNode1.LevelTemplate = Me.grvwCarousel
|
||||
GridLevelNode1.RelationName = "Level1"
|
||||
GridLevelNode2.LevelTemplate = Me.grvwTiles
|
||||
GridLevelNode2.RelationName = "Level2"
|
||||
Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2})
|
||||
Me.GridControlSelection.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GridControlSelection.MainView = Me.grvwGrid
|
||||
Me.GridControlSelection.Name = "GridControlSelection"
|
||||
Me.GridControlSelection.Size = New System.Drawing.Size(1157, 272)
|
||||
Me.GridControlSelection.TabIndex = 2
|
||||
Me.GridControlSelection.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles})
|
||||
'
|
||||
'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.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"
|
||||
'
|
||||
'grvwGrid
|
||||
'
|
||||
Me.grvwGrid.GridControl = Me.GridControlSelection
|
||||
Me.grvwGrid.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _
|
||||
"ssen"
|
||||
Me.grvwGrid.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
|
||||
Me.grvwGrid.Name = "grvwGrid"
|
||||
Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.grvwGrid.OptionsBehavior.Editable = False
|
||||
Me.grvwGrid.OptionsBehavior.ReadOnly = True
|
||||
'
|
||||
'LayoutViewCard1
|
||||
'
|
||||
Me.LayoutViewCard1.ExpandButtonLocation = DevExpress.Utils.GroupElementLocation.AfterText
|
||||
Me.LayoutViewCard1.Name = "LayoutViewCard1"
|
||||
'
|
||||
'navPane
|
||||
'
|
||||
Me.navPane.ButtonPadding = New System.Windows.Forms.Padding(12)
|
||||
@ -105,31 +199,9 @@ Partial Class XtraForm2
|
||||
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.Size = New System.Drawing.Size(298, 272)
|
||||
Me.TreeViewLevelSelect.TabIndex = 1
|
||||
'
|
||||
'GridControlSelection
|
||||
'
|
||||
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})
|
||||
'
|
||||
'grvwSelection
|
||||
'
|
||||
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
|
||||
'
|
||||
'StatusStrip_Main
|
||||
'
|
||||
Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tssStatus, Me.tssRecord})
|
||||
@ -151,63 +223,20 @@ Partial Class XtraForm2
|
||||
Me.tssRecord.Size = New System.Drawing.Size(121, 17)
|
||||
Me.tssRecord.Text = "ToolStripStatusLabel1"
|
||||
'
|
||||
'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.Size = New System.Drawing.Size(1050, 320)
|
||||
Me.XtraTabControl1.TabIndex = 0
|
||||
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
|
||||
'
|
||||
'XtraTabPage1
|
||||
'
|
||||
Me.XtraTabPage1.Name = "XtraTabPage1"
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(1044, 384)
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(1044, 292)
|
||||
Me.XtraTabPage1.Text = "XtraTabPage1"
|
||||
'
|
||||
'XtraTabPage2
|
||||
@ -227,7 +256,7 @@ Partial Class XtraForm2
|
||||
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.SplitterPosition = 272
|
||||
Me.SplitContainer_Main.TabIndex = 4
|
||||
Me.SplitContainer_Main.Text = "SplitContainerControl1"
|
||||
'
|
||||
@ -240,7 +269,7 @@ Partial Class XtraForm2
|
||||
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.Size = New System.Drawing.Size(1460, 272)
|
||||
Me.SplitContainer_Top.SplitterPosition = 298
|
||||
Me.SplitContainer_Top.TabIndex = 0
|
||||
Me.SplitContainer_Top.Text = "SplitContainerControl1"
|
||||
@ -254,11 +283,16 @@ Partial Class XtraForm2
|
||||
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.Size = New System.Drawing.Size(1460, 320)
|
||||
Me.SplitContainer_Bottom.SplitterPosition = 1050
|
||||
Me.SplitContainer_Bottom.TabIndex = 0
|
||||
Me.SplitContainer_Bottom.Text = "SplitContainerControl1"
|
||||
'
|
||||
'grvwTiles
|
||||
'
|
||||
Me.grvwTiles.GridControl = Me.GridControlSelection
|
||||
Me.grvwTiles.Name = "grvwTiles"
|
||||
'
|
||||
'XtraForm2
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@ -269,12 +303,14 @@ Partial Class XtraForm2
|
||||
Me.Controls.Add(Me.navPane)
|
||||
Me.Name = "XtraForm2"
|
||||
Me.Text = "XtraForm2"
|
||||
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenu_GridControlSelection.ResumeLayout(False)
|
||||
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutViewCard1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.StatusStrip_Main.ResumeLayout(False)
|
||||
Me.StatusStrip_Main.PerformLayout()
|
||||
Me.ContextMenu_GridControlSelection.ResumeLayout(False)
|
||||
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.XtraTabControl1.ResumeLayout(False)
|
||||
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@ -283,6 +319,7 @@ Partial Class XtraForm2
|
||||
Me.SplitContainer_Top.ResumeLayout(False)
|
||||
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer_Bottom.ResumeLayout(False)
|
||||
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@ -292,7 +329,7 @@ Partial Class XtraForm2
|
||||
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 grvwGrid As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents BindingSource_Entity As System.Windows.Forms.BindingSource
|
||||
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
|
||||
Friend WithEvents tssStatus As System.Windows.Forms.ToolStripStatusLabel
|
||||
@ -310,4 +347,7 @@ Partial Class XtraForm2
|
||||
Friend WithEvents SplitContainer_Main As DevExpress.XtraEditors.SplitContainerControl
|
||||
Friend WithEvents SplitContainer_Top As DevExpress.XtraEditors.SplitContainerControl
|
||||
Friend WithEvents SplitContainer_Bottom As DevExpress.XtraEditors.SplitContainerControl
|
||||
Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView
|
||||
Friend WithEvents LayoutViewCard1 As DevExpress.XtraGrid.Views.Layout.LayoutViewCard
|
||||
Friend WithEvents grvwTiles As DevExpress.XtraGrid.Views.Tile.TileView
|
||||
End Class
|
||||
|
||||
@ -117,6 +117,9 @@
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ContextMenu_GridControlSelection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>321, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="btn_home.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
@ -151,7 +154,4 @@
|
||||
<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>
|
||||
@ -2,6 +2,8 @@
|
||||
Imports DevExpress.XtraBars.Navigation
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DevExpress.XtraEditors.Repository
|
||||
Imports DevExpress.XtraGrid.Views.Base
|
||||
Imports DevExpress.XtraGrid.Views.Tile
|
||||
|
||||
Public Class XtraForm2
|
||||
|
||||
@ -30,6 +32,7 @@ Public Class XtraForm2
|
||||
Public DT_SELECTION
|
||||
Public EBENE_SQLRESULT
|
||||
Public EDIT_STATE As EditState = EditState.None
|
||||
Public GRID_TYPE As GridType = GridType.Carousel
|
||||
|
||||
Public Enum EditState
|
||||
None
|
||||
@ -37,11 +40,19 @@ Public Class XtraForm2
|
||||
Update
|
||||
End Enum
|
||||
|
||||
Public Enum GridType
|
||||
Grid
|
||||
Carousel
|
||||
End Enum
|
||||
|
||||
Private Sub XtraForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
|
||||
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
|
||||
|
||||
|
||||
Init_Grid_Control()
|
||||
|
||||
'Load_Tree_View()
|
||||
Load_Tree_View(CONSTRUCTORID)
|
||||
End Sub
|
||||
@ -79,17 +90,24 @@ Public Class XtraForm2
|
||||
Dim Entity As String = element.Tag
|
||||
Dim Node = FindNode(TreeViewLevelSelect.Nodes, Entity)
|
||||
|
||||
TreeViewLevelSelect.SelectedNode = Node
|
||||
Load_Tree_View_Data()
|
||||
If Node IsNot Nothing Then
|
||||
TreeViewLevelSelect.SelectedNode = Node
|
||||
Load_Tree_View_Data()
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ResetNav()
|
||||
' Grid zurücksetzen
|
||||
Clear_Grid_View()
|
||||
|
||||
' Navigation zurücksetzen
|
||||
navPane.Categories.Clear()
|
||||
TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.Nodes(0)
|
||||
Load_Tree_View_Data()
|
||||
' TreeView zurücksetzen
|
||||
'Load_Tree_View(CONSTRUCTORID)
|
||||
TreeViewLevelSelect.SelectedNode = Nothing
|
||||
End Sub
|
||||
|
||||
Private Function LoadLevel1Nav()
|
||||
@ -140,7 +158,7 @@ Public Class XtraForm2
|
||||
Dim SQL As String
|
||||
Dim DT, DT2, DT3 As DataTable
|
||||
|
||||
' Daten für Root Node Laden
|
||||
' Daten für Level1 Nodes Laden
|
||||
SQL = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & ConstructorId & " ORDER BY SEQUENCE"
|
||||
DT = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
@ -160,7 +178,7 @@ Public Class XtraForm2
|
||||
TreeViewLevelSelect.Nodes.Clear()
|
||||
TreeViewLevelSelect.Nodes.Add(LEVEL1_NODE)
|
||||
|
||||
' Daten für Level1 Nodes Laden
|
||||
' Daten für Level2 Nodes Laden
|
||||
SQL = String.Format("SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND PARENT_ID = {1} ORDER BY SEQUENCE", ConstructorId, LEVEL1_ID)
|
||||
DT2 = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
@ -179,7 +197,7 @@ Public Class XtraForm2
|
||||
' ..und einfügen
|
||||
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
|
||||
|
||||
' Daten für Level2 Nodes laden
|
||||
' Daten für Level3 Nodes laden
|
||||
SQL = String.Format("SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND PARENT_ID = {1} ORDER BY SEQUENCE", ConstructorId, LEVEL2_ID)
|
||||
DT3 = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
@ -231,6 +249,100 @@ Public Class XtraForm2
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "GridControl"
|
||||
|
||||
|
||||
Public Sub Init_Grid_Control()
|
||||
GridControlSelection.MainView = grvwCarousel
|
||||
'GridControlSelection.MainView = grvwTiles
|
||||
End Sub
|
||||
|
||||
Public Sub Hide_Grid_Columns()
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
grvwGrid.Columns.Item("Record-ID").Visible = False
|
||||
grvwGrid.Columns.Item("Form-ID").Visible = False
|
||||
Else
|
||||
Dim cols As New List(Of String) From {"Record-ID", "Form-ID", "AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}
|
||||
|
||||
For Each colname As String In cols
|
||||
Dim col = grvwCarousel.Columns.Item(colname)
|
||||
If col IsNot Nothing Then
|
||||
col.Visible = False
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer)
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
Return String.Format("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
|
||||
Else
|
||||
Return String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Sub Clear_Grid_View()
|
||||
GridControlSelection.DataSource = Nothing
|
||||
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
grvwGrid.Columns.Clear()
|
||||
Else
|
||||
grvwCarousel.Columns.Clear()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Function Get_Grid_Row_Count() As Integer
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
Return grvwGrid.RowCount
|
||||
Else
|
||||
Return grvwCarousel.RowCount
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Get_Grid_Column_Count() As Integer
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
Return grvwGrid.Columns.Count
|
||||
Else
|
||||
Return grvwCarousel.Columns.Count
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Get_Focused_Row_Cell_Value(columnName As String)
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
Return grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
|
||||
Else
|
||||
Return grvwCarousel.GetFocusedRowCellValue(grvwCarousel.Columns(columnName))
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwCarousel.FocusedRowChanged
|
||||
'If vFormClosing = True Or SaveRoutine_Active = True Then
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
'Check_Record_Changed()
|
||||
|
||||
|
||||
|
||||
Load_Record_Data()
|
||||
'Hide_Grid_Columns()
|
||||
|
||||
'If dataloaded = True Then
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
|
||||
' Dim selRecID = GetSelected_RecordID()
|
||||
' If Not selRecID Is Nothing And selRecID <> SelectedRecordID Or EDIT_STATE = "insert" Then
|
||||
' Focused_Row_Column_Changed()
|
||||
' Else
|
||||
' 'Console.WriteLine("SelRecordID identisch")
|
||||
' End If
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Status Bar"
|
||||
|
||||
Public Sub Update_Status_Label(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None)
|
||||
@ -304,7 +416,8 @@ Public Class XtraForm2
|
||||
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)
|
||||
'_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
|
||||
_sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
|
||||
|
||||
|
||||
Case 2
|
||||
@ -336,10 +449,11 @@ Public Class XtraForm2
|
||||
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 = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
|
||||
_sql = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FormId))
|
||||
_sql = _sql.Replace("@RecordID", EBENE1_RECID)
|
||||
Else
|
||||
_sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
|
||||
_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FormId)
|
||||
End If
|
||||
EBENE2_GRID_RESULT = Nothing
|
||||
EBENE3_GRID_RESULT = Nothing
|
||||
@ -380,8 +494,7 @@ Public Class XtraForm2
|
||||
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()
|
||||
Clear_Grid_View()
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End If
|
||||
@ -519,10 +632,10 @@ Public Class XtraForm2
|
||||
listcheck = listcheck.Distinct().ToList()
|
||||
|
||||
'Grid leeren
|
||||
GridControlSelection.DataSource = Nothing
|
||||
grvwSelection.Columns.Clear()
|
||||
Clear_Grid_View()
|
||||
|
||||
'Databinding Neu
|
||||
Me.BindingSource_Entity.DataSource = Datatable_Grid
|
||||
BindingSource_Entity.DataSource = Datatable_Grid
|
||||
GridControlSelection.DataSource = BindingSource_Entity
|
||||
|
||||
' Den Editor Initialisieren und Optionen setzen
|
||||
@ -538,23 +651,24 @@ Public Class XtraForm2
|
||||
' grvwSelection.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
|
||||
' End If
|
||||
'Next
|
||||
grvwSelection.Columns("Record-ID").OptionsColumn.AllowShowHide = False
|
||||
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
|
||||
'Load_GridSelection_Layout()
|
||||
'HideColumns()
|
||||
Dim selnode As TreeNode = TreeViewLevelSelect.SelectedNode
|
||||
Dim origtext As String = selnode.Text
|
||||
If origtext.Contains(" (") Then
|
||||
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
|
||||
selnode.Text = existingstring & " (" & grvwSelection.RowCount & ")"
|
||||
|
||||
selnode.Text = String.Format("{0} ({1})", existingstring, Get_Grid_Row_Count())
|
||||
Else
|
||||
selnode.Text = selnode.Text & " (" & grvwSelection.RowCount & ")"
|
||||
selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
Return True
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Sub Show_Selected_Record_Data(GridColumn_String As String, Optional DirectRecID As Integer = 0)
|
||||
@ -564,7 +678,7 @@ Public Class XtraForm2
|
||||
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
|
||||
If Get_Grid_Column_Count() = 0 Then
|
||||
'Me.pnlDetails.Enabled = False
|
||||
'Me.tsbtnshowWorkflowtasks.Enabled = False
|
||||
|
||||
@ -572,8 +686,8 @@ Public Class XtraForm2
|
||||
Exit Sub
|
||||
End If
|
||||
'Überhaupt Rows in Grid?
|
||||
If grvwSelection.RowCount > 0 Then
|
||||
Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(GridColumn_String))
|
||||
If Get_Grid_Row_Count() > 0 Then
|
||||
Dim Grid_RecordID = Get_Focused_Row_Cell_Value(GridColumn_String)
|
||||
If Grid_RecordID Is Nothing = False Then
|
||||
SelectedRecordID = Grid_RecordID
|
||||
CURRENT_RECORD_ID = Grid_RecordID
|
||||
@ -672,7 +786,7 @@ Public Class XtraForm2
|
||||
End Sub
|
||||
|
||||
Function Get_GridResult(Columnname As String)
|
||||
Dim result As String = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(Columnname))
|
||||
Dim result As String = Get_Focused_Row_Cell_Value(Columnname)
|
||||
If result = String.Empty Then
|
||||
Return "No Column configured"
|
||||
Else
|
||||
@ -682,15 +796,15 @@ Public Class XtraForm2
|
||||
|
||||
Function GetSelected_RecordID()
|
||||
Try
|
||||
If grvwSelection.Columns.Count = 0 Then
|
||||
If Get_Grid_Column_Count() = 0 Then
|
||||
'Me.pnlDetails.Enabled = False
|
||||
'Me.tsbtnshowWorkflowtasks.Enabled = False
|
||||
'tsstatus_Detail_show(True, "Keine Columns in Grid")
|
||||
Return Nothing
|
||||
End If
|
||||
'Überhaupt Rows in Grid?
|
||||
If grvwSelection.RowCount > 0 Then
|
||||
Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns("Record-ID"))
|
||||
If Get_Grid_Row_Count() > 0 Then
|
||||
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
|
||||
If Grid_RecordID Is Nothing = False Then
|
||||
Return Grid_RecordID
|
||||
Else
|
||||
@ -706,24 +820,7 @@ Public Class XtraForm2
|
||||
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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user