diff --git a/GUIs.Monitor/ChartType_Line.ico b/GUIs.Monitor/ChartType_Line.ico new file mode 100644 index 0000000..86311e7 Binary files /dev/null and b/GUIs.Monitor/ChartType_Line.ico differ diff --git a/GUIs.Monitor/Config.vb b/GUIs.Monitor/Config.vb new file mode 100644 index 0000000..f4768d0 --- /dev/null +++ b/GUIs.Monitor/Config.vb @@ -0,0 +1,8 @@ +Imports DigitalData.Modules.Config.ConfigAttributes + +Public Class Config + + Public Property ConnectionString As String = String.Empty + Public Property IDB_Praefix As String = "IDB" + Public Property SearchKeySQL As String = $"SELECT T.ATTR_ID, T.ATTR_TITLE FROM {IDB_Praefix}.dbo.VWIDB_BE_ATTRIBUTE T, TBDD_MONITORING_ATTRIBUTES T1 WHERE T.ATTR_ID = T1.ATTRIBUTE_ID" +End Class diff --git a/GUIs.Monitor/Constants.vb b/GUIs.Monitor/Constants.vb new file mode 100644 index 0000000..f007516 --- /dev/null +++ b/GUIs.Monitor/Constants.vb @@ -0,0 +1,9 @@ +Public Class Constants + Public Const STATE_SUCCESS As String = "SUCCESS" + Public Const STATE_FAILURE As String = "FAILURE" + Public Const STATE_WARNING As String = "WARNING" + Public Const STATE_WAITING As String = "WAITING" + Public Const STATE_HIGHLIGHT As String = "HIGHLIGHT" + Public Const STATE_DEFAULT As String = "DEFAULT" + Public Const STATE_USER As String = "USER" +End Class diff --git a/GUIs.Monitor/Monitor.vbproj b/GUIs.Monitor/Monitor.vbproj new file mode 100644 index 0000000..38af987 --- /dev/null +++ b/GUIs.Monitor/Monitor.vbproj @@ -0,0 +1,204 @@ + + + Debug + x86 + 8.0.30703 + 2.0 + {E24E8D40-0361-4C07-8FAE-3621DE316E70} + WinExe + DigitalData.GUIs.Monitor + DigitalData.GUIs.Monitor + v4.6.1 + Monitor.Program + 512 + On + Binary + Off + On + + + + AnyCPU + true + full + false + bin\Debug\ + true + true + prompt + + + AnyCPU + pdbonly + true + bin\Release\ + false + true + prompt + + + WindowsForms + + + DigitalData.GUIs.Monitor.My.MyApplication + + + ChartType_Line.ico + + + + + + + + + + + + + + + + + + + + + + + + + ..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll + + + False + ..\..\DDMonorepo\SQLConfig\bin\Debug\DigitalData.Controls.SQLConfig.dll + + + False + ..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll + + + False + ..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll + + + False + ..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll + + + False + ..\..\DDMonorepo\Modules.Language\bin\Release\DigitalData.Modules.Language.dll + + + False + ..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + ..\packages\NLog.4.7.10\lib\net45\NLog.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + frmMonitor.vb + + + Form + + + True + Application.myapp + True + + + + frmMonitor.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + True + Resources.resx + True + + + + SettingsSingleFileGenerator + Settings.Designer.vb + + + True + Settings.settings + True + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Monitor.vbproj.bak b/GUIs.Monitor/Monitor.vbproj.bak new file mode 100644 index 0000000..0dfe7bf --- /dev/null +++ b/GUIs.Monitor/Monitor.vbproj.bak @@ -0,0 +1,207 @@ + + + Debug + x86 + 8.0.30703 + 2.0 + {E24E8D40-0361-4C07-8FAE-3621DE316E70} + WinExe + DigitalData.GUIs.Monitor + DigitalData.GUIs.Monitor + v4.6.1 + Monitor.Program + 512 + On + Binary + Off + On + + + + AnyCPU + true + full + false + bin\Debug\ + true + true + prompt + + + AnyCPU + pdbonly + true + bin\Release\ + false + true + prompt + + + WindowsForms + + + DigitalData.GUIs.Monitor.My.MyApplication + + + ChartType_Line.ico + + + + + + + + + + + + + + + + + + + + + + False + ..\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll + + + False + ..\..\DDMonorepo\SQLConfig\bin\Debug\DigitalData.Controls.SQLConfig.dll + + + False + ..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll + + + False + ..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll + + + False + ..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll + + + False + ..\..\DDMonorepo\Modules.Language\bin\Release\DigitalData.Modules.Language.dll + + + False + ..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + False + D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll + + + + ..\packages\NLog.4.7.10\lib\net45\NLog.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + frmMonitor.vb + + + Form + + + True + Application.myapp + True + + + + frmMonitor.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + True + Resources.resx + True + + + + SettingsSingleFileGenerator + Settings.Designer.vb + + + True + Settings.settings + True + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/My Project/Application.Designer.vb b/GUIs.Monitor/My Project/Application.Designer.vb new file mode 100644 index 0000000..a6150f2 --- /dev/null +++ b/GUIs.Monitor/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.DigitalData.GUIs.Monitor.frmMonitor + End Sub + End Class +End Namespace diff --git a/GUIs.Monitor/My Project/Application.myapp b/GUIs.Monitor/My Project/Application.myapp new file mode 100644 index 0000000..fb6ccec --- /dev/null +++ b/GUIs.Monitor/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + frmMonitor + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/GUIs.Monitor/My Project/AssemblyInfo.vb b/GUIs.Monitor/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..864a5e8 --- /dev/null +++ b/GUIs.Monitor/My Project/AssemblyInfo.vb @@ -0,0 +1,36 @@ +Imports System.Reflection +Imports System.Runtime.CompilerServices +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + + + + + + + + + +' Setting ComVisible to false makes the types in this assembly not visible +' to COM components. If you need to access a type in this assembly from +' COM, set the ComVisible attribute to true on that type. + + +' The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' [assembly: AssemblyVersion("1.0.*")] + + diff --git a/GUIs.Monitor/My Project/Resources.Designer.vb b/GUIs.Monitor/My Project/Resources.Designer.vb new file mode 100644 index 0000000..7545747 --- /dev/null +++ b/GUIs.Monitor/My Project/Resources.Designer.vb @@ -0,0 +1,123 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.GUIs.Monitor.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_dashboard() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_dashboard", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property charttype_line() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("charttype_line", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property enablesearch() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("enablesearch", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property export() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("export", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property gettingstarted() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("gettingstarted", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property managedatasource() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("managedatasource", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + End Module +End Namespace diff --git a/GUIs.Monitor/My Project/Resources.resx b/GUIs.Monitor/My Project/Resources.resx new file mode 100644 index 0000000..d6c867b --- /dev/null +++ b/GUIs.Monitor/My Project/Resources.resx @@ -0,0 +1,139 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\gettingstarted.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\enablesearch.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\managedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_dashboard.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\charttype_line.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\export.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + \ No newline at end of file diff --git a/GUIs.Monitor/My Project/Resources.resx.bak b/GUIs.Monitor/My Project/Resources.resx.bak new file mode 100644 index 0000000..c617373 --- /dev/null +++ b/GUIs.Monitor/My Project/Resources.resx.bak @@ -0,0 +1,139 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\gettingstarted.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\enablesearch.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\managedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_dashboard.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\charttype_line.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\export.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + \ No newline at end of file diff --git a/GUIs.Monitor/My Project/Settings.Designer.vb b/GUIs.Monitor/My Project/Settings.Designer.vb new file mode 100644 index 0000000..008b7ed --- /dev/null +++ b/GUIs.Monitor/My Project/Settings.Designer.vb @@ -0,0 +1,71 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + + _ +Partial Friend NotInheritable Class Settings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As Settings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()),Settings) + +#Region "Automatische My.Settings-Speicherfunktion" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As Settings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property +End Class + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DigitalData.GUIs.Monitor.Settings + Get + Return Global.DigitalData.GUIs.Monitor.Settings.Default + End Get + End Property + End Module +End Namespace diff --git a/GUIs.Monitor/My Project/Settings.settings b/GUIs.Monitor/My Project/Settings.settings new file mode 100644 index 0000000..3964565 --- /dev/null +++ b/GUIs.Monitor/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/GUIs.Monitor/My Project/licenses.licx b/GUIs.Monitor/My Project/licenses.licx new file mode 100644 index 0000000..5b49e97 --- /dev/null +++ b/GUIs.Monitor/My Project/licenses.licx @@ -0,0 +1,8 @@ +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.Monitor/My Project/licenses.licx.bak b/GUIs.Monitor/My Project/licenses.licx.bak new file mode 100644 index 0000000..0dbb2d5 --- /dev/null +++ b/GUIs.Monitor/My Project/licenses.licx.bak @@ -0,0 +1,9 @@ +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.Monitor/Resources/actions_refresh.svg b/GUIs.Monitor/Resources/actions_refresh.svg new file mode 100644 index 0000000..86a9ccb --- /dev/null +++ b/GUIs.Monitor/Resources/actions_refresh.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/bo_dashboard.svg b/GUIs.Monitor/Resources/bo_dashboard.svg new file mode 100644 index 0000000..709c4d7 --- /dev/null +++ b/GUIs.Monitor/Resources/bo_dashboard.svg @@ -0,0 +1,27 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/charttype_line.svg b/GUIs.Monitor/Resources/charttype_line.svg new file mode 100644 index 0000000..8e1af17 --- /dev/null +++ b/GUIs.Monitor/Resources/charttype_line.svg @@ -0,0 +1,20 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/enablesearch.svg b/GUIs.Monitor/Resources/enablesearch.svg new file mode 100644 index 0000000..5e41594 --- /dev/null +++ b/GUIs.Monitor/Resources/enablesearch.svg @@ -0,0 +1,17 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/export.svg b/GUIs.Monitor/Resources/export.svg new file mode 100644 index 0000000..92d0143 --- /dev/null +++ b/GUIs.Monitor/Resources/export.svg @@ -0,0 +1,18 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/gettingstarted.svg b/GUIs.Monitor/Resources/gettingstarted.svg new file mode 100644 index 0000000..b9b88d4 --- /dev/null +++ b/GUIs.Monitor/Resources/gettingstarted.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/inserttreeview.svg b/GUIs.Monitor/Resources/inserttreeview.svg new file mode 100644 index 0000000..37993b4 --- /dev/null +++ b/GUIs.Monitor/Resources/inserttreeview.svg @@ -0,0 +1,17 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/managedatasource.svg b/GUIs.Monitor/Resources/managedatasource.svg new file mode 100644 index 0000000..d08be54 --- /dev/null +++ b/GUIs.Monitor/Resources/managedatasource.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/TreeListManager.vb b/GUIs.Monitor/TreeListManager.vb new file mode 100644 index 0000000..351c7be --- /dev/null +++ b/GUIs.Monitor/TreeListManager.vb @@ -0,0 +1,237 @@ +Imports DevExpress.Utils +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.XtraTreeList +Imports DevExpress.XtraTreeList.Columns +Imports DevExpress.XtraTreeList.Nodes +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language.Utils + +Public Class TreeListManager + Private ReadOnly SvgImages As SvgImageCollection + Private ReadOnly LogConfig As LogConfig + Private ReadOnly Property Database As MSSQLServer + Private ReadOnly Logger As Logger + + Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN", "STATE", "ICON"} + Private ReadOnly SQLColumns As New List(Of String) From {"SELECT1", "SELECT2", "SELECT3", "SELECT4"} + Private ReadOnly DocViewColumns As New List(Of String) From {"DOCVIEW1", "DOCVIEW2"} + Private ReadOnly HtmlViewColumns As New List(Of String) From {"HTML1", "HTML2"} + Private ReadOnly DataColumns As List(Of String) = SQLColumns. + Concat(DocViewColumns). + Concat(HtmlViewColumns). + ToList + + 'Private ReadOnly Items As New List(Of Tuple(Of TreeList, TreeListProperties)) + Private ReadOnly Items As New Dictionary(Of TreeList, TreeListProperties) + + Public ReadOnly Property TreeLists As List(Of TreeList) + Get + Return Items.Keys.ToList + End Get + End Property + + Public ReadOnly Property CurrentTreeListProps As TreeListProperties + Get + If CurrentTreeList IsNot Nothing Then + Return Items.Item(CurrentTreeList) + Else + Return Nothing + End If + End Get + End Property + + Public Property CurrentTreeList As TreeList + + Public Event TreeList_FocusedNodeChanged As EventHandler(Of FocusedNodeChangedEventArgs) + Public Event TreeList_CustomDrawNodeCell As EventHandler(Of CustomDrawNodeCellEventArgs) + + Public Class TreeListProperties + Public SearchValue As String + Public ViewName As String + Public CreatedAt As Date + End Class + + Private Enum NodeImage + [Default] = 0 + SQL = 1 + File = 2 + Mail = 3 + Success = 4 + Failure = 5 + Warning = 6 + Waiting = 7 + User = 8 + Highlight = 9 + End Enum + + Public Sub New(LogConfig As LogConfig, Database As MSSQLServer, SvgImageCollection As SvgImageCollection) + Me.LogConfig = LogConfig + Me.Database = Database + Logger = LogConfig.GetLogger() + SvgImages = SvgImageCollection + End Sub + + Public Sub Add(TreeList As TreeList) + Items.Add(TreeList, New TreeListProperties() With {.CreatedAt = Now}) + End Sub + + Public Sub AddRange(ParamArray TreeLists As TreeList()) + For Each oTreeList In TreeLists + Add(oTreeList) + Next + End Sub + + Public Function GetNextTreeList() As TreeList + ' Return next free Treelist + For Each oTreeList In TreeLists + If oTreeList.DataSource Is Nothing Then + Return oTreeList + End If + Next + + ' Otherwise return oldest TreeList + Return Items. + OrderBy(Function(i) i.Value.CreatedAt). + Select(Of TreeList)(Function(i) i.Key). + First() + End Function + + Public Sub LoadDataFor(TreeList As TreeList, DataSource As DataTable, ViewName As String, Value As String) + Try + AddHandler TreeList.FocusedNodeChanged, Sub(sender As Object, e As FocusedNodeChangedEventArgs) + RaiseEvent TreeList_FocusedNodeChanged(sender, e) + End Sub + + AddHandler TreeList.CustomDrawNodeCell, Sub(sender As Object, e As CustomDrawNodeCellEventArgs) + RaiseEvent TreeList_CustomDrawNodeCell(sender, e) + End Sub + + ' Load data + TreeList.DataSource = DataSource + TreeList.PopulateColumns() + + ' Show all columns in DisplayColumns List + For Each oColumn In TreeList.Columns + oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName) + If oColumn.FieldName = "ADDED_WHEN" Then + oColumn.Format.FormatType = FormatType.DateTime + oColumn.Format.FormatString = "dd.MM.yyyy HH:MM:ss" + End If + Next + + ' Initialize TreeList visuals + Init(TreeList) + + ' Expand all nodes that contain state WARNING or FAILURE + Dim oStateColumn As TreeListColumn = TreeList.Columns.Item("STATE") + For Each oNode As TreeListNode In TreeList.Nodes + ExpandNodes(oNode, Function(n) + Dim oObjectValue = n.GetValue(oStateColumn) + Dim oValue As String = NotNull(oObjectValue, String.Empty) + Return oValue IsNot Nothing AndAlso (oValue = Constants.STATE_WARNING Or oValue = Constants.STATE_FAILURE) + End Function) + Next + + ' Set currently loaded TreeList as current + CurrentTreeList = TreeList + + ' Update Timestamp and Searchdata for current TreeList + Dim oItem = Items.Item(TreeList) + oItem.CreatedAt = Now + oItem.SearchValue = Value + oItem.ViewName = ViewName + Items.Item(TreeList) = oItem + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Private Sub ExpandNodes(RootNode As TreeListNode, Condition As Predicate(Of TreeListNode)) + If Condition(RootNode) = True Then + RootNode.Expand() + ExpandParentNode(RootNode) + End If + + For Each oNode As TreeListNode In RootNode.Nodes + ExpandNodes(oNode, Condition) + + If Condition(oNode) = True Then + oNode.Expand() + ExpandParentNode(oNode) + End If + Next + End Sub + + Private Sub ExpandParentNode(ChildNode As TreeListNode) + If ChildNode.ParentNode IsNot Nothing Then + ChildNode.ParentNode.Expand() + ExpandParentNode(ChildNode.ParentNode) + End If + End Sub + + Private Sub Init(TreeList As TreeList) + If TreeList.Columns.Count = 0 Then + Exit Sub + End If + + TreeList.KeyFieldName = "GUID" + TreeList.ParentFieldName = "PARENT_ID" + + Dim oStateEdit As New RepositoryItemImageComboBox With { + .SmallImages = SvgImages, + .GlyphAlignment = HorzAlignment.Near + } + oStateEdit.Buttons.Clear() + oStateEdit.Items.AddRange(New List(Of ImageComboBoxItem) From { + New ImageComboBoxItem("Success", Constants.STATE_SUCCESS, NodeImage.Success), + New ImageComboBoxItem("Failure", Constants.STATE_FAILURE, NodeImage.Failure), + New ImageComboBoxItem("Warning", Constants.STATE_WARNING, NodeImage.Warning), + New ImageComboBoxItem("Waiting", Constants.STATE_WAITING, NodeImage.Waiting), + New ImageComboBoxItem("Default", Constants.STATE_DEFAULT, NodeImage.Default), + New ImageComboBoxItem("User", Constants.STATE_USER, NodeImage.User), + New ImageComboBoxItem("Highlight", Constants.STATE_HIGHLIGHT, NodeImage.Highlight) + }) + + Dim oIconEdit As New RepositoryItemImageComboBox With { + .SmallImages = SvgImages, + .GlyphAlignment = HorzAlignment.Near + } + oIconEdit.Buttons.Clear() + oIconEdit.Items.AddRange(New List(Of ImageComboBoxItem) From { + New ImageComboBoxItem("Email", "MAIL", NodeImage.Mail), + New ImageComboBoxItem("SQL", "SQL", NodeImage.SQL), + New ImageComboBoxItem("File", "FILE", NodeImage.File) + }) + + Dim oColumn1 = TreeList.Columns.Item("COLUMN1") + Dim oStateColumn = TreeList.Columns.Item("STATE") + Dim oIconColumn = TreeList.Columns.Item("ICON") + + + oStateColumn.VisibleIndex = 1 + oIconColumn.VisibleIndex = 2 + + With oColumn1 + .VisibleIndex = 0 + .MinWidth = 150 + End With + + With oStateColumn + .ColumnEdit = oStateEdit + .MaxWidth = 25 + .MinWidth = 25 + .Caption = " " + End With + + With oIconColumn + .ColumnEdit = oIconEdit + .MaxWidth = 25 + .MinWidth = 25 + .Caption = " " + End With + + End Sub + +End Class diff --git a/GUIs.Monitor/app.config b/GUIs.Monitor/app.config new file mode 100644 index 0000000..996e16a --- /dev/null +++ b/GUIs.Monitor/app.config @@ -0,0 +1,79 @@ + + + + +
+ + + + + + System + + + + + + Skin/Office 2019 Colorful + + + Fire Brick + + + + + + + + + + + + + + + + + + UseSegoeUI + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/frmDocumentManager.Designer.vb b/GUIs.Monitor/frmDocumentManager.Designer.vb new file mode 100644 index 0000000..188568b --- /dev/null +++ b/GUIs.Monitor/frmDocumentManager.Designer.vb @@ -0,0 +1,268 @@ + _ +Partial Class frmDocumentManager + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DockingContainer1 As DevExpress.XtraBars.Docking2010.Views.Tabbed.DockingContainer = New DevExpress.XtraBars.Docking2010.Views.Tabbed.DockingContainer() + Me.DocumentManager1 = New DevExpress.XtraBars.Docking2010.DocumentManager(Me.components) + Me.TabbedView1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView(Me.components) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) + Me.PanelDashboard = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.Document1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.Document(Me.components) + Me.DocumentGroup1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.DocumentGroup(Me.components) + Me.PanelSearch = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.PanelDocView = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.PanelSQL = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel4_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.hideContainerRight = New DevExpress.XtraBars.Docking.AutoHideContainer() + CType(Me.DocumentManager1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TabbedView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PanelDashboard.SuspendLayout() + CType(Me.Document1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DocumentGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PanelSearch.SuspendLayout() + Me.PanelDocView.SuspendLayout() + Me.PanelSQL.SuspendLayout() + Me.hideContainerRight.SuspendLayout() + Me.SuspendLayout() + ' + 'DocumentManager1 + ' + Me.DocumentManager1.ContainerControl = Me + Me.DocumentManager1.View = Me.TabbedView1 + Me.DocumentManager1.ViewCollection.AddRange(New DevExpress.XtraBars.Docking2010.Views.BaseView() {Me.TabbedView1}) + ' + 'TabbedView1 + ' + Me.TabbedView1.DocumentGroups.AddRange(New DevExpress.XtraBars.Docking2010.Views.Tabbed.DocumentGroup() {Me.DocumentGroup1}) + Me.TabbedView1.Documents.AddRange(New DevExpress.XtraBars.Docking2010.Views.BaseDocument() {Me.Document1}) + DockingContainer1.Element = Me.DocumentGroup1 + Me.TabbedView1.RootContainer.Nodes.AddRange(New DevExpress.XtraBars.Docking2010.Views.Tabbed.DockingContainer() {DockingContainer1}) + Me.TabbedView1.Style = DevExpress.XtraBars.Docking2010.Views.DockingViewStyle.Light + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(1134, 159) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 665) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1134, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DockManager1 + ' + Me.DockManager1.AutoHideContainers.AddRange(New DevExpress.XtraBars.Docking.AutoHideContainer() {Me.hideContainerRight}) + Me.DockManager1.Form = Me + Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.PanelDashboard, Me.PanelSearch, Me.PanelSQL}) + Me.DockManager1.Style = DevExpress.XtraBars.Docking2010.Views.DockingViewStyle.Light + Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"}) + ' + 'PanelDashboard + ' + Me.PanelDashboard.Controls.Add(Me.DockPanel1_Container) + Me.PanelDashboard.DockedAsTabbedDocument = True + Me.PanelDashboard.ID = New System.Guid("7a841a4a-faca-4797-87c6-8be6fc59b50d") + Me.PanelDashboard.Name = "PanelDashboard" + Me.PanelDashboard.Options.ShowCloseButton = False + Me.PanelDashboard.OriginalSize = New System.Drawing.Size(200, 200) + Me.PanelDashboard.Text = "DockPanel1" + ' + 'DockPanel1_Container + ' + Me.DockPanel1_Container.Location = New System.Drawing.Point(0, 0) + Me.DockPanel1_Container.Name = "DockPanel1_Container" + Me.DockPanel1_Container.Size = New System.Drawing.Size(903, 257) + Me.DockPanel1_Container.TabIndex = 0 + ' + 'Document1 + ' + Me.Document1.Caption = "DockPanel1" + Me.Document1.ControlName = "PanelDashboard" + Me.Document1.FloatLocation = New System.Drawing.Point(0, 0) + Me.Document1.FloatSize = New System.Drawing.Size(200, 200) + Me.Document1.Properties.AllowClose = DevExpress.Utils.DefaultBoolean.[False] + Me.Document1.Properties.AllowFloat = DevExpress.Utils.DefaultBoolean.[True] + Me.Document1.Properties.AllowFloatOnDoubleClick = DevExpress.Utils.DefaultBoolean.[True] + ' + 'DocumentGroup1 + ' + Me.DocumentGroup1.Items.AddRange(New DevExpress.XtraBars.Docking2010.Views.Tabbed.Document() {Me.Document1}) + ' + 'PanelSearch + ' + Me.PanelSearch.Controls.Add(Me.DockPanel2_Container) + Me.PanelSearch.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left + Me.PanelSearch.ID = New System.Guid("6c1851ca-e156-402e-90f8-a83e25b0ee52") + Me.PanelSearch.Location = New System.Drawing.Point(0, 159) + Me.PanelSearch.Name = "PanelSearch" + Me.PanelSearch.Options.ShowCloseButton = False + Me.PanelSearch.OriginalSize = New System.Drawing.Size(200, 200) + Me.PanelSearch.Size = New System.Drawing.Size(200, 506) + Me.PanelSearch.Text = "Suche" + ' + 'DockPanel2_Container + ' + Me.DockPanel2_Container.Location = New System.Drawing.Point(0, 43) + Me.DockPanel2_Container.Name = "DockPanel2_Container" + Me.DockPanel2_Container.Size = New System.Drawing.Size(199, 463) + Me.DockPanel2_Container.TabIndex = 0 + ' + 'PanelDocView + ' + Me.PanelDocView.Controls.Add(Me.DockPanel3_Container) + Me.PanelDocView.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right + Me.PanelDocView.ID = New System.Guid("a668ae35-02f7-4338-aeee-25839395e8cc") + Me.PanelDocView.Location = New System.Drawing.Point(0, 0) + Me.PanelDocView.Name = "PanelDocView" + Me.PanelDocView.Options.ShowCloseButton = False + Me.PanelDocView.OriginalSize = New System.Drawing.Size(200, 200) + Me.PanelDocView.SavedDock = DevExpress.XtraBars.Docking.DockingStyle.Right + Me.PanelDocView.SavedIndex = 2 + Me.PanelDocView.Size = New System.Drawing.Size(200, 506) + Me.PanelDocView.Text = "Document Viewer" + Me.PanelDocView.Visibility = DevExpress.XtraBars.Docking.DockVisibility.AutoHide + ' + 'DockPanel3_Container + ' + Me.DockPanel3_Container.Location = New System.Drawing.Point(1, 43) + Me.DockPanel3_Container.Name = "DockPanel3_Container" + Me.DockPanel3_Container.Size = New System.Drawing.Size(199, 463) + Me.DockPanel3_Container.TabIndex = 0 + ' + 'PanelSQL + ' + Me.PanelSQL.Controls.Add(Me.DockPanel4_Container) + Me.PanelSQL.Dock = DevExpress.XtraBars.Docking.DockingStyle.Bottom + Me.PanelSQL.ID = New System.Guid("0f65098f-8b5a-4efd-9b19-ba4effecffec") + Me.PanelSQL.Location = New System.Drawing.Point(200, 445) + Me.PanelSQL.Name = "PanelSQL" + Me.PanelSQL.Options.ShowCloseButton = False + Me.PanelSQL.OriginalSize = New System.Drawing.Size(200, 220) + Me.PanelSQL.Size = New System.Drawing.Size(903, 220) + Me.PanelSQL.Text = "SQL" + ' + 'DockPanel4_Container + ' + Me.DockPanel4_Container.Location = New System.Drawing.Point(0, 44) + Me.DockPanel4_Container.Name = "DockPanel4_Container" + Me.DockPanel4_Container.Size = New System.Drawing.Size(903, 176) + Me.DockPanel4_Container.TabIndex = 0 + ' + 'hideContainerRight + ' + Me.hideContainerRight.BackColor = System.Drawing.Color.FromArgb(CType(CType(248, Byte), Integer), CType(CType(248, Byte), Integer), CType(CType(248, Byte), Integer)) + Me.hideContainerRight.Controls.Add(Me.PanelDocView) + Me.hideContainerRight.Dock = System.Windows.Forms.DockStyle.Right + Me.hideContainerRight.Location = New System.Drawing.Point(1103, 159) + Me.hideContainerRight.Name = "hideContainerRight" + Me.hideContainerRight.Size = New System.Drawing.Size(31, 506) + ' + 'frmDocumentManager + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1134, 687) + Me.Controls.Add(Me.PanelSQL) + Me.Controls.Add(Me.PanelSearch) + Me.Controls.Add(Me.hideContainerRight) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmDocumentManager" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmDocumentManager" + CType(Me.DocumentManager1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TabbedView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.PanelDashboard.ResumeLayout(False) + CType(Me.Document1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DocumentGroup1, System.ComponentModel.ISupportInitialize).EndInit() + Me.PanelSearch.ResumeLayout(False) + Me.PanelDocView.ResumeLayout(False) + Me.PanelSQL.ResumeLayout(False) + Me.hideContainerRight.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DocumentManager1 As DevExpress.XtraBars.Docking2010.DocumentManager + Friend WithEvents TabbedView1 As DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents PanelSQL As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel4_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents PanelDocView As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel3_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents PanelSearch As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents DocumentGroup1 As DevExpress.XtraBars.Docking2010.Views.Tabbed.DocumentGroup + Friend WithEvents Document1 As DevExpress.XtraBars.Docking2010.Views.Tabbed.Document + Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager + Friend WithEvents PanelDashboard As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents hideContainerRight As DevExpress.XtraBars.Docking.AutoHideContainer +End Class diff --git a/GUIs.Monitor/frmDocumentManager.resx b/GUIs.Monitor/frmDocumentManager.resx new file mode 100644 index 0000000..f801fe5 --- /dev/null +++ b/GUIs.Monitor/frmDocumentManager.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 181, 17 + + \ No newline at end of file diff --git a/GUIs.Monitor/frmDocumentManager.vb b/GUIs.Monitor/frmDocumentManager.vb new file mode 100644 index 0000000..2729c26 --- /dev/null +++ b/GUIs.Monitor/frmDocumentManager.vb @@ -0,0 +1,3 @@ +Public Class frmDocumentManager + +End Class \ No newline at end of file diff --git a/GUIs.Monitor/frmMonitor.Designer.vb b/GUIs.Monitor/frmMonitor.Designer.vb new file mode 100644 index 0000000..9c627b8 --- /dev/null +++ b/GUIs.Monitor/frmMonitor.Designer.vb @@ -0,0 +1,766 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmMonitor + 'Inherits DevExpress.XtraBars.Ribbon.RibbonForm + Inherits BaseRibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMonitor)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.buttonSearch = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.cmbSearchKeys = New DevExpress.XtraEditors.ComboBoxEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutItemSearchValue_Text = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutItemSearchValue_Date = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageFile1 = New DevExpress.XtraTab.XtraTabPage() + Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() + Me.XtraTabPageFile2 = New DevExpress.XtraTab.XtraTabPage() + Me.DocumentViewer2 = New DigitalData.Controls.DocumentViewer.DocumentViewer() + Me.XtraTabPageHtml1 = New DevExpress.XtraTab.XtraTabPage() + Me.RichEditControl1 = New DevExpress.XtraRichEdit.RichEditControl() + Me.XtraTabPageHtml2 = New DevExpress.XtraTab.XtraTabPage() + Me.RichEditControl2 = New DevExpress.XtraRichEdit.RichEditControl() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.TreeListResults = New DevExpress.XtraTreeList.TreeList() + Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() + Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageSQL1 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageSQL2 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl3 = New DevExpress.XtraGrid.GridControl() + Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageSQL3 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl4 = New DevExpress.XtraGrid.GridControl() + Me.GridView4 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageSQL4 = New DevExpress.XtraTab.XtraTabPage() + Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components) + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbSearchKeys.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutItemSearchValue_Text, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutItemSearchValue_Date, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPageFile1.SuspendLayout() + Me.XtraTabPageFile2.SuspendLayout() + Me.XtraTabPageHtml1.SuspendLayout() + Me.XtraTabPageHtml2.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel1.SuspendLayout() + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel2.SuspendLayout() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl3.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl3.Panel1.SuspendLayout() + CType(Me.SplitContainerControl3.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl3.Panel2.SuspendLayout() + Me.SplitContainerControl3.SuspendLayout() + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl3.SuspendLayout() + Me.XtraTabPageSQL1.SuspendLayout() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageSQL2.SuspendLayout() + CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageSQL3.SuspendLayout() + CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageSQL4.SuspendLayout() + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl2.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl2.Panel1.SuspendLayout() + CType(Me.SplitContainerControl2.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl2.Panel2.SuspendLayout() + Me.SplitContainerControl2.SuspendLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.XtraTabPage3.SuspendLayout() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ApplicationButtonDropDownControl = Me.ApplicationMenu1 + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 7 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(1379, 160) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'ApplicationMenu1 + ' + Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem1) + Me.ApplicationMenu1.Name = "ApplicationMenu1" + Me.ApplicationMenu1.Ribbon = Me.RibbonControl1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "SQL Konfiguration" + Me.BarButtonItem1.Id = 2 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.managedatasource + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'buttonSearch + ' + Me.buttonSearch.Caption = "Sicht laden" + Me.buttonSearch.Id = 1 + Me.buttonSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted + Me.buttonSearch.Name = "buttonSearch" + Me.buttonSearch.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Export Grid als XLSX" + Me.BarButtonItem2.Enabled = False + Me.BarButtonItem2.Id = 4 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.export + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Export als XLSX" + Me.BarButtonItem3.Id = 5 + Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarStaticItem1 + ' + Me.BarStaticItem1.Id = 6 + Me.BarStaticItem1.ImageOptions.Image = CType(resources.GetObject("BarStaticItem1.ImageOptions.Image"), System.Drawing.Image) + Me.BarStaticItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarStaticItem1.Name = "BarStaticItem1" + Me.BarStaticItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.buttonSearch) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Export" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 749) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1379, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.cmbSearchKeys) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.DateEdit1) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(235, 563) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.Location = New System.Drawing.Point(15, 77) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(205, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'cmbSearchKeys + ' + Me.cmbSearchKeys.Location = New System.Drawing.Point(15, 31) + Me.cmbSearchKeys.MenuManager = Me.RibbonControl1 + Me.cmbSearchKeys.Name = "cmbSearchKeys" + Me.cmbSearchKeys.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbSearchKeys.Size = New System.Drawing.Size(205, 20) + Me.cmbSearchKeys.StyleController = Me.LayoutControl1 + Me.cmbSearchKeys.TabIndex = 5 + ' + 'TextEdit2 + ' + Me.TextEdit2.Location = New System.Drawing.Point(15, 169) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.TextEdit2.Size = New System.Drawing.Size(205, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 6 + ' + 'DateEdit1 + ' + Me.DateEdit1.EditValue = Nothing + Me.DateEdit1.Location = New System.Drawing.Point(15, 123) + Me.DateEdit1.MenuManager = Me.RibbonControl1 + Me.DateEdit1.Name = "DateEdit1" + Me.DateEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEdit1.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEdit1.Size = New System.Drawing.Size(205, 20) + Me.DateEdit1.StyleController = Me.LayoutControl1 + Me.DateEdit1.TabIndex = 7 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutItemSearchValue_Text, Me.LayoutControlItem2, Me.LayoutItemSearchValue_Date, Me.LayoutControlItem3}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(235, 563) + Me.Root.TextVisible = False + ' + 'LayoutItemSearchValue_Text + ' + Me.LayoutItemSearchValue_Text.Control = Me.TextEdit1 + Me.LayoutItemSearchValue_Text.Location = New System.Drawing.Point(0, 46) + Me.LayoutItemSearchValue_Text.Name = "LayoutItemSearchValue_Text" + Me.LayoutItemSearchValue_Text.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutItemSearchValue_Text.Size = New System.Drawing.Size(215, 46) + Me.LayoutItemSearchValue_Text.Text = "Text Parameter:" + Me.LayoutItemSearchValue_Text.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutItemSearchValue_Text.TextSize = New System.Drawing.Size(88, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.cmbSearchKeys + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(215, 46) + Me.LayoutControlItem2.Text = "Suchen nach:" + Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(88, 13) + ' + 'LayoutItemSearchValue_Date + ' + Me.LayoutItemSearchValue_Date.Control = Me.DateEdit1 + Me.LayoutItemSearchValue_Date.Location = New System.Drawing.Point(0, 92) + Me.LayoutItemSearchValue_Date.Name = "LayoutItemSearchValue_Date" + Me.LayoutItemSearchValue_Date.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutItemSearchValue_Date.Size = New System.Drawing.Size(215, 46) + Me.LayoutItemSearchValue_Date.Text = "Datum Parameter" + Me.LayoutItemSearchValue_Date.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutItemSearchValue_Date.TextSize = New System.Drawing.Size(88, 13) + Me.LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit2 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 138) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(215, 405) + Me.LayoutControlItem3.Text = "Auswertung" + Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(88, 13) + ' + '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.XtraTabPageFile1 + Me.XtraTabControl1.Size = New System.Drawing.Size(409, 563) + Me.XtraTabControl1.TabIndex = 1 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageFile1, Me.XtraTabPageFile2, Me.XtraTabPageHtml1, Me.XtraTabPageHtml2}) + ' + 'XtraTabPageFile1 + ' + Me.XtraTabPageFile1.Controls.Add(Me.DocumentViewer1) + Me.XtraTabPageFile1.Name = "XtraTabPageFile1" + Me.XtraTabPageFile1.Size = New System.Drawing.Size(407, 540) + Me.XtraTabPageFile1.Text = "File 1" + ' + 'DocumentViewer1 + ' + Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewer1.FileLoaded = False + Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) + Me.DocumentViewer1.Name = "DocumentViewer1" + Me.DocumentViewer1.Size = New System.Drawing.Size(407, 540) + Me.DocumentViewer1.TabIndex = 0 + ' + 'XtraTabPageFile2 + ' + Me.XtraTabPageFile2.Controls.Add(Me.DocumentViewer2) + Me.XtraTabPageFile2.Name = "XtraTabPageFile2" + Me.XtraTabPageFile2.Size = New System.Drawing.Size(407, 541) + Me.XtraTabPageFile2.Text = "File 2" + ' + 'DocumentViewer2 + ' + Me.DocumentViewer2.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewer2.FileLoaded = False + Me.DocumentViewer2.Location = New System.Drawing.Point(0, 0) + Me.DocumentViewer2.Name = "DocumentViewer2" + Me.DocumentViewer2.Size = New System.Drawing.Size(407, 541) + Me.DocumentViewer2.TabIndex = 1 + ' + 'XtraTabPageHtml1 + ' + Me.XtraTabPageHtml1.Controls.Add(Me.RichEditControl1) + Me.XtraTabPageHtml1.Name = "XtraTabPageHtml1" + Me.XtraTabPageHtml1.Size = New System.Drawing.Size(407, 541) + Me.XtraTabPageHtml1.Text = "HTML 1" + ' + 'RichEditControl1 + ' + Me.RichEditControl1.ActiveViewType = DevExpress.XtraRichEdit.RichEditViewType.Simple + Me.RichEditControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichEditControl1.LayoutUnit = DevExpress.XtraRichEdit.DocumentLayoutUnit.Pixel + Me.RichEditControl1.Location = New System.Drawing.Point(0, 0) + Me.RichEditControl1.MenuManager = Me.RibbonControl1 + Me.RichEditControl1.Name = "RichEditControl1" + Me.RichEditControl1.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden + Me.RichEditControl1.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden + Me.RichEditControl1.Size = New System.Drawing.Size(407, 541) + Me.RichEditControl1.TabIndex = 0 + ' + 'XtraTabPageHtml2 + ' + Me.XtraTabPageHtml2.Controls.Add(Me.RichEditControl2) + Me.XtraTabPageHtml2.Name = "XtraTabPageHtml2" + Me.XtraTabPageHtml2.Size = New System.Drawing.Size(407, 541) + Me.XtraTabPageHtml2.Text = "HTML 2" + ' + 'RichEditControl2 + ' + Me.RichEditControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichEditControl2.Location = New System.Drawing.Point(0, 0) + Me.RichEditControl2.MenuManager = Me.RibbonControl1 + Me.RichEditControl2.Name = "RichEditControl2" + Me.RichEditControl2.Size = New System.Drawing.Size(407, 541) + Me.RichEditControl2.TabIndex = 1 + ' + 'GridControl1 + ' + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(711, 350) + Me.GridControl1.TabIndex = 0 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' + 'TreeListResults + ' + Me.TreeListResults.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeListResults.Location = New System.Drawing.Point(0, 0) + Me.TreeListResults.MenuManager = Me.RibbonControl1 + Me.TreeListResults.Name = "TreeListResults" + Me.TreeListResults.OptionsView.ShowColumns = False + Me.TreeListResults.Size = New System.Drawing.Size(713, 181) + Me.TreeListResults.TabIndex = 4 + ' + 'SvgImageCollection1 + ' + Me.SvgImageCollection1.Add("default", "image://svgimages/outlook inspired/about.svg") + Me.SvgImageCollection1.Add("sql", "image://svgimages/icon builder/actions_database.svg") + Me.SvgImageCollection1.Add("file", "image://svgimages/pdf viewer/documentpdf.svg") + Me.SvgImageCollection1.Add("mail", "image://svgimages/icon builder/actions_envelopeclose.svg") + Me.SvgImageCollection1.Add("success", "image://svgimages/icon builder/actions_checkcircled.svg") + Me.SvgImageCollection1.Add("failure", "image://svgimages/icon builder/actions_deletecircled.svg") + Me.SvgImageCollection1.Add("warning", "image://svgimages/business objects/bo_attention.svg") + Me.SvgImageCollection1.Add("waiting", "image://svgimages/business objects/bo_audit_changehistory.svg") + Me.SvgImageCollection1.Add("actions_user", "image://svgimages/icon builder/actions_user.svg") + Me.SvgImageCollection1.Add("highimportance", "image://svgimages/outlook inspired/highimportance.svg") + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1 + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + ' + 'SplitContainerControl1.Panel1 + ' + Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl1) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + ' + 'SplitContainerControl1.Panel2 + ' + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl3) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(958, 563) + Me.SplitContainerControl1.SplitterPosition = 235 + Me.SplitContainerControl1.TabIndex = 9 + ' + 'SplitContainerControl3 + ' + Me.SplitContainerControl3.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl3.Horizontal = False + Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl3.Name = "SplitContainerControl3" + ' + 'SplitContainerControl3.Panel1 + ' + Me.SplitContainerControl3.Panel1.Controls.Add(Me.TreeListResults) + Me.SplitContainerControl3.Panel1.Text = "Panel1" + ' + 'SplitContainerControl3.Panel2 + ' + Me.SplitContainerControl3.Panel2.Controls.Add(Me.XtraTabControl3) + Me.SplitContainerControl3.Panel2.Text = "Panel2" + Me.SplitContainerControl3.Size = New System.Drawing.Size(713, 563) + Me.SplitContainerControl3.SplitterPosition = 181 + Me.SplitContainerControl3.TabIndex = 5 + ' + 'XtraTabControl3 + ' + Me.XtraTabControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl3.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl3.Name = "XtraTabControl3" + Me.XtraTabControl3.SelectedTabPage = Me.XtraTabPageSQL1 + Me.XtraTabControl3.Size = New System.Drawing.Size(713, 372) + Me.XtraTabControl3.TabIndex = 0 + Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSQL1, Me.XtraTabPageSQL2, Me.XtraTabPageSQL3, Me.XtraTabPageSQL4}) + ' + 'XtraTabPageSQL1 + ' + Me.XtraTabPageSQL1.Controls.Add(Me.GridControl2) + Me.XtraTabPageSQL1.Name = "XtraTabPageSQL1" + Me.XtraTabPageSQL1.Size = New System.Drawing.Size(711, 349) + Me.XtraTabPageSQL1.Text = "SQL 1" + ' + 'GridControl2 + ' + Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl2.Location = New System.Drawing.Point(0, 0) + Me.GridControl2.MainView = Me.GridView2 + Me.GridControl2.MenuManager = Me.RibbonControl1 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(711, 349) + Me.GridControl2.TabIndex = 1 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.GridControl = Me.GridControl2 + Me.GridView2.Name = "GridView2" + ' + 'XtraTabPageSQL2 + ' + Me.XtraTabPageSQL2.Controls.Add(Me.GridControl3) + Me.XtraTabPageSQL2.Name = "XtraTabPageSQL2" + Me.XtraTabPageSQL2.Size = New System.Drawing.Size(711, 350) + Me.XtraTabPageSQL2.Text = "SQL 2" + ' + 'GridControl3 + ' + Me.GridControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl3.Location = New System.Drawing.Point(0, 0) + Me.GridControl3.MainView = Me.GridView3 + Me.GridControl3.MenuManager = Me.RibbonControl1 + Me.GridControl3.Name = "GridControl3" + Me.GridControl3.Size = New System.Drawing.Size(711, 350) + Me.GridControl3.TabIndex = 1 + Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) + ' + 'GridView3 + ' + Me.GridView3.GridControl = Me.GridControl3 + Me.GridView3.Name = "GridView3" + ' + 'XtraTabPageSQL3 + ' + Me.XtraTabPageSQL3.Controls.Add(Me.GridControl4) + Me.XtraTabPageSQL3.Name = "XtraTabPageSQL3" + Me.XtraTabPageSQL3.Size = New System.Drawing.Size(711, 350) + Me.XtraTabPageSQL3.Text = "SQL 3" + ' + 'GridControl4 + ' + Me.GridControl4.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl4.Location = New System.Drawing.Point(0, 0) + Me.GridControl4.MainView = Me.GridView4 + Me.GridControl4.MenuManager = Me.RibbonControl1 + Me.GridControl4.Name = "GridControl4" + Me.GridControl4.Size = New System.Drawing.Size(711, 350) + Me.GridControl4.TabIndex = 1 + Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4}) + ' + 'GridView4 + ' + Me.GridView4.GridControl = Me.GridControl4 + Me.GridView4.Name = "GridView4" + ' + 'XtraTabPageSQL4 + ' + Me.XtraTabPageSQL4.Controls.Add(Me.GridControl1) + Me.XtraTabPageSQL4.Name = "XtraTabPageSQL4" + Me.XtraTabPageSQL4.Size = New System.Drawing.Size(711, 350) + Me.XtraTabPageSQL4.Text = "SQL 4" + ' + 'SplitContainerControl2 + ' + Me.SplitContainerControl2.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl2.Name = "SplitContainerControl2" + ' + 'SplitContainerControl2.Panel1 + ' + Me.SplitContainerControl2.Panel1.Controls.Add(Me.SplitContainerControl1) + Me.SplitContainerControl2.Panel1.Text = "Panel1" + ' + 'SplitContainerControl2.Panel2 + ' + Me.SplitContainerControl2.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitContainerControl2.Panel2.Text = "Panel2" + Me.SplitContainerControl2.Size = New System.Drawing.Size(1377, 563) + Me.SplitContainerControl2.SplitterPosition = 958 + Me.SplitContainerControl2.TabIndex = 10 + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl2.Location = New System.Drawing.Point(0, 160) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3 + Me.XtraTabControl2.Size = New System.Drawing.Size(1379, 589) + Me.XtraTabControl2.TabIndex = 11 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4}) + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.Controls.Add(Me.SplitContainerControl2) + Me.XtraTabPage3.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.enablesearch + Me.XtraTabPage3.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(1377, 563) + Me.XtraTabPage3.Text = "Auswahl Sicht" + ' + 'XtraTabPage4 + ' + Me.XtraTabPage4.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.bo_dashboard + Me.XtraTabPage4.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage4.Name = "XtraTabPage4" + Me.XtraTabPage4.Size = New System.Drawing.Size(1377, 564) + Me.XtraTabPage4.Text = "Dashboard" + ' + 'XtraSaveFileDialog1 + ' + Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1" + ' + 'frmMonitor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1379, 771) + Me.Controls.Add(Me.XtraTabControl2) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.charttype_line + Me.Name = "frmMonitor" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Monitor" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbSearchKeys.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutItemSearchValue_Text, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutItemSearchValue_Date, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPageFile1.ResumeLayout(False) + Me.XtraTabPageFile2.ResumeLayout(False) + Me.XtraTabPageHtml1.ResumeLayout(False) + Me.XtraTabPageHtml2.ResumeLayout(False) + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.SplitContainerControl3.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl3.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl3.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl3.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl3.ResumeLayout(False) + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl3.ResumeLayout(False) + Me.XtraTabPageSQL1.ResumeLayout(False) + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageSQL2.ResumeLayout(False) + CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageSQL3.ResumeLayout(False) + CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView4, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageSQL4.ResumeLayout(False) + CType(Me.SplitContainerControl2.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl2.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.ResumeLayout(False) + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.XtraTabPage3.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents cmbSearchKeys As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutItemSearchValue_Text As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents buttonSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents TreeListResults As DevExpress.XtraTreeList.TreeList + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageFile1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageFile2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageHtml1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageHtml2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageSQL1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageSQL2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageSQL3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl4 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView4 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageSQL4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SplitContainerControl2 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents DocumentViewer1 As Controls.DocumentViewer.DocumentViewer + Friend WithEvents DocumentViewer2 As Controls.DocumentViewer.DocumentViewer + Friend WithEvents RichEditControl1 As DevExpress.XtraRichEdit.RichEditControl + Friend WithEvents RichEditControl2 As DevExpress.XtraRichEdit.RichEditControl + Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit + Friend WithEvents LayoutItemSearchValue_Date As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection + Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem +End Class diff --git a/GUIs.Monitor/frmMonitor.resx b/GUIs.Monitor/frmMonitor.resx new file mode 100644 index 0000000..69f9870 --- /dev/null +++ b/GUIs.Monitor/frmMonitor.resx @@ -0,0 +1,199 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 183, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAFRyZWVWaWV3O1RyZWU7X0Ij1wAA + AY1JREFUOE9j+P//PwMQMJ6fZr/v/FS7/+cm2/4/O9Hm/5kJ1v9P9ljsB8oxgdTgwhCCgYH57ETr/78e + L/z/4/6c/99vT/3/7Vrf/33FmiBJVnRNyBhCMDCwnOwy///1au//z6cq/388Wvz/47HK/ztzVEGSbOia + kDGEANpytNHw/4djFf/f7s74/3pbIhAn/9+apgySZEfXhIwhBNAFu0q09+zIVvm/LV35/5ZUxf+bkxX+ + r4mV3wuUYwNiRiBmQsIgPooBIAFWIOYorJ0BEuACYk4gZj831W4/vsCFOwWGC2pn/s+vns6QVz0NqIZw + 4GIYkF0x5X9m2aT/GaUT/6cW9v0nFLgYBqQBNaUU9DIk53WDXEAwcDEMiM/p+B+X1c4Qm9EKMgBf4GL3 + QlRq8/+I5EaGsKR6kAGgwAXFAihAuYGYB0qzAzH2QAyJr/0fHFvDEBhTBVRDOIljGOAfWfHfN6KMwSe8 + FGQA6bHgFVJ83jO46L9HUOF/t4A80mMBGYNsITkWkDEQEIiF/wwAEzc5In1OcF0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAFRyZWVWaWV3O1RyZWU7X0Ij1wAA + BelJREFUWEet1glQ1FUcB/C1Q8vK0QSbEjDNctKMQ2C5PSYFvEUERRDFBA/EkpyJtLzI1Bx1UlEDtcMj + QxGVPECQKxUsCW/Lq2usGcBluXGab9/ff/+7LOvmsNqb+cz77/73vfd7b/h/+WvU1o7aX0gNLri8bTgu + bx9hINdprV1KFcFqPxw/bgos4tiO9JhMBMAmxvY4dTyzJgD/1P3aBrdNilf4yiyd6QmZyNoiD2JsUkCn + Uyv9cO/vfDT/cbC1340yW7n3Vy4KlnjJLHb0JLWztsiDGJtU37lgmTcab+5C442v0HRrj4XdaLq5m/el + 34WGX3bQduR+4CGzvEDt6aELkOq75i30RN3Fdag9twR15StRf3Et6q9sQsPVLbQZ9Zc2oP7CGtSVLUdt + aRL7ZBxPdJNZXqRHLsA+e4Eb6n5agZrT81Fzir6fRwkGRXOhL4qHvnAOzYa+YDZqS5LwXbyzzNKdOtBD + FaA8AdTtaIILas8u4uSzDPJnUhz0J2NVM6DPm47qXBGDmuJ3cCjuDZnFkR69gMMz+3Pnidwxd1/8rmoe + d86TKEzgzuNRU8BT4O71+VLgLGTE9P1fTkD+CLtsGuFYuG1MD4i00Qapo8yMdDL5XIxwwvqhDsUca0/K + U0AP1SREnqLnSXbjRD3oZTHAd4KU2tNML7WX33SjZ0kKkHn+izzqxuv7CpUv5IZMIkcpxZh4DY6SAp42 + I8n3DD1HsriQ78zJfWG8L+SzzCknbvW05Mv7eA+ZKgWYfyfFdihLCSw4vyUI57cGoZzkunyzpUCUpwwj + 6QNRsv6tIo6VAmWOtkWn9+BoeA+Jll4Zw6ZEd+HHPq1iuS3yFmtlM6botrqgJa/BU6AdNEWjHRyljGFT + ojt/qRej+ySaf2M0mxxAk0quWz5n4N6dE8hJcpcCTNFtdUFL2kFR0A6Mkp5jlKZEd85CDzRc/wKNjOXG + GxLhYqfqa4PrBg3XUtFwZSuOJrpKAabotrqgJS4Oz4GRLMLAIyACbj6hOPaeG2rLPkHNmSTU/rCUKbqa + Ub2ekb2RMb4BdefX8j6TtfRD6IuZLSWLcMiQnKbotrqgJY+ASHgGTNYItSnRnZXgjJqzi1GdPwfVJ2fR + TIPcOOhyY6E7MYPehi5HxDDQEpERqySnKbisLmhJduzhHyE9xyhPgZKcmUxOffECTj4duuwYmgbd8amq + aOiOReHuURGJu0cmozpvDtKnvS4FmKLb6oKW3P0j4O43if0kjmkpYB9juDp/LncdT4ZT0OXxJHLZn4hF + NelyeArZPIFsQ5F7IvvYfgID/CaCNO6kDFKje92w7oUpwY5ICXbAxiBHcsCGQDPDWnwmhjpg5aCXWke3 + tQUtDfBlAb7h7MM5RmkSIpJoXcmBJLKNEW30ipneKvmdPAGSiPIoty0H3HzC4OYbxr5VAXIKkmidqItK + /pcIKUyedSG7NZLvJb7l+NuehFKAq0+YxtU7TBnDpvwdnF7lV1D6qT9K+TJbQnJdYmk1rfIj6f1RmOxj + exS7eE+Ai1co+1BlDJsSxUfm97Mat4pac7dMDsYrT4FtUczF4czFpQi1KVGcldAXzXdy0HR7n5l0K75V + NP95DBkzXpMCbItiF+14kMaZ1KZEcUZcHyX1Gi6noPHn7aptaLxm0CD91TS+0KYZkrFsDfZG95YCbIvi + N7UhcPYMgbHv7zkW/dxGIn3qq9CfYhDl8X2xiFF7ZhEjORl151Ypas4u5/0kJSvuMpyq82Zj58ReUoBt + UWxObUoU747oxcnjUZUVjqrDEyjUIHM8KjNDUHlAjENlhhjDZJyGHSEvyyS2BZE5ZZCahF+G9mTkTufk + Y1G5fwyNRuW+UaqRqEwfjoq9IhgV3wSh6tBEvmc6ySS2RbE5ZZBagLy8VmVFcNeTOLkIR+VBnkZmGCoy + eRIHQlHBU6jYbzQOm5maHPvIJ6BE8UeedoXJXvZI9rLDcq092WGZOc8WS4WHHd537Wp7FJtTmzGKrb5F + q6y9RcvvZHEJIj7KGs2/P84ZFqX5IpcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAx0RVh0VGl0 + bGUAQWJvdXQ7VURnGwAAANVJREFUOE+l080JwkAQhuGcFMVSFISA2IRN2YCe/AEhKSMH8aYtCCpiFYqi + xvcLRnaXNSHk8Bycmf1MdCcYjRNXiCVOeOGGI1YYwJo3PzShg2+kBSK0YAU0sIHvgM8WbfwC5vANFomR + BXShd/UN5V/g68lQzalTrCJWwN4pmsqe4Kzm3SmaygIedQNSNeu8wkXNiVM0lQVEaupvfBpFU1GAbmyY + D8y+xSq0G9ZVXsM36LODdZVFC7LAv1sp6mmZOsjOmQG5HrQbWmH9NlccoEfuw5hNgg/Z80GQgwIqzwAA + AABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAx0RVh0VGl0 + bGUAQWJvdXQ7VURnGwAAAcVJREFUWEfF1r1KQ0EQhuHcRFQQLERQwSsRLC3EzkqEgJUgVka8BsHCUhCE + CKJY2Sh4CVrYWAoG/xAUf47vhJNwdmbYZIM5Fk+xk5n5lhNNUsmy7F+5xTK5xTK5xTKZwlz9LGYMazjB + HZ7xiFscoYZheLMtOs8UvCFI8D6+kHXxgV0MwezSeabgDC3iFV5YzANmEezTeaagBtbhLe+VPLEldHbq + PFMoNMugtzSVXKLzJHSeKeSNE3iDt7Af8nZUYfJMQZrQgLdIa/d7r2k7MHmmQNMkfvKhblIuIP8dVZ0X + HARNm4Whv7as84KDoOlSDcWkPAFxqPOCg6BJPt28YU/qBa51XnAQzlBM6gWaOi84CGcoZiAXGORbcKPz + goOg6UoNxaReoKHzgoOgaVsNxaReoKbzgoOgaUYNxaRc4BMjOi84CJrEaT7UTcoF9mDyTEGaMA356PQW + 9eMJozB5piBNOfl55S1LJd8r82jt1Xmm0G7MbcFb2isJX0Vnp84zhWJzbgXv8AJiXrCAYJ/OMwU9kJvC + MXr5mv7GAeSHrNml80zBGyqQP846LtBEO/Qe59jAOLzZFp1nCmVzi2Vyi2Vyi+XJKr8GCFc7LgN6FwAA + AABJRU5ErkJggg== + + + + 17, 17 + + + 335, 17 + + \ No newline at end of file diff --git a/GUIs.Monitor/frmMonitor.vb b/GUIs.Monitor/frmMonitor.vb new file mode 100644 index 0000000..e337609 --- /dev/null +++ b/GUIs.Monitor/frmMonitor.vb @@ -0,0 +1,586 @@ +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraTreeList.Nodes +Imports DigitalData.Controls.SQLConfig +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language.Utils +Imports DevExpress.XtraTab +Imports DigitalData.Controls.DocumentViewer +Imports DevExpress.XtraEditors +Imports DevExpress.XtraRichEdit +Imports DevExpress.XtraTreeList.Columns +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.Utils +Imports DevExpress.XtraEditors.Controls + +Public Class frmMonitor + Public Property LogConfig As LogConfig + Public Property ConfigManager As ConfigManager(Of Config) + Public Property Database As MSSQLServer + + Private ReadOnly SearchKeys As New List(Of SearchKey) + + Private ReadOnly SQLColumns As New List(Of String) From {"SELECT1", "SELECT2", "SELECT3", "SELECT4"} + Private ReadOnly DocViewColumns As New List(Of String) From {"DOCVIEW1", "DOCVIEW2"} + Private ReadOnly HtmlViewColumns As New List(Of String) From {"HTML1", "HTML2"} + Private ReadOnly DataColumns As List(Of String) = SQLColumns. + Concat(DocViewColumns). + Concat(HtmlViewColumns). + ToList + + Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN", "STATE", "ICON"} + + + + + Private SQLResultGrids As List(Of GridControl) + Private SQLResultTabs As List(Of XtraTabPage) + Private ActiveSQLResultGrid As GridControl + + Private FileResultViewers As List(Of DocumentViewer) + Private FileResultTabs As List(Of XtraTabPage) + + Private HtmlResultViewers As List(Of RichEditControl) + 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" + Private Const STATE_WAITING As String = "WAITING" + Private Const STATE_HIGHLIGHT As String = "HIGHLIGHT" + + + Private Enum NodeImage + [Default] = 0 + SQL = 1 + File = 2 + Mail = 3 + Success = 4 + Failure = 5 + Warning = 6 + Waiting = 7 + User = 8 + Highlight = 9 + End Enum + + Private ReadOnly StateIcons As New Dictionary(Of String, NodeImage) From { + {STATE_SUCCESS, NodeImage.Success}, + {STATE_FAILURE, NodeImage.Failure} + } + + Private GridBuilder As GridBuilder + + Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor") + ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.UserAppDataPath, Application.StartupPath) + InitializeBaseForm(LogConfig) + + If ConfigManager.Config.ConnectionString = String.Empty Then + Dim oSQLConfig As New frmSQLConfig(LogConfig) + If oSQLConfig.ShowDialog() = DialogResult.OK Then + ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString + ConfigManager.Save() + Application.Restart() + Else + ShowErrorMessage("No Database configured. Application will close!") + Application.Exit() + + End If + End If + If ConfigManager.Config.IDB_Praefix <> "" Then + If ConfigManager.Config.SearchKeySQL.Contains("@IDB_PRAEFIX") Then + Dim oREPLACE = ConfigManager.Config.SearchKeySQL.Replace("@IDB_PRAEFIX", ConfigManager.Config.IDB_Praefix) + ConfigManager.Config.SearchKeySQL = oREPLACE + ConfigManager.Save() + End If + Console.WriteLine(ConfigManager.Config.SearchKeySQL) + + End If + Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString) + Database = New MSSQLServer(LogConfig, oConnectionString) + GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4}) + GridBuilder. + WithDefaults(). + WithDefaults(TreeListResults). + WithReadOnlyOptions(). + WithReadOnlyOptions(TreeListResults) + + SQLResultGrids = New List(Of GridControl) From {GridControl1, GridControl2, GridControl3, GridControl4} + SQLResultTabs = New List(Of XtraTabPage) From {XtraTabPageSQL1, XtraTabPageSQL2, XtraTabPageSQL3, XtraTabPageSQL4} + + FileResultViewers = New List(Of DocumentViewer) From {DocumentViewer1, DocumentViewer2} + FileResultTabs = New List(Of XtraTabPage) From {XtraTabPageFile1, XtraTabPageFile2} + + HtmlResultViewers = New List(Of RichEditControl) From {RichEditControl1, RichEditControl2} + HtmlResultTabs = New List(Of XtraTabPage) From {XtraTabPageHtml1, XtraTabPageHtml2} + + LoadSearchKeys() + + Dim oLicense = LoadGDPicture() + + For Each oGrid In SQLResultGrids + AddHandler oGrid.Enter, Sub() + ActiveSQLResultGrid = oGrid + BarButtonItem2.Enabled = True + End Sub + + AddHandler oGrid.Leave, Sub() + ActiveSQLResultGrid = Nothing + BarButtonItem2.Enabled = False + End Sub + Next + + + For Each oViewer As DocumentViewer In FileResultViewers + oViewer.Init(LogConfig, oLicense) + Next + SplitContainerControl3.Collapsed = True + SplitContainerControl2.Collapsed = True + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Private Function LoadGDPicture() As String + Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'" + Return Database.GetScalarValue(oSQL) + End Function + + Private Sub buttonSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonSearch.ItemClick + LoadData() + End Sub + + Private Function LoadData() As Boolean + Try + + + Dim oSQL As String = $"EXEC [{ConfigManager.Config.IDB_Praefix}].[dbo].[PRDD_MONITORING_GET_TREEVIEW_RESULT] '{cmbSearchKeys.EditValue}','{TextEdit1.EditValue.ToString}',1" + Dim oTable As DataTable = Database.GetDatatable(oSQL) + + TreeListResults.DataSource = oTable + TreeListResults.PopulateColumns() + + InitTreeList() + + ' Show all columns in DisplayColumns List + For Each oColumn In TreeListResults.Columns + oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName) + If oColumn.FieldName = "ADDED_WHEN" Then + oColumn.Format.FormatType = FormatType.DateTime + oColumn.Format.FormatString = "dd.MM.yyyy HH:MM:ss" + End If + + Next + 'Dim edit As New RepositoryItemDateEdit() + 'TreeListResults.Columns("ADDED_WHEN").ColumnEdit = edit + 'edit.Mask.EditMask = "g" + 'edit.Mask.UseMaskAsDisplayFormat = True + Dim oStateColumn As TreeListColumn = TreeListResults.Columns.Item("STATE") + + For Each oNode As TreeListNode In TreeListResults.Nodes + ExpandNodes(oNode, Function(n) + Dim oObjectValue = n.GetValue(oStateColumn) + Dim oValue As String = NotNull(oObjectValue, String.Empty) + Return oValue IsNot Nothing AndAlso (oValue = STATE_WARNING Or oValue = STATE_FAILURE) + End Function) + Next + Return True + Catch ex As Exception + ShowErrorMessage(ex) + Return False + End Try + End Function + + Private Sub LoadSearchKeys() + Try + Dim oSQL = ConfigManager.Config.SearchKeySQL + Dim oTable = Database.GetDatatable(oSQL) + + For Each oRow As DataRow In oTable.Rows + SearchKeys.Add(New SearchKey With { + .Id = CInt(oRow.Item(0)), + .Title = oRow.Item(1).ToString, + .TypeName = "Varchar"'oRow.Item(2).ToString + }) + Next + + cmbSearchKeys.Properties.Items.Clear() + cmbSearchKeys.Properties.Items.AddRange(SearchKeys) + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Private Sub InitTreeList() + TreeListResults.KeyFieldName = "GUID" + TreeListResults.ParentFieldName = "PARENT_ID" + + Dim oStateEdit As New RepositoryItemImageComboBox With { + .SmallImages = SvgImageCollection1, + .GlyphAlignment = HorzAlignment.Near + } + oStateEdit.Buttons.Clear() + oStateEdit.Items.AddRange(New List(Of ImageComboBoxItem) From { + New ImageComboBoxItem("Success", "SUCCESS", NodeImage.Success), + New ImageComboBoxItem("Failure", "FAILURE", NodeImage.Failure), + New ImageComboBoxItem("Warning", "WARNING", NodeImage.Warning), + New ImageComboBoxItem("Waiting", "WAITING", NodeImage.Waiting), + New ImageComboBoxItem("Default", "DEFAULT", NodeImage.Default), + New ImageComboBoxItem("User", "USER", NodeImage.User), + New ImageComboBoxItem("Highlight", "HIGHLIGHT", NodeImage.Highlight) + }) + + Dim oIconEdit As New RepositoryItemImageComboBox With { + .SmallImages = SvgImageCollection1, + .GlyphAlignment = HorzAlignment.Near + } + oStateEdit.Buttons.Clear() + oStateEdit.Items.AddRange(New List(Of ImageComboBoxItem) From { + New ImageComboBoxItem("Email", "MAIL", NodeImage.Mail), + New ImageComboBoxItem("SQL", "SQL", NodeImage.SQL), + New ImageComboBoxItem("File", "FILE", NodeImage.File) + }) + + Dim oColumn1 = TreeListResults.Columns.Item("COLUMN1") + Dim oStateColumn = TreeListResults.Columns.Item("STATE") + Dim oIconColumn = TreeListResults.Columns.Item("ICON") + + oColumn1.VisibleIndex = 0 + oStateColumn.VisibleIndex = 1 + oIconColumn.VisibleIndex = 2 + + With oStateColumn + .ColumnEdit = oStateEdit + .MaxWidth = 25 + .MinWidth = 25 + .Caption = " " + .ImageOptions.Image = SvgImageCollection1.GetImage(NodeImage.Success) + End With + + With oIconColumn + .ColumnEdit = oStateEdit + .MaxWidth = 25 + .MinWidth = 25 + .Caption = " " + .ImageOptions.Image = SvgImageCollection1.GetImage(NodeImage.SQL) + End With + + End Sub + + Private Sub cmbSearchKeys_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbSearchKeys.SelectedValueChanged + Dim oItem As SearchKey = CType(cmbSearchKeys.SelectedItem, SearchKey) + + Select Case oItem.TypeName + Case "VARCHAR" + LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + TextEdit1.EditValue = String.Empty + Case "DATE" + LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + + Case Else + LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + BarStaticItem1.Caption = "oItem.TypeName=" + oItem.TypeName + + End Select + End Sub + + Private Sub TreeListResults_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListResults.FocusedNodeChanged + If e.Node Is Nothing Then + Exit Sub + End If + + Dim oValues As Dictionary(Of String, String) = GetValuesFromNode(e.Node, DataColumns) + + Dim oSQLCommands = oValues. + Where(Function(v) v.Key.StartsWith("SELECT")). + Where(Function(v) v.Value IsNot Nothing). + ToDictionary(Function(v) v.Key, Function(v) v.Value) + + Dim oFilePaths = oValues. + Where(Function(v) v.Key.StartsWith("DOCVIEW")). + Where(Function(v) v.Value IsNot Nothing). + ToDictionary(Function(v) v.Key, Function(v) v.Value) + + Dim oHtmlDocuments = oValues. + Where(Function(v) v.Key.StartsWith("HTML")). + Where(Function(v) v.Value IsNot Nothing). + ToDictionary(Function(v) v.Key, Function(v) v.Value) + + Dim oAllTabs = SQLResultTabs. + Concat(FileResultTabs). + Concat(HtmlResultTabs) + For Each oTabPage In oAllTabs + oTabPage.PageVisible = False + Next + + SplitContainerControl3.Collapsed = oSQLCommands.Count = 0 + SplitContainerControl2.Collapsed = (oFilePaths.Count + oHtmlDocuments.Count) = 0 + + For Each oSQLCommand As KeyValuePair(Of String, String) In oSQLCommands + Try + Dim oExtracted = ExtractTitle(oSQLCommand.Value) + Dim oCommand = oExtracted.Item1 + Dim oTitle = oExtracted.Item2 + + Dim oTable As DataTable = Database.GetDatatable(oCommand) + + If oTable Is Nothing Then + Continue For + End If + + Dim oGridIndex = Integer.Parse(oSQLCommand.Key.Last()) - 1 + Dim oGridControl As GridControl = SQLResultGrids.Item(oGridIndex) + + FillResultGrid(oGridControl, oTable, oTitle) + Catch ex As Exception + Logger.Error(ex) + Continue For + End Try + Next + + For Each oFile As KeyValuePair(Of String, String) In oFilePaths + Try + Dim oExtracted = ExtractTitle(oFile.Value) + Dim oPath = oExtracted.Item1 + Dim oTitle = oExtracted.Item2 + + If oPath Is Nothing Then + Continue For + End If + + If Not IO.File.Exists(oPath) Then + Continue For + End If + + Dim oViewerIndex = Integer.Parse(oFile.Key.Last()) - 1 + Dim oViewer As DocumentViewer = FileResultViewers.Item(oViewerIndex) + + FillResultViewer(oViewer, oPath, oTitle) + Catch ex As Exception + Logger.Error(ex) + Continue For + End Try + Next + + For Each oFile As KeyValuePair(Of String, String) In oHtmlDocuments + Try + Dim oExtracted = ExtractTitle(oFile.Value) + Dim oHtml = oExtracted.Item1 + Dim oTitle = oExtracted.Item2 + + If oHtml Is Nothing Then + Continue For + End If + + Dim oViewerIndex = Integer.Parse(oFile.Key.Last()) - 1 + Dim oViewer As RichEditControl = HtmlResultViewers.Item(oViewerIndex) + + FillResultHtmlViewer(oViewer, oHtml, oTitle) + Catch ex As Exception + Logger.Error(ex) + Continue For + End Try + Next + End Sub + + Private Function ExtractTitle(Value As String) As Tuple(Of String, String) + If Value.Contains("|"c) Then + Dim oSplit = Value.Split("|"c).ToList + Dim oValue = oSplit.First() + Dim oTitle = oSplit.Item(1) + + Return New Tuple(Of String, String)(oValue, oTitle) + End If + + Return New Tuple(Of String, String)(Value, Nothing) + End Function + + Private Sub ExpandNodes(RootNode As TreeListNode, Condition As Predicate(Of TreeListNode)) + For Each oNode As TreeListNode In RootNode.Nodes + ExpandNodes(oNode, Condition) + + If Condition(oNode) = True Then + oNode.Expand() + ExpandParentNode(oNode) + End If + Next + End Sub + + Private Sub ExpandParentNode(ChildNode As TreeListNode) + If ChildNode.ParentNode IsNot Nothing Then + ChildNode.ParentNode.Expand() + ExpandParentNode(ChildNode.ParentNode) + End If + End Sub + + Private Sub FillResultHtmlViewer(RichEditControl As RichEditControl, Html As String, Title As String) + RichEditControl.HtmlText = Html + + Dim oTabPage = DirectCast(RichEditControl.Parent, XtraTabPage) + oTabPage.PageVisible = True + oTabPage.Text = NotNull(Title, oTabPage.Text) + + XtraTabControl1.SelectedTabPage = oTabPage + End Sub + + Private Sub FillResultViewer(DocumentViewer As DocumentViewer, Path As String, Title As String) + DocumentViewer.LoadFile(Path) + + Dim oTabPage = DirectCast(DocumentViewer.Parent, XtraTabPage) + oTabPage.PageVisible = True + oTabPage.Text = NotNull(Title, oTabPage.Text) + + XtraTabControl1.SelectedTabPage = oTabPage + End Sub + + Private Sub FillResultGrid(GridControl As GridControl, Table As DataTable, Title As String) + GridControl.DataSource = Table + + Dim oTabPage = DirectCast(GridControl.Parent, XtraTabPage) + oTabPage.PageVisible = True + oTabPage.Text = NotNull(Title, oTabPage.Text) + + XtraTabControl3.SelectedTabPage = oTabPage + End Sub + + Private Function GetValuesFromNode(Node As TreeListNode, ColumnNames As List(Of String)) As Dictionary(Of String, String) + Dim oValues As New Dictionary(Of String, String) + + For Each oColumnName In ColumnNames + Dim oValue = MaybeGetValueForColumn(Node, oColumnName) + oValues.Add(oColumnName, oValue) + Next + + Return oValues + End Function + + Private Function MaybeGetValueForColumn(Node As TreeListNode, FieldName As String) As String + Dim oColumn = TreeListResults.Columns.Item(FieldName) + + If oColumn Is Nothing Then + Return Nothing + End If + + Dim oValue = Node.GetValue(oColumn)?.ToString + + If oValue Is String.Empty Then + Return Nothing + Else + Return oValue + End If + End Function + + Private Sub TreeListResults_CustomDrawNodeCell(sender As Object, e As DevExpress.XtraTreeList.CustomDrawNodeCellEventArgs) Handles TreeListResults.CustomDrawNodeCell + Dim oColumn = TreeListResults.Columns.Item("STATE") + Dim oState = NotNull(e.Node.GetValue(oColumn), Nothing) + + If oState Is Nothing Then + Exit Sub + End If + + Dim oColor As Color = Nothing + + Select Case oState.ToString + Case STATE_SUCCESS + oColor = Color.LightGreen + Case STATE_FAILURE + oColor = Color.LightCoral + Case STATE_WARNING + oColor = Color.Yellow + Case STATE_WAITING + oColor = Color.LightSkyBlue + End Select + + e.Appearance.BackColor = oColor + e.Appearance.Options.UseBackColor = True + e.Handled = False + End Sub + + Private Sub TreeListResults_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs) Handles TreeListResults.GetStateImage + 'Dim oValues As Dictionary(Of String, String) = GetValuesFromNode(e.Node, DataColumns) + 'Dim oSQLCommands = oValues. + ' Where(Function(v) v.Key.StartsWith("SELECT")). + ' Where(Function(v) v.Value IsNot Nothing). + ' Count() + + 'Dim oFilePaths = oValues. + ' Where(Function(v) v.Key.StartsWith("DOCVIEW")). + ' Where(Function(v) v.Value IsNot Nothing). + ' Count() + + 'Dim oHtmlDocuments = oValues. + ' Where(Function(v) v.Key.StartsWith("HTML")). + ' Where(Function(v) v.Value IsNot Nothing). + ' Count() + + 'Dim oIconColumn = TreeListResults.Columns.Item("ICON") + 'Dim oIcon = NotNull(e.Node.GetValue(oIconColumn), Nothing) + 'Dim oStateColumn = TreeListResults.Columns.Item("STATE") + 'Dim oState = NotNull(e.Node.GetValue(oStateColumn), Nothing) + + 'If oSQLCommands > 0 Then + ' e.NodeImageIndex = NodeImage.SQL + 'ElseIf oFilePaths > 0 Then + ' e.NodeImageIndex = NodeImage.File + 'ElseIf oHtmlDocuments > 0 Then + ' e.NodeImageIndex = NodeImage.Mail + 'Else + ' If oState IsNot Nothing AndAlso StateIcons.ContainsKey(oState) Then + ' Dim oIconIndex = StateIcons.Item(oState) + ' e.NodeImageIndex = oIconIndex + ' Else + ' e.NodeImageIndex = NodeImage.Default + ' End If + 'End If + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Dim oSQLConfig As New frmSQLConfig(LogConfig) With { + .ConnectionString = ConfigManager.Config.ConnectionString + } + + If oSQLConfig.ShowDialog() = DialogResult.OK Then + ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString + ConfigManager.Save() + + Database = New MSSQLServer(LogConfig, oSQLConfig.ConnectionString) + + LoadSearchKeys() + End If + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + If ActiveSQLResultGrid IsNot Nothing Then + XtraSaveFileDialog1.Filter = "Excel Files (*.xlsx)|*.xlsx" + + If XtraSaveFileDialog1.ShowDialog() = DialogResult.OK Then + ActiveSQLResultGrid.ExportToXlsx(XtraSaveFileDialog1.FileName) + End If + End If + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + XtraSaveFileDialog1.Filter = "Excel Files (*.xlsx)|*.xlsx" + + If XtraSaveFileDialog1.ShowDialog() = DialogResult.OK Then + TreeListResults.ExportToXlsx(XtraSaveFileDialog1.FileName) + End If + End Sub +End Class + +Friend Class SearchKey + Public Id As Integer + Public Title As String + Public TypeName As String + + Public Overrides Function ToString() As String + Return Title + End Function +End Class diff --git a/GUIs.Monitor/packages.config b/GUIs.Monitor/packages.config new file mode 100644 index 0000000..63f3075 --- /dev/null +++ b/GUIs.Monitor/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/Monitor.sln b/Monitor.sln new file mode 100644 index 0000000..855d498 --- /dev/null +++ b/Monitor.sln @@ -0,0 +1,25 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 16.0.31005.135 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Monitor", "GUIs.Monitor\Monitor.vbproj", "{E24E8D40-0361-4C07-8FAE-3621DE316E70}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {E24E8D40-0361-4C07-8FAE-3621DE316E70}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {E24E8D40-0361-4C07-8FAE-3621DE316E70}.Debug|Any CPU.Build.0 = Debug|Any CPU + {E24E8D40-0361-4C07-8FAE-3621DE316E70}.Release|Any CPU.ActiveCfg = Release|Any CPU + {E24E8D40-0361-4C07-8FAE-3621DE316E70}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {EF4C7EB0-2537-4855-ABD8-DAAA5E89ADF1} + EndGlobalSection +EndGlobal diff --git a/Monitor/App.config b/Monitor/App.config new file mode 100644 index 0000000..ffaf540 --- /dev/null +++ b/Monitor/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/Monitor/Form1.Designer.vb b/Monitor/Form1.Designer.vb new file mode 100644 index 0000000..04ef8d0 --- /dev/null +++ b/Monitor/Form1.Designer.vb @@ -0,0 +1,31 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Text = "Form1" + End Sub + +End Class diff --git a/Monitor/Form1.vb b/Monitor/Form1.vb new file mode 100644 index 0000000..17d6595 --- /dev/null +++ b/Monitor/Form1.vb @@ -0,0 +1,3 @@ +Public Class Form1 + +End Class diff --git a/Monitor/Monitor.sln b/Monitor/Monitor.sln new file mode 100644 index 0000000..5830dad --- /dev/null +++ b/Monitor/Monitor.sln @@ -0,0 +1,25 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 15 +VisualStudioVersion = 15.0.27703.2000 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Monitor", "Monitor.vbproj", "{54EE2A2E-B44B-451E-AF82-953FB573EC27}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {54EE2A2E-B44B-451E-AF82-953FB573EC27}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {54EE2A2E-B44B-451E-AF82-953FB573EC27}.Debug|Any CPU.Build.0 = Debug|Any CPU + {54EE2A2E-B44B-451E-AF82-953FB573EC27}.Release|Any CPU.ActiveCfg = Release|Any CPU + {54EE2A2E-B44B-451E-AF82-953FB573EC27}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {93774107-95C2-4A9C-B03F-8463AC2EBE0B} + EndGlobalSection +EndGlobal diff --git a/Monitor/Monitor.vbproj b/Monitor/Monitor.vbproj new file mode 100644 index 0000000..8d47b45 --- /dev/null +++ b/Monitor/Monitor.vbproj @@ -0,0 +1,120 @@ + + + + + Debug + AnyCPU + {54EE2A2E-B44B-451E-AF82-953FB573EC27} + WinExe + Monitor.My.MyApplication + Monitor + Monitor + 512 + WindowsForms + v4.7.2 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + Monitor.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + Monitor.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + Form1.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + \ No newline at end of file diff --git a/Monitor/My Project/Application.Designer.vb b/Monitor/My Project/Application.Designer.vb new file mode 100644 index 0000000..3065a1e --- /dev/null +++ b/Monitor/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.Monitor.Form1 + End Sub + End Class +End Namespace diff --git a/Monitor/My Project/Application.myapp b/Monitor/My Project/Application.myapp new file mode 100644 index 0000000..1243847 --- /dev/null +++ b/Monitor/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/Monitor/My Project/AssemblyInfo.vb b/Monitor/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..7bcd408 --- /dev/null +++ b/Monitor/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die einer Assembly zugeordnet sind. + +' Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, +' indem Sie "*" wie unten gezeigt eingeben: +' + + + diff --git a/Monitor/My Project/Resources.Designer.vb b/Monitor/My Project/Resources.Designer.vb new file mode 100644 index 0000000..11c5de9 --- /dev/null +++ b/Monitor/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Monitor.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/Monitor/My Project/Resources.resx b/Monitor/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/Monitor/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Monitor/My Project/Settings.Designer.vb b/Monitor/My Project/Settings.Designer.vb new file mode 100644 index 0000000..ab1c09a --- /dev/null +++ b/Monitor/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.Monitor.My.MySettings + Get + Return Global.Monitor.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Monitor/My Project/Settings.settings b/Monitor/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/Monitor/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/Monitor/frmMonitor.designer.vb b/Monitor/frmMonitor.designer.vb new file mode 100644 index 0000000..004e119 --- /dev/null +++ b/Monitor/frmMonitor.designer.vb @@ -0,0 +1,725 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmMonitor + 'Inherits DevExpress.XtraBars.Ribbon.RibbonForm + Inherits BaseRibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMonitor)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.buttonSearch = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.cmbSearchKeys = New DevExpress.XtraEditors.ComboBoxEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutItemSearchValue_Text = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutItemSearchValue_Date = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageFile1 = New DevExpress.XtraTab.XtraTabPage() + Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() + Me.XtraTabPageFile2 = New DevExpress.XtraTab.XtraTabPage() + Me.DocumentViewer2 = New DigitalData.Controls.DocumentViewer.DocumentViewer() + Me.XtraTabPageHtml1 = New DevExpress.XtraTab.XtraTabPage() + Me.RichEditControl1 = New DevExpress.XtraRichEdit.RichEditControl() + Me.XtraTabPageHtml2 = New DevExpress.XtraTab.XtraTabPage() + Me.RichEditControl2 = New DevExpress.XtraRichEdit.RichEditControl() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.TreeListResults = New DevExpress.XtraTreeList.TreeList() + Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() + Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageSQL1 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageSQL2 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl3 = New DevExpress.XtraGrid.GridControl() + Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageSQL3 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl4 = New DevExpress.XtraGrid.GridControl() + Me.GridView4 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageSQL4 = New DevExpress.XtraTab.XtraTabPage() + Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components) + Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbSearchKeys.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutItemSearchValue_Text, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutItemSearchValue_Date, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPageFile1.SuspendLayout() + Me.XtraTabPageFile2.SuspendLayout() + Me.XtraTabPageHtml1.SuspendLayout() + Me.XtraTabPageHtml2.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl3.SuspendLayout() + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl3.SuspendLayout() + Me.XtraTabPageSQL1.SuspendLayout() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageSQL2.SuspendLayout() + CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageSQL3.SuspendLayout() + CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageSQL4.SuspendLayout() + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl2.SuspendLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.XtraTabPage3.SuspendLayout() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ApplicationButtonDropDownControl = Me.ApplicationMenu1 + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 7 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(1379, 159) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'ApplicationMenu1 + ' + Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem1) + Me.ApplicationMenu1.Name = "ApplicationMenu1" + Me.ApplicationMenu1.Ribbon = Me.RibbonControl1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "SQL Konfiguration" + Me.BarButtonItem1.Id = 2 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.managedatasource + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'buttonSearch + ' + Me.buttonSearch.Caption = "Sicht laden" + Me.buttonSearch.Id = 1 + Me.buttonSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted + Me.buttonSearch.Name = "buttonSearch" + Me.buttonSearch.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Export Grid als XLSX" + Me.BarButtonItem2.Enabled = False + Me.BarButtonItem2.Id = 4 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.export + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Export als XLSX" + Me.BarButtonItem3.Id = 5 + Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.buttonSearch) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Export" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 749) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1379, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.cmbSearchKeys) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.DateEdit1) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(235, 564) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.Location = New System.Drawing.Point(15, 77) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(205, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'cmbSearchKeys + ' + Me.cmbSearchKeys.Location = New System.Drawing.Point(15, 31) + Me.cmbSearchKeys.MenuManager = Me.RibbonControl1 + Me.cmbSearchKeys.Name = "cmbSearchKeys" + Me.cmbSearchKeys.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbSearchKeys.Size = New System.Drawing.Size(205, 20) + Me.cmbSearchKeys.StyleController = Me.LayoutControl1 + Me.cmbSearchKeys.TabIndex = 5 + ' + 'TextEdit2 + ' + Me.TextEdit2.Location = New System.Drawing.Point(15, 169) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.TextEdit2.Size = New System.Drawing.Size(205, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 6 + ' + 'DateEdit1 + ' + Me.DateEdit1.EditValue = Nothing + Me.DateEdit1.Location = New System.Drawing.Point(15, 123) + Me.DateEdit1.MenuManager = Me.RibbonControl1 + Me.DateEdit1.Name = "DateEdit1" + Me.DateEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEdit1.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEdit1.Size = New System.Drawing.Size(205, 20) + Me.DateEdit1.StyleController = Me.LayoutControl1 + Me.DateEdit1.TabIndex = 7 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutItemSearchValue_Text, Me.LayoutControlItem2, Me.LayoutItemSearchValue_Date, Me.LayoutControlItem3}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(235, 564) + Me.Root.TextVisible = False + ' + 'LayoutItemSearchValue_Text + ' + Me.LayoutItemSearchValue_Text.Control = Me.TextEdit1 + Me.LayoutItemSearchValue_Text.Location = New System.Drawing.Point(0, 46) + Me.LayoutItemSearchValue_Text.Name = "LayoutItemSearchValue_Text" + Me.LayoutItemSearchValue_Text.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutItemSearchValue_Text.Size = New System.Drawing.Size(215, 46) + Me.LayoutItemSearchValue_Text.Text = "Parameter" + Me.LayoutItemSearchValue_Text.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutItemSearchValue_Text.TextSize = New System.Drawing.Size(88, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.cmbSearchKeys + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(215, 46) + Me.LayoutControlItem2.Text = "Sicht Titel" + Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(88, 13) + ' + 'LayoutItemSearchValue_Date + ' + Me.LayoutItemSearchValue_Date.Control = Me.DateEdit1 + Me.LayoutItemSearchValue_Date.Location = New System.Drawing.Point(0, 92) + Me.LayoutItemSearchValue_Date.Name = "LayoutItemSearchValue_Date" + Me.LayoutItemSearchValue_Date.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutItemSearchValue_Date.Size = New System.Drawing.Size(215, 46) + Me.LayoutItemSearchValue_Date.Text = "Datum Parameter" + Me.LayoutItemSearchValue_Date.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutItemSearchValue_Date.TextSize = New System.Drawing.Size(88, 13) + Me.LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit2 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 138) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(215, 406) + Me.LayoutControlItem3.Text = "Auswertung" + Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(88, 13) + ' + '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.XtraTabPageFile1 + Me.XtraTabControl1.Size = New System.Drawing.Size(409, 564) + Me.XtraTabControl1.TabIndex = 1 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageFile1, Me.XtraTabPageFile2, Me.XtraTabPageHtml1, Me.XtraTabPageHtml2}) + ' + 'XtraTabPageFile1 + ' + Me.XtraTabPageFile1.Controls.Add(Me.DocumentViewer1) + Me.XtraTabPageFile1.Name = "XtraTabPageFile1" + Me.XtraTabPageFile1.Size = New System.Drawing.Size(407, 541) + Me.XtraTabPageFile1.Text = "File 1" + ' + 'DocumentViewer1 + ' + Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewer1.FileLoaded = False + Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) + Me.DocumentViewer1.Name = "DocumentViewer1" + Me.DocumentViewer1.Size = New System.Drawing.Size(407, 541) + Me.DocumentViewer1.TabIndex = 0 + ' + 'XtraTabPageFile2 + ' + Me.XtraTabPageFile2.Controls.Add(Me.DocumentViewer2) + Me.XtraTabPageFile2.Name = "XtraTabPageFile2" + Me.XtraTabPageFile2.Size = New System.Drawing.Size(407, 541) + Me.XtraTabPageFile2.Text = "File 2" + ' + 'DocumentViewer2 + ' + Me.DocumentViewer2.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewer2.FileLoaded = False + Me.DocumentViewer2.Location = New System.Drawing.Point(0, 0) + Me.DocumentViewer2.Name = "DocumentViewer2" + Me.DocumentViewer2.Size = New System.Drawing.Size(407, 541) + Me.DocumentViewer2.TabIndex = 1 + ' + 'XtraTabPageHtml1 + ' + Me.XtraTabPageHtml1.Controls.Add(Me.RichEditControl1) + Me.XtraTabPageHtml1.Name = "XtraTabPageHtml1" + Me.XtraTabPageHtml1.Size = New System.Drawing.Size(407, 541) + Me.XtraTabPageHtml1.Text = "HTML 1" + ' + 'RichEditControl1 + ' + Me.RichEditControl1.ActiveViewType = DevExpress.XtraRichEdit.RichEditViewType.Simple + Me.RichEditControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichEditControl1.LayoutUnit = DevExpress.XtraRichEdit.DocumentLayoutUnit.Pixel + Me.RichEditControl1.Location = New System.Drawing.Point(0, 0) + Me.RichEditControl1.MenuManager = Me.RibbonControl1 + Me.RichEditControl1.Name = "RichEditControl1" + Me.RichEditControl1.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden + Me.RichEditControl1.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden + Me.RichEditControl1.Size = New System.Drawing.Size(407, 541) + Me.RichEditControl1.TabIndex = 0 + Me.RichEditControl1.Text = "RichEditControl1" + ' + 'XtraTabPageHtml2 + ' + Me.XtraTabPageHtml2.Controls.Add(Me.RichEditControl2) + Me.XtraTabPageHtml2.Name = "XtraTabPageHtml2" + Me.XtraTabPageHtml2.Size = New System.Drawing.Size(407, 541) + Me.XtraTabPageHtml2.Text = "HTML 2" + ' + 'RichEditControl2 + ' + Me.RichEditControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichEditControl2.Location = New System.Drawing.Point(0, 0) + Me.RichEditControl2.MenuManager = Me.RibbonControl1 + Me.RichEditControl2.Name = "RichEditControl2" + Me.RichEditControl2.Size = New System.Drawing.Size(407, 541) + Me.RichEditControl2.TabIndex = 1 + Me.RichEditControl2.Text = "RichEditControl2" + ' + 'GridControl1 + ' + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(711, 350) + Me.GridControl1.TabIndex = 0 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' + 'TreeListResults + ' + Me.TreeListResults.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeListResults.Location = New System.Drawing.Point(0, 0) + Me.TreeListResults.MenuManager = Me.RibbonControl1 + Me.TreeListResults.Name = "TreeListResults" + Me.TreeListResults.OptionsView.ShowColumns = False + Me.TreeListResults.Size = New System.Drawing.Size(713, 181) + Me.TreeListResults.TabIndex = 4 + ' + 'SvgImageCollection1 + ' + Me.SvgImageCollection1.Add("default", "image://svgimages/outlook inspired/about.svg") + Me.SvgImageCollection1.Add("sql", "image://svgimages/icon builder/actions_database.svg") + Me.SvgImageCollection1.Add("file", "image://svgimages/pdf viewer/documentpdf.svg") + Me.SvgImageCollection1.Add("mail", "image://svgimages/icon builder/actions_envelopeclose.svg") + Me.SvgImageCollection1.Add("success", "image://svgimages/icon builder/actions_checkcircled.svg") + Me.SvgImageCollection1.Add("failure", "image://svgimages/icon builder/actions_deletecircled.svg") + Me.SvgImageCollection1.Add("warning", "image://svgimages/business objects/bo_attention.svg") + Me.SvgImageCollection1.Add("waiting", "image://svgimages/business objects/bo_audit_changehistory.svg") + Me.SvgImageCollection1.Add("actions_user", "image://svgimages/icon builder/actions_user.svg") + Me.SvgImageCollection1.Add("highimportance", "image://svgimages/outlook inspired/highimportance.svg") + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1 + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl1) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl3) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(958, 564) + Me.SplitContainerControl1.SplitterPosition = 235 + Me.SplitContainerControl1.TabIndex = 9 + ' + 'SplitContainerControl3 + ' + Me.SplitContainerControl3.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl3.Horizontal = False + Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl3.Name = "SplitContainerControl3" + Me.SplitContainerControl3.Panel1.Controls.Add(Me.TreeListResults) + Me.SplitContainerControl3.Panel1.Text = "Panel1" + Me.SplitContainerControl3.Panel2.Controls.Add(Me.XtraTabControl3) + Me.SplitContainerControl3.Panel2.Text = "Panel2" + Me.SplitContainerControl3.Size = New System.Drawing.Size(713, 564) + Me.SplitContainerControl3.SplitterPosition = 181 + Me.SplitContainerControl3.TabIndex = 5 + ' + 'XtraTabControl3 + ' + Me.XtraTabControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl3.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl3.Name = "XtraTabControl3" + Me.XtraTabControl3.SelectedTabPage = Me.XtraTabPageSQL1 + Me.XtraTabControl3.Size = New System.Drawing.Size(713, 373) + Me.XtraTabControl3.TabIndex = 0 + Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSQL1, Me.XtraTabPageSQL2, Me.XtraTabPageSQL3, Me.XtraTabPageSQL4}) + ' + 'XtraTabPageSQL1 + ' + Me.XtraTabPageSQL1.Controls.Add(Me.GridControl2) + Me.XtraTabPageSQL1.Name = "XtraTabPageSQL1" + Me.XtraTabPageSQL1.Size = New System.Drawing.Size(711, 350) + Me.XtraTabPageSQL1.Text = "SQL 1" + ' + 'GridControl2 + ' + Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl2.Location = New System.Drawing.Point(0, 0) + Me.GridControl2.MainView = Me.GridView2 + Me.GridControl2.MenuManager = Me.RibbonControl1 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(711, 350) + Me.GridControl2.TabIndex = 1 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.GridControl = Me.GridControl2 + Me.GridView2.Name = "GridView2" + ' + 'XtraTabPageSQL2 + ' + Me.XtraTabPageSQL2.Controls.Add(Me.GridControl3) + Me.XtraTabPageSQL2.Name = "XtraTabPageSQL2" + Me.XtraTabPageSQL2.Size = New System.Drawing.Size(711, 350) + Me.XtraTabPageSQL2.Text = "SQL 2" + ' + 'GridControl3 + ' + Me.GridControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl3.Location = New System.Drawing.Point(0, 0) + Me.GridControl3.MainView = Me.GridView3 + Me.GridControl3.MenuManager = Me.RibbonControl1 + Me.GridControl3.Name = "GridControl3" + Me.GridControl3.Size = New System.Drawing.Size(711, 350) + Me.GridControl3.TabIndex = 1 + Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) + ' + 'GridView3 + ' + Me.GridView3.GridControl = Me.GridControl3 + Me.GridView3.Name = "GridView3" + ' + 'XtraTabPageSQL3 + ' + Me.XtraTabPageSQL3.Controls.Add(Me.GridControl4) + Me.XtraTabPageSQL3.Name = "XtraTabPageSQL3" + Me.XtraTabPageSQL3.Size = New System.Drawing.Size(711, 350) + Me.XtraTabPageSQL3.Text = "SQL 3" + ' + 'GridControl4 + ' + Me.GridControl4.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl4.Location = New System.Drawing.Point(0, 0) + Me.GridControl4.MainView = Me.GridView4 + Me.GridControl4.MenuManager = Me.RibbonControl1 + Me.GridControl4.Name = "GridControl4" + Me.GridControl4.Size = New System.Drawing.Size(711, 350) + Me.GridControl4.TabIndex = 1 + Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4}) + ' + 'GridView4 + ' + Me.GridView4.GridControl = Me.GridControl4 + Me.GridView4.Name = "GridView4" + ' + 'XtraTabPageSQL4 + ' + Me.XtraTabPageSQL4.Controls.Add(Me.GridControl1) + Me.XtraTabPageSQL4.Name = "XtraTabPageSQL4" + Me.XtraTabPageSQL4.Size = New System.Drawing.Size(711, 350) + Me.XtraTabPageSQL4.Text = "SQL 4" + ' + 'SplitContainerControl2 + ' + Me.SplitContainerControl2.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl2.Name = "SplitContainerControl2" + Me.SplitContainerControl2.Panel1.Controls.Add(Me.SplitContainerControl1) + Me.SplitContainerControl2.Panel1.Text = "Panel1" + Me.SplitContainerControl2.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitContainerControl2.Panel2.Text = "Panel2" + Me.SplitContainerControl2.Size = New System.Drawing.Size(1377, 564) + Me.SplitContainerControl2.SplitterPosition = 958 + Me.SplitContainerControl2.TabIndex = 10 + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl2.Location = New System.Drawing.Point(0, 159) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3 + Me.XtraTabControl2.Size = New System.Drawing.Size(1379, 590) + Me.XtraTabControl2.TabIndex = 11 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4}) + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.Controls.Add(Me.SplitContainerControl2) + Me.XtraTabPage3.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.enablesearch + Me.XtraTabPage3.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(1377, 564) + Me.XtraTabPage3.Text = "Auswahl Sicht" + ' + 'XtraTabPage4 + ' + Me.XtraTabPage4.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.bo_dashboard + Me.XtraTabPage4.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage4.Name = "XtraTabPage4" + Me.XtraTabPage4.Size = New System.Drawing.Size(1377, 564) + Me.XtraTabPage4.Text = "Dashboard" + ' + 'XtraSaveFileDialog1 + ' + Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1" + ' + 'BarStaticItem1 + ' + Me.BarStaticItem1.Id = 6 + Me.BarStaticItem1.ImageOptions.Image = CType(resources.GetObject("BarStaticItem1.ImageOptions.Image"), System.Drawing.Image) + Me.BarStaticItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarStaticItem1.Name = "BarStaticItem1" + ' + 'frmMonitor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1379, 771) + Me.Controls.Add(Me.XtraTabControl2) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.charttype_line + Me.Name = "frmMonitor" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Monitor" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbSearchKeys.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutItemSearchValue_Text, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutItemSearchValue_Date, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPageFile1.ResumeLayout(False) + Me.XtraTabPageFile2.ResumeLayout(False) + Me.XtraTabPageHtml1.ResumeLayout(False) + Me.XtraTabPageHtml2.ResumeLayout(False) + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl3.ResumeLayout(False) + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl3.ResumeLayout(False) + Me.XtraTabPageSQL1.ResumeLayout(False) + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageSQL2.ResumeLayout(False) + CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageSQL3.ResumeLayout(False) + CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView4, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageSQL4.ResumeLayout(False) + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.ResumeLayout(False) + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.XtraTabPage3.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents cmbSearchKeys As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutItemSearchValue_Text As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents buttonSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents TreeListResults As DevExpress.XtraTreeList.TreeList + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageFile1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageFile2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageHtml1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageHtml2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageSQL1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageSQL2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageSQL3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl4 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView4 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageSQL4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SplitContainerControl2 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents DocumentViewer1 As Controls.DocumentViewer.DocumentViewer + Friend WithEvents DocumentViewer2 As Controls.DocumentViewer.DocumentViewer + Friend WithEvents RichEditControl1 As DevExpress.XtraRichEdit.RichEditControl + Friend WithEvents RichEditControl2 As DevExpress.XtraRichEdit.RichEditControl + Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit + Friend WithEvents LayoutItemSearchValue_Date As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection + Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem +End Class diff --git a/Monitor/frmMonitor.resx b/Monitor/frmMonitor.resx new file mode 100644 index 0000000..1d78dfe --- /dev/null +++ b/Monitor/frmMonitor.resx @@ -0,0 +1,199 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 183, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAFRyZWVWaWV3O1RyZWU7X0Ij1wAA + AY1JREFUOE9j+P//PwMQMJ6fZr/v/FS7/+cm2/4/O9Hm/5kJ1v9P9ljsB8oxgdTgwhCCgYH57ETr/78e + L/z/4/6c/99vT/3/7Vrf/33FmiBJVnRNyBhCMDCwnOwy///1au//z6cq/388Wvz/47HK/ztzVEGSbOia + kDGEANpytNHw/4djFf/f7s74/3pbIhAn/9+apgySZEfXhIwhBNAFu0q09+zIVvm/LV35/5ZUxf+bkxX+ + r4mV3wuUYwNiRiBmQsIgPooBIAFWIOYorJ0BEuACYk4gZj831W4/vsCFOwWGC2pn/s+vns6QVz0NqIZw + 4GIYkF0x5X9m2aT/GaUT/6cW9v0nFLgYBqQBNaUU9DIk53WDXEAwcDEMiM/p+B+X1c4Qm9EKMgBf4GL3 + QlRq8/+I5EaGsKR6kAGgwAXFAihAuYGYB0qzAzH2QAyJr/0fHFvDEBhTBVRDOIljGOAfWfHfN6KMwSe8 + FGQA6bHgFVJ83jO46L9HUOF/t4A80mMBGYNsITkWkDEQEIiF/wwAEzc5In1OcF0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAFRyZWVWaWV3O1RyZWU7X0Ij1wAA + BelJREFUWEet1glQ1FUcB/C1Q8vK0QSbEjDNctKMQ2C5PSYFvEUERRDFBA/EkpyJtLzI1Bx1UlEDtcMj + QxGVPECQKxUsCW/Lq2usGcBluXGab9/ff/+7LOvmsNqb+cz77/73vfd7b/h/+WvU1o7aX0gNLri8bTgu + bx9hINdprV1KFcFqPxw/bgos4tiO9JhMBMAmxvY4dTyzJgD/1P3aBrdNilf4yiyd6QmZyNoiD2JsUkCn + Uyv9cO/vfDT/cbC1340yW7n3Vy4KlnjJLHb0JLWztsiDGJtU37lgmTcab+5C442v0HRrj4XdaLq5m/el + 34WGX3bQduR+4CGzvEDt6aELkOq75i30RN3Fdag9twR15StRf3Et6q9sQsPVLbQZ9Zc2oP7CGtSVLUdt + aRL7ZBxPdJNZXqRHLsA+e4Eb6n5agZrT81Fzir6fRwkGRXOhL4qHvnAOzYa+YDZqS5LwXbyzzNKdOtBD + FaA8AdTtaIILas8u4uSzDPJnUhz0J2NVM6DPm47qXBGDmuJ3cCjuDZnFkR69gMMz+3Pnidwxd1/8rmoe + d86TKEzgzuNRU8BT4O71+VLgLGTE9P1fTkD+CLtsGuFYuG1MD4i00Qapo8yMdDL5XIxwwvqhDsUca0/K + U0AP1SREnqLnSXbjRD3oZTHAd4KU2tNML7WX33SjZ0kKkHn+izzqxuv7CpUv5IZMIkcpxZh4DY6SAp42 + I8n3DD1HsriQ78zJfWG8L+SzzCknbvW05Mv7eA+ZKgWYfyfFdihLCSw4vyUI57cGoZzkunyzpUCUpwwj + 6QNRsv6tIo6VAmWOtkWn9+BoeA+Jll4Zw6ZEd+HHPq1iuS3yFmtlM6botrqgJa/BU6AdNEWjHRyljGFT + ojt/qRej+ySaf2M0mxxAk0quWz5n4N6dE8hJcpcCTNFtdUFL2kFR0A6Mkp5jlKZEd85CDzRc/wKNjOXG + GxLhYqfqa4PrBg3XUtFwZSuOJrpKAabotrqgJS4Oz4GRLMLAIyACbj6hOPaeG2rLPkHNmSTU/rCUKbqa + Ub2ekb2RMb4BdefX8j6TtfRD6IuZLSWLcMiQnKbotrqgJY+ASHgGTNYItSnRnZXgjJqzi1GdPwfVJ2fR + TIPcOOhyY6E7MYPehi5HxDDQEpERqySnKbisLmhJduzhHyE9xyhPgZKcmUxOffECTj4duuwYmgbd8amq + aOiOReHuURGJu0cmozpvDtKnvS4FmKLb6oKW3P0j4O43if0kjmkpYB9juDp/LncdT4ZT0OXxJHLZn4hF + NelyeArZPIFsQ5F7IvvYfgID/CaCNO6kDFKje92w7oUpwY5ICXbAxiBHcsCGQDPDWnwmhjpg5aCXWke3 + tQUtDfBlAb7h7MM5RmkSIpJoXcmBJLKNEW30ipneKvmdPAGSiPIoty0H3HzC4OYbxr5VAXIKkmidqItK + /pcIKUyedSG7NZLvJb7l+NuehFKAq0+YxtU7TBnDpvwdnF7lV1D6qT9K+TJbQnJdYmk1rfIj6f1RmOxj + exS7eE+Ai1co+1BlDJsSxUfm97Mat4pac7dMDsYrT4FtUczF4czFpQi1KVGcldAXzXdy0HR7n5l0K75V + NP95DBkzXpMCbItiF+14kMaZ1KZEcUZcHyX1Gi6noPHn7aptaLxm0CD91TS+0KYZkrFsDfZG95YCbIvi + N7UhcPYMgbHv7zkW/dxGIn3qq9CfYhDl8X2xiFF7ZhEjORl151Ypas4u5/0kJSvuMpyq82Zj58ReUoBt + UWxObUoU747oxcnjUZUVjqrDEyjUIHM8KjNDUHlAjENlhhjDZJyGHSEvyyS2BZE5ZZCahF+G9mTkTufk + Y1G5fwyNRuW+UaqRqEwfjoq9IhgV3wSh6tBEvmc6ySS2RbE5ZZBagLy8VmVFcNeTOLkIR+VBnkZmGCoy + eRIHQlHBU6jYbzQOm5maHPvIJ6BE8UeedoXJXvZI9rLDcq092WGZOc8WS4WHHd537Wp7FJtTmzGKrb5F + q6y9RcvvZHEJIj7KGs2/P84ZFqX5IpcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAMdEVYdFRpdGxlAEFib3V0O1VEZxsAAADVSURBVDhPpdPNCcJAEIbhnBTFUhSEgNiETdmAnvwB + ISkjB/GmLQgqYhWKosb3C0Z2lzUh5PAcnJn9THQnGI0TV4glTnjhhiNWGMCaNz80oYNvpAUitGAFNLCB + 74DPFm38AubwDRaJkQV0oXf1DeVf4OvJUM2pU6wiVsDeKZrKnuCs5t0pmsoCHnUDUjXrvMJFzYlTNJUF + RGrqb3waRVNRgG5smA/MvsUqtBvWVV7DN+izg3WVRQuywL9bKeppmTrIzpkBuR60G1ph/TZXHKBH7sOY + TYIP2fNBkIMCKs8AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAMdEVYdFRpdGxlAEFib3V0O1VEZxsAAAHFSURBVFhHxda9SkNBEIbh3ERUECxEUMErESwtxM5K + hICVIFZGvAbBwlIQhAiiWNkoeAla2FgKBv8QFH+O74STcHZm2GSDORZPsZOZ+ZYTTVLJsuxfucUyucUy + ucUymcJc/SxmDGs4wR2e8YhbHKGGYXizLTrPFLwhSPA+vpB18YFdDMHs0nmm4Awt4hVeWMwDZhHs03mm + oAbW4S3vlTyxJXR26jxTKDTLoLc0lVyi8yR0ninkjRN4g7ewH/J2VGHyTEGa0IC3SGv3e69pOzB5pkDT + JH7yoW5SLiD/HVWdFxwETZuFob+2rPOCg6DpUg3FpDwBcajzgoOgST7dvGFP6gWudV5wEM5QTOoFmjov + OAhnKGYgFxjkW3Cj84KDoOlKDcWkXqCh84KDoGlbDcWkXqCm84KDoGlGDcWkXOATIzovOAiaxGk+1E3K + BfZg8kxBmjAN+ej0FvXjCaMweaYgTTn5eeUtSyXfK/No7dV5ptBuzG3BW9orCV9FZ6fOM4Vic24F7/AC + Yl6wgGCfzjMFPZCbwjF6+Zr+xgHkh6zZpfNMwRsqkD/OOi7QRDv0HufYwDi82RadZwplc4tlcotlcovl + ySq/BghXOy4DehcAAAAASUVORK5CYII= + + + + 17, 17 + + + 335, 17 + + \ No newline at end of file diff --git a/Monitor/frmMonitor.vb b/Monitor/frmMonitor.vb new file mode 100644 index 0000000..d727ac6 --- /dev/null +++ b/Monitor/frmMonitor.vb @@ -0,0 +1,583 @@ +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraTreeList.Nodes +Imports DigitalData.Controls.SQLConfig +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language.Utils +Imports DevExpress.XtraTab +Imports DigitalData.Controls.DocumentViewer +Imports DevExpress.XtraEditors +Imports DevExpress.XtraRichEdit +Imports DevExpress.XtraTreeList.Columns +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.Utils +Imports DevExpress.XtraEditors.Controls + +Public Class frmMonitor + Public Property LogConfig As LogConfig + Public Property ConfigManager As ConfigManager(Of Config) + Public Property Database As MSSQLServer + + Private ReadOnly SearchKeys As New List(Of SearchKey) + + Private ReadOnly SQLColumns As New List(Of String) From {"SELECT1", "SELECT2", "SELECT3", "SELECT4"} + Private ReadOnly DocViewColumns As New List(Of String) From {"DOCVIEW1", "DOCVIEW2"} + Private ReadOnly HtmlViewColumns As New List(Of String) From {"HTML1", "HTML2"} + Private ReadOnly DataColumns As List(Of String) = SQLColumns. + Concat(DocViewColumns). + Concat(HtmlViewColumns). + ToList + + Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN", "STATE", "ICON"} + + + + + Private SQLResultGrids As List(Of GridControl) + Private SQLResultTabs As List(Of XtraTabPage) + Private ActiveSQLResultGrid As GridControl + + Private FileResultViewers As List(Of DocumentViewer) + Private FileResultTabs As List(Of XtraTabPage) + + Private HtmlResultViewers As List(Of RichEditControl) + 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" + Private Const STATE_WAITING As String = "WAITING" + Private Const STATE_HIGHLIGHT As String = "HIGHLIGHT" + + + Private Enum NodeImage + [Default] = 0 + SQL = 1 + File = 2 + Mail = 3 + Success = 4 + Failure = 5 + Warning = 6 + Waiting = 7 + User = 8 + Highlight = 9 + End Enum + + Private ReadOnly StateIcons As New Dictionary(Of String, NodeImage) From { + {STATE_SUCCESS, NodeImage.Success}, + {STATE_FAILURE, NodeImage.Failure} + } + + Private GridBuilder As GridBuilder + + Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor") + ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.UserAppDataPath, Application.StartupPath) + InitializeBaseForm(LogConfig) + + If ConfigManager.Config.ConnectionString = String.Empty Then + Dim oSQLConfig As New frmSQLConfig(LogConfig) + If oSQLConfig.ShowDialog() = DialogResult.OK Then + ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString + ConfigManager.Save() + Application.Restart() + Else + ShowErrorMessage("No Database configured. Application will close!") + Application.Exit() + + End If + End If + If ConfigManager.Config.IDB_Praefix <> "" Then + If ConfigManager.Config.SearchKeySQL.Contains("@IDB_PRAEFIX") Then + Dim oREPLACE = ConfigManager.Config.SearchKeySQL.Replace("@IDB_PRAEFIX", ConfigManager.Config.IDB_Praefix) + ConfigManager.Config.SearchKeySQL = oREPLACE + ConfigManager.Save() + End If + Console.WriteLine(ConfigManager.Config.SearchKeySQL) + + End If + Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString) + Database = New MSSQLServer(LogConfig, oConnectionString) + GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4}) + GridBuilder. + WithDefaults(). + WithDefaults(TreeListResults). + WithReadOnlyOptions(). + WithReadOnlyOptions(TreeListResults) + + SQLResultGrids = New List(Of GridControl) From {GridControl1, GridControl2, GridControl3, GridControl4} + SQLResultTabs = New List(Of XtraTabPage) From {XtraTabPageSQL1, XtraTabPageSQL2, XtraTabPageSQL3, XtraTabPageSQL4} + + FileResultViewers = New List(Of DocumentViewer) From {DocumentViewer1, DocumentViewer2} + FileResultTabs = New List(Of XtraTabPage) From {XtraTabPageFile1, XtraTabPageFile2} + + HtmlResultViewers = New List(Of RichEditControl) From {RichEditControl1, RichEditControl2} + HtmlResultTabs = New List(Of XtraTabPage) From {XtraTabPageHtml1, XtraTabPageHtml2} + + LoadSearchKeys() + + Dim oLicense = LoadGDPicture() + + For Each oGrid In SQLResultGrids + AddHandler oGrid.Enter, Sub() + ActiveSQLResultGrid = oGrid + BarButtonItem2.Enabled = True + End Sub + + AddHandler oGrid.Leave, Sub() + ActiveSQLResultGrid = Nothing + BarButtonItem2.Enabled = False + End Sub + Next + + + For Each oViewer As DocumentViewer In FileResultViewers + oViewer.Init(LogConfig, oLicense) + Next + SplitContainerControl3.Collapsed = True + SplitContainerControl2.Collapsed = True + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Private Function LoadGDPicture() As String + Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'" + Return Database.GetScalarValue(oSQL) + End Function + + Private Sub buttonSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonSearch.ItemClick + LoadData() + End Sub + + Private Function LoadData() As Boolean + Try + + + Dim oSQL As String = $"EXEC [{ConfigManager.Config.IDB_Praefix}].[dbo].[PRDD_MONITORING_GET_TREEVIEW_RESULT] '{cmbSearchKeys.EditValue}','{TextEdit1.EditValue.ToString}',1" + Dim oTable As DataTable = Database.GetDatatable(oSQL) + + TreeListResults.DataSource = oTable + TreeListResults.PopulateColumns() + + InitTreeList() + + ' Show all columns in DisplayColumns List + For Each oColumn In TreeListResults.Columns + oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName) + If oColumn.FieldName = "ADDED_WHEN" Then + oColumn.Format.FormatType = FormatType.DateTime + oColumn.Format.FormatString = "dd.MM.yyyy HH:MM:ss" + End If + + Next + 'Dim edit As New RepositoryItemDateEdit() + 'TreeListResults.Columns("ADDED_WHEN").ColumnEdit = edit + 'edit.Mask.EditMask = "g" + 'edit.Mask.UseMaskAsDisplayFormat = True + Dim oStateColumn As TreeListColumn = TreeListResults.Columns.Item("STATE") + + For Each oNode As TreeListNode In TreeListResults.Nodes + ExpandNodes(oNode, Function(n) + Dim oObjectValue = n.GetValue(oStateColumn) + Dim oValue As String = NotNull(oObjectValue, String.Empty) + Return oValue IsNot Nothing AndAlso (oValue = STATE_WARNING Or oValue = STATE_FAILURE) + End Function) + Next + Return True + Catch ex As Exception + ShowErrorMessage(ex) + Return False + End Try + End Function + + Private Sub LoadSearchKeys() + Try + Dim oSQL = ConfigManager.Config.SearchKeySQL + Dim oTable = Database.GetDatatable(oSQL) + + For Each oRow As DataRow In oTable.Rows + SearchKeys.Add(New SearchKey With { + .Id = CInt(oRow.Item(0)), + .Title = oRow.Item(1).ToString, + .TypeName = "Varchar"'oRow.Item(2).ToString + }) + Next + + cmbSearchKeys.Properties.Items.Clear() + cmbSearchKeys.Properties.Items.AddRange(SearchKeys) + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Private Sub InitTreeList() + TreeListResults.KeyFieldName = "GUID" + TreeListResults.ParentFieldName = "PARENT_ID" + + Dim oStateEdit As New RepositoryItemImageComboBox With { + .SmallImages = SvgImageCollection1, + .GlyphAlignment = HorzAlignment.Near + } + oStateEdit.Buttons.Clear() + oStateEdit.Items.AddRange(New List(Of ImageComboBoxItem) From { + New ImageComboBoxItem("Success", "SUCCESS", NodeImage.Success), + New ImageComboBoxItem("Failure", "FAILURE", NodeImage.Failure), + New ImageComboBoxItem("Warning", "WARNING", NodeImage.Warning), + New ImageComboBoxItem("Waiting", "WAITING", NodeImage.Waiting), + New ImageComboBoxItem("Default", "DEFAULT", NodeImage.Default), + New ImageComboBoxItem("User", "USER", NodeImage.User), + New ImageComboBoxItem("Highlight", "HIGHLIGHT", NodeImage.Highlight) + }) + + Dim oIconEdit As New RepositoryItemImageComboBox With { + .SmallImages = SvgImageCollection1, + .GlyphAlignment = HorzAlignment.Near + } + oStateEdit.Buttons.Clear() + oStateEdit.Items.AddRange(New List(Of ImageComboBoxItem) From { + New ImageComboBoxItem("Email", "MAIL", NodeImage.Mail), + New ImageComboBoxItem("SQL", "SQL", NodeImage.SQL), + New ImageComboBoxItem("File", "FILE", NodeImage.File) + }) + + Dim oColumn1 = TreeListResults.Columns.Item("COLUMN1") + Dim oStateColumn = TreeListResults.Columns.Item("STATE") + Dim oIconColumn = TreeListResults.Columns.Item("ICON") + + oColumn1.VisibleIndex = 0 + oStateColumn.VisibleIndex = 1 + oIconColumn.VisibleIndex = 2 + + With oStateColumn + .ColumnEdit = oStateEdit + .MaxWidth = 25 + .MinWidth = 25 + .Caption = " " + .ImageOptions.Image = SvgImageCollection1.GetImage(NodeImage.Success) + End With + + With oIconColumn + .ColumnEdit = oStateEdit + .MaxWidth = 25 + .MinWidth = 25 + .Caption = " " + .ImageOptions.Image = SvgImageCollection1.GetImage(NodeImage.SQL) + End With + + End Sub + + Private Sub cmbSearchKeys_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbSearchKeys.SelectedValueChanged + Dim oItem As SearchKey = CType(cmbSearchKeys.SelectedItem, SearchKey) + + Select Case oItem.TypeName + Case "VARCHAR" + LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + TextEdit1.EditValue = String.Empty + Case "DATE" + LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + + Case Else + LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + BarStaticItem1.Caption = "oItem.TypeName=" + oItem.TypeName + + End Select + End Sub + + Private Sub TreeListResults_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListResults.FocusedNodeChanged + If e.Node Is Nothing Then + Exit Sub + End If + + Dim oValues As Dictionary(Of String, String) = GetValuesFromNode(e.Node, DataColumns) + + Dim oSQLCommands = oValues. + Where(Function(v) v.Key.StartsWith("SELECT")). + Where(Function(v) v.Value IsNot Nothing). + ToDictionary(Function(v) v.Key, Function(v) v.Value) + + Dim oFilePaths = oValues. + Where(Function(v) v.Key.StartsWith("DOCVIEW")). + Where(Function(v) v.Value IsNot Nothing). + ToDictionary(Function(v) v.Key, Function(v) v.Value) + + Dim oHtmlDocuments = oValues. + Where(Function(v) v.Key.StartsWith("HTML")). + Where(Function(v) v.Value IsNot Nothing). + ToDictionary(Function(v) v.Key, Function(v) v.Value) + + Dim oAllTabs = SQLResultTabs. + Concat(FileResultTabs). + Concat(HtmlResultTabs) + For Each oTabPage In oAllTabs + oTabPage.PageVisible = False + Next + + SplitContainerControl3.Collapsed = oSQLCommands.Count = 0 + SplitContainerControl2.Collapsed = (oFilePaths.Count + oHtmlDocuments.Count) = 0 + + For Each oSQLCommand As KeyValuePair(Of String, String) In oSQLCommands + Try + Dim oExtracted = ExtractTitle(oSQLCommand.Value) + Dim oCommand = oExtracted.Item1 + Dim oTitle = oExtracted.Item2 + + Dim oTable As DataTable = Database.GetDatatable(oCommand) + + If oTable Is Nothing Then + Continue For + End If + + Dim oGridIndex = Integer.Parse(oSQLCommand.Key.Last()) - 1 + Dim oGridControl As GridControl = SQLResultGrids.Item(oGridIndex) + + FillResultGrid(oGridControl, oTable, oTitle) + Catch ex As Exception + Logger.Error(ex) + Continue For + End Try + Next + + For Each oFile As KeyValuePair(Of String, String) In oFilePaths + Try + Dim oExtracted = ExtractTitle(oFile.Value) + Dim oPath = oExtracted.Item1 + Dim oTitle = oExtracted.Item2 + + If oPath Is Nothing Then + Continue For + End If + + If Not IO.File.Exists(oPath) Then + Continue For + End If + + Dim oViewerIndex = Integer.Parse(oFile.Key.Last()) - 1 + Dim oViewer As DocumentViewer = FileResultViewers.Item(oViewerIndex) + + FillResultViewer(oViewer, oPath, oTitle) + Catch ex As Exception + Logger.Error(ex) + Continue For + End Try + Next + + For Each oFile As KeyValuePair(Of String, String) In oHtmlDocuments + Try + Dim oExtracted = ExtractTitle(oFile.Value) + Dim oHtml = oExtracted.Item1 + Dim oTitle = oExtracted.Item2 + + If oHtml Is Nothing Then + Continue For + End If + + Dim oViewerIndex = Integer.Parse(oFile.Key.Last()) - 1 + Dim oViewer As RichEditControl = HtmlResultViewers.Item(oViewerIndex) + + FillResultHtmlViewer(oViewer, oHtml, oTitle) + Catch ex As Exception + Logger.Error(ex) + Continue For + End Try + Next + End Sub + + Private Function ExtractTitle(Value As String) As Tuple(Of String, String) + If Value.Contains("|"c) Then + Dim oSplit = Value.Split("|"c).ToList + Dim oValue = oSplit.First() + Dim oTitle = oSplit.Item(1) + + Return New Tuple(Of String, String)(oValue, oTitle) + End If + + Return New Tuple(Of String, String)(Value, Nothing) + End Function + + Private Sub ExpandNodes(RootNode As TreeListNode, Condition As Predicate(Of TreeListNode)) + For Each oNode As TreeListNode In RootNode.Nodes + ExpandNodes(oNode, Condition) + + If Condition(oNode) = True Then + oNode.Expand() + ExpandParentNode(oNode) + End If + Next + End Sub + + Private Sub ExpandParentNode(ChildNode As TreeListNode) + If ChildNode.ParentNode IsNot Nothing Then + ChildNode.ParentNode.Expand() + ExpandParentNode(ChildNode.ParentNode) + End If + End Sub + + Private Sub FillResultHtmlViewer(RichEditControl As RichEditControl, Html As String, Title As String) + RichEditControl.HtmlText = Html + + Dim oTabPage = DirectCast(RichEditControl.Parent, XtraTabPage) + oTabPage.PageVisible = True + oTabPage.Text = NotNull(Title, oTabPage.Text) + + XtraTabControl1.SelectedTabPage = oTabPage + End Sub + + Private Sub FillResultViewer(DocumentViewer As DocumentViewer, Path As String, Title As String) + DocumentViewer.LoadFile(Path) + + Dim oTabPage = DirectCast(DocumentViewer.Parent, XtraTabPage) + oTabPage.PageVisible = True + oTabPage.Text = NotNull(Title, oTabPage.Text) + + XtraTabControl1.SelectedTabPage = oTabPage + End Sub + + Private Sub FillResultGrid(GridControl As GridControl, Table As DataTable, Title As String) + GridControl.DataSource = Table + + Dim oTabPage = DirectCast(GridControl.Parent, XtraTabPage) + oTabPage.PageVisible = True + oTabPage.Text = NotNull(Title, oTabPage.Text) + + XtraTabControl3.SelectedTabPage = oTabPage + End Sub + + Private Function GetValuesFromNode(Node As TreeListNode, ColumnNames As List(Of String)) As Dictionary(Of String, String) + Dim oValues As New Dictionary(Of String, String) + + For Each oColumnName In ColumnNames + Dim oValue = MaybeGetValueForColumn(Node, oColumnName) + oValues.Add(oColumnName, oValue) + Next + + Return oValues + End Function + + Private Function MaybeGetValueForColumn(Node As TreeListNode, FieldName As String) As String + Dim oColumn = TreeListResults.Columns.Item(FieldName) + + If oColumn Is Nothing Then + Return Nothing + End If + + Dim oValue = Node.GetValue(oColumn)?.ToString + + If oValue Is String.Empty Then + Return Nothing + Else + Return oValue + End If + End Function + + Private Sub TreeListResults_CustomDrawNodeCell(sender As Object, e As DevExpress.XtraTreeList.CustomDrawNodeCellEventArgs) Handles TreeListResults.CustomDrawNodeCell + Dim oColumn = TreeListResults.Columns.Item("STATE") + Dim oState = NotNull(e.Node.GetValue(oColumn), Nothing) + + If oState Is Nothing Then + Exit Sub + End If + + Dim oColor As Color = Nothing + + Select Case oState.ToString + Case STATE_SUCCESS + oColor = Color.LightGreen + Case STATE_FAILURE + oColor = Color.LightCoral + Case STATE_WARNING + oColor = Color.Yellow + Case STATE_WAITING + oColor = Color.LightSkyBlue + End Select + + e.Appearance.BackColor = oColor + e.Appearance.Options.UseBackColor = True + e.Handled = False + End Sub + + Private Sub TreeListResults_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs) Handles TreeListResults.GetStateImage + 'Dim oValues As Dictionary(Of String, String) = GetValuesFromNode(e.Node, DataColumns) + 'Dim oSQLCommands = oValues. + ' Where(Function(v) v.Key.StartsWith("SELECT")). + ' Where(Function(v) v.Value IsNot Nothing). + ' Count() + + 'Dim oFilePaths = oValues. + ' Where(Function(v) v.Key.StartsWith("DOCVIEW")). + ' Where(Function(v) v.Value IsNot Nothing). + ' Count() + + 'Dim oHtmlDocuments = oValues. + ' Where(Function(v) v.Key.StartsWith("HTML")). + ' Where(Function(v) v.Value IsNot Nothing). + ' Count() + + 'Dim oIconColumn = TreeListResults.Columns.Item("ICON") + 'Dim oIcon = NotNull(e.Node.GetValue(oIconColumn), Nothing) + 'Dim oStateColumn = TreeListResults.Columns.Item("STATE") + 'Dim oState = NotNull(e.Node.GetValue(oStateColumn), Nothing) + + 'If oSQLCommands > 0 Then + ' e.NodeImageIndex = NodeImage.SQL + 'ElseIf oFilePaths > 0 Then + ' e.NodeImageIndex = NodeImage.File + 'ElseIf oHtmlDocuments > 0 Then + ' e.NodeImageIndex = NodeImage.Mail + 'Else + ' If oState IsNot Nothing AndAlso StateIcons.ContainsKey(oState) Then + ' Dim oIconIndex = StateIcons.Item(oState) + ' e.NodeImageIndex = oIconIndex + ' Else + ' e.NodeImageIndex = NodeImage.Default + ' End If + 'End If + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Dim oSQLConfig As New frmSQLConfig(LogConfig) + If oSQLConfig.ShowDialog() = DialogResult.OK Then + ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString + ConfigManager.Save() + + Database = New MSSQLServer(LogConfig, oSQLConfig.ConnectionString) + + LoadSearchKeys() + End If + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + If ActiveSQLResultGrid IsNot Nothing Then + XtraSaveFileDialog1.Filter = "Excel Files (*.xlsx)|*.xlsx" + + If XtraSaveFileDialog1.ShowDialog() = DialogResult.OK Then + ActiveSQLResultGrid.ExportToXlsx(XtraSaveFileDialog1.FileName) + End If + End If + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + XtraSaveFileDialog1.Filter = "Excel Files (*.xlsx)|*.xlsx" + + If XtraSaveFileDialog1.ShowDialog() = DialogResult.OK Then + TreeListResults.ExportToXlsx(XtraSaveFileDialog1.FileName) + End If + End Sub +End Class + +Friend Class SearchKey + Public Id As Integer + Public Title As String + Public TypeName As String + + Public Overrides Function ToString() As String + Return Title + End Function +End Class