Remove State Project

Controls.DocumentViewer/DocumentViewer.vbproj

@@ -5,13 +5,12 @@
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
     <ProjectGuid>{0958CDDF-4A16-41F6-8837-8335F71D599C}</ProjectGuid>
-    <OutputType>Library</OutputType>
+    <OutputType>WinExe</OutputType>
-    <StartupObject>
+    <StartupObject>DigitalData.Controls.DocumentViewer.My.MyApplication</StartupObject>
-    </StartupObject>
     <RootNamespace>DigitalData.Controls.DocumentViewer</RootNamespace>
     <AssemblyName>DigitalData.Controls.DocumentViewer</AssemblyName>
     <FileAlignment>512</FileAlignment>
-    <MyType>Windows</MyType>
+    <MyType>WindowsForms</MyType>
     <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
   </PropertyGroup>
@@ -121,6 +120,18 @@
     <Compile Include="DocumentViewer.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="frmTest.Designer.vb">
+      <DependentUpon>frmTest.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmTest.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmTest.SubForm.Designer.vb">
+      <DependentUpon>frmTest.SubForm.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmTest.SubForm.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmViewerSettings.Designer.vb">
       <DependentUpon>frmViewerSettings.vb</DependentUpon>
     </Compile>
@@ -131,6 +142,7 @@
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -147,6 +159,12 @@
     <EmbeddedResource Include="DocumentViewer.resx">
       <DependentUpon>DocumentViewer.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmTest.resx">
+      <DependentUpon>frmTest.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmTest.SubForm.resx">
+      <DependentUpon>frmTest.SubForm.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmViewerSettings.resx">
       <DependentUpon>frmViewerSettings.vb</DependentUpon>
     </EmbeddedResource>

Controls.DocumentViewer/My Project/Application.Designer.vb

@@ -11,3 +11,28 @@
 Option Strict On
 Option Explicit On
 
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        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
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.DigitalData.Controls.DocumentViewer.frmTest
+        End Sub
+    End Class
+End Namespace

Controls.DocumentViewer/My Project/Application.myapp

@@ -1,11 +1,10 @@
 <?xml version="1.0" encoding="utf-8"?>
 <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   <MySubMain>true</MySubMain>
-  <MainForm>Form1</MainForm>
+  <MainForm>frmTest</MainForm>
   <SingleInstance>false</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>
-  <ApplicationType>0</ApplicationType>
   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
 </MyApplicationData>

Controls.DocumentViewer/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase

Controls.DocumentViewer/frmTest.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class Form1
+Partial Class frmTest
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@@ -25,7 +25,6 @@ Partial Class Form1
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         Me.Button1 = New System.Windows.Forms.Button()
-        Me.Button2 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
@@ -50,27 +49,18 @@ Partial Class Form1
         Me.Button1.Text = "..."
         Me.Button1.UseVisualStyleBackColor = True
         '
-        'Button2
-        '
-        Me.Button2.Location = New System.Drawing.Point(12, 67)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(637, 23)
-        Me.Button2.TabIndex = 2
-        Me.Button2.Text = "Load Form3 which loads Form4"
-        Me.Button2.UseVisualStyleBackColor = True
-        '
         'Button3
         '
-        Me.Button3.Location = New System.Drawing.Point(12, 96)
+        Me.Button3.Location = New System.Drawing.Point(12, 38)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(637, 23)
         Me.Button3.TabIndex = 2
-        Me.Button3.Text = "Load Form4"
+        Me.Button3.Text = "Load DocView"
         Me.Button3.UseVisualStyleBackColor = True
         '
         'Button4
         '
-        Me.Button4.Location = New System.Drawing.Point(12, 125)
+        Me.Button4.Location = New System.Drawing.Point(12, 67)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(637, 23)
         Me.Button4.TabIndex = 3
@@ -84,7 +74,6 @@ Partial Class Form1
         Me.ClientSize = New System.Drawing.Size(800, 450)
         Me.Controls.Add(Me.Button4)
         Me.Controls.Add(Me.Button3)
-        Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.TextBox1)
         Me.Name = "Form1"
@@ -96,7 +85,6 @@ Partial Class Form1
     Friend WithEvents TextBox1 As TextBox
     Friend WithEvents OpenFileDialog1 As OpenFileDialog
     Friend WithEvents Button1 As Button
-    Friend WithEvents Button2 As Button
     Friend WithEvents Button3 As Button
     Friend WithEvents Button4 As Button
 End Class

Controls.DocumentViewer/frmTest.SubForm.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class Form4
+Partial Class frmTest_SubForm
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@@ -23,21 +23,32 @@ Partial Class Form4
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
+        Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
         Me.SuspendLayout()
         '
         'DocumentViewer1
         '
-        Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
+        Me.DocumentViewer1.FileLoaded = False
+        Me.DocumentViewer1.Location = New System.Drawing.Point(0, 56)
         Me.DocumentViewer1.Name = "DocumentViewer1"
-        Me.DocumentViewer1.Size = New System.Drawing.Size(1056, 555)
+        Me.DocumentViewer1.Size = New System.Drawing.Size(1056, 499)
         Me.DocumentViewer1.TabIndex = 0
         '
+        'SimpleButton1
+        '
+        Me.SimpleButton1.Location = New System.Drawing.Point(12, 12)
+        Me.SimpleButton1.Name = "SimpleButton1"
+        Me.SimpleButton1.Size = New System.Drawing.Size(75, 23)
+        Me.SimpleButton1.TabIndex = 1
+        Me.SimpleButton1.Text = "Load PDF"
+        '
         'Form4
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1056, 555)
+        Me.Controls.Add(Me.SimpleButton1)
         Me.Controls.Add(Me.DocumentViewer1)
         Me.Name = "Form4"
         Me.Text = "Form4"
@@ -46,4 +57,5 @@ Partial Class Form4
     End Sub
 
     Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
+    Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
 End Class

Controls.DocumentViewer/frmTest.SubForm.vb

@@ -1,7 +1,7 @@
 Imports System.ComponentModel
 Imports DigitalData.Modules.Logging
 
-Public Class Form4
+Public Class frmTest_SubForm
     Public FilePath As String
     Private Key As String
     Private LogConfig As LogConfig
@@ -20,7 +20,7 @@ Public Class Form4
         Logger = LogConfig.GetLogger
         Logger.Info("DocumentViewer Form Loaded")
         DocumentViewer1.Init(LogConfig, Key)
-        DocumentViewer1.LoadFile(FilePath)
+
         Logger.Info("File Loaded")
     End Sub
 
@@ -36,5 +36,7 @@ Public Class Form4
 
     End Sub
 
-
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
+        DocumentViewer1.LoadFile(FilePath)
+    End Sub
 End Class

Controls.DocumentViewer/frmTest.vb

@@ -1,9 +1,7 @@
 Imports DigitalData.Modules.Logging
 Imports GdPicture14
 
-Public Class Form1
+Public Class frmTest
-    Private oSubform As Form3
-
     Private LogConfig As LogConfig
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -23,22 +21,11 @@ Public Class Form1
             TextBox1.Text = OpenFileDialog1.FileName
         End If
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        Try
-            Dim oKey = "0467389434974657969312056"
-            Dim oSubform As New Form3(LogConfig, oKey)
-
-            oSubform.FilePath = TextBox1.Text
-            oSubform.Show()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
-    End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         Try
             Dim oKey = "0467389434974657969312056"
