merge administration

GUIs.ZooFlow/Administration/frmAdmin_Base.vb

@@ -4,7 +4,7 @@ Imports DigitalData.Modules.Logging
 Partial Public MustInherit Class BaseForm
     Inherits RibbonForm
 
-    Private Logger As Logger
+    Friend Logger As Logger
 
     Public Sub New()
         Logger = My.LogConfig?.GetLogger

GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb

@@ -0,0 +1,335 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmAdmin_CWProfile
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+    '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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_CWProfile))
+        Dim GUIDLabel As System.Windows.Forms.Label
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.DBCW_Stammdaten = New DigitalData.GUIs.ZooFlow.DBCW_Stammdaten()
+        Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.TBCW_PROFILESTableAdapter = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter()
+        Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager()
+        Me.TBCW_PROFILESBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
+        Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
+        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
+        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
+        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
+        Me.TBCW_PROFILESBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
+        Me.FillToolStrip = New System.Windows.Forms.ToolStrip()
+        Me.GUIDToolStripLabel = New System.Windows.Forms.ToolStripLabel()
+        Me.GUIDToolStripTextBox = New System.Windows.Forms.ToolStripTextBox()
+        Me.FillToolStripButton = New System.Windows.Forms.ToolStripButton()
+        Me.GUIDTextBox = New System.Windows.Forms.TextBox()
+        GUIDLabel = New System.Windows.Forms.Label()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TBCW_PROFILESBindingNavigator.SuspendLayout()
+        Me.FillToolStrip.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 1
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.Size = New System.Drawing.Size(800, 159)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "RibbonPage1"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'DBCW_Stammdaten
+        '
+        Me.DBCW_Stammdaten.DataSetName = "DBCW_Stammdaten"
+        Me.DBCW_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'TBCW_PROFILESBindingSource
+        '
+        Me.TBCW_PROFILESBindingSource.DataMember = "TBCW_PROFILES"
+        Me.TBCW_PROFILESBindingSource.DataSource = Me.DBCW_Stammdaten
+        '
+        'TBCW_PROFILESTableAdapter
+        '
+        Me.TBCW_PROFILESTableAdapter.ClearBeforeFill = True
+        '
+        'TableAdapterManager
+        '
+        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter
+        Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        '
+        'TBCW_PROFILESBindingNavigator
+        '
+        Me.TBCW_PROFILESBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
+        Me.TBCW_PROFILESBindingNavigator.BindingSource = Me.TBCW_PROFILESBindingSource
+        Me.TBCW_PROFILESBindingNavigator.CountItem = Me.BindingNavigatorCountItem
+        Me.TBCW_PROFILESBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
+        Me.TBCW_PROFILESBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBCW_PROFILESBindingNavigatorSaveItem})
+        Me.TBCW_PROFILESBindingNavigator.Location = New System.Drawing.Point(0, 159)
+        Me.TBCW_PROFILESBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
+        Me.TBCW_PROFILESBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
+        Me.TBCW_PROFILESBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
+        Me.TBCW_PROFILESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
+        Me.TBCW_PROFILESBindingNavigator.Name = "TBCW_PROFILESBindingNavigator"
+        Me.TBCW_PROFILESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
+        Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(800, 25)
+        Me.TBCW_PROFILESBindingNavigator.TabIndex = 2
+        Me.TBCW_PROFILESBindingNavigator.Text = "BindingNavigator1"
+        '
+        'BindingNavigatorMoveFirstItem
+        '
+        Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
+        Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben"
+        '
+        'BindingNavigatorMovePreviousItem
+        '
+        Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
+        Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben"
+        '
+        'BindingNavigatorSeparator
+        '
+        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
+        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
+        '
+        'BindingNavigatorPositionItem
+        '
+        Me.BindingNavigatorPositionItem.AccessibleName = "Position"
+        Me.BindingNavigatorPositionItem.AutoSize = False
+        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
+        Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
+        Me.BindingNavigatorPositionItem.Text = "0"
+        Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position"
+        '
+        'BindingNavigatorCountItem
+        '
+        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
+        Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 15)
+        Me.BindingNavigatorCountItem.Text = "von {0}"
+        Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente."
+        '
+        'BindingNavigatorSeparator1
+        '
+        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator"
+        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6)
+        '
+        'BindingNavigatorMoveNextItem
+        '
+        Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
+        Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 20)
+        Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben"
+        '
+        'BindingNavigatorMoveLastItem
+        '
+        Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
+        Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 20)
+        Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben"
+        '
+        'BindingNavigatorSeparator2
+        '
+        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator"
+        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6)
+        '
+        'BindingNavigatorAddNewItem
+        '
+        Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
+        Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen"
+        '
+        'BindingNavigatorDeleteItem
+        '
+        Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
+        Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20)
+        Me.BindingNavigatorDeleteItem.Text = "Löschen"
+        '
+        'TBCW_PROFILESBindingNavigatorSaveItem
+        '
+        Me.TBCW_PROFILESBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TBCW_PROFILESBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBCW_PROFILESBindingNavigatorSaveItem.Image"), System.Drawing.Image)
+        Me.TBCW_PROFILESBindingNavigatorSaveItem.Name = "TBCW_PROFILESBindingNavigatorSaveItem"
+        Me.TBCW_PROFILESBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 20)
+        Me.TBCW_PROFILESBindingNavigatorSaveItem.Text = "Daten speichern"
+        '
+        'FillToolStrip
+        '
+        Me.FillToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GUIDToolStripLabel, Me.GUIDToolStripTextBox, Me.FillToolStripButton})
+        Me.FillToolStrip.Location = New System.Drawing.Point(0, 184)
+        Me.FillToolStrip.Name = "FillToolStrip"
+        Me.FillToolStrip.Size = New System.Drawing.Size(800, 25)
+        Me.FillToolStrip.TabIndex = 3
+        Me.FillToolStrip.Text = "FillToolStrip"
+        '
+        'GUIDToolStripLabel
+        '
+        Me.GUIDToolStripLabel.Name = "GUIDToolStripLabel"
+        Me.GUIDToolStripLabel.Size = New System.Drawing.Size(37, 22)
+        Me.GUIDToolStripLabel.Text = "GUID:"
+        '
+        'GUIDToolStripTextBox
+        '
+        Me.GUIDToolStripTextBox.Name = "GUIDToolStripTextBox"
+        Me.GUIDToolStripTextBox.Size = New System.Drawing.Size(100, 23)
+        '
+        'FillToolStripButton
+        '
+        Me.FillToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.FillToolStripButton.Name = "FillToolStripButton"
+        Me.FillToolStripButton.Size = New System.Drawing.Size(26, 19)
+        Me.FillToolStripButton.Text = "Fill"
+        '
+        'GUIDLabel
+        '
+        GUIDLabel.AutoSize = True
+        GUIDLabel.Location = New System.Drawing.Point(548, 312)
+        GUIDLabel.Name = "GUIDLabel"
+        GUIDLabel.Size = New System.Drawing.Size(37, 13)
+        GUIDLabel.TabIndex = 4
+        GUIDLabel.Text = "GUID:"
+        '
+        'GUIDTextBox
+        '
+        Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True))
+        Me.GUIDTextBox.Location = New System.Drawing.Point(591, 309)
+        Me.GUIDTextBox.Name = "GUIDTextBox"
+        Me.GUIDTextBox.Size = New System.Drawing.Size(100, 22)
+        Me.GUIDTextBox.TabIndex = 5
+        '
+        'frmAdmin_CWProfile
+        '
+        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(GUIDLabel)
+        Me.Controls.Add(Me.GUIDTextBox)
+        Me.Controls.Add(Me.FillToolStrip)
+        Me.Controls.Add(Me.TBCW_PROFILESBindingNavigator)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.Name = "frmAdmin_CWProfile"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "frmAdmin_CWProfiles"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TBCW_PROFILESBindingNavigator.ResumeLayout(False)
+        Me.TBCW_PROFILESBindingNavigator.PerformLayout()
+        Me.FillToolStrip.ResumeLayout(False)
+        Me.FillToolStrip.PerformLayout()
+        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 RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents DBCW_Stammdaten As DBCW_Stammdaten
+    Friend WithEvents TBCW_PROFILESBindingSource As BindingSource
+    Friend WithEvents TBCW_PROFILESTableAdapter As DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter
+    Friend WithEvents TableAdapterManager As DBCW_StammdatenTableAdapters.TableAdapterManager
+    Friend WithEvents TBCW_PROFILESBindingNavigator As BindingNavigator
+    Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton
+    Friend WithEvents BindingNavigatorCountItem As ToolStripLabel
+    Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton
+    Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton
+    Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
+    Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox
+    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
+    Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton
+    Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
+    Friend WithEvents TBCW_PROFILESBindingNavigatorSaveItem As ToolStripButton
+    Friend WithEvents FillToolStrip As ToolStrip
+    Friend WithEvents GUIDToolStripLabel As ToolStripLabel
+    Friend WithEvents GUIDToolStripTextBox As ToolStripTextBox
+    Friend WithEvents FillToolStripButton As ToolStripButton
+    Friend WithEvents GUIDTextBox As TextBox
+End Class

