From f681a6bc699c49b9d91b0a1e049e8355ff9e6661 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 21 May 2021 16:31:35 +0200
Subject: [PATCH] Monitor

---
 GUIs.Monitor/Monitor.vbproj                   |  9 +++
 GUIs.Monitor/My Project/Resources.Designer.vb | 30 ++++++++
 GUIs.Monitor/My Project/Resources.resx        | 13 +++-
 GUIs.Monitor/Resources/bo_dashboard.svg       | 27 +++++++
 GUIs.Monitor/Resources/enablesearch.svg       | 17 +++++
 GUIs.Monitor/Resources/managedatasource.svg   |  9 +++
 GUIs.Monitor/app.config                       | 34 ++++++++-
 GUIs.Monitor/frmMonitor.Designer.vb           | 71 +++++++++++++------
 GUIs.Monitor/frmMonitor.resx                  |  3 +
 GUIs.Monitor/frmMonitor.vb                    | 61 +++++++++++-----
 10 files changed, 229 insertions(+), 45 deletions(-)
 create mode 100644 GUIs.Monitor/Resources/bo_dashboard.svg
 create mode 100644 GUIs.Monitor/Resources/enablesearch.svg
 create mode 100644 GUIs.Monitor/Resources/managedatasource.svg

diff --git a/GUIs.Monitor/Monitor.vbproj b/GUIs.Monitor/Monitor.vbproj
index 15a22406..f98aea71 100644
--- a/GUIs.Monitor/Monitor.vbproj
+++ b/GUIs.Monitor/Monitor.vbproj
@@ -177,6 +177,15 @@
   <ItemGroup>
     <None Include="Resources\gettingstarted.svg" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\enablesearch.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\bo_dashboard.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\managedatasource.svg" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
        Other similar extension points exist, see Microsoft.Common.targets.
diff --git a/GUIs.Monitor/My Project/Resources.Designer.vb b/GUIs.Monitor/My Project/Resources.Designer.vb
index 399dcc71..9309f012 100644
--- a/GUIs.Monitor/My Project/Resources.Designer.vb	
+++ b/GUIs.Monitor/My Project/Resources.Designer.vb	
@@ -60,6 +60,16 @@ Namespace My.Resources
             End Set
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        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
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -70,6 +80,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        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
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -79,5 +99,15 @@ Namespace My.Resources
                 Return CType(obj,DevExpress.Utils.Svg.SvgImage)
             End Get
         End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        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
