diff --git a/Monitor/App.config b/Monitor/App.config deleted file mode 100644 index ffaf540..0000000 --- a/Monitor/App.config +++ /dev/null @@ -1,6 +0,0 @@ - - - - - - \ No newline at end of file diff --git a/Monitor/Form1.Designer.vb b/Monitor/Form1.Designer.vb deleted file mode 100644 index 04ef8d0..0000000 --- a/Monitor/Form1.Designer.vb +++ /dev/null @@ -1,31 +0,0 @@ - _ -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 deleted file mode 100644 index 17d6595..0000000 --- a/Monitor/Form1.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class Form1 - -End Class diff --git a/Monitor/Monitor.sln b/Monitor/Monitor.sln deleted file mode 100644 index 5830dad..0000000 --- a/Monitor/Monitor.sln +++ /dev/null @@ -1,25 +0,0 @@ - -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 deleted file mode 100644 index 8d47b45..0000000 --- a/Monitor/Monitor.vbproj +++ /dev/null @@ -1,120 +0,0 @@ - - - - - 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 deleted file mode 100644 index 3065a1e..0000000 --- a/Monitor/My Project/Application.Designer.vb +++ /dev/null @@ -1,38 +0,0 @@ -'------------------------------------------------------------------------------ -' -' 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 deleted file mode 100644 index 1243847..0000000 --- a/Monitor/My Project/Application.myapp +++ /dev/null @@ -1,11 +0,0 @@ - - - true - Form1 - false - 0 - true - 0 - 0 - true - diff --git a/Monitor/My Project/AssemblyInfo.vb b/Monitor/My Project/AssemblyInfo.vb deleted file mode 100644 index 7bcd408..0000000 --- a/Monitor/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,35 +0,0 @@ -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 deleted file mode 100644 index 11c5de9..0000000 --- a/Monitor/My Project/Resources.Designer.vb +++ /dev/null @@ -1,62 +0,0 @@ -'------------------------------------------------------------------------------ -' -' 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 deleted file mode 100644 index af7dbeb..0000000 --- a/Monitor/My Project/Resources.resx +++ /dev/null @@ -1,117 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 deleted file mode 100644 index ab1c09a..0000000 --- a/Monitor/My Project/Settings.Designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' 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 deleted file mode 100644 index 85b890b..0000000 --- a/Monitor/My Project/Settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/Monitor/frmMonitor.designer.vb b/Monitor/frmMonitor.designer.vb deleted file mode 100644 index 004e119..0000000 --- a/Monitor/frmMonitor.designer.vb +++ /dev/null @@ -1,725 +0,0 @@ -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 deleted file mode 100644 index 1d78dfe..0000000 --- a/Monitor/frmMonitor.resx +++ /dev/null @@ -1,199 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 deleted file mode 100644 index d727ac6..0000000 --- a/Monitor/frmMonitor.vb +++ /dev/null @@ -1,583 +0,0 @@ -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