GUIs.ZooFlow/Administration/frmAdmin_CWProfile.resx

@@ -0,0 +1,214 @@
+<?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>
+  <metadata name="DBCW_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="TBCW_PROFILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>178, 17</value>
+  </metadata>
+  <metadata name="TBCW_PROFILESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>398, 17</value>
+  </metadata>
+  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>612, 17</value>
+  </metadata>
+  <metadata name="TBCW_PROFILESBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>785, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA
+        jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/
+        fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97
+        J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp
+        Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4
+        35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY
+        nnX8iGkAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE
+        yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt
+        BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia
+        gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh
+        Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F
+        GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm
+        RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ
+        O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac
+        Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y
+        8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k
+        6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/
+        v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p
+        /v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV
+        /fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf
+        N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z
+        9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W
+        bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo
+        pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+
+        +5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS
+        yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj
+        ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN
+        IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/
+        6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="TBCW_PROFILESBindingNavigatorSaveItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABMSURBVDhPY6AK+Pbt239SMVQrBIAFgufA8Yf3H+EYWQxE
+        x0zYh2kIKQaAMMwQqHbSDQBhog1AxshqaGsAMXjUgEFpADkYqp0SwMAAAPRDDFPA2mtzAAAAAElFTkSu
+        QmCC
+</value>
+  </data>
+  <metadata name="FillToolStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1021, 17</value>
+  </metadata>
+  <metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb

@@ -0,0 +1,38 @@
+Imports DigitalData.Modules.Logging
+
+Public Class frmAdmin_CWProfile
+    Inherits frmAdmin_Base
+    Implements frmAdmin_Interface
+
+    Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
+
+    Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
+
+    Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
+
+    Private Property Logger As Logger Implements frmAdmin_Interface.Logger
+
+    Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
+
+    End Function
+
+    Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingNavigatorSaveItem.Click
+        Me.Validate()
+        Me.TBCW_PROFILESBindingSource.EndEdit()
+        Me.TableAdapterManager.UpdateAll(Me.DBCW_Stammdaten)
+
+    End Sub
+
+    Private Sub FillToolStripButton_Click(sender As Object, e As EventArgs) Handles FillToolStripButton.Click
+        Try
+            Me.TBCW_PROFILESTableAdapter.Fill(Me.DBCW_Stammdaten.TBCW_PROFILES, CType(GUIDToolStripTextBox.Text, Integer))
+        Catch ex As System.Exception
+            System.Windows.Forms.MessageBox.Show(ex.Message)
+        End Try
+
+    End Sub
+End Class

GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb

@@ -1,4 +1,7 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAdmin_Start
     Inherits frmAdmin_Base
 
@@ -101,6 +104,11 @@ Partial Class frmAdmin_Start
         Me.ViewSourceSQL = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabPage_ClipboardWatcher = New DevExpress.XtraTab.XtraTabPage()
+        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
+        Me.XtraTabPageCWProfiles = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
+        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl()
         CHANGED_WHENLabel = New System.Windows.Forms.Label()
         CHANGED_WHOLabel = New System.Windows.Forms.Label()
@@ -131,6 +139,12 @@ Partial Class frmAdmin_Start
         Me.XtraTabPageIDB_SourceSQL.SuspendLayout()
         CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPage_ClipboardWatcher.SuspendLayout()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControl1.SuspendLayout()
+        Me.XtraTabPageCWProfiles.SuspendLayout()
+        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl.SuspendLayout()
         Me.SuspendLayout()