-            Dim oSubform As New Form4(LogConfig, oKey)
+            Dim oSubform As New frmTest_SubForm(LogConfig, oKey)
 
             oSubform.FilePath = TextBox1.Text
             oSubform.Show()
@@ -86,6 +73,4 @@ Public Class Form1
             End If
         End Using
     End Sub
-
-
 End Class

Controls.SQLEditor/SQLEditor.vbproj

@@ -59,6 +59,7 @@
     <Reference Include="DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.4.7.5\lib\net45\NLog.dll</HintPath>

DDMonorepo.sln

@@ -86,8 +86,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Filesystem.Test", "Modules\
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GUIs.Test.GraphQLTest", "GUIs.Test.GraphQLTest\GUIs.Test.GraphQLTest.vbproj", "{609B09B4-AD1E-40F7-8899-A6685924621C}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GUIs.Test.DocumentViewerTest", "GUIs.Test.DocumentViewerTest\GUIs.Test.DocumentViewerTest.vbproj", "{F9CCEFCD-21B3-4319-9DB1-A0756DA5BA1C}"
-EndProject
 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "WebServices", "WebServices", "{D3BAE68E-406E-493D-A4E5-DB6EDDFFB371}"
 EndProject
 Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "ZUGFeRDRESTService", "WEBSERVICES\ZUGFeRDRESTService\ZUGFeRDRESTService.csproj", "{FD50590A-59C1-4798-AD90-419A588DCE76}"
@@ -134,8 +132,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Monitor", "GUIs.Monitor\Mon
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MonoRepoUtils", "ConfigCreator\MonoRepoUtils.vbproj", "{9D4AC920-C78E-41C3-994E-91690FF79380}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Database.Cached", "Database.Cached\Database.Cached.vbproj", "{E0DC883D-FAE1-4103-B2BA-043EBE697B09}"
-EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -266,10 +262,6 @@ Global
 		{609B09B4-AD1E-40F7-8899-A6685924621C}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{609B09B4-AD1E-40F7-8899-A6685924621C}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{609B09B4-AD1E-40F7-8899-A6685924621C}.Release|Any CPU.Build.0 = Release|Any CPU
-		{F9CCEFCD-21B3-4319-9DB1-A0756DA5BA1C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{F9CCEFCD-21B3-4319-9DB1-A0756DA5BA1C}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{F9CCEFCD-21B3-4319-9DB1-A0756DA5BA1C}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{F9CCEFCD-21B3-4319-9DB1-A0756DA5BA1C}.Release|Any CPU.Build.0 = Release|Any CPU
 		{FD50590A-59C1-4798-AD90-419A588DCE76}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{FD50590A-59C1-4798-AD90-419A588DCE76}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{FD50590A-59C1-4798-AD90-419A588DCE76}.Release|Any CPU.ActiveCfg = Release|Any CPU
@@ -358,10 +350,6 @@ Global
 		{9D4AC920-C78E-41C3-994E-91690FF79380}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{9D4AC920-C78E-41C3-994E-91690FF79380}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{9D4AC920-C78E-41C3-994E-91690FF79380}.Release|Any CPU.Build.0 = Release|Any CPU
-		{E0DC883D-FAE1-4103-B2BA-043EBE697B09}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{E0DC883D-FAE1-4103-B2BA-043EBE697B09}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{E0DC883D-FAE1-4103-B2BA-043EBE697B09}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{E0DC883D-FAE1-4103-B2BA-043EBE697B09}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
@@ -398,7 +386,6 @@ Global
 		{39EC839A-3C30-4922-A41E-6B09D1DDE5C3} = {3E2008C8-27B1-41DD-9B1A-0C4029F6AECC}
 		{B29ED6D4-839B-413A-A485-B10F4A4788EA} = {3E2008C8-27B1-41DD-9B1A-0C4029F6AECC}
 		{609B09B4-AD1E-40F7-8899-A6685924621C} = {CC368D6A-6AC4-4EB9-A092-14700FABEF7A}
-		{F9CCEFCD-21B3-4319-9DB1-A0756DA5BA1C} = {CC368D6A-6AC4-4EB9-A092-14700FABEF7A}
 		{FD50590A-59C1-4798-AD90-419A588DCE76} = {D3BAE68E-406E-493D-A4E5-DB6EDDFFB371}
 		{25017513-0D97-49D3-98D7-BA76D9B251B0} = {3E2008C8-27B1-41DD-9B1A-0C4029F6AECC}
 		{A8C3F298-76AB-4359-AB3C-986E313B4336} = {7AF3F9C2-C939-4A08-95C1-0453207E298A}
@@ -421,7 +408,6 @@ Global
 		{65EFB268-C0E0-40C1-8981-9F70DEE5C74A} = {F98C0329-C004-417F-B2AB-7466E88D8220}
 		{E24E8D40-0361-4C07-8FAE-3621DE316E70} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB}
 		{9D4AC920-C78E-41C3-994E-91690FF79380} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB}
-		{E0DC883D-FAE1-4103-B2BA-043EBE697B09} = {3E2008C8-27B1-41DD-9B1A-0C4029F6AECC}
 	EndGlobalSection
 	GlobalSection(ExtensibilityGlobals) = postSolution
 		SolutionGuid = {C1BE4090-A0FD-48AF-86CB-39099D14B286}

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -40,6 +40,7 @@ Public Class frmDocumentResultList
     Private _ResultLists As List(Of DocumentResult)
     Private _Helpers As DocumentResultList
     Private _Filesystem As DigitalData.Modules.Filesystem.File
+    Private _GridBuilder As GridBuilder
 
     ' Runtime variables
     Private _IsLoading As Boolean = True
@@ -74,6 +75,7 @@ Public Class frmDocumentResultList
         _Config = New ConfigManager(Of DocumentResultConfig)(LogConfig, oConfigPath, oConfigPath)
         _Helpers = New DocumentResultList(LogConfig)
         _Filesystem = New Modules.Filesystem.File(_LogConfig)
+        _GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3})
 
         _Environment = Environment
         _Params = Params
@@ -126,6 +128,10 @@ Public Class frmDocumentResultList
                 SwitchDetailContainerHorizontal.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
 
+            _GridBuilder.
+                WithDefaults().
+                WithReadOnlyOptions()
+
             AddHandler GridView1.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
             AddHandler GridView2.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
             AddHandler GridView3.FocusedRowChanged, AddressOf GridView_FocusedRowChanged

GUIs.Common/GridBuilder.vb

@@ -1,7 +1,10 @@
-Imports DevExpress.XtraGrid
+Imports System.Drawing
 Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraTreeList
 
 Public Class GridBuilder
+    Private ReadOnly EvenRowBackColor = Color.Gainsboro
+
     Public ReadOnly Property Views As New List(Of GridView)
 
     Public Sub New(GridView As GridView)
