From bd5d829b1e33b72fae07cbecc3dea4cba5b11038 Mon Sep 17 00:00:00 2001 From: JenneJ Date: Wed, 4 Nov 2015 15:22:24 +0100 Subject: [PATCH] jj navigation --- app/DD-Record-Organiser/XtraForm2.Designer.vb | 34 +- app/DD-Record-Organiser/XtraForm2.resx | 2 +- app/DD-Record-Organiser/XtraForm2.vb | 444 +++++++++--------- 3 files changed, 234 insertions(+), 246 deletions(-) diff --git a/app/DD-Record-Organiser/XtraForm2.Designer.vb b/app/DD-Record-Organiser/XtraForm2.Designer.vb index e298e0f..4592a86 100644 --- a/app/DD-Record-Organiser/XtraForm2.Designer.vb +++ b/app/DD-Record-Organiser/XtraForm2.Designer.vb @@ -22,7 +22,7 @@ Partial Class XtraForm2 Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XtraForm2)) Me.navPane = New DevExpress.XtraBars.Navigation.TileNavPane() - Me.NavButton2 = New DevExpress.XtraBars.Navigation.NavButton() + 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() @@ -30,7 +30,7 @@ Partial Class XtraForm2 Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components) Me.StatusStrip_Main = New System.Windows.Forms.StatusStrip() Me.tssStatus = New System.Windows.Forms.ToolStripStatusLabel() - Me.tssEntity = New System.Windows.Forms.ToolStripStatusLabel() + Me.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() @@ -62,7 +62,7 @@ Partial Class XtraForm2 'navPane ' Me.navPane.ButtonPadding = New System.Windows.Forms.Padding(12) - Me.navPane.Buttons.Add(Me.NavButton2) + Me.navPane.Buttons.Add(Me.btn_home) Me.navPane.Buttons.Add(Me.btn_Refresh) ' 'TileNavCategory1 @@ -84,13 +84,13 @@ Partial Class XtraForm2 Me.navPane.TabIndex = 0 Me.navPane.Text = "TileNavPane1" ' - 'NavButton2 + 'btn_home ' - Me.NavButton2.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] - Me.NavButton2.Caption = "" - Me.NavButton2.Glyph = CType(resources.GetObject("NavButton2.Glyph"), System.Drawing.Image) - Me.NavButton2.IsMain = True - Me.NavButton2.Name = "NavButton2" + Me.btn_home.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] + Me.btn_home.Caption = "" + Me.btn_home.Glyph = CType(resources.GetObject("btn_home.Glyph"), System.Drawing.Image) + Me.btn_home.IsMain = True + Me.btn_home.Name = "btn_home" ' 'btn_Refresh ' @@ -132,7 +132,7 @@ Partial Class XtraForm2 ' 'StatusStrip_Main ' - Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tssStatus, Me.tssEntity}) + Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tssStatus, Me.tssRecord}) Me.StatusStrip_Main.Location = New System.Drawing.Point(0, 637) Me.StatusStrip_Main.Name = "StatusStrip_Main" Me.StatusStrip_Main.Size = New System.Drawing.Size(1460, 22) @@ -145,11 +145,11 @@ Partial Class XtraForm2 Me.tssStatus.Size = New System.Drawing.Size(121, 17) Me.tssStatus.Text = "ToolStripStatusLabel1" ' - 'tssEntity + 'tssRecord ' - Me.tssEntity.Name = "tssEntity" - Me.tssEntity.Size = New System.Drawing.Size(121, 17) - Me.tssEntity.Text = "ToolStripStatusLabel1" + Me.tssRecord.Name = "tssRecord" + Me.tssRecord.Size = New System.Drawing.Size(121, 17) + Me.tssRecord.Text = "ToolStripStatusLabel1" ' 'ContextMenu_GridControlSelection ' @@ -213,7 +213,7 @@ Partial Class XtraForm2 'XtraTabPage2 ' Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(294, 274) + Me.XtraTabPage2.Size = New System.Drawing.Size(1044, 384) Me.XtraTabPage2.Text = "XtraTabPage2" ' 'SplitContainer_Main @@ -288,7 +288,7 @@ Partial Class XtraForm2 End Sub Friend WithEvents navPane As DevExpress.XtraBars.Navigation.TileNavPane - Friend WithEvents NavButton2 As DevExpress.XtraBars.Navigation.NavButton + Friend WithEvents btn_home As DevExpress.XtraBars.Navigation.NavButton Friend WithEvents btn_Refresh As DevExpress.XtraBars.Navigation.NavButton Friend WithEvents TreeViewLevelSelect As System.Windows.Forms.TreeView Friend WithEvents GridControlSelection As DevExpress.XtraGrid.GridControl @@ -296,7 +296,7 @@ Partial Class XtraForm2 Friend WithEvents BindingSource_Entity As System.Windows.Forms.BindingSource Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip Friend WithEvents tssStatus As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents tssEntity As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents tssRecord As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents ContextMenu_GridControlSelection As System.Windows.Forms.ContextMenuStrip Friend WithEvents FunktionenDatagridToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator diff --git a/app/DD-Record-Organiser/XtraForm2.resx b/app/DD-Record-Organiser/XtraForm2.resx index 1ed91c3..f89efbb 100644 --- a/app/DD-Record-Organiser/XtraForm2.resx +++ b/app/DD-Record-Organiser/XtraForm2.resx @@ -118,7 +118,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAAWlJREFUWEfF diff --git a/app/DD-Record-Organiser/XtraForm2.vb b/app/DD-Record-Organiser/XtraForm2.vb index d768f3f..4379cba 100644 --- a/app/DD-Record-Organiser/XtraForm2.vb +++ b/app/DD-Record-Organiser/XtraForm2.vb @@ -1,6 +1,7 @@ Imports DevExpress.Utils Imports DevExpress.XtraBars.Navigation Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Repository Public Class XtraForm2 @@ -9,9 +10,10 @@ Public Class XtraForm2 Public EBENE2_PARENT_ID As Integer Public EBENE3_PARENT_ID As Integer Public ACT_EBENE As Integer + Public ACT_EBENE_STRING Public SelectedRecordID As Integer Public PARENT_RECORDID As Integer - Public ACT_EBENE_STRING + Public EBENE1_ENTITY Public EBENE2_ENTITY Public EBENE3_ENTITY @@ -35,16 +37,203 @@ Public Class XtraForm2 Update End Enum - Private Sub XtraForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID) - Load_Tree_View() + 'Load_Tree_View() + Load_Tree_View(CONSTRUCTORID) End Sub - Public Sub Update_Status(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None) +#Region "NavPane" + + + Private Function FindNode(tncoll As TreeNodeCollection, strText As [String]) As TreeNode + Dim tnFound As TreeNode + For Each tnCurr As TreeNode In tncoll + If tnCurr.Text.StartsWith(strText) Then + Return tnCurr + End If + tnFound = FindNode(tnCurr.Nodes, strText) + If tnFound IsNot Nothing Then + Return tnFound + End If + Next + Return Nothing + End Function + + + Private Sub navPane_MouseUp(sender As Object, e As MouseEventArgs) Handles navPane.MouseUp + Dim pane As TileNavPane = TryCast(sender, TileNavPane) + Dim hitInfo As TileNavPaneHitInfo = pane.ViewInfo.CalcHitInfo(e.Location) + If hitInfo.InButton Then + Dim element = hitInfo.ButtonInfo.Element + navPane.HideDropDownWindow() + + If TypeOf element Is NavButton Then + Dim btn As NavButton = TryCast(element, NavButton) + + If btn.IsMain Then ResetNav() + Else + Dim Entity As String = element.Tag + Dim Node = FindNode(TreeViewLevelSelect.Nodes, Entity) + + TreeViewLevelSelect.SelectedNode = Node + Load_Tree_View_Data() + End If + + End If + End Sub + + Private Sub ResetNav() + navPane.Categories.Clear() + TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.Nodes(0) + Load_Tree_View_Data() + End Sub + + Private Function LoadLevel1Nav() + Dim cat As New TileNavCategory() + cat.Caption = EBENE1_GRID_RESULT + cat.Name = EBENE1_GRID_RESULT + cat.TileText = EBENE1_GRID_RESULT + cat.Tag = EBENE1_ENTITY + + navPane.SelectedElement = cat + + Return cat + End Function + + Private Function LoadLevel2Nav() + Dim item As New TileNavItem() + item.Caption = EBENE2_GRID_RESULT + item.Name = EBENE2_GRID_RESULT + item.TileText = EBENE2_GRID_RESULT + item.Tag = EBENE2_ENTITY + + navPane.SelectedElement = item + + Return item + End Function + + Private Function LoadLevel3Nav() + Dim subitem As New TileNavSubItem() + subitem.Caption = EBENE3_GRID_RESULT + subitem.Name = EBENE3_GRID_RESULT + subitem.TileText = EBENE3_GRID_RESULT + subitem.Tag = EBENE3_ENTITY + + navPane.SelectedElement = subitem + + Return subitem + End Function + +#End Region + +#Region "TreeView" + + Sub Load_Tree_View(ConstructorId As Integer) + + Dim LEVEL1_NODE As TreeNode + Dim LEVEL2_NODE As TreeNode + Dim LEVEL3_NODE As TreeNode + Dim SQL As String + Dim DT, DT2, DT3 As DataTable + + ' Daten für Root Node Laden + SQL = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & ConstructorId & " ORDER BY SEQUENCE" + DT = ClassDatabase.Return_Datatable(SQL) + + If DT Is Nothing Then + Exit Sub + End If + + If DT.Rows.Count = 1 Then + Dim LEVEL1_TITLE = DT.Rows(0).Item("FORM_TITLE").ToString + Dim LEVEL1_ID = DT.Rows(0).Item("FORM_ID").ToString + + ' Rootnode erstellen und taggen + LEVEL1_NODE = New TreeNode(LEVEL1_TITLE) + LEVEL1_NODE.Tag = LEVEL1_ID + + ' TreeView leeren und Rootnode einfügen + TreeViewLevelSelect.Nodes.Clear() + TreeViewLevelSelect.Nodes.Add(LEVEL1_NODE) + + ' Daten für Level1 Nodes Laden + SQL = String.Format("SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND PARENT_ID = {1} ORDER BY SEQUENCE", ConstructorId, LEVEL1_ID) + DT2 = ClassDatabase.Return_Datatable(SQL) + + If DT2 Is Nothing Or DT2.Rows.Count = 0 Then + Exit Sub + End If + + For Each row As DataRow In DT2.Rows + Dim LEVEL2_TITLE As String = row.Item("FORM_TITLE").ToString + Dim LEVEL2_ID As Integer = row.Item("FORM_ID") + Dim LEVEL2_PARENT_ID As Integer = row.Item("PARENT_ID") + + ' Node erstellen.. + LEVEL2_NODE = New TreeNode(LEVEL2_TITLE) + LEVEL2_NODE.Tag = LEVEL2_ID + ' ..und einfügen + LEVEL1_NODE.Nodes.Add(LEVEL2_NODE) + + ' Daten für Level2 Nodes laden + SQL = String.Format("SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND PARENT_ID = {1} ORDER BY SEQUENCE", ConstructorId, LEVEL2_ID) + DT3 = ClassDatabase.Return_Datatable(SQL) + + If DT3 Is Nothing Or DT3.Rows.Count = 0 Then + Exit Sub + End If + + For Each subrow As DataRow In DT3.Rows + Dim LEVEL3_TITLE As String = subrow.Item("FORM_TITLE") + Dim LEVEL3_ID As Integer = subrow.Item("FORM_ID") + + ' Node erstellen.. + LEVEL3_NODE = New TreeNode(LEVEL3_TITLE) + LEVEL3_NODE.Tag = LEVEL3_ID + ' ..und einfügen + LEVEL2_NODE.Nodes.Add(LEVEL3_NODE) + Next + + Next + + TreeViewLevelSelect.ExpandAll() + TreeViewLevelSelect.Nodes(0).EnsureVisible() + End If + + End Sub + + + Sub Load_Tree_View_Data() + Dim SelectedNode As TreeNode = TryCast(TreeViewLevelSelect.SelectedNode, TreeNode) + Dim FormId As Integer = SelectedNode.Tag + + If SelectedNode IsNot Nothing Then + Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode) + + ACT_EBENE = 2 + + If parentNode IsNot Nothing Then + Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode) + + If grandParentNode IsNot Nothing Then + ACT_EBENE = 3 + End If + Else + ACT_EBENE = 1 + End If + + Load_Entity_Data(FormId, ACT_EBENE) + End If + End Sub +#End Region + +#Region "Status Bar" + + Public Sub Update_Status_Label(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None) tssStatus.Text = text tssStatus.Visible = visible @@ -58,98 +247,26 @@ Public Class XtraForm2 End Select End Sub + Public Sub Update_Record_Label(RecordId As Integer) + Dim SQL As String = "SELECT 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RecordId + Dim result = ClassDatabase.Execute_Scalar(SQL) - Sub Load_Tree_View() - Try - Dim sql As String = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & CONSTRUCTORID & " ORDER BY SEQUENCE" - Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) - Dim GRANDFATHERNODE1 As TreeNode - Dim GRANDFATHERNODE2 As TreeNode - Dim FATHERNODE As TreeNode - If dt Is Nothing Then - MsgBox("No Result for Level 1-Entities - Check logfile", MsgBoxStyle.Exclamation) + If IsDBNull(result) Or IsNothing(result) Then + tssRecord.Visible = False + Else + If CURRENT_FORM_TYPE = 5 Then + tssRecord.Text = String.Format("Group-Record ({0}) - {1}", RecordId, result.ToString) Else - If dt.Rows.Count = 1 Then - TreeViewLevelSelect.Nodes.Clear() - GRANDFATHERNODE1 = TreeViewLevelSelect.Nodes.Add(dt.Rows(0).Item("FORM_TITLE").ToString) - GRANDFATHERNODE1.Tag = dt.Rows(0).Item("FORM_ID") - 'Ebene 2 Entities herausfinden - sql = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND PARENT_ID = " & GRANDFATHERNODE1.Tag & " ORDER BY SEQUENCE" - dt = ClassDatabase.Return_Datatable(sql) - If dt Is Nothing Then - MsgBox("No Result for Level 2-Entities - Check logfile", MsgBoxStyle.Exclamation) - Else - If dt.Rows.Count = 0 Then - 'tslblStatusMain_show(True, "No Result for Level 2-Entities") - ' MsgBox("Not allowed: No Result for Level 2-Entities! Check Config FormConstructor.", MsgBoxStyle.Exclamation) - Else - For Each rowentity2 As DataRow In dt.Rows - FATHERNODE = GRANDFATHERNODE1.Nodes.Add(rowentity2.Item("FORM_TITLE").ToString) - FATHERNODE.Tag = rowentity2.Item("FORM_ID") - EBENE2_PARENT_ID = dt.Rows(0).Item("PARENT_ID") - 'Ebene 3 Entities herausfinden - Dim DT3 As DataTable - sql = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND PARENT_ID = " & FATHERNODE.Tag & " ORDER BY SEQUENCE" - DT3 = ClassDatabase.Return_Datatable(sql) - If DT3 Is Nothing Then - MsgBox("No Result for Level 3-Entities - Check logfile", MsgBoxStyle.Exclamation) - Else - For Each rowEntity3 As DataRow In DT3.Rows - Dim CHILDNODE As TreeNode = FATHERNODE.Nodes.Add(rowEntity3.Item("FORM_TITLE").ToString) - CHILDNODE.Tag = rowEntity3.Item("FORM_ID") - EBENE3_PARENT_ID = rowEntity3.Item("PARENT_ID") - Next - End If - Next - End If - End If - ElseIf dt.Rows.Count = 2 Then - TreeViewLevelSelect.Nodes.Clear() - GRANDFATHERNODE1 = TreeViewLevelSelect.Nodes.Add(dt.Rows(0).Item("FORM_TITLE").ToString) - GRANDFATHERNODE1.Tag = dt.Rows(0).Item("FORM_ID") - GRANDFATHERNODE2 = TreeViewLevelSelect.Nodes.Add(dt.Rows(1).Item("FORM_TITLE").ToString) - GRANDFATHERNODE2.Tag = dt.Rows(1).Item("FORM_ID") - Else - MsgBox("More than 2 results #(" & dt.Rows.Count & ") for Level 1-Entities!", MsgBoxStyle.Exclamation) - End If - TreeViewLevelSelect.ExpandAll() - TreeViewLevelSelect.Nodes(0).EnsureVisible() + tssRecord.Text = String.Format("Record ({0}) - {1}", RecordId, result.ToString) End If - Catch ex As Exception - MsgBox("Error in Load TreeView Ebene:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - + tssRecord.Visible = True + End If End Sub - Sub Load_Tree_View_Data() - ACT_EBENE = 0 - If Not TreeViewLevelSelect.SelectedNode Is Nothing Then - Try - Dim selnode As TreeNode = TreeViewLevelSelect.SelectedNode - If (selnode.Parent IsNot Nothing) Then - If (selnode.Parent.GetType() Is GetType(TreeNode)) Then - ACT_EBENE = 2 - - Dim pnode As TreeNode = selnode.Parent - If (pnode.Parent IsNot Nothing) Then - If (selnode.Parent.GetType() Is GetType(TreeNode)) Then - ACT_EBENE = 3 - End If - End If +#End Region - End If - Else - ACT_EBENE = 1 - End If - Catch ex As Exception - MsgBox("Error in Get ACT_EBENE:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) - End Try - If LogErrorsOnly = False Then ClassLogger.Add(">> Tag (FormID) After Select: " & TreeViewLevelSelect.SelectedNode.Tag.ToString, False) - Load_Entity_Data(TreeViewLevelSelect.SelectedNode.Tag) - End If - End Sub - Sub Load_Entity_Data(FormId As Integer) + Sub Load_Entity_Data(FormId As Integer, CurrentLevel As Integer) Try Me.Cursor = Cursors.WaitCursor @@ -170,7 +287,7 @@ Public Class XtraForm2 'dataloaded = False 'Abhängig von der Entität die Selektierungs-Daten laden Dim _sql As String - Select Case ACT_EBENE + Select Case CurrentLevel Case 1 PARENT_RECORDID = 0 CURRENT_PARENTID = 0 @@ -269,8 +386,6 @@ Public Class XtraForm2 Exit Sub End If EBENE3_GRID_RESULT = Nothing - Case 4 - End Select CURRENT_FORM_ID = FormId @@ -411,9 +526,9 @@ Public Class XtraForm2 GridControlSelection.DataSource = BindingSource_Entity ' Den Editor Initialisieren und Optionen setzen - 'CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() - 'CheckBoxEditorForDisplay.ValueChecked = 1 - 'CheckBoxEditorForDisplay.ValueUnchecked = 0 + Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() + CheckBoxEditorForDisplay.ValueChecked = 1 + CheckBoxEditorForDisplay.ValueUnchecked = 0 ' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen 'For Each col As String In listcheck @@ -442,7 +557,7 @@ Public Class XtraForm2 End Function - Sub SelectedRecord_ShowData(GridColumn_String As String, Optional DirectRecID As Integer = 0) + Sub Show_Selected_Record_Data(GridColumn_String As String, Optional DirectRecID As Integer = 0) Try 'Me.pnlDetails.Visible = True 'ZeigeRecordLogsToolStripMenuItem.Enabled = False @@ -492,13 +607,10 @@ Public Class XtraForm2 EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME) - '--- Dim cat As TileNavCategory = LoadLevel1Nav() navPane.Categories.Clear() navPane.Categories.Add(cat) - - End If Case 2 EBENE2_RECID = SelectedRecordID @@ -617,7 +729,7 @@ Public Class XtraForm2 Select Case EDIT_STATE Case EditState.None 'Ganz normalerDatensatzwechsel Wechsel - SelectedRecord_ShowData("Record-ID") + Show_Selected_Record_Data("Record-ID") 'Refresh_Treeview_SelectedData() 'tslblStatusMain_show(False, "") Case EditState.Insert @@ -646,105 +758,13 @@ Public Class XtraForm2 'If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader() 'Refresh_CreatedChangedRecordByID(SelectedRecordID) - Anzeige_Selected_Entity() + 'Anzeige_Selected_Entity() 'Show_act_WFTask() 'Get_RecordCounts_Nodes() 'Refresh_TaskOverview() End Sub - Private Sub Anzeige_Selected_Entity() - 'Try - ' 'Me.tslblEntity1.Visible = False - ' 'Me.tslblEntity2.Visible = False - ' 'Me.tslblEntity3.Visible = False - ' tslblEntity.Text = "" - ' 'TileControl1.Groups(0).Items.Clear() - ' Select Case ACT_EBENE - ' Case 1 - ' tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - ' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - ' 'Me.tslblEntity1.Visible = True - ' pnlNavButtons.Controls.Clear() - ' Create_NavButton(1, EBENE1_GRID_RESULT) - ' Case 2 - ' If CURRENT_FORM_TYPE = 5 Then - ' tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### Gruppen-Entität: " & EBENE2_ENTITY - ' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - ' 'tslblEntity2.Text = "Gruppen-Entität: " & EBENE2_ENTITY - ' 'Me.tslblEntity1.Visible = True - ' 'Me.tslblEntity2.Visible = True - ' pnlNavButtons.Controls.Clear() - ' Create_NavButton(1, EBENE1_GRID_RESULT) - ' Create_NavButton(2, EBENE2_ENTITY) - - ' Exit Sub - ' End If - ' If EBENE1_GRID_RESULT Is Nothing = False Then - ' tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - ' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - ' pnlNavButtons.Controls.Clear() - ' Create_NavButton(1, EBENE1_GRID_RESULT) - ' Create_NavButton(2, EBENE2_GRID_RESULT) - - - ' 'Me.tslblEntity1.Visible = True - ' 'Me.tslblEntity2.Visible = True - ' Else - ' ' tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - ' tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - ' 'Me.tslblEntity1.Visible = True - ' Create_NavButton(1, EBENE2_GRID_RESULT) - ' End If - ' Case 3 - ' If CURRENT_FORM_TYPE = 5 Then - ' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - ' 'tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - ' 'tslblEntity3.Text = "Gruppen-Entität: " & EBENE3_GRID_RESULT - ' pnlNavButtons.Controls.Clear() - ' Create_NavButton(1, EBENE1_GRID_RESULT) - ' Create_NavButton(2, EBENE2_ENTITY) - ' Create_NavButton(3, EBENE3_ENTITY) - - ' 'Me.tslblEntity1.Visible = True - ' 'Me.tslblEntity2.Visible = True - ' 'Me.tslblEntity3.Visible = True - ' Exit Sub - ' End If - ' If EBENE1_GRID_RESULT Is Nothing = False Then - ' 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - ' 'tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - ' 'tslblEntity3.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT - ' tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & _ - ' " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT - ' 'Me.tslblEntity1.Visible = True - ' 'Me.tslblEntity2.Visible = True - ' 'Me.tslblEntity3.Visible = True - ' pnlNavButtons.Controls.Clear() - ' Create_NavButton(1, EBENE1_GRID_RESULT) - ' Create_NavButton(2, EBENE2_GRID_RESULT) - ' Create_NavButton(3, EBENE3_GRID_RESULT) - - - ' Else - ' 'tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - ' 'tslblEntity2.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT - ' tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT - ' ' Me.tslblEntity1.Visible = True - ' 'Me.tslblEntity2.Visible = True - ' pnlNavButtons.Controls.Clear() - ' Create_NavButton(1, EBENE2_GRID_RESULT) - ' Create_NavButton(2, EBENE3_GRID_RESULT) - - ' End If - ' End Select - - 'Catch ex As Exception - ' MsgBox("Error in Anzeige_Selected_Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - 'End Try - - End Sub - Private Sub TreeViewEbeneSelect_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewLevelSelect.AfterSelect Load_Tree_View_Data() End Sub @@ -753,41 +773,9 @@ Public Class XtraForm2 Load_Tree_View_Data() End Sub - - - - Private Function LoadLevel1Nav() - Dim cat As New TileNavCategory() - cat.Caption = EBENE1_GRID_RESULT - cat.Name = EBENE1_GRID_RESULT - cat.TileText = EBENE1_GRID_RESULT - - navPane.SelectedElement = cat - - Return cat - End Function - - Private Function LoadLevel2Nav() - Dim item As New TileNavItem() - item.Caption = EBENE2_GRID_RESULT - item.Name = EBENE2_GRID_RESULT - item.TileText = EBENE2_GRID_RESULT - - navPane.SelectedElement = item - - Return item - End Function - - Private Function LoadLevel3Nav() - Dim subitem As New TileNavSubItem() - subitem.Caption = EBENE3_GRID_RESULT - subitem.Name = EBENE3_GRID_RESULT - subitem.TileText = EBENE3_GRID_RESULT - - navPane.SelectedElement = subitem - - Return subitem - End Function + Private Sub btn_home_ElementClick(sender As Object, e As NavElementEventArgs) Handles btn_home.ElementClick + Load_Tree_View(CURRENT_CONSTRUCTOR_ID) + End Sub End Class