@@ -265,7 +279,7 @@ Partial Class frmAdmin_Start
         Me.labelStatus.Id = 6
         Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.labelStatus.Name = "labelStatus"
-        Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
         '
         'labelError
         '
@@ -274,6 +288,7 @@ Partial Class frmAdmin_Start
         Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.labelError.Name = "labelError"
         Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
         '
         'BarButtonItemAddAttribute
         '
@@ -314,9 +329,9 @@ Partial Class frmAdmin_Start
         '
         'BarButtonItem9
         '
-        Me.BarButtonItem9.Caption = "Source SQL"
+        Me.BarButtonItem9.Caption = "Source SQL neu laden"
         Me.BarButtonItem9.Id = 14
-        Me.BarButtonItem9.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.crossdatasourcefiltering
+        Me.BarButtonItem9.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.updatedataextract
         Me.BarButtonItem9.Name = "BarButtonItem9"
         '
         'RibbonPage1
@@ -424,14 +439,14 @@ Partial Class frmAdmin_Start
         Me.TreeListMenu.MenuManager = Me.RibbonControl1
         Me.TreeListMenu.Name = "TreeListMenu"
         Me.TreeListMenu.BeginUnboundLoad()
-        Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1)
+        Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "IDB_START")
         Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
         Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_ENTITIES")
-        Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 0, 3, 3, -1, "SOURCE_SQL")
-        Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX")
-        Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 4, 4, 4, -1)
-        Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CLIPBOARD_WATCHER")
-        Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 6, 4, 4, -1)
+        Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 0, 3, 3, -1, "IDB_SOURCE_SQL")
+        Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX_START")
+        Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 4, 4, 4, -1, "GLOBIX_PROFILES")
+        Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CW_START")
+        Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 6, 4, 4, -1, "CW_PROFILES")
         Me.TreeListMenu.EndUnboundLoad()
         Me.TreeListMenu.OptionsBehavior.Editable = False
         Me.TreeListMenu.OptionsView.ShowColumns = False
@@ -582,7 +597,7 @@ Partial Class frmAdmin_Start
         Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHENLabel)
         Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHENTextBox)
         Me.XtraTabPageIDB_Attributes.Name = "XtraTabPageIDB_Attributes"
-        Me.XtraTabPageIDB_Attributes.Size = New System.Drawing.Size(1124, 521)
+        Me.XtraTabPageIDB_Attributes.Size = New System.Drawing.Size(1124, 524)
         Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung"
         '
         'ComboBox1
@@ -601,7 +616,7 @@ Partial Class frmAdmin_Start
         Me.GridControl1.MainView = Me.GridView1
         Me.GridControl1.MenuManager = Me.RibbonControl1
         Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(282, 521)
+        Me.GridControl1.Size = New System.Drawing.Size(282, 524)
         Me.GridControl1.TabIndex = 28
         Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
         '
@@ -742,7 +757,7 @@ Partial Class frmAdmin_Start
         '
         Me.XtraTabPageIDB_SourceSQL.Controls.Add(Me.GridSourceSQL)
         Me.XtraTabPageIDB_SourceSQL.Name = "XtraTabPageIDB_SourceSQL"
-        Me.XtraTabPageIDB_SourceSQL.Size = New System.Drawing.Size(1124, 521)
+        Me.XtraTabPageIDB_SourceSQL.Size = New System.Drawing.Size(1124, 524)
         Me.XtraTabPageIDB_SourceSQL.Text = "Source SQL"
         '
         'GridSourceSQL
@@ -752,7 +767,7 @@ Partial Class frmAdmin_Start
         Me.GridSourceSQL.MainView = Me.ViewSourceSQL
         Me.GridSourceSQL.MenuManager = Me.RibbonControl1
         Me.GridSourceSQL.Name = "GridSourceSQL"
-        Me.GridSourceSQL.Size = New System.Drawing.Size(1124, 521)
+        Me.GridSourceSQL.Size = New System.Drawing.Size(1124, 524)
         Me.GridSourceSQL.TabIndex = 0
         Me.GridSourceSQL.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewSourceSQL})
         '
@@ -765,16 +780,56 @@ Partial Class frmAdmin_Start
         '
         Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer"
         Me.XtraTabPage_GlobalIndexer.PageVisible = False