@@ -26,9 +29,23 @@ Public Class GridBuilder
     ''' <summary>
     ''' Applies common properties to the supplied GridView
     ''' </summary>
-    Public Function WithDefaults(GridView As GridView)
+    Public Function WithDefaults(GridView As GridView) As GridBuilder
         GridView.OptionsView.EnableAppearanceEvenRow = True
         GridView.OptionsView.ShowAutoFilterRow = True
+        GridView.Appearance.EvenRow.BackColor = EvenRowBackColor
+        GridView.Appearance.EvenRow.Options.UseBackColor = True
+
+        Return Me
+    End Function
+
+    ''' <summary>
+    ''' Applies common properties to the supplied TreeList
+    ''' </summary>
+    Public Function WithDefaults(TreeList As TreeList) As GridBuilder
+        TreeList.OptionsView.EnableAppearanceEvenRow = True
+        TreeList.OptionsView.ShowAutoFilterRow = True
+        TreeList.Appearance.EvenRow.BackColor = EvenRowBackColor
+        TreeList.Appearance.EvenRow.Options.UseBackColor = True
 
         Return Me
     End Function
@@ -53,4 +70,14 @@ Public Class GridBuilder
 
         Return Me
     End Function
+
+    ''' <summary>
+    ''' Applies read-only properties to the supplied TreeList
+    ''' </summary>
+    Public Function WithReadOnlyOptions(TreeList As TreeList) As GridBuilder
+        TreeList.OptionsBehavior.Editable = False
+        TreeList.OptionsBehavior.ReadOnly = True
+
+        Return Me
+    End Function
 End Class

GUIs.Common/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.7.6.0")>
+<Assembly: AssemblyVersion("1.7.7.0")>
-<Assembly: AssemblyFileVersion("1.7.6.0")>
+<Assembly: AssemblyFileVersion("1.7.7.0")>

GUIs.Monitor/Config.vb

@@ -3,4 +3,6 @@
 Public Class Config
     <ConnectionString>
     Public Property ConnectionString As String = String.Empty
+
+    Public Property SearchKeySQL As String = "SELECT ATTR_ID, ATTR_TITLE, TYPE_NAME FROM IDB_TEST.dbo.VWIDB_BE_ATTRIBUTE WHERE LANG_CODE = 'de-DE'"
 End Class

GUIs.Monitor/Monitor.vbproj

@@ -45,7 +45,10 @@
   <ItemGroup>
     <Reference Include="DevExpress.BonusSkins.v19.2" />
     <Reference Include="DevExpress.Data.v19.2" />
+    <Reference Include="DevExpress.Office.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.Printing.v19.2.Core" />
+    <Reference Include="DevExpress.RichEdit.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Spreadsheet.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.Utils.v19.2" />
     <Reference Include="DevExpress.XtraBars.v19.2" />
     <Reference Include="DevExpress.Sparkline.v19.2.Core" />
@@ -53,7 +56,18 @@
     <Reference Include="DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraRichEdit.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraSpreadsheet.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.6.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14, Version=14.1.0.97, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
+    </Reference>
+    <Reference Include="Independentsoft.Msg, Version=2.0.570.21482, Culture=neutral, PublicKeyToken=76be97fe952f1ec7" />
     <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.4.7.5\lib\net45\NLog.dll</HintPath>
     </Reference>
@@ -86,10 +100,10 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="Config.vb" />
-    <Compile Include="frmStart.Designer.vb">
+    <Compile Include="frmMonitor.Designer.vb">
-      <DependentUpon>frmStart.vb</DependentUpon>
+      <DependentUpon>frmMonitor.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmStart.vb">
+    <Compile Include="frmMonitor.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="My Project\Application.Designer.vb">
@@ -98,8 +112,8 @@
       <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\AssemblyInfo.vb" />
-    <EmbeddedResource Include="frmStart.resx">
+    <EmbeddedResource Include="frmMonitor.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
+      <DependentUpon>frmMonitor.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
@@ -144,6 +158,10 @@
       <Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
       <Name>Database</Name>
     </ProjectReference>
+    <ProjectReference Include="..\Modules.Language\Language.vbproj">
+      <Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
+      <Name>Language</Name>
+    </ProjectReference>
     <ProjectReference Include="..\Modules.Logging\Logging.vbproj">
       <Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
       <Name>Logging</Name>

GUIs.Monitor/My Project/Application.Designer.vb

@@ -32,7 +32,7 @@ Namespace My
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.DigitalData.GUIs.Monitor.frmStart
+            Me.MainForm = Global.DigitalData.GUIs.Monitor.frmMonitor
         End Sub
     End Class
 End Namespace

GUIs.Monitor/My Project/Application.myapp

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   <MySubMain>true</MySubMain>
-  <MainForm>frmStart</MainForm>
+  <MainForm>frmMonitor</MainForm>
   <SingleInstance>false</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>

GUIs.Monitor/My Project/licenses.licx

@@ -1,7 +1,9 @@
-DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

GUIs.Monitor/frmMonitor.Designer.vb

@@ -0,0 +1,649 @@
+Imports DigitalData.GUIs.Common.Base
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmMonitor
+    'Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+    Inherits BaseRibbonForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.buttonSearch = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = 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()
+        CType(Me.RibbonControl1, 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.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 2
+        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.StatusBar = Me.RibbonStatusBar1
+        '
+        'buttonSearch
+        '
+        Me.buttonSearch.Caption = "Suchen"
+        Me.buttonSearch.Id = 1
+        Me.buttonSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted
+        Me.buttonSearch.Name = "buttonSearch"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "RibbonPage1"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.buttonSearch)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Daten"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 747)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1379, 24)
+        '
+        '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 = "Suchwert"
+        Me.LayoutItemSearchValue_Text.TextLocation = DevExpress.Utils.Locations.Top
+        Me.LayoutItemSearchValue_Text.TextSize = New System.Drawing.Size(58, 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 = "Attribut"
+        Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(58, 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 = "Suchwert"
+        Me.LayoutItemSearchValue_Date.TextLocation = DevExpress.Utils.Locations.Top
+        Me.LayoutItemSearchValue_Date.TextSize = New System.Drawing.Size(58, 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(58, 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, 539)
+        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, 539)
+        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.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, 539)
+        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.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, 539)
+        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, 539)
+        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, 539)
+        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(0, 0)
+        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.Size = New System.Drawing.Size(713, 554)
+        Me.TreeListResults.StateImageList = Me.SvgImageCollection1
+        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")
+        '
+        '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.Collapsed = True
+        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(0, 0)
+        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(0, 0)
+        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(0, 0)
+        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(0, 0)
+        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(0, 0)
+        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(0, 0)
+        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(0, 0)
+        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(0, 0)
+        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, 158)
+        Me.XtraTabControl2.Name = "XtraTabControl2"
+        Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3
+        Me.XtraTabControl2.Size = New System.Drawing.Size(1379, 589)
+        Me.XtraTabControl2.TabIndex = 11
+        Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4})
+        '
+        'XtraTabPage3
+        '
+        Me.XtraTabPage3.Controls.Add(Me.SplitContainerControl2)
+        Me.XtraTabPage3.Name = "XtraTabPage3"
+        Me.XtraTabPage3.Size = New System.Drawing.Size(1377, 564)
+        Me.XtraTabPage3.Text = "XtraTabPage3"
+        '
+        'XtraTabPage4
+        '
+        Me.XtraTabPage4.Name = "XtraTabPage4"
+        Me.XtraTabPage4.Size = New System.Drawing.Size(1377, 564)
+        Me.XtraTabPage4.Text = "XtraTabPage4"
+        '
+        '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.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
+End Class

GUIs.Monitor/frmMonitor.resx

@@ -117,7 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
 </root>

GUIs.Monitor/frmMonitor.vb

@@ -0,0 +1,410 @@
+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
+
+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"}
+
+    Private SQLResultGrids As List(Of GridControl)
+    Private SQLResultTabs As List(Of XtraTabPage)
+
+    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 Enum NodeImage
+        [Default] = 0
+        SQL = 1
+        File = 2
+        Mail = 3
+        Success = 4
+        Failure = 5
+        Warning = 6
+    End Enum
+
+    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)
+            Init(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()
+                Else
+                    ShowErrorMessage("No Database configured. Application will close!")
+                    Application.Exit()
+
+                End If
+            End If
+
+            Database = New MSSQLServer(LogConfig, ConfigManager.Config.ConnectionString)
+            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 oViewer As DocumentViewer In FileResultViewers
+                oViewer.Init(LogConfig, oLicense)
+            Next
+        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
+        InitTreeList()
+        LoadData()
+    End Sub
+
+    Private Function LoadData() As Boolean
+        Try
+            Dim oSQL As String = "EXEC PRDD_MONITORING_GET_TREEVIEW_RESULT 'TYPE1','sdsdd',2"
+            Dim oTable As DataTable = Database.GetDatatable(oSQL)
+
+            TreeListResults.DataSource = oTable
+            TreeListResults.PopulateColumns()
+
+            For Each oColumn In TreeListResults.Columns
+                oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName)
+            Next
+
+            For Each oNode As TreeListNode In TreeListResults.Nodes
+                ExpandNodes(oNode)
+            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 = 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"
+    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
+
+            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
+
+        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 oTable As DataTable = Database.GetDatatable(oSQLCommand.Value)
+
+                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)
+            Catch ex As Exception
+                Logger.Error(ex)
+                Continue For
+            End Try
+        Next
+
+        For Each oFile As KeyValuePair(Of String, String) In oFilePaths
+            Try
+                Dim oPath = oFile.Value
+
+                If oPath Is Nothing Then
+                    Continue For
+                End If
+
+                If 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)
+            Catch ex As Exception
+                Logger.Error(ex)
+                Continue For
+            End Try
+        Next
+
+        For Each oFile As KeyValuePair(Of String, String) In oHtmlDocuments
+            Try
+                Dim oHtml = oFile.Value
+
+                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)
+            Catch ex As Exception
+                Logger.Error(ex)
+                Continue For
+            End Try
+        Next
+    End Sub
+
+    Private Sub ExpandNodes(RootNode As TreeListNode)
+        For Each oNode As TreeListNode In RootNode.Nodes
+            ExpandNodes(oNode)
+
+            Dim oColumn = TreeListResults.Columns.Item("COLOR")
+            Dim oColorString = NotNull(oNode.GetValue(oColumn), Nothing)
+
+            If oColorString IsNot Nothing AndAlso oColorString = "Red" 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)
+        RichEditControl.HtmlText = Html
+
+        Dim oTabPage = DirectCast(RichEditControl.Parent, XtraTabPage)
+        oTabPage.PageVisible = True
+        XtraTabControl1.SelectedTabPage = oTabPage
+    End Sub
+
+    Private Sub FillResultViewer(DocumentViewer As DocumentViewer, Path As String)
+        DocumentViewer.LoadFile(Path)
+
+        Dim oTabPage = DirectCast(DocumentViewer.Parent, XtraTabPage)
+        oTabPage.PageVisible = True
+        XtraTabControl1.SelectedTabPage = oTabPage
+    End Sub
+
+    Private Sub FillResultGrid(GridControl As GridControl, Table As DataTable)
+        GridControl.DataSource = Table
+
+        Dim oTabPage = DirectCast(GridControl.Parent, XtraTabPage)
+        oTabPage.PageVisible = True
+        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("COLOR")
+        Dim oColorString = NotNull(e.Node.GetValue(oColumn), Nothing)
+
+        If oColorString Is Nothing Then
+            Exit Sub
+        End If
+
+        Dim oColor As Color = Nothing
+
+        Select Case oColorString.ToString
+            Case "Green"
+                oColor = Color.LightGreen
+            Case "Red"
+                oColor = Color.LightCoral
+        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 oColumn = TreeListResults.Columns.Item("COLOR")
+        Dim oColorString = NotNull(e.Node.GetValue(oColumn), 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 oColorString Is Nothing Then
+                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
+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

GUIs.Monitor/frmStart.Designer.vb

@@ -1,365 +0,0 @@
-Imports DigitalData.GUIs.Common.Base
-
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmStart
-    'Inherits DevExpress.XtraBars.Ribbon.RibbonForm
-    Inherits BaseRibbonForm
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    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.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
-        Me.buttonSearch = New DevExpress.XtraBars.BarButtonItem()
-        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
-        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components)
-        Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel()
-        Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
-        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
-        Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
-        Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.TextEdit2 = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
-        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.DockPanel2 = New DevExpress.XtraBars.Docking.DockPanel()
-        Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer()
-        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
-        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.TreeListResults = New DevExpress.XtraTreeList.TreeList()
-        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.DockPanel1.SuspendLayout()
-        Me.DockPanel1_Container.SuspendLayout()
-        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.LayoutControl1.SuspendLayout()
-        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.DockPanel2.SuspendLayout()
-        Me.DockPanel2_Container.SuspendLayout()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabControl1.SuspendLayout()
-        Me.XtraTabPage1.SuspendLayout()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'RibbonControl1
-        '
-        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch})
-        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 2
-        Me.RibbonControl1.Name = "RibbonControl1"
-        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
-        Me.RibbonControl1.Size = New System.Drawing.Size(1085, 159)
-        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
-        '
-        'buttonSearch
-        '
-        Me.buttonSearch.Caption = "Suchen"
-        Me.buttonSearch.Id = 1
-        Me.buttonSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted
-        Me.buttonSearch.Name = "buttonSearch"
-        '
-        'RibbonPage1
-        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
-        Me.RibbonPage1.Name = "RibbonPage1"
-        Me.RibbonPage1.Text = "RibbonPage1"
-        '
-        'RibbonPageGroup1
-        '
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.buttonSearch)
-        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
-        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
-        '
-        'RibbonStatusBar1
-        '
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 654)
-        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
-        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1085, 22)
-        '
-        'RibbonPage2
-        '
-        Me.RibbonPage2.Name = "RibbonPage2"
-        Me.RibbonPage2.Text = "RibbonPage2"
-        '
-        'DockManager1
-        '
-        Me.DockManager1.Form = Me
-        Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanel1, Me.DockPanel2})
-        Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"})
-        '
-        'DockPanel1
-        '
-        Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
-        Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
-        Me.DockPanel1.ID = New System.Guid("52706dba-4c71-4145-b8a3-5f5423d32fce")
-        Me.DockPanel1.Location = New System.Drawing.Point(0, 159)
-        Me.DockPanel1.Name = "DockPanel1"
-        Me.DockPanel1.Options.ShowCloseButton = False
-        Me.DockPanel1.Options.ShowMaximizeButton = False
-        Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200)
-        Me.DockPanel1.Size = New System.Drawing.Size(200, 495)
-        Me.DockPanel1.Text = "Suche"
-        '
-        'DockPanel1_Container
-        '
-        Me.DockPanel1_Container.Controls.Add(Me.LayoutControl1)
-        Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46)
-        Me.DockPanel1_Container.Name = "DockPanel1_Container"
-        Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 446)
-        Me.DockPanel1_Container.TabIndex = 0
-        '
-        'LayoutControl1
-        '
-        Me.LayoutControl1.Controls.Add(Me.TextEdit1)
-        Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1)
-        Me.LayoutControl1.Controls.Add(Me.TextEdit2)
-        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(193, 446)
-        Me.LayoutControl1.TabIndex = 0
-        Me.LayoutControl1.Text = "LayoutControl1"
-        '
-        'TextEdit1
-        '
-        Me.TextEdit1.Location = New System.Drawing.Point(15, 123)
-        Me.TextEdit1.MenuManager = Me.RibbonControl1
-        Me.TextEdit1.Name = "TextEdit1"
-        Me.TextEdit1.Size = New System.Drawing.Size(163, 20)
-        Me.TextEdit1.StyleController = Me.LayoutControl1
-        Me.TextEdit1.TabIndex = 4
-        '
-        'ComboBoxEdit1
-        '
-        Me.ComboBoxEdit1.Location = New System.Drawing.Point(15, 31)
-        Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1
-        Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
-        Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.ComboBoxEdit1.Size = New System.Drawing.Size(163, 20)
-        Me.ComboBoxEdit1.StyleController = Me.LayoutControl1
-        Me.ComboBoxEdit1.TabIndex = 5
-        '
-        'TextEdit2
-        '
-        Me.TextEdit2.Location = New System.Drawing.Point(15, 77)
-        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(163, 20)
-        Me.TextEdit2.StyleController = Me.LayoutControl1
-        Me.TextEdit2.TabIndex = 6
-        '
-        'Root
-        '
-        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
-        Me.Root.GroupBordersVisible = False
-        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3})
-        Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(193, 446)
-        Me.Root.TextVisible = False
-        '
-        'LayoutControlItem1
-        '
-        Me.LayoutControlItem1.Control = Me.TextEdit1
-        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 92)
-        Me.LayoutControlItem1.Name = "LayoutControlItem1"
-        Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem1.Size = New System.Drawing.Size(173, 334)
-        Me.LayoutControlItem1.Text = "Suchwert"
-        Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(63, 13)
-        '
-        'LayoutControlItem2
-        '
-        Me.LayoutControlItem2.Control = Me.ComboBoxEdit1
-        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(173, 46)
-        Me.LayoutControlItem2.Text = "Attribut"
-        Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(63, 13)
-        '
-        'LayoutControlItem3
-        '
-        Me.LayoutControlItem3.Control = Me.TextEdit2
-        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 46)
-        Me.LayoutControlItem3.Name = "LayoutControlItem3"
-        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(173, 46)
-        Me.LayoutControlItem3.Text = "Auswertung"
-        Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(63, 13)
-        '
-        'DockPanel2
-        '
-        Me.DockPanel2.Controls.Add(Me.DockPanel2_Container)
-        Me.DockPanel2.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right
-        Me.DockPanel2.ID = New System.Guid("157c74a2-d255-4e6b-b789-bde43010b2af")
-        Me.DockPanel2.Location = New System.Drawing.Point(633, 159)
-        Me.DockPanel2.Name = "DockPanel2"
-        Me.DockPanel2.Options.ShowCloseButton = False
-        Me.DockPanel2.Options.ShowMaximizeButton = False
-        Me.DockPanel2.OriginalSize = New System.Drawing.Size(452, 200)
-        Me.DockPanel2.Size = New System.Drawing.Size(452, 495)
-        Me.DockPanel2.Text = "Details"
-        '
-        'DockPanel2_Container
-        '
-        Me.DockPanel2_Container.Controls.Add(Me.XtraTabControl1)
-        Me.DockPanel2_Container.Location = New System.Drawing.Point(4, 46)
-        Me.DockPanel2_Container.Name = "DockPanel2_Container"
-        Me.DockPanel2_Container.Size = New System.Drawing.Size(445, 446)
-        Me.DockPanel2_Container.TabIndex = 0
-        '
-        '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.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(445, 446)
-        Me.XtraTabControl1.TabIndex = 1
-        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
-        '
-        'XtraTabPage1
-        '
-        Me.XtraTabPage1.Controls.Add(Me.GridControl1)
-        Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(443, 423)
-        Me.XtraTabPage1.Text = "XtraTabPage1"
-        '
-        '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(443, 423)
-        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"
-        '
-        'XtraTabPage2
-        '
-        Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(443, 423)
-        Me.XtraTabPage2.Text = "XtraTabPage2"
-        '
-        'TreeListResults
-        '
-        Me.TreeListResults.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TreeListResults.Location = New System.Drawing.Point(200, 159)
-        Me.TreeListResults.MenuManager = Me.RibbonControl1
-        Me.TreeListResults.Name = "TreeListResults"
-        Me.TreeListResults.Size = New System.Drawing.Size(433, 495)
-        Me.TreeListResults.TabIndex = 4
-        '
-        'frmStart
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1085, 676)
-        Me.Controls.Add(Me.TreeListResults)
-        Me.Controls.Add(Me.DockPanel2)
-        Me.Controls.Add(Me.DockPanel1)
-        Me.Controls.Add(Me.RibbonStatusBar1)
-        Me.Controls.Add(Me.RibbonControl1)
-        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.charttype_line
-        Me.Name = "frmStart"
-        Me.Ribbon = Me.RibbonControl1
-        Me.StatusBar = Me.RibbonStatusBar1
-        Me.Text = "Monitor"
-        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.DockPanel1.ResumeLayout(False)
-        Me.DockPanel1_Container.ResumeLayout(False)
-        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.LayoutControl1.ResumeLayout(False)
-        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.DockPanel2.ResumeLayout(False)
-        Me.DockPanel2_Container.ResumeLayout(False)
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabControl1.ResumeLayout(False)
-        Me.XtraTabPage1.ResumeLayout(False)
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).EndInit()
-        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 DockManager1 As DevExpress.XtraBars.Docking.DockManager
-    Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel
-    Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer
-    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
-    Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit
-    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
-    Friend WithEvents LayoutControlItem1 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 DockPanel2 As DevExpress.XtraBars.Docking.DockPanel
-    Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer
-    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 XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
-End Class

GUIs.Monitor/frmStart.vb

@@ -1,61 +0,0 @@
-Imports DigitalData.Controls.SQLConfig
-Imports DigitalData.Modules.Config
-Imports DigitalData.Modules.Database
-Imports DigitalData.Modules.Logging
-
-Public Class frmStart
-    Public Property LogConfig As LogConfig
-    Public Property ConfigManager As ConfigManager(Of Config)
-    Public Property Database As MSSQLServer
-
-    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)
-            Init(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()
-                Else
-                    ShowErrorMessage("No Database configured. Application will close!")
-                    Application.Exit()
-
-                End If
-            End If
-
-            Database = New MSSQLServer(LogConfig, ConfigManager.Config.ConnectionString)
-
-
-
-        Catch ex As Exception
-            ShowErrorMessage(ex)
-        End Try
-    End Sub
-
-    Private Sub buttonSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonSearch.ItemClick
-        InitTreeList()
-        LoadData()
-    End Sub
-
-    Private Function LoadData() As Boolean
-        Try
-            Dim oSQL As String = "EXEC PRDD_MONITORING_GET_TREEVIEW_RESULT 'TYPE1','sdsdd',2"
-            Dim oTable As DataTable = Database.GetDatatable(oSQL)
-
-            TreeListResults.DataSource = oTable
-
-            Return True
-        Catch ex As Exception
-            ShowErrorMessage(ex)
-            Return False
-        End Try
-    End Function
-
-    Private Sub InitTreeList()
-        TreeListResults.KeyFieldName = "GUID"
-        TreeListResults.ParentFieldName = "PARENT_ID"
-    End Sub
-End Class

GUIs.Test.DocumentViewerTest/App.config

@@ -1,14 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<configuration>
-    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
-    </startup>
-  <runtime>
-    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
-      <dependentAssembly>
-        <assemblyIdentity name="Independentsoft.Msg" publicKeyToken="76be97fe952f1ec7" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-2.0.570.17147" newVersion="2.0.570.17147" />
-      </dependentAssembly>
-    </assemblyBinding>
-  </runtime>
-</configuration>

GUIs.Test.DocumentViewerTest/Form2.Designer.vb

@@ -1,49 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class Form3
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    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.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
-        Me.SuspendLayout()
-        '
-        'DocumentViewer1
-        '
-        Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
-        Me.DocumentViewer1.Name = "DocumentViewer1"
-        Me.DocumentViewer1.Size = New System.Drawing.Size(800, 450)
-        Me.DocumentViewer1.TabIndex = 0
-        '
-        'Form2
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.Controls.Add(Me.DocumentViewer1)
-        Me.Name = "Form2"
-        Me.Text = "Form2"
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
-End Class

GUIs.Test.DocumentViewerTest/Form2.vb

@@ -1,47 +0,0 @@
-Imports System.ComponentModel
-Imports DigitalData.Modules.Logging
-
-Public Class Form3
-    Private _frm4 As Form4
-    Public FilePath As String
-    Private Key As String
-    Private LogConfig As LogConfig
-    Private Logger As Logger
-
-    Public Sub New(LogConfig As LogConfig, Key As String)
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        Me.LogConfig = LogConfig
-        Me.Key = Key
-        _frm4 = New Form4(LogConfig, Key)
-    End Sub
-
-    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Logger = LogConfig.GetLogger
-        Logger.Info("DocumentViewer Form Loaded")
-        DocumentViewer1.Init(LogConfig, Key)
-        DocumentViewer1.LoadFile(FilePath)
-        DocumentViewer1.SetViewOnly(True)
-        DocumentViewer1.SetAllowAnnotations(True)
-
-        Logger.Info("File Loaded")
-    End Sub
-
-    Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
-        Logger.Info("Form closed")
-    End Sub
-
-    Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        DocumentViewer1.Done()
-        Logger.Info("Form closing")
-        _frm4.Close()
-    End Sub
-
-    Private Sub Form3_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        _frm4.FilePath = FilePath
-        _frm4.Show()
-
-    End Sub
-End Class

GUIs.Test.DocumentViewerTest/Form4.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

GUIs.Test.DocumentViewerTest/My Project/Application.Designer.vb

@@ -1,38 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     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.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-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
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
-        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
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
-        Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.GUIs.Test.DocumentViewerTest.Form1
-        End Sub
-    End Class
-End Namespace

GUIs.Test.DocumentViewerTest/My Project/Resources.Designer.vb

@@ -1,62 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     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.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-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.
-    '''<summary>
-    '''  A strongly-typed resource class, for looking up localized strings, etc.
-    '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
-    Friend Module Resources
-
-        Private resourceMan As Global.System.Resources.ResourceManager
-
-        Private resourceCulture As Global.System.Globalization.CultureInfo
-
-        '''<summary>
-        '''  Returns the cached ResourceManager instance used by this class.
-        '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        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("GUIs.Test.DocumentViewerTest.Resources", GetType(Resources).Assembly)
-                    resourceMan = temp
-                End If
-                Return resourceMan
-            End Get
-        End Property
-
-        '''<summary>
-        '''  Overrides the current thread's CurrentUICulture property for all
-        '''  resource lookups using this strongly typed resource class.
-        '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        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

