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

JJ constructor neu

Browse Source
This commit is contained in:
JenneJ
2015-11-05 15:55:23 +01:00
parent bd5d829b1e
commit 654d7102a3
3 changed files with 269 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -20,17 +20,11 @@ Partial Class XtraForm2
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.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(XtraForm2)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XtraForm2))
Me.navPane = New DevExpress.XtraBars.Navigation.TileNavPane() Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
Me.btn_home = New DevExpress.XtraBars.Navigation.NavButton()
Me.btn_Refresh = New DevExpress.XtraBars.Navigation.NavButton()
Me.TreeViewLevelSelect = New System.Windows.Forms.TreeView()
Me.GridControlSelection = New DevExpress.XtraGrid.GridControl() 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.ContextMenu_GridControlSelection = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.FunktionenDatagridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FunktionenDatagridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
@@ -38,17 +32,30 @@ Partial Class XtraForm2
Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnsichtZurücksetzenToolStripMenuItem = 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.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.SplitContainer_Main = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainer_Main = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainer_Top = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainer_Top = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainer_Bottom = 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.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() CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip_Main.SuspendLayout() Me.StatusStrip_Main.SuspendLayout()
Me.ContextMenu_GridControlSelection.SuspendLayout()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout() Me.XtraTabControl1.SuspendLayout()
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -57,8 +64,95 @@ Partial Class XtraForm2
Me.SplitContainer_Top.SuspendLayout() Me.SplitContainer_Top.SuspendLayout()
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer_Bottom.SuspendLayout() Me.SplitContainer_Bottom.SuspendLayout()
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() 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 'navPane
' '
Me.navPane.ButtonPadding = New System.Windows.Forms.Padding(12) 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.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeViewLevelSelect.Location = New System.Drawing.Point(0, 0) Me.TreeViewLevelSelect.Location = New System.Drawing.Point(0, 0)
Me.TreeViewLevelSelect.Name = "TreeViewLevelSelect" 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 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 'StatusStrip_Main
' '
Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tssStatus, Me.tssRecord}) 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.Size = New System.Drawing.Size(121, 17)
Me.tssRecord.Text = "ToolStripStatusLabel1" 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 'XtraTabControl1
' '
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 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.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
' '
'XtraTabPage1 'XtraTabPage1
' '
Me.XtraTabPage1.Name = "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" Me.XtraTabPage1.Text = "XtraTabPage1"
' '
'XtraTabPage2 'XtraTabPage2
@@ -227,7 +256,7 @@ Partial Class XtraForm2
Me.SplitContainer_Main.Panel2.Controls.Add(Me.SplitContainer_Bottom) Me.SplitContainer_Main.Panel2.Controls.Add(Me.SplitContainer_Bottom)
Me.SplitContainer_Main.Panel2.Text = "Panel2" Me.SplitContainer_Main.Panel2.Text = "Panel2"
Me.SplitContainer_Main.Size = New System.Drawing.Size(1460, 597) 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.TabIndex = 4
Me.SplitContainer_Main.Text = "SplitContainerControl1" Me.SplitContainer_Main.Text = "SplitContainerControl1"
' '
@@ -240,7 +269,7 @@ Partial Class XtraForm2
Me.SplitContainer_Top.Panel1.Text = "Panel1" Me.SplitContainer_Top.Panel1.Text = "Panel1"
Me.SplitContainer_Top.Panel2.Controls.Add(Me.GridControlSelection) Me.SplitContainer_Top.Panel2.Controls.Add(Me.GridControlSelection)
Me.SplitContainer_Top.Panel2.Text = "Panel2" 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.SplitterPosition = 298
Me.SplitContainer_Top.TabIndex = 0 Me.SplitContainer_Top.TabIndex = 0
Me.SplitContainer_Top.Text = "SplitContainerControl1" Me.SplitContainer_Top.Text = "SplitContainerControl1"
@@ -254,11 +283,16 @@ Partial Class XtraForm2
Me.SplitContainer_Bottom.Panel1.Controls.Add(Me.XtraTabControl1) Me.SplitContainer_Bottom.Panel1.Controls.Add(Me.XtraTabControl1)
Me.SplitContainer_Bottom.Panel1.Text = "Panel1" Me.SplitContainer_Bottom.Panel1.Text = "Panel1"
Me.SplitContainer_Bottom.Panel2.Text = "Panel2" 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.SplitterPosition = 1050
Me.SplitContainer_Bottom.TabIndex = 0 Me.SplitContainer_Bottom.TabIndex = 0
Me.SplitContainer_Bottom.Text = "SplitContainerControl1" Me.SplitContainer_Bottom.Text = "SplitContainerControl1"
' '
'grvwTiles
'
Me.grvwTiles.GridControl = Me.GridControlSelection
Me.grvwTiles.Name = "grvwTiles"
'
'XtraForm2 'XtraForm2
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -269,12 +303,14 @@ Partial Class XtraForm2
Me.Controls.Add(Me.navPane) Me.Controls.Add(Me.navPane)
Me.Name = "XtraForm2" Me.Name = "XtraForm2"
Me.Text = "XtraForm2" Me.Text = "XtraForm2"
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlSelection, 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() CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip_Main.ResumeLayout(False) Me.StatusStrip_Main.ResumeLayout(False)
Me.StatusStrip_Main.PerformLayout() Me.StatusStrip_Main.PerformLayout()
Me.ContextMenu_GridControlSelection.ResumeLayout(False)
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabControl1.ResumeLayout(False)
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).EndInit()
@@ -283,6 +319,7 @@ Partial Class XtraForm2
Me.SplitContainer_Top.ResumeLayout(False) Me.SplitContainer_Top.ResumeLayout(False)
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer_Bottom.ResumeLayout(False) Me.SplitContainer_Bottom.ResumeLayout(False)
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -292,7 +329,7 @@ Partial Class XtraForm2
Friend WithEvents btn_Refresh As DevExpress.XtraBars.Navigation.NavButton Friend WithEvents btn_Refresh As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents TreeViewLevelSelect As System.Windows.Forms.TreeView Friend WithEvents TreeViewLevelSelect As System.Windows.Forms.TreeView
Friend WithEvents GridControlSelection As DevExpress.XtraGrid.GridControl 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 BindingSource_Entity As System.Windows.Forms.BindingSource
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
Friend WithEvents tssStatus As System.Windows.Forms.ToolStripStatusLabel 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_Main As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents SplitContainer_Top As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainer_Top As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents SplitContainer_Bottom 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 End Class

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