-        Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 546)
+        Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 547)
         Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer"
         '
         'XtraTabPage_ClipboardWatcher
         '
+        Me.XtraTabPage_ClipboardWatcher.Controls.Add(Me.XtraTabControl1)
         Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher"
         Me.XtraTabPage_ClipboardWatcher.PageVisible = False
-        Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 546)
+        Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 547)
         Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher"
         '
+        '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.XtraTabPageCWProfiles
+        Me.XtraTabControl1.Size = New System.Drawing.Size(1126, 547)
+        Me.XtraTabControl1.TabIndex = 0
+        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageCWProfiles, Me.XtraTabPage2})
+        '
+        'XtraTabPageCWProfiles
+        '
+        Me.XtraTabPageCWProfiles.Controls.Add(Me.GridControl2)
+        Me.XtraTabPageCWProfiles.Name = "XtraTabPageCWProfiles"
+        Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(1124, 524)
+        Me.XtraTabPageCWProfiles.Text = "Profile"
+        '
+        '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(1124, 524)
+        Me.GridControl2.TabIndex = 0
+        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
+        '
+        'GridView2
+        '
+        Me.GridView2.GridControl = Me.GridControl2
+        Me.GridView2.Name = "GridView2"
+        '
+        'XtraTabPage2
+        '
+        Me.XtraTabPage2.Name = "XtraTabPage2"
+        Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 524)
+        Me.XtraTabPage2.Text = "XtraTabPage2"
+        '
         'XtraTabControl
         '
         Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill
@@ -822,6 +877,12 @@ Partial Class frmAdmin_Start
         Me.XtraTabPageIDB_SourceSQL.ResumeLayout(False)
         CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False)
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControl1.ResumeLayout(False)
+        Me.XtraTabPageCWProfiles.ResumeLayout(False)
+        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControl.ResumeLayout(False)
         Me.ResumeLayout(False)
@@ -902,4 +963,9 @@ Partial Class frmAdmin_Start
     Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents GridSourceSQL As DevExpress.XtraGrid.GridControl
     Friend WithEvents ViewSourceSQL As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents XtraTabPageCWProfiles As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents GridControl2 As GridControl
+    Friend WithEvents GridView2 As GridView
 End Class

GUIs.ZooFlow/Administration/frmAdmin_Start.resx

@@ -326,6 +326,9 @@
         LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
 </value>
   </data>
+  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>323, 21</value>
+  </metadata>
   <metadata name="TBIDB_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>711, 21</value>
   </metadata>

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -13,9 +13,9 @@ Public Class frmAdmin_Start
     Private Const IDB_START = "IDB_START"
     Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
     Private Const IDB_BUSINESS_ENTITY = "IDB_BUSINESS_ENTITY"
-    Private Const GLOBIX = "GLOBIX"
-    Private Const CLIPBOARD_WATCHER = "CLIPBOARD_WATCHER"
-    Private Const SOURCE_SQL = "SOURCE_SQL"
+    Private Const IDB_SOURCE_SQL = "IDB_SOURCE_SQL"
+    Private Const GLOBIX_PROFILES = "GLOBIX_PROFILES"
+    Private Const CW_PROFILES = "CW_PROFILES"
 
     Private PrimaryKey As String = Nothing
     Private SourceCommands As New Dictionary(Of String, SourceSql)
@@ -37,23 +37,34 @@ Public Class frmAdmin_Start
         XtraTabControl.ShowTabHeader = DefaultBoolean.False
     End Sub
 
-    Private Sub Load_SQLData()
-        Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL")
-
-        For Each oRow As DataRow In oTable.Rows
-            Dim oSource As New SourceSql With {
-                .PrimaryKey = oRow.Item("PK_COLUMN"),
-                .SQL = oRow.Item("SQL_COMMAND"),
-                .Title = oRow.Item("ENTITY_TITLE")
-            }
-
-            SourceCommands.Add(oRow.Item("ENTITY_TITLE"), oSource)
-        Next
-    End Sub
-
-    Sub Display_Tab(pPageToDisplay As XtraTabPage, pTabControl As XtraTabControl)
+    Private Function Load_SQLData() As Boolean
         Try