GUIs.Test.DocumentViewerTest/My Project/Settings.Designer.vb

@@ -1,73 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     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.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-
-
-Namespace My
-
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-    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
-
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        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
-
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
-    Friend Module MySettingsProperty
-
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
-        Friend ReadOnly Property Settings() As Global.GUIs.Test.DocumentViewerTest.My.MySettings
-            Get
-                Return Global.GUIs.Test.DocumentViewerTest.My.MySettings.Default
-            End Get
-        End Property
-    End Module
-End Namespace

GUIs.Test.DocumentViewerTest/packages.config

@@ -1,4 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<packages>
-  <package id="NLog" version="4.7.5" targetFramework="net461" />
-</packages>

Modules.Database/Database.vbproj

@@ -93,11 +93,11 @@
   <ItemGroup>
     <Compile Include="Constants.vb" />
     <Compile Include="Exceptions.vb" />
-    <Compile Include="Firebird.vb" />
+    <Compile Include="Adapters\Firebird.vb" />
     <Compile Include="IDatabase.vb" />
-    <Compile Include="ODBC.vb" />
+    <Compile Include="Adapters\ODBC.vb" />
-    <Compile Include="Oracle.vb" />
+    <Compile Include="Adapters\Oracle.vb" />
-    <Compile Include="MSSQLServer.vb" />
+    <Compile Include="Adapters\MSSQLServer.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -113,6 +113,7 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="TableCache.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="My Project\Resources.resx">