index 5b4149d6..834b81fb 100644
--- a/GUIs.Monitor/My Project/Resources.resx	
+++ b/GUIs.Monitor/My Project/Resources.resx	
@@ -118,10 +118,19 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="gettingstarted" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\gettingstarted.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="bo_dashboard" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\bo_dashboard.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="enablesearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\enablesearch.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="charttype_line" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\charttype_line.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="gettingstarted" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\gettingstarted.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  <data name="managedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\managedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>
\ 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 00000000..709c4d77
--- /dev/null
+++ b/GUIs.Monitor/Resources/bo_dashboard.svg
@@ -0,0 +1,27 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+	.st2{display:none;}
+	.st3{display:inline;fill:#FFB115;}
+	.st4{display:inline;}
+	.st5{display:inline;opacity:0.75;}
+	.st6{display:inline;opacity:0.5;}
+	.st7{display:inline;fill:#039C23;}
+	.st8{display:inline;fill:#D11C1C;}
+	.st9{display:inline;fill:#1177D7;}
+	.st10{display:inline;fill:#FFFFFF;}
+</style>
+  <g id="Dashboard">
+    <path d="M26.3,5.1L16.4,15l9.9,9.9c2.3-2.6,3.7-6.1,3.7-9.9S28.6,7.8,26.3,5.1z" class="Blue" />
+    <path d="M14,16v-1v-0.4L24.9,3.7C22.2,1.4,18.8,0,15,0C6.7,0,0,6.7,0,15c0,7.9,6.2,14.4,14,14.9V16z" class="Red" />
+    <path d="M16,29.9c3.4-0.2,6.5-1.6,8.9-3.7L16,17.4V29.9z" class="Yellow" />
+  </g>
+</svg>
\ 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 00000000..5e415948
--- /dev/null
+++ b/GUIs.Monitor/Resources/enablesearch.svg
@@ -0,0 +1,17 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.Red{fill:#D11C1C;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+</style>
+  <g id="EnableSearch">
+    <path d="M14.5,17.8C10.8,17.1,8,13.9,8,10c0-4.4,3.6-8,8-8s8,3.6,8,8c0,1.5-0.4,2.8-1.1,4c0,0,0.1,0,0.1,0   c0.7,0,1.4,0.1,2.1,0.2c0.6-1.3,0.9-2.7,0.9-4.2c0-5.5-4.5-10-10-10C10.5,0,6,4.5,6,10c0,2.1,0.7,4.1,1.8,5.7l-7.5,7.6   c-0.4,0.3-0.4,0.9,0,1.3l1.2,1.2c0.3,0.3,0.9,0.3,1.2,0l7.6-7.6c0.9,0.6,1.9,1.1,2.9,1.4C13.6,19,14,18.4,14.5,17.8z" class="Blue" />
+    <path d="M23,16c-4.4,0-8.1,3-9,7c0.9,4,4.6,7,9,7c4.4,0,8.1-3,9-7C31.1,19,27.4,16,23,16z M23,28c-3.3,0-6.1-2-7-5   c0.9-3,3.7-5,7-5s6.1,2,7,5C29.1,26,26.3,28,23,28z M23,26c-1.7,0-3-1.3-3-3s1.3-3,3-3s3,1.3,3,3S24.7,26,23,26z" class="Black" />
+  </g>
+</svg>
\ 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 00000000..d08be544
--- /dev/null
+++ b/GUIs.Monitor/Resources/managedatasource.svg
@@ -0,0 +1,9 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Manage_Data_Source" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+</style>
+  <path d="M2,10V6c0-2.2,4.5-4,10-4s10,1.8,10,4v4c0,2.2-4.5,4-10,4S2,12.2,2,10z M12,20v-0.7l2.5-0.4L13,16.8l1-0.9  C13.3,16,12.7,16,12,16c-5.5,0-10-1.8-10-4v4C2,18.2,6.5,20,12,20z M14.5,25.1L12,24.7V22c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4  c0.7,0,1.3,0,1.9-0.1L14.5,25.1z" class="Yellow" />
+  <path d="M30,23v-2l-2.2-0.4c-0.2-0.6-0.4-1.3-0.7-1.8l1.3-1.8l-1.4-1.4l-1.8,1.3c-0.5-0.3-1.2-0.6-1.8-0.7L23,14h-2  l-0.4,2.2c-0.6,0.2-1.3,0.4-1.8,0.7l-1.8-1.3l-1.4,1.4l1.3,1.8c-0.3,0.5-0.6,1.2-0.7,1.8L14,21v2l2.2,0.4c0.2,0.6,0.4,1.3,0.7,1.8  l-1.3,1.8l1.4,1.4l1.8-1.3c0.5,0.3,1.2,0.6,1.8,0.7L21,30h2l0.4-2.2c0.6-0.2,1.3-0.4,1.8-0.7l1.8,1.3l1.4-1.4l-1.3-1.8  c0.3-0.5,0.6-1.2,0.7-1.8L30,23z M22,24c-1.1,0-2-0.9-2-2s0.9-2,2-2s2,0.9,2,2S23.1,24,22,24z" class="Blue" />
+</svg>
\ No newline at end of file
diff --git a/GUIs.Monitor/app.config b/GUIs.Monitor/app.config
index f6588b78..996e16ad 100644
--- a/GUIs.Monitor/app.config
+++ b/GUIs.Monitor/app.config
@@ -11,7 +11,37 @@
         <value>System</value>
       </setting>
       <setting name="RegisterBonusSkins" serializeAs="String">
-        <value>True</value>
+        <value></value>
+      </setting>
+      <setting name="DefaultAppSkin" serializeAs="String">
+        <value>Skin/Office 2019 Colorful</value>
+      </setting>
+      <setting name="DefaultPalette" serializeAs="String">
+        <value>Fire Brick</value>
+      </setting>
+      <setting name="TouchUI" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="CompactUI" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="TouchScaleFactor" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="DirectX" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="RegisterUserSkins" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="FontBehavior" serializeAs="String">
+        <value>UseSegoeUI</value>
+      </setting>
+      <setting name="DefaultAppFont" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="CustomPaletteCollection" serializeAs="Xml">
+        <value />
       </setting>
     </DevExpress.LookAndFeel.Design.AppSettings>
   </applicationSettings>
@@ -46,4 +76,4 @@
       </dependentAssembly>
     </assemblyBinding>
   </runtime>
-</configuration>
+</configuration>
\ No newline at end of file
diff --git a/GUIs.Monitor/frmMonitor.Designer.vb b/GUIs.Monitor/frmMonitor.Designer.vb
index c4902e72..1019b54f 100644
--- a/GUIs.Monitor/frmMonitor.Designer.vb
+++ b/GUIs.Monitor/frmMonitor.Designer.vb
@@ -27,6 +27,8 @@ Partial Class frmMonitor
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         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.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -73,6 +75,7 @@ Partial Class frmMonitor
         Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
         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()
@@ -120,14 +123,30 @@ Partial Class frmMonitor
         '
         '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.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch, Me.BarButtonItem1})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 2
+        Me.RibbonControl1.MaxItemId = 3
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
-        Me.RibbonControl1.Size = New System.Drawing.Size(1379, 158)
+        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
         '
@@ -140,7 +159,7 @@ Partial Class frmMonitor
         '
         Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
         Me.RibbonPage1.Name = "RibbonPage1"
-        Me.RibbonPage1.Text = "RibbonPage1"
+        Me.RibbonPage1.Text = "Start"
         '
         'RibbonPageGroup1
         '
@@ -150,10 +169,10 @@ Partial Class frmMonitor
         '
         'RibbonStatusBar1
         '
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 747)
+        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, 24)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1379, 22)
         '
         'RibbonPage2
         '
@@ -233,7 +252,7 @@ Partial Class frmMonitor
         Me.LayoutItemSearchValue_Text.Size = New System.Drawing.Size(215, 46)
         Me.LayoutItemSearchValue_Text.Text = "Suchwert"
         Me.LayoutItemSearchValue_Text.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutItemSearchValue_Text.TextSize = New System.Drawing.Size(58, 13)
+        Me.LayoutItemSearchValue_Text.TextSize = New System.Drawing.Size(63, 13)
         '
         'LayoutControlItem2
         '
@@ -244,7 +263,7 @@ Partial Class frmMonitor
         Me.LayoutControlItem2.Size = New System.Drawing.Size(215, 46)
         Me.LayoutControlItem2.Text = "Attribut"
         Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(58, 13)
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(63, 13)
         '
         'LayoutItemSearchValue_Date
         '
@@ -255,7 +274,7 @@ Partial Class frmMonitor
         Me.LayoutItemSearchValue_Date.Size = New System.Drawing.Size(215, 46)
         Me.LayoutItemSearchValue_Date.Text = "Suchwert"
         Me.LayoutItemSearchValue_Date.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutItemSearchValue_Date.TextSize = New System.Drawing.Size(58, 13)
+        Me.LayoutItemSearchValue_Date.TextSize = New System.Drawing.Size(63, 13)
         Me.LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
         '
         'LayoutControlItem3
@@ -267,7 +286,7 @@ Partial Class frmMonitor
         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(58, 13)
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(63, 13)
         '
         'XtraTabControl1
         '
@@ -283,7 +302,7 @@ Partial Class frmMonitor
         '
         Me.XtraTabPageFile1.Controls.Add(Me.DocumentViewer1)
         Me.XtraTabPageFile1.Name = "XtraTabPageFile1"
-        Me.XtraTabPageFile1.Size = New System.Drawing.Size(407, 539)
+        Me.XtraTabPageFile1.Size = New System.Drawing.Size(407, 541)
         Me.XtraTabPageFile1.Text = "File 1"
         '
         'DocumentViewer1
@@ -292,14 +311,14 @@ Partial Class frmMonitor
         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, 539)
+        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, 539)
+        Me.XtraTabPageFile2.Size = New System.Drawing.Size(407, 541)
         Me.XtraTabPageFile2.Text = "File 2"
         '
         'DocumentViewer2
@@ -308,14 +327,14 @@ Partial Class frmMonitor
         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, 539)