@@ -117,6 +117,9 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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" /> <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"> <data name="btn_home.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <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"> <metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>178, 17</value> <value>178, 17</value>
</metadata> </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> </root>

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

@@ -2,6 +2,8 @@
Imports DevExpress.XtraBars.Navigation Imports DevExpress.XtraBars.Navigation
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Repository Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile
Public Class XtraForm2 Public Class XtraForm2
@@ -30,6 +32,7 @@ Public Class XtraForm2
Public DT_SELECTION Public DT_SELECTION
Public EBENE_SQLRESULT Public EBENE_SQLRESULT
Public EDIT_STATE As EditState = EditState.None Public EDIT_STATE As EditState = EditState.None
Public GRID_TYPE As GridType = GridType.Carousel
Public Enum EditState Public Enum EditState
None None
@@ -37,11 +40,19 @@ Public Class XtraForm2
Update Update
End Enum End Enum
Public Enum GridType
Grid
Carousel
End Enum
Private Sub XtraForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub XtraForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID) DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
Init_Grid_Control()
'Load_Tree_View() 'Load_Tree_View()
Load_Tree_View(CONSTRUCTORID) Load_Tree_View(CONSTRUCTORID)
End Sub End Sub
@@ -79,17 +90,24 @@ Public Class XtraForm2
Dim Entity As String = element.Tag Dim Entity As String = element.Tag
Dim Node = FindNode(TreeViewLevelSelect.Nodes, Entity) Dim Node = FindNode(TreeViewLevelSelect.Nodes, Entity)
TreeViewLevelSelect.SelectedNode = Node If Node IsNot Nothing Then
Load_Tree_View_Data() TreeViewLevelSelect.SelectedNode = Node
Load_Tree_View_Data()
End If
End If End If
End If End If
End Sub End Sub
Private Sub ResetNav() Private Sub ResetNav()
' Grid zurücksetzen
Clear_Grid_View()
' Navigation zurücksetzen
navPane.Categories.Clear() navPane.Categories.Clear()
TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.Nodes(0) ' TreeView zurücksetzen
Load_Tree_View_Data() 'Load_Tree_View(CONSTRUCTORID)
TreeViewLevelSelect.SelectedNode = Nothing
End Sub End Sub
Private Function LoadLevel1Nav() Private Function LoadLevel1Nav()
@@ -140,7 +158,7 @@ Public Class XtraForm2
Dim SQL As String Dim SQL As String
Dim DT, DT2, DT3 As DataTable 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" SQL = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & ConstructorId & " ORDER BY SEQUENCE"
DT = ClassDatabase.Return_Datatable(SQL) DT = ClassDatabase.Return_Datatable(SQL)
@@ -160,7 +178,7 @@ Public Class XtraForm2
TreeViewLevelSelect.Nodes.Clear() TreeViewLevelSelect.Nodes.Clear()
TreeViewLevelSelect.Nodes.Add(LEVEL1_NODE) 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) 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) DT2 = ClassDatabase.Return_Datatable(SQL)
@@ -179,7 +197,7 @@ Public Class XtraForm2
' ..und einfügen ' ..und einfügen
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE) 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) 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) DT3 = ClassDatabase.Return_Datatable(SQL)
@@ -231,6 +249,100 @@ Public Class XtraForm2
End Sub End Sub
#End Region #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" #Region "Status Bar"
Public Sub Update_Status_Label(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None) 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 = "" EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing EBENE2_GRID_RESULT = Nothing
EBENE3_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 Case 2
@@ -336,10 +449,11 @@ Public Class XtraForm2
EBENE3_COLUMNNAME = "" EBENE3_COLUMNNAME = ""
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
If EBENE1_RECID > 0 Then 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) _sql = _sql.Replace("@RecordID", EBENE1_RECID)
Else 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 End If
EBENE2_GRID_RESULT = Nothing EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing EBENE3_GRID_RESULT = Nothing
@@ -380,8 +494,7 @@ Public Class XtraForm2
Else Else
MsgBox("Entität kann nicht ohne Auswahl eines Ebene 2 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation) MsgBox("Entität kann nicht ohne Auswahl eines Ebene 2 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
'Grid leeren 'Grid leeren
GridControlSelection.DataSource = Nothing Clear_Grid_View()
grvwSelection.Columns.Clear()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Exit Sub Exit Sub
End If End If
@@ -519,10 +632,10 @@ Public Class XtraForm2
listcheck = listcheck.Distinct().ToList() listcheck = listcheck.Distinct().ToList()
'Grid leeren 'Grid leeren
GridControlSelection.DataSource = Nothing Clear_Grid_View()
grvwSelection.Columns.Clear()
'Databinding Neu 'Databinding Neu
Me.BindingSource_Entity.DataSource = Datatable_Grid BindingSource_Entity.DataSource = Datatable_Grid
GridControlSelection.DataSource = BindingSource_Entity GridControlSelection.DataSource = BindingSource_Entity
' Den Editor Initialisieren und Optionen setzen ' Den Editor Initialisieren und Optionen setzen
@@ -538,23 +651,24 @@ Public Class XtraForm2
' grvwSelection.Columns(col).ColumnEdit = CheckBoxEditorForDisplay ' grvwSelection.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If ' End If
'Next 'Next
grvwSelection.Columns("Record-ID").OptionsColumn.AllowShowHide = False 'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
'Load_GridSelection_Layout() 'Load_GridSelection_Layout()
'HideColumns() 'HideColumns()
Dim selnode As TreeNode = TreeViewLevelSelect.SelectedNode Dim selnode As TreeNode = TreeViewLevelSelect.SelectedNode
Dim origtext As String = selnode.Text Dim origtext As String = selnode.Text
If origtext.Contains(" (") Then If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) 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 Else
selnode.Text = selnode.Text & " (" & grvwSelection.RowCount & ")" selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try
Return True
Return True
End Function End Function
Sub Show_Selected_Record_Data(GridColumn_String As String, Optional DirectRecID As Integer = 0) 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 DirectRecID = 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False) If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False)
'Überhaupt Columns in Grid? 'Überhaupt Columns in Grid?
If grvwSelection.Columns.Count = 0 Then If Get_Grid_Column_Count() = 0 Then
'Me.pnlDetails.Enabled = False 'Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False 'Me.tsbtnshowWorkflowtasks.Enabled = False
@@ -572,8 +686,8 @@ Public Class XtraForm2
Exit Sub Exit Sub
End If End If
'Überhaupt Rows in Grid? 'Überhaupt Rows in Grid?
If grvwSelection.RowCount > 0 Then If Get_Grid_Row_Count() > 0 Then
Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(GridColumn_String)) Dim Grid_RecordID = Get_Focused_Row_Cell_Value(GridColumn_String)
If Grid_RecordID Is Nothing = False Then If Grid_RecordID Is Nothing = False Then
SelectedRecordID = Grid_RecordID SelectedRecordID = Grid_RecordID
CURRENT_RECORD_ID = Grid_RecordID CURRENT_RECORD_ID = Grid_RecordID
@@ -672,7 +786,7 @@ Public Class XtraForm2
End Sub End Sub
Function Get_GridResult(Columnname As String) 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 If result = String.Empty Then
Return "No Column configured" Return "No Column configured"
Else Else
@@ -682,15 +796,15 @@ Public Class XtraForm2
Function GetSelected_RecordID() Function GetSelected_RecordID()
Try Try
If grvwSelection.Columns.Count = 0 Then If Get_Grid_Column_Count() = 0 Then
'Me.pnlDetails.Enabled = False 'Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False 'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid") 'tsstatus_Detail_show(True, "Keine Columns in Grid")
Return Nothing Return Nothing
End If End If
'Überhaupt Rows in Grid? 'Überhaupt Rows in Grid?
If grvwSelection.RowCount > 0 Then If Get_Grid_Row_Count() > 0 Then
Dim Grid_RecordID = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns("Record-ID")) Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If Grid_RecordID Is Nothing = False Then If Grid_RecordID Is Nothing = False Then
Return Grid_RecordID Return Grid_RecordID
Else Else
@@ -706,24 +820,7 @@ Public Class XtraForm2
End Try End Try
End Function 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() Sub Load_Record_Data()
Select Case EDIT_STATE Select Case EDIT_STATE