Modules.Database/TableCache.vb

@@ -0,0 +1,17 @@
+Public Class TableCache
+    Private Items As New Dictionary(Of String, DataTable)
+
+    Public Function [Get](SQLCommand As String)
+        Dim oKey As String = SQLCommand.ToUpper
+        If Items.ContainsKey(oKey) Then
+            Return Items.Item(oKey)
+        Else
+
+        End If
+    End Function
+
+    Private Function SaveTable()
+
+    End Function
+
+End Class

Modules.EDMIAPI/DataWithFallback.vb

@@ -0,0 +1,92 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.EDMI.API
+Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Language.Utils
+
+Public Class DataWithFallback
+    Private _Logger As Logger
+    Private _Client As Client
+    Private _DatabaseEDM As MSSQLServer
+    Private _DatabaseIDB As MSSQLServer
+    Private _Type As DatabaseType
+
+    Public Enum DatabaseType
+        ECM
+        IDB
+    End Enum
+
+    Public Sub New(LogConfig As LogConfig, Client As Client, DatabaseECM As MSSQLServer, DatabaseIDB As MSSQLServer)
+        _Logger = LogConfig.GetLogger()
+        _Client = Client
+        _DatabaseEDM = DatabaseECM
+        _DatabaseIDB = DatabaseIDB
+    End Sub
+
+    Public Function GetDatatable(DataTable As String, FilterExpression As String, SortByColumn As String, FallbackSQL As String, FallbackType As DatabaseType, Optional ForceFallback As Boolean = False) As DataTable
+        Try
+            Dim oResult As DataTable = Nothing
+
+            If ForceFallback = False Then
+                Dim oTableResult As TableResult = _Client.GetDatatableByName(DataTable, FilterExpression, SortByColumn)
+
+                If oTableResult Is Nothing OrElse oTableResult.OK = False Then
+                    _Logger.Warn("Datatable [{0}] could not be fetched from AppServer Cache. Falling back to direct Database Access.")
+                End If
+
+                Return oTableResult.Table
+            Else
+                Return GetDatatableFromDatabase(FallbackSQL, FallbackType)
+            End If
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Private Function GetDatatableFromDatabase(SQLCommand As String, DatabaseType As DatabaseType)
+        Try
+            Select Case DatabaseType
+                Case DatabaseType.ECM
+                    Return _DatabaseEDM.GetDatatable(SQLCommand)
+
+                Case DatabaseType.IDB
+                    Return _DatabaseIDB.GetDatatable(SQLCommand)
+
+                Case Else
+                    Return Nothing
+
+            End Select
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Return Nothing
+
+        End Try
+    End Function
+
+    Public Function GetUserData(UserName As String, ModuleCode As String, Client As Integer) As UserData
+        Dim oSQL = $"SELECT * FROM FNDD_CHECK_USER_MODULE('{UserName}','{ModuleCode}',{Client})"
+        Dim oTable As DataTable = GetDatatable("TBDD_USER_MODULE", $"USERNAME = '{UserName.ToLower}' AND MODULE_SHORT = '{ModuleCode}'", "", oSQL, DatabaseType.ECM)
+
+        If oTable Is Nothing Then
+            Return Nothing
+        End If
+
+        If oTable.Rows.Count = 0 Then
+            Return Nothing
+        End If
+
+        Dim oRow As DataRow = oTable.Rows.Item(0)
+        Dim oUserData As New UserData With {
+            .Id = NotNull(oRow, "USER_ID", -1),
+            .Surname = NotNull(oRow, "USER_SURNAME", String.Empty),
+            .Prename = NotNull(oRow, "USER_PRENAME", String.Empty),
+            .Shortname = NotNull(oRow, "USER_SHORTNAME", String.Empty),
+            .Email = NotNull(oRow, "USER_EMAIL", String.Empty),
+            .Language = NotNull(oRow, "USER_LANGUAGE", "de-DE"),
+            .DateFormat = NotNull(oRow, "USER_DATE_FORMAT", "dd.MM.yyyy")
+        }
+    End Function
+
+End Class
+