+        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, 539)
+        Me.XtraTabPageHtml1.Size = New System.Drawing.Size(407, 541)
         Me.XtraTabPageHtml1.Text = "HTML 1"
         '
         'RichEditControl1
@@ -328,7 +347,7 @@ Partial Class frmMonitor
         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, 539)
+        Me.RichEditControl1.Size = New System.Drawing.Size(407, 541)
         Me.RichEditControl1.TabIndex = 0
         Me.RichEditControl1.Text = "RichEditControl1"
         '
@@ -336,7 +355,7 @@ Partial Class frmMonitor
         '
         Me.XtraTabPageHtml2.Controls.Add(Me.RichEditControl2)
         Me.XtraTabPageHtml2.Name = "XtraTabPageHtml2"
-        Me.XtraTabPageHtml2.Size = New System.Drawing.Size(407, 539)
+        Me.XtraTabPageHtml2.Size = New System.Drawing.Size(407, 541)
         Me.XtraTabPageHtml2.Text = "HTML 2"
         '
         'RichEditControl2
@@ -345,7 +364,7 @@ Partial Class frmMonitor
         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, 539)
+        Me.RichEditControl2.Size = New System.Drawing.Size(407, 541)
         Me.RichEditControl2.TabIndex = 1
         Me.RichEditControl2.Text = "RichEditControl2"
         '
@@ -384,6 +403,7 @@ Partial Class frmMonitor
         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")
         '
         'SplitContainerControl1
         '
@@ -518,25 +538,29 @@ Partial Class frmMonitor
         'XtraTabControl2
         '
         Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControl2.Location = New System.Drawing.Point(0, 158)