-            For Each oDocument As XtraTabPage In pTabControl.TabPages
+            Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL")
+            SourceCommands.Clear()
+
+            For Each oRow As DataRow In oTable.Rows
+                Dim oSource As New SourceSql With {
+                    .PrimaryKey = oRow.Item("PK_COLUMN"),
+                    .SQL = oRow.Item("SQL_COMMAND"),
+                    .Title = oRow.Item("ENTITY_TITLE")
+                }
+
+                SourceCommands.Add(oRow.Item("ENTITY_TITLE"), oSource)
+            Next
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Sub Display_Tab(pPageToDisplay As XtraTabPage)
+        Try
+            If pPageToDisplay.TabControl Is Nothing Then
+                Exit Sub
+            End If
+
+            For Each oDocument As XtraTabPage In pPageToDisplay.TabControl.TabPages
                 If oDocument.Name = pPageToDisplay.Name Then
                     oDocument.PageVisible = True
                 Else
@@ -69,9 +80,7 @@ Public Class frmAdmin_Start
         Try
             For Each oPage As RibbonPage In RibbonControl1.Pages
                 If oPage.Name = PageToDisplay.Name Then
-                    oPage.Visible = True
-                Else
-                    oPage.Visible = False
+                    RibbonControl1.SelectedPage = PageToDisplay
                 End If
             Next
         Catch ex As Exception
@@ -86,15 +95,19 @@ Public Class frmAdmin_Start
             End If
 
             CurrentPage = e.Node.Tag.ToString
-            Dim oSource As SourceSql = SourceCommands.Item(CurrentPage)
+
+            Dim oSource As SourceSql
+            If SourceCommands.ContainsKey(CurrentPage) Then
+                oSource = SourceCommands.Item(CurrentPage)
+            End If
 
             Select Case e.Node.Tag.ToString
                 Case IDB_START
-                    Display_Tab(XtraTabPage_IDB, XtraTabControl)
+                    Display_Tab(XtraTabPage_IDB)
 
                 Case IDB_ATTRIBUTES
-                    Display_Tab(XtraTabPage_IDB, XtraTabControl)
-                    Display_Tab(XtraTabPageIDB_Attributes_New, XtraTabControlIDB)
+                    Display_Tab(XtraTabPage_IDB)
+                    Display_Tab(XtraTabPageIDB_Attributes_New)
 
                     Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
                     Load_Grid(oTable, oSource.PrimaryKey, GridAttributes)
@@ -102,17 +115,21 @@ Public Class frmAdmin_Start
                 Case IDB_BUSINESS_ENTITY
                 'DisplayTab(XtraTabPage_Entities)
 
-                Case GLOBIX
-                    Display_Tab(XtraTabPage_GlobalIndexer, XtraTabControl)
+                Case GLOBIX_PROFILES
+                    Display_Tab(XtraTabPage_GlobalIndexer)
                     Display_RibbonPage(RibbonPage_GlobalIndexer)
 
-                Case CLIPBOARD_WATCHER
-                    Display_Tab(XtraTabPage_ClipboardWatcher, XtraTabControl)
+                Case CW_PROFILES
+                    Display_Tab(XtraTabPage_ClipboardWatcher)
+                    Display_Tab(XtraTabPageCWProfiles)
                     Display_RibbonPage(RibbonPage_ClipboardWatcher)
 
-                Case SOURCE_SQL
-                    Display_Tab(XtraTabPage_IDB, XtraTabControl)
-                    Display_Tab(XtraTabPageIDB_SourceSQL, XtraTabControlIDB)
+                    Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
+                    Load_Grid(oTable, oSource.PrimaryKey, GridControl2)
+
+                Case IDB_SOURCE_SQL
+                    Display_Tab(XtraTabPage_IDB)
+                    Display_Tab(XtraTabPageIDB_SourceSQL)
 
                     Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
                     Load_Grid(oTable, oSource.PrimaryKey, GridSourceSQL)
@@ -251,4 +268,18 @@ Public Class frmAdmin_Start
             ShowError(ex)
         End Try
     End Sub
+
+    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
+        Load_SQLData()
+        ShowStatus("Source SQL neu geladen")
+    End Sub
+
+    Private Sub ShowStatus(v As String)
+        labelStatus.Caption = v
+        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+    End Sub
+
+    Private Sub ResetStatus()
+        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+    End Sub
 End Class