Modules.EDMIAPI/DataWithFallback/UserData.vb

@@ -0,0 +1,14 @@
+Public Class UserData
+    Public Id As Integer
+    Public Surname As String
+    Public Prename As String
+    Public Shortname As String
+    Public Email As String
+    Public Language As String
+    Public DateFormat As String
+
+    Public IsAdmin As Boolean
+    Public HasAccess As Boolean
+
+    Public ModuleName As String
+End Class

Modules.EDMIAPI/EDMI.API.vbproj

@@ -80,6 +80,7 @@
       <DependentUpon>Reference.svcmap</DependentUpon>
     </Compile>
     <Compile Include="Client.vb" />
+    <Compile Include="DataWithFallback.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -95,6 +96,7 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="DataWithFallback\UserData.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="My Project\Resources.resx">
@@ -175,6 +177,14 @@
     <WCFMetadata Include="Connected Services\" />
   </ItemGroup>
   <ItemGroup>
+    <ProjectReference Include="..\Modules.Database\Database.vbproj">
+      <Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
+      <Name>Database</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\Modules.Language\Language.vbproj">
+      <Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
+      <Name>Language</Name>
+    </ProjectReference>
     <ProjectReference Include="..\Modules.Logging\Logging.vbproj">
       <Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
       <Name>Logging</Name>