+        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, 589)
+        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 = "XtraTabPage3"
+        Me.XtraTabPage3.Text = "Attribut Suche"
         '
         '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 = "XtraTabPage4"
+        Me.XtraTabPage4.Text = "Auswertungen"
         '
         'frmMonitor
         '
@@ -552,6 +576,7 @@ Partial Class frmMonitor
         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()
@@ -646,4 +671,6 @@ Partial Class frmMonitor
     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
 End Class
diff --git a/GUIs.Monitor/frmMonitor.resx b/GUIs.Monitor/frmMonitor.resx
index f722219e..ace14308 100644
--- a/GUIs.Monitor/frmMonitor.resx
+++ b/GUIs.Monitor/frmMonitor.resx
@@ -117,6 +117,9 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ApplicationMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>183, 17</value>
+  </metadata>
   <metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
diff --git a/GUIs.Monitor/frmMonitor.vb b/GUIs.Monitor/frmMonitor.vb
index 4307caba..c8151a50 100644
--- a/GUIs.Monitor/frmMonitor.vb
+++ b/GUIs.Monitor/frmMonitor.vb
@@ -27,7 +27,10 @@ Public Class frmMonitor
         Concat(HtmlViewColumns).
         ToList
 
-    Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3"}
+    Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN"}
+
+
+
 
     Private SQLResultGrids As List(Of GridControl)
     Private SQLResultTabs As List(Of XtraTabPage)
@@ -38,6 +41,9 @@ Public Class frmMonitor
     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 Enum NodeImage
         [Default] = 0
         SQL = 1
@@ -46,8 +52,14 @@ Public Class frmMonitor
         Success = 4
         Failure = 5
         Warning = 6
+        Waiting = 7
     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
@@ -99,7 +111,7 @@ Public Class frmMonitor
 
     Private Function LoadGDPicture() As String
         Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'"
-        Return Database.GetScalarValue(oSQL)
+        Return Database.GetScalarValue(oSQL).ToString()
     End Function
 
     Private Sub buttonSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonSearch.ItemClick
@@ -270,9 +282,9 @@ Public Class frmMonitor
             ExpandNodes(oNode)
 
             Dim oColumn = TreeListResults.Columns.Item("COLOR")
-            Dim oColorString = NotNull(oNode.GetValue(oColumn), Nothing)
+            Dim oColorString As String = NotNull(oNode.GetValue(oColumn), String.Empty)
 
-            If oColorString IsNot Nothing AndAlso oColorString = "Red" Then
+            If oColorString = "Red" Then
                 oNode.Expand()
                 ExpandParentNode(oNode)
             End If
@@ -338,19 +350,19 @@ Public Class frmMonitor
     End Function
 
     Private Sub TreeListResults_CustomDrawNodeCell(sender As Object, e As DevExpress.XtraTreeList.CustomDrawNodeCellEventArgs) Handles TreeListResults.CustomDrawNodeCell
-        Dim oColumn = TreeListResults.Columns.Item("COLOR")
-        Dim oColorString = NotNull(e.Node.GetValue(oColumn), Nothing)
+        Dim oColumn = TreeListResults.Columns.Item("STATE")
+        Dim oState = NotNull(e.Node.GetValue(oColumn), Nothing)
 
-        If oColorString Is Nothing Then
+        If oState Is Nothing Then
             Exit Sub
         End If
 
         Dim oColor As Color = Nothing
 
-        Select Case oColorString.ToString
-            Case "Green"
+        Select Case oState.ToString
+            Case STATE_SUCCESS
                 oColor = Color.LightGreen
-            Case "Red"
+            Case STATE_FAILURE
                 oColor = Color.LightCoral
         End Select
 
@@ -376,8 +388,10 @@ Public Class frmMonitor
             Where(Function(v) v.Value IsNot Nothing).
             Count()
 
-        Dim oColumn = TreeListResults.Columns.Item("COLOR")
-        Dim oColorString = NotNull(e.Node.GetValue(oColumn), Nothing)
+        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
@@ -386,17 +400,26 @@ Public Class frmMonitor
         ElseIf oHtmlDocuments > 0 Then
             e.NodeImageIndex = NodeImage.Mail
         Else
-            If oColorString Is Nothing Then
+            If oState IsNot Nothing AndAlso StateIcons.ContainsKey(oState) Then
+                Dim oIconIndex = StateIcons.Item(oState)
+                e.NodeImageIndex = oIconIndex
+            Else
                 e.NodeImageIndex = NodeImage.Default
-            ElseIf oColorString = "Red" Then
-                e.NodeImageIndex = NodeImage.Failure
-            ElseIf oColorString = "Green" Then
-                e.NodeImageIndex = NodeImage.Success
-            ElseIf oColorString = "Yellow" Then
-                e.NodeImageIndex = NodeImage.Warning
             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
 End Class
 
 Friend Class SearchKey