ZooFlow: Admin

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -42,6 +42,7 @@ Public Class frmAdmin_Start
         Public Property Entity As String
         Public Property Scope As String
         Public Property Summary As String
+        Public Property Active As Boolean
 
         ''' <summary>
         ''' The GUID coming from the Database starts with a 3-char long identifier that needs to be removed
@@ -62,10 +63,10 @@ Public Class frmAdmin_Start
 
         TreeListMenu.ExpandAll()
 
-        AddHandler TreeListIDBAttributes.DoubleClick, AddressOf TreeList_DoubleClick
-        AddHandler TreeListIDBEntities.DoubleClick, AddressOf TreeList_DoubleClick
-        AddHandler TreeListCWProfiles.DoubleClick, AddressOf TreeList_DoubleClick
-        AddHandler TreeListGLOBIXProfiles.DoubleClick, AddressOf TreeList_DoubleClick
+        AddHandler TreeList_IDBAttributes.DoubleClick, AddressOf TreeList_DoubleClick
+        AddHandler TreeList_IDBEntities.DoubleClick, AddressOf TreeList_DoubleClick
+        AddHandler TreeList_CWProfiles.DoubleClick, AddressOf TreeList_DoubleClick
+        AddHandler TreeList_GLOBIXProfiles.DoubleClick, AddressOf TreeList_DoubleClick
 
         ' Show Tab Header in Development, hide when running the app
         XtraTabControl.ShowTabHeader = DefaultBoolean.False
@@ -83,7 +84,8 @@ Public Class frmAdmin_Start
                     .Entity = oRow.Item("ENTITY").ToString,
                     .Scope = oRow.Item("ENTITY_SCOPE").ToString,
                     .Title = oRow.Item("NODE_TITLE").ToString,
-                    .Summary = oRow.Item("SUMMARY").ToString
+                    .Summary = oRow.Item("SUMMARY").ToString,
+                    .Active = oRow.Item("ACTIVE")
                 }
 
                 AdminItems.Add(oItem)
@@ -145,7 +147,7 @@ Public Class frmAdmin_Start
                     Display_Tab(XtraTabPageIDB_Attributes_New)
 
                     Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList()
-                    Load_Tree(oItems, TreeListIDBAttributes)
+                    Load_Tree(oItems, TreeList_IDBAttributes)
 
                 Case IDB_BUSINESS_ENTITIES
                     labelTitle.Text = "IDB Entitäten"
@@ -153,7 +155,7 @@ Public Class frmAdmin_Start
                     Display_Tab(XtraTabPageIDB_Entities)
 
                     Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList()
-                    Load_Tree(oItems, TreeListIDBEntities)
+                    Load_Tree(oItems, TreeList_IDBEntities)
 
                 Case GLOBIX_PROFILES
                     labelTitle.Text = "Global Indexer Profile"
@@ -161,7 +163,7 @@ Public Class frmAdmin_Start
                     Display_RibbonPage(RibbonPage_GlobalIndexer)
 
                     Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsGLOBIXItem).ToList()
-                    Load_Tree(oItems, TreeListGLOBIXProfiles)
+                    Load_Tree(oItems, TreeList_GLOBIXProfiles)
 
                 Case CW_PROFILES
                     labelTitle.Text = "Clipboard Watcher Profile"
@@ -170,7 +172,7 @@ Public Class frmAdmin_Start
                     Display_RibbonPage(RibbonPage_ClipboardWatcher)
 
                     Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsCWItem).ToList()
-                    Load_Tree(oItems, TreeListCWProfiles)
+                    Load_Tree(oItems, TreeList_CWProfiles)
 
             End Select
         Catch ex As Exception
@@ -200,6 +202,13 @@ Public Class frmAdmin_Start
                 .FieldName = "Summary",
                 .Visible = True,
                 .VisibleIndex = 2
+            },
+            New Columns.TreeListColumn() With {
+                .Name = "columnActive",
+                .Caption = "Aktiv",
+                .FieldName = "Active",
+                .Visible = True,
+                .VisibleIndex = 3
             }
         }
 
@@ -262,11 +271,14 @@ Public Class frmAdmin_Start
                 Dim oItem As AdminItem = oView.GetFocusedRow
                 If oItem IsNot Nothing Then
                     Select Case oView.Name
-                        Case TreeListIDBAttributes.Name
+                        Case TreeList_IDBAttributes.Name
                             Load_IDBAttribute(oItem.RealGuid)
 
-                        Case TreeListIDBEntities.Name
+                        Case TreeList_IDBEntities.Name
                             Load_IDBEntity(oItem.RealGuid)
+
+                        Case TreeList_CWProfiles.Name
+                            Load_CWProfile(oItem.RealGuid)
                     End Select
                 End If
             Catch ex As Exception
@@ -283,7 +295,7 @@ Public Class frmAdmin_Start
             If oForm.HasChanges Then
                 Load_SQLData()
                 Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList
-                Load_Tree(oItems, TreeListIDBAttributes)
+                Load_Tree(oItems, TreeList_IDBAttributes)
             End If
         Catch ex As Exception
             ShowError(ex)
@@ -298,7 +310,7 @@ Public Class frmAdmin_Start
             If oForm.HasChanges Then
                 Load_SQLData()
                 Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList
-                Load_Tree(oItems, TreeListIDBEntities)
+                Load_Tree(oItems, TreeList_IDBEntities)
             End If
         Catch ex As Exception
             ShowError(ex)
@@ -311,10 +323,10 @@ Public Class frmAdmin_Start
             oForm.ShowDialog()
 
             If oForm.HasChanges Then
+                Load_SQLData()
+                Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsCWItem).ToList
 
-                Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
-                Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
-                'Load_Tree(oTable, oSource, TreeList1)
+                Load_Tree(oItems, TreeList_CWProfiles)
             End If
         Catch ex As Exception
             ShowError(ex)
@@ -323,7 +335,7 @@ Public Class frmAdmin_Start
 
     Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
         Try
-            Dim oRow As DataRow = TreeListIDBAttributes.GetFocusedDataRow
+            Dim oRow As DataRow = TreeList_IDBAttributes.GetFocusedDataRow
             If oRow IsNot Nothing Then
                 Dim oPrimaryKey As Integer = DirectCast(oRow.Item(PrimaryKey), Integer)
                 Load_IDBAttribute(oPrimaryKey)
@@ -349,7 +361,7 @@ Public Class frmAdmin_Start
 
 
 
-    Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListCWProfiles.GetStateImage
+    Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList_CWProfiles.GetStateImage
         Dim oTreeList As TreeList = DirectCast(sender, TreeList)
         Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
 
@@ -369,7 +381,7 @@ Public Class frmAdmin_Start
 
     End Sub
 
-    Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListGLOBIXProfiles.GetStateImage
+    Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList_GLOBIXProfiles.GetStateImage
         Dim oTreeList As TreeList = DirectCast(sender, TreeList)
         Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
 
@@ -387,11 +399,11 @@ Public Class frmAdmin_Start
 
     End Sub
 
-    Private Sub TreeListIDBAttributes_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBAttributes.GetStateImage
+    Private Sub TreeListIDBAttributes_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList_IDBAttributes.GetStateImage
         e.NodeImageIndex = 1
     End Sub
 
-    Private Sub TreeListIDBEntities_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBEntities.GetStateImage
+    Private Sub TreeListIDBEntities_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList_IDBEntities.GetStateImage
         e.NodeImageIndex = 0
     End Sub
 End Class