Modules.Language/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("Language")>
-<Assembly: AssemblyCopyright("Copyright ©  2019")>
+<Assembly: AssemblyCopyright("Copyright © 2021")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.1.0")>
+<Assembly: AssemblyVersion("1.1.0.0")>
-<Assembly: AssemblyFileVersion("1.0.1.0")>
+<Assembly: AssemblyFileVersion("1.1.0.0")>

Modules.Language/Utils.vb

@@ -54,6 +54,7 @@ Public Class Utils
     ''' <typeparam name="T">The type of the value</typeparam>
     ''' <param name="value">The value</param>
     ''' <param name="defaultValue">The default Value</param>
+    ''' <returns>The original value or the default value</returns>
     Public Shared Function NotNull(Of T)(ByVal value As T, ByVal defaultValue As T) As T
         If IsNothing(value) OrElse String.IsNullOrEmpty(value.ToString) OrElse IsDBNull(value) Then
             Return defaultValue
@@ -62,6 +63,21 @@ Public Class Utils
         End If
     End Function
 
+    ''' <summary>
+    ''' Checks a Row value for three different `null` values,
+    ''' Nothing, Empty String, DBNull
+    ''' 
+    ''' Returns the original value if the value is not null, or `defaultValue`
+    ''' </summary>
+    ''' <typeparam name="T">The type of the value</typeparam>
+    ''' <param name="Row">The DataRow that contains the value</param>
+    ''' <param name="Column">The column name</param>
+    ''' <param name="DefaultValue">The default value</param>
+    ''' <returns>The original value or the default value</returns>
+    Public Shared Function NotNull(Of T)(ByVal Row As DataRow, Column As String, DefaultValue As T) As T
+        Return NotNull(Row.Item(Column), DefaultValue)
+    End Function
+
     ''' <summary>
     ''' Creates a "slug" from text that can be used as part of a valid URL.
     ''' Invalid characters are converted to hyphens. Punctuation that Is

State/ModuleState.vb

@@ -0,0 +1,7 @@
+Namespace State
+    Public Class ModuleState
+        Public Property HasAccess As Boolean
+        Public Property IsAdmin As Boolean
+        Public Property LoggedIn As Integer
+    End Class
+End Namespace

State/My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+

State/My Project/Application.myapp

@@ -1,11 +1,10 @@
 <?xml version="1.0" encoding="utf-8"?>
 <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
-  <MySubMain>true</MySubMain>
+  <MySubMain>false</MySubMain>
-  <MainForm>Form1</MainForm>
   <SingleInstance>false</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>
-  <ApplicationType>0</ApplicationType>
+  <ApplicationType>1</ApplicationType>
   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
 </MyApplicationData>

State/My Project/AssemblyInfo.vb

