AppCustom/Monitor
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Workspaces/Layout

Browse Source
This commit is contained in:
Jonathan Jenne
2022-07-08 15:08:32 +02:00
parent 6556781708
commit 45ba0c847c
3 changed files with 104 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
GUIs.Monitor/frmMonitor.vb
View File

@@ -21,15 +21,9 @@ Imports DigitalData.GUIs.Monitor.SearchLoader
Imports DevExpress.XtraLayout
Imports DevExpress.XtraTreeList
Imports DevExpress.XtraGrid.Columns
Imports System.ComponentModel
Public Class frmMonitor
Public Property LogConfig As LogConfig
Public Property Logger As Logger
Public Property ConfigManager As ConfigManager(Of Config)
Public Property Database As MSSQLServer
Public Property FormHelper As FormHelper
Public Property Patterns As Patterns2
Private ReadOnly ColumnMarkers As New List(Of String) From {"[HTML]", "[SQL]", "[FILENAME]"}
Private ReadOnly SQLColumns As New List(Of String) From {"SELECT1", "SELECT2", "SELECT3", "SELECT4"}
Private ReadOnly DocViewColumns As New List(Of String) From {"DOCVIEW1", "DOCVIEW2"}
@@ -41,7 +35,7 @@ Public Class frmMonitor
Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN", "STATE", "ICON"}
Private SearchLoader As SearchLoader
Private SQLResultGrids As List(Of GridControl)
@@ -57,6 +51,7 @@ Public Class frmMonitor
Private HtmlResultTabs As List(Of XtraTabPage)
Private Const STATE_SUCCESS As String = "SUCCESS"
Private Const STATE_FAILURE As String = "FAILURE"
Private Const STATE_WARNING As String = "WARNING"
@@ -64,7 +59,7 @@ Public Class frmMonitor
Private Const STATE_HIGHLIGHT As String = "HIGHLIGHT"
Private MarkedColumns As New List(Of GridColumn)
Private ActiveSearch As Search = Nothing
Private Enum NodeImage
[Default] = 0
@@ -86,6 +81,14 @@ Public Class frmMonitor
Private GridBuilder As GridBuilder
Private ControlHelper As Common.ControlHelper
Private SearchLoader As SearchLoader
Private LogConfig As LogConfig
Private Logger As Logger
Private ConfigManager As ConfigManager(Of Config)
Private Database As MSSQLServer
Private FormHelper As FormHelper
Private Patterns As Patterns2
Private Workspace As Common.DocumentResultList.Workspace(Of Config)
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
@@ -96,6 +99,7 @@ Public Class frmMonitor
Patterns = New Patterns2(LogConfig)
FormHelper = New FormHelper(LogConfig, Me)
ControlHelper = New Common.ControlHelper(LogConfig)
Workspace = New DocumentResultList.Workspace(Of Config)(LogConfig, ConfigManager, WorkspaceManager1)
If ConfigManager.Config.ConnectionString = String.Empty Then
Dim oSQLConfig As New frmSQLConfig(LogConfig)
@@ -151,12 +155,12 @@ Public Class frmMonitor
For Each oGrid In SQLResultGrids
AddHandler oGrid.Enter, Sub()
ActiveSQLResultGrid = oGrid
BarButtonItem2.Enabled = True
btnExportGrid.Enabled = True
End Sub
AddHandler oGrid.Leave, Sub()
ActiveSQLResultGrid = Nothing
BarButtonItem2.Enabled = False
btnExportGrid.Enabled = False
End Sub
Next
@@ -166,6 +170,8 @@ Public Class frmMonitor
Next
SplitContainerSQL.Collapsed = True
SplitContainerFileHTML.Collapsed = True
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "frmStart_Load")
End Try
@@ -192,6 +198,8 @@ Public Class frmMonitor
Dim oSearch As Search = cmbSearches.EditValue
Dim oMissingParams = False
ActiveSearch = oSearch
MarkedColumns.Clear()
HideAllTabs()
@@ -300,6 +308,8 @@ Public Class frmMonitor
GridViewResults.FocusInvalidRow()
Workspace.LoadWorkspace(oSearch.Id.ToString)
Return True
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "LoadData")
@@ -398,10 +408,17 @@ Public Class frmMonitor
Private Sub cmbSearches_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbSearches.SelectedValueChanged
Dim oSearch As Search = CType(cmbSearches.SelectedItem, Search)
If ActiveSearch IsNot Nothing Then
Workspace.SaveWorkspace(ActiveSearch.Id.ToString)
End If
ParameterRoot.Clear()
AdornerUIManager2.Hide()
AdornerUIManager2.Elements.Clear()
TreeListResults.DataSource = Nothing
GridControlResults.DataSource = Nothing
For Each oParam As SearchParameter In oSearch.Parameters
Dim oControl As Control
@@ -737,7 +754,7 @@ Public Class frmMonitor
End If
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnExportGrid.ItemClick
If ActiveSQLResultGrid IsNot Nothing Then
XtraSaveFileDialog1.Filter = "Excel Files (*.xlsx)|*.xlsx"
@@ -805,7 +822,7 @@ Public Class frmMonitor
End If
End Sub
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnReloadSearches.ItemClick
SearchLoader.LoadSearchParameters()
LoadSearches()
@@ -892,5 +909,20 @@ Public Class frmMonitor
SplitContainerSQL.Collapsed = True
SplitContainerFileHTML.Collapsed = True
End Sub
Private Sub frmMonitor_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
If ActiveSearch IsNot Nothing Then
Workspace.SaveWorkspace(ActiveSearch.Id.ToString)
End If
End Sub
'Private DisallowedComponentNames As New List(Of String) From {"LayoutControlItem", "LayoutControlGroup", "LayoutControl"}
'Private Sub WorkspaceManager1_PropertyDeserializing(sender As Object, ea As PropertyCancelEventArgs) Handles WorkspaceManager1.PropertyDeserializing, WorkspaceManager1.PropertySerializing
' Dim oName = ea.Component?.GetType.Name
' If DisallowedComponentNames.Contains(oName) Then
' ea.Cancel = True
' End If
'End Sub
End Class