@@ -8,17 +8,17 @@ Imports System.Runtime.InteropServices
 
 ' Werte der Assemblyattribute überprüfen
 
-<Assembly: AssemblyTitle("GUIs.Test.DocumentViewerTest")>
+<Assembly: AssemblyTitle("State")>
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
-<Assembly: AssemblyProduct("GUIs.Test.DocumentViewerTest")>
+<Assembly: AssemblyProduct("State")>
-<Assembly: AssemblyCopyright("Copyright ©  2019")>
+<Assembly: AssemblyCopyright("Copyright ©  2021")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
 
-'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
-<Assembly: Guid("0d3cfb2d-5d95-4ca7-a004-c4fa2d1457c7")>
+<Assembly: Guid("114916ab-9158-4725-bfc3-d0c5b0cb9eff")>
 
 ' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
 '
@@ -28,7 +28,7 @@ Imports System.Runtime.InteropServices
 '      Revision
 '
 ' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
-' übernehmen, indem Sie "*" eingeben:
+' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
 <Assembly: AssemblyVersion("1.0.0.0")>

State/My Project/Resources.Designer.vb

@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Modules.State.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

State/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    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 "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As 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
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.DigitalData.Modules.State.My.MySettings
+            Get
+                Return Global.DigitalData.Modules.State.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

State/ServiceState.vb

@@ -0,0 +1,11 @@
+Imports DigitalData.Modules.EDMI.API
+
+Namespace State
+    Public Class ServiceState
+        Public Property IsOnline As Boolean = False
+        Public Property IsActive As Boolean = False
+        Public Property LastChecked As Date = Date.Now
+        Public Property Address As String = String.Empty
+        Public Property Client As Client = Nothing
+    End Class
+End Namespace

State/SettingsState.vb

@@ -0,0 +1,5 @@
+Namespace State
+    Public Class SettingsState
+        Public GdPictureKey As String = String.Empty
+    End Class
+End Namespace

State/State.vbproj

@@ -4,34 +4,31 @@
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <ProjectGuid>{F9CCEFCD-21B3-4319-9DB1-A0756DA5BA1C}</ProjectGuid>
+    <ProjectGuid>{3D8AEB1A-1FAB-4107-8FFE-67337C281AD0}</ProjectGuid>
-    <OutputType>WinExe</OutputType>
+    <OutputType>Library</OutputType>
-    <StartupObject>GUIs.Test.DocumentViewerTest.My.MyApplication</StartupObject>
+    <RootNamespace>DigitalData.Modules.State</RootNamespace>
-    <RootNamespace>GUIs.Test.DocumentViewerTest</RootNamespace>
+    <AssemblyName>DigitalData.Modules.State</AssemblyName>
-    <AssemblyName>GUIs.Test.DocumentViewerTest</AssemblyName>
     <FileAlignment>512</FileAlignment>
-    <MyType>WindowsForms</MyType>
+    <MyType>Windows</MyType>
     <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
-    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <Deterministic>true</Deterministic>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
     <DebugSymbols>true</DebugSymbols>
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
     <DefineTrace>true</DefineTrace>
     <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>GUIs.Test.DocumentViewerTest.xml</DocumentationFile>
+    <DocumentationFile>DigitalData.Modules.State.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
     <DebugType>pdbonly</DebugType>
     <DefineDebug>false</DefineDebug>
     <DefineTrace>true</DefineTrace>
     <Optimize>true</Optimize>
     <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>GUIs.Test.DocumentViewerTest.xml</DocumentationFile>
+    <DocumentationFile>DigitalData.Modules.State.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
   </PropertyGroup>
   <PropertyGroup>
@@ -47,23 +44,8 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="GdPicture.NET.14">
-      <HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
-    </Reference>
-    <Reference Include="Microsoft.CSharp" />
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
-      <HintPath>..\packages\NLog.4.7.5\lib\net45\NLog.dll</HintPath>
-    </Reference>
     <Reference Include="System" />
-    <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
-    <Reference Include="System.Deployment" />
-    <Reference Include="System.Drawing" />
-    <Reference Include="System.IO.Compression" />
-    <Reference Include="System.Runtime.Serialization" />
-    <Reference Include="System.ServiceModel" />
-    <Reference Include="System.Transactions" />
-    <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />
     <Reference Include="System.Xml.Linq" />
@@ -76,37 +58,18 @@
     <Import Include="System.Collections" />
     <Import Include="System.Collections.Generic" />
     <Import Include="System.Data" />
-    <Import Include="System.Drawing" />
     <Import Include="System.Diagnostics" />
-    <Import Include="System.Windows.Forms" />
     <Import Include="System.Linq" />
     <Import Include="System.Xml.Linq" />
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="Form1.vb">
+    <Compile Include="ModuleState.vb" />
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="Form1.Designer.vb">
-      <DependentUpon>Form1.vb</DependentUpon>
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="Form2.Designer.vb">
-      <DependentUpon>Form2.vb</DependentUpon>
-    </Compile>
-    <Compile Include="Form2.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="Form4.Designer.vb">
-      <DependentUpon>Form4.vb</DependentUpon>
-    </Compile>
-    <Compile Include="Form4.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -118,17 +81,11 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="ServiceState.vb" />
+    <Compile Include="SettingsState.vb" />
+    <Compile Include="UserState.vb" />
   </ItemGroup>
   <ItemGroup>
-    <EmbeddedResource Include="Form1.resx">
-      <DependentUpon>Form1.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="Form2.resx">
-      <DependentUpon>Form2.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="Form4.resx">
-      <DependentUpon>Form4.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -146,18 +103,6 @@
       <CustomToolNamespace>My</CustomToolNamespace>
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
-    <None Include="App.config" />
-    <None Include="packages.config" />
-  </ItemGroup>
-  <ItemGroup>
-    <ProjectReference Include="..\Controls.DocumentViewer\DocumentViewer.vbproj">
-      <Project>{0958cddf-4a16-41f6-8837-8335f71d599c}</Project>
-      <Name>DocumentViewer</Name>
-    </ProjectReference>
-    <ProjectReference Include="..\Modules.Logging\Logging.vbproj">
-      <Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
-      <Name>Logging</Name>
-    </ProjectReference>
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

State/UserState.vb

@@ -0,0 +1,33 @@
+Imports System.Threading
+Imports System.Environment
+
+Namespace State
+    ''' <summary>
+    ''' Helper Class to hold User State
+    ''' </summary>
+    Public Class UserState
+        Public Property UserId As Integer
+        Public Property UserName As String
+        Public Property Surname As String
+        Public Property GivenName As String
+        Public Property ShortName As String
+        Public Property Email As String
+        Public Property MachineName As String
+        Public Property DateFormat As String
+        Public Property Language As String
+        Public Property LanguageID As Int16
+        Public Property IsAdmin As Boolean = False
+
+        Public Property HideBasicConfig As Boolean = False
+
+        ''' <summary>
+        ''' Initialize user object with values that can be read from the environment
+        ''' </summary>
+        Public Sub New()
+            Language = Thread.CurrentThread.CurrentCulture.Name
+            UserName = Environment.UserName
+            MachineName = Environment.MachineName
+        End Sub
+    End Class
+End Namespace
+