MS

2018-03-08 16:27:53 +01:00 · 2018-03-08 16:27:53 +01:00 · 7157758e1c
commit 7157758e1c
parent 3fed2d8551 4dbf5f7f09
15 changed files with 1270 additions and 952 deletions
--- a/app/DD_PM_WINDREAM/App.config
+++ b/app/DD_PM_WINDREAM/App.config
@ -6,11 +6,10 @@
        </sectionGroup>
    </configSections>
    <connectionStrings>
-        <add name="DD_PM_WINDREAM.My.MySettings.ConnectionString" connectionString="Data Source=172.24.12.41\Tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
-            providerName="System.Data.SqlClient" />
+        <add name="DD_PM_WINDREAM.My.MySettings.ConnectionString" connectionString="Data Source=172.24.12.41\Tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient"/>
    </connectionStrings>
    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1"/>
    </startup>
    <userSettings>
        <DD_PM_WINDREAM.My.MySettings>
--- a/app/DD_PM_WINDREAM/ClassPMWindream.vb
+++ b/app/DD_PM_WINDREAM/ClassPMWindream.vb
@ -1,5 +1,6 @@
 Imports WINDREAMLib
 Imports WMOSRCHLib
+
 Public Class ClassPMWindream
    Inherits ClassWindream_allgemein
    'Private email As New ClassNIEmail
--- a/app/DD_PM_WINDREAM/ClassSQLEditor.vb
+++ b/app/DD_PM_WINDREAM/ClassSQLEditor.vb
@ -0,0 +1,30 @@
+Imports System.ComponentModel
+Imports System.Drawing.Design
+Imports System.Windows.Forms.Design
+Imports DD_PM_WINDREAM.InputProperties
+
+Public Class ClassSQLEditor
+    Inherits UITypeEditor
+
+    Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle
+        Return UITypeEditorEditStyle.Modal
+    End Function
+
+    Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
+        'Return MyBase.EditValue(context, provider, value)
+        Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
+        Dim SQLSTring As String = DirectCast(value, SQLValue).Value
+
+        If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
+            Using Form As New frmSQL_DESIGNER()
+                Form.Value = SQLSTring
+                If svc.ShowDialog(Form) = DialogResult.OK Then
+                    Dim sql As New SQLValue(Form.Value)
+                    value = sql
+                End If
+            End Using
+        End If
+
+        Return value
+    End Function
+End Class
--- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
+++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <PropertyGroup>
    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
@ -13,7 +13,7 @@
    <AssemblyName>DD_PM_WINDREAM</AssemblyName>
    <FileAlignment>512</FileAlignment>
    <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
    <TargetFrameworkProfile>
    </TargetFrameworkProfile>
  </PropertyGroup>
@ -27,6 +27,7 @@
    <DocumentationFile>DD_PM_WINDREAM.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
    <Prefer32Bit>false</Prefer32Bit>
+    <CodeAnalysisRuleSet>UnusedCode.ruleset</CodeAnalysisRuleSet>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
    <PlatformTarget>x86</PlatformTarget>
@ -55,6 +56,10 @@
    <ApplicationIcon>PM_ohne_slogan_128px.ico</ApplicationIcon>
  </PropertyGroup>
  <ItemGroup>
+    <Reference Include="DD_LIB_Standards, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
+    </Reference>
    <Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
    <Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
@ -109,7 +114,7 @@
      <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraTreeList.v15.2.dll</HintPath>
    </Reference>
    <Reference Include="DLLLicenseManager">
-      <HintPath>..\..\..\LizenzManager\LizenzManager\bin\Debug\DLLLicenseManager.dll</HintPath>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
    </Reference>
    <Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
@ -151,6 +156,7 @@
    <Compile Include="ClassAnnotation.vb" />
    <Compile Include="ClassInit.vb" />
    <Compile Include="ClassLogger.vb" />
+    <Compile Include="ClassSQLEditor.vb" />
    <Compile Include="frmAbout.designer.vb">
      <DependentUpon>frmAbout.vb</DependentUpon>
    </Compile>
@ -269,6 +275,8 @@
    <Compile Include="frmValidator.vb">
      <SubType>Form</SubType>
    </Compile>
+    <Compile Include="ModuleControlProperties.vb" />
+    <Compile Include="ModuleHelperMethods.vb" />
    <Compile Include="ModuleMySettings.vb" />
    <Compile Include="ModuleRuntimeVariables.vb" />
    <Compile Include="My Project\AssemblyInfo.vb" />
--- a/app/DD_PM_WINDREAM/ModuleControlProperties.vb
+++ b/app/DD_PM_WINDREAM/ModuleControlProperties.vb
@ -0,0 +1,329 @@
+Imports System.ComponentModel
+Imports System.Drawing.Design
+Imports System.Globalization
+
+Public Module ModuleControlProperties
+    Public Enum IndexTypes
+        SimpleIndex = 0
+        VectorIndex = 1
+    End Enum
+
+    Public Class BaseProperties
+        Private _id As Integer
+        Private _name As String
+        Private _location As Point
+        Private _size As Size
+        Private _font As Font
+        Private _text_color As Color
+
+        <Category("Allgemein")>
+        <[ReadOnly](True)>
+        Public Property ID() As Integer
+            Get
+                Return _id
+            End Get
+            Set(value As Integer)
+                _id = value
+            End Set
+        End Property
+
+        <Category("Allgemein")>
+        Public Property Name() As String
+            Get
+                Return _name
+            End Get
+            Set(value As String)
+                _name = value
+            End Set
+        End Property
+
+        <Category("Anzeige")>
+        Public Property Location() As Point
+            Get
+                Return _location
+            End Get
+            Set(value As Point)
+                _location = value
+            End Set
+        End Property
+
+        <Category("Anzeige")>
+        Public Property Size() As Size
+            Get
+                Return _size
+            End Get
+            Set(value As Size)
+                _size = value
+            End Set
+        End Property
+
+        <Category("Anzeige")>
+        <TypeConverter(GetType(FontConverter))>
+        Public Property Font As Font
+            Get
+                Return _font
+            End Get
+            Set(value As Font)
+                _font = value
+            End Set
+        End Property
+
+        <Category("Anzeige")>
+        Public Property TextColor As Color
+            Get
+                Return _text_color
+            End Get
+            Set(value As Color)
+                _text_color = value
+            End Set
+        End Property
+
+        Class FontConverter
+            Inherits TypeConverter
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
+                Dim font = DirectCast(value, Font)
+                Return $"{font.Name}, {font.Size}"
+            End Function
+        End Class
+    End Class
+
+    Public Class InputProperties
+        Inherits BaseProperties
+
+        Private _required As Boolean
+        Private _read_only As Boolean
+        Private _index_type As String
+        Private _indicies As List(Of String)
+        Private _index As String
+        Private _sql_command As String
+
+        Public Property Required() As Boolean
+            Get
+                Return _required
+            End Get
+            Set(ByVal value As Boolean)
+                _required = value
+            End Set
+        End Property
+
+        Public Property [ReadOnly]() As Boolean
+            Get
+                Return _read_only
+            End Get
+            Set(ByVal value As Boolean)
+                _read_only = value
+            End Set
+        End Property
+
+        <Category("Indexierung")>
+        Public Property IndexType() As IndexTypes
+            Get
+                Return _index_type
+            End Get
+            Set(ByVal value As IndexTypes)
+                _index_type = value
+            End Set
+        End Property
+
+        ''' <summary>
+        ''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt.
+        ''' </summary>
+        <Browsable(False)>
+        Public Property Indicies() As List(Of String)
+            Get
+                Return _indicies
+            End Get
+            Set(ByVal value As List(Of String))
+                _indicies = value
+            End Set
+        End Property
+
+        ''' <summary>
+        ''' Diese Eigenschaft enthält des ausgewählten Index
+        ''' </summary>
+        <Category("Indexierung")>
+        <TypeConverter(GetType(IndexListConverter))>
+        Public Property Index() As String
+            Get
+                Return _index
+            End Get
+            Set(value As String)
+                _index = value
+            End Set
+        End Property
+
+        <Category("Daten")>
+        Public Property SQLCommand() As SQLValue
+            Get
+                Return New SQLValue(NotNull(_sql_command, ""))
+            End Get
+            Set(ByVal value As SQLValue)
+                _sql_command = value.Value
+            End Set
+        End Property
+
+        ''' <summary>
+        ''' Sorgt dafür, dass die Liste von Indicies aus dem gleichnamigen Feld ausgelesen wird
+        ''' </summary>
+        Public Class IndexListConverter
+            Inherits TypeConverter
+
+            Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean
+                Return True
+            End Function
+
+            Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
+                Dim indexList = DirectCast(context.Instance, InputProperties).Indicies
+                Dim values As New StandardValuesCollection(indexList)
+                Return values
+            End Function
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
+                If IsNothing(value) Then
+                    Return ""
+                Else
+                    Return value.ToString()
+                End If
+            End Function
+        End Class
+
+        Public Class SQLTypeConverter
+            Inherits TypeConverter
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As Globalization.CultureInfo, value As Object, destinationType As Type) As Object
+                'Return MyBase.ConvertTo(context, culture, value, destinationType)
+                Dim sqlvalue As SQLValue = DirectCast(value, SQLValue)
+                Return sqlvalue.Value
+            End Function
+        End Class
+
+        ''' <summary>
+        ''' Hilfsklasse, die für das anzeigen und abspeichern von SQL-Befehlen verwendet wird
+        ''' </summary>
+        <Editor(GetType(ClassSQLEditor), GetType(UITypeEditor))>
+        <TypeConverter(GetType(SQLTypeConverter))>
+        Public Class SQLValue
+            Private _value As String
+
+            Public Sub New(value As String)
+                Me.Value = value
+            End Sub
+
+            Public Property Value As String
+                Get
+                    Return _value
+                End Get
+                Set(value As String)
+                    _value = value
+                End Set
+            End Property
+        End Class
+    End Class
+
+    Public Class TextboxProperties
+        Inherits InputProperties
+
+    End Class
+
+    Public Class LabelProperties
+        Inherits BaseProperties
+
+        Private _text As String
+
+        <Category("Allgemein")>
+        Public Property Text() As String
+            Get
+                Return _text
+            End Get
+            Set(value As String)
+                _text = value
+            End Set
+        End Property
+    End Class
+
+    Public Class CheckboxProperties
+        Inherits InputProperties
+
+        Private _text As String
+
+        <Category("Allgemein")>
+        Public Property Text() As String
+            Get
+                Return _text
+            End Get
+            Set(value As String)
+                _text = value
+            End Set
+        End Property
+    End Class
+
+    Public Class ComboboxProperties
+        Inherits InputProperties
+
+        Private _text As String
+        Private _choice_list As String
+        Private _choice_lists As List(Of String)
+
+        <Category("Allgemein")>
+        Public Property Text() As String
+            Get
+                Return _text
+            End Get
+            Set(value As String)
+                _text = value
+            End Set
+        End Property
+
+        <Browsable(False)>
+        Public Property ChoiceLists() As List(Of String)
+            Get
+                Return _choice_lists
+            End Get
+            Set(value As List(Of String))
+                _choice_lists = value
+            End Set
+        End Property
+
+        <Category("Daten")>
+        <TypeConverter(GetType(ChoiceListConverter))>
+        Public Property ChoiceList() As String
+            Get
+                Return _choice_list
+            End Get
+            Set(value As String)
+                _choice_list = value
+            End Set
+        End Property
+
+        Public Class ChoiceListConverter
+            Inherits TypeConverter
+
+            Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean
+                Return True
+            End Function
+
+            Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
+                Dim choiceListList = DirectCast(context.Instance, ComboboxProperties).ChoiceLists
+                Dim values As New StandardValuesCollection(choiceListList)
+                Return values
+            End Function
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
+                If IsNothing(value) Then
+                    Return ""
+                Else
+                    Return value.ToString()
+                End If
+            End Function
+        End Class
+    End Class
+
+    Public Class DatepickerProperties
+        Inherits InputProperties
+    End Class
+
+    Public Class GridViewProperties
+        Inherits InputProperties
+    End Class
+End Module
--- a/app/DD_PM_WINDREAM/ModuleHelperMethods.vb
+++ b/app/DD_PM_WINDREAM/ModuleHelperMethods.vb
@ -0,0 +1,50 @@
+Module ModuleHelperMethods
+    ''' <summary>
+    ''' Überprüft einen Wert auf verschiedene Arten von "Null"-Werten
+    ''' </summary>
+    ''' <param name="value">Der zu überprüfende Wert</param>
+    ''' <param name="defaultValue">Der Standard Wert</param>
+    ''' <returns>value oder wenn dieser "Null" ist, defaultValue</returns>
+    Public 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
+        Else
+            Return value
+        End If
+    End Function
+
+    ''' <summary>
+    ''' Versucht einen String in einen Boolean zu konvertieren
+    ''' </summary>
+    ''' <param name="str">Der zu konvertierende String</param>
+    ''' <returns>Den umgewandelten Wert oder Falsche</returns>
+    Public Function StrToBool(str As Object) As Boolean
+        Dim result As Boolean = False
+
+        str = TryCast(str, String)
+
+        Try
+            result = Convert.ToBoolean(str)
+        Catch ex As Exception
+            result = False
+        End Try
+
+        Return result
+    End Function
+
+    ''' <summary>
+    ''' Konvertiert eine Farbe in den entsprechenden Integer Wert
+    ''' </summary>
+    Public Function ColorToInt(color As Color) As Integer
+        Return ColorTranslator.ToWin32(color)
+    End Function
+
+    ''' <summary>
+    ''' Konvertiert eine Zahl in die entsprechende Farbe
+    ''' </summary>
+    Public Function IntToColor(int As Integer) As Color
+        Return ColorTranslator.FromWin32(int)
+    End Function
+End Module
+
+
--- a/Project/Application.Designer.vb
+++ b/Project/Application.Designer.vb
@ -1,7 +1,7 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.34014
+'     Laufzeitversion:4.0.30319.42000
 '
 '     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
 '     der Code erneut generiert wird.
@ -14,8 +14,8 @@ Option Explicit On

 Namespace My
    
-    'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
-    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
+    '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.
    '
--- a/app/DD_PM_WINDREAM/UnusedCode.ruleset
+++ b/app/DD_PM_WINDREAM/UnusedCode.ruleset
@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="utf-8"?>
+<RuleSet Name="New Rule Set" Description=" " ToolsVersion="15.0">
+  <Rules AnalyzerId="Microsoft.Analyzers.ManagedCodeAnalysis" RuleNamespace="Microsoft.Rules.Managed">
+    <Rule Id="CA1801" Action="Warning" />
+    <Rule Id="CA1804" Action="Warning" />
+    <Rule Id="CA1811" Action="Warning" />
+    <Rule Id="CA1812" Action="Warning" />
+    <Rule Id="CA1823" Action="Warning" />
+  </Rules>
+  <Rules AnalyzerId="Microsoft.Analyzers.NativeCodeAnalysis" RuleNamespace="Microsoft.Rules.Native">
+    <Rule Id="C6259" Action="Warning" />
+  </Rules>
+</RuleSet>
--- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb
@ -23,24 +23,12 @@ Partial Class frmFormDesigner
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        Dim X_LOCLabel As System.Windows.Forms.Label
-        Dim Y_LOCLabel As System.Windows.Forms.Label
        Dim CHANGED_WHOLabel As System.Windows.Forms.Label
        Dim CHANGED_WHENLabel As System.Windows.Forms.Label
-        Dim HEIGHTLabel As System.Windows.Forms.Label
-        Dim WIDTHLabel As System.Windows.Forms.Label
-        Dim GUIDLabel As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormDesigner))
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.lblDesign = New System.Windows.Forms.Label()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.btnTabelle = New System.Windows.Forms.Button()
-        Me.btnCheckbox = New System.Windows.Forms.Button()
-        Me.btnVektor = New System.Windows.Forms.Button()
-        Me.btndtp = New System.Windows.Forms.Button()
-        Me.btncmb = New System.Windows.Forms.Button()
-        Me.btntextbox = New System.Windows.Forms.Button()
-        Me.btnlabel = New System.Windows.Forms.Button()
        Me.pnldesigner = New System.Windows.Forms.Panel()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.lblhintergrund = New System.Windows.Forms.Label()
@ -48,8 +36,6 @@ Partial Class frmFormDesigner
        Me.TabControlEigenschaften = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.LOAD_IDX_VALUECheckBox = New System.Windows.Forms.CheckBox()
-        Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
        Me.READ_ONLYCheckBox = New System.Windows.Forms.CheckBox()
        Me.INDEX_NAME_VALUE = New System.Windows.Forms.TextBox()
        Me.rbVektor = New System.Windows.Forms.RadioButton()
@ -66,90 +52,72 @@ Partial Class frmFormDesigner
        Me.lblAuswahlliste = New System.Windows.Forms.Label()
        Me.INDEX_NAMETextBox = New System.Windows.Forms.TextBox()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.btnheight_minus = New System.Windows.Forms.Button()
-        Me.btnheight_plus = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
-        Me.btnwidth_minus = New System.Windows.Forms.Button()
-        Me.btnwidth_plus = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
        Me.pnlAuswahlliste = New System.Windows.Forms.Panel()
-        Me.btnEditor = New System.Windows.Forms.Button()
-        Me.btnShowConnections = New System.Windows.Forms.Button()
        Me.SQL_CommandTextBox = New System.Windows.Forms.TextBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.cmbConnection = New System.Windows.Forms.ComboBox()
+        Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.pgControls = New System.Windows.Forms.PropertyGrid()
+        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
+        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
+        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+        Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
+        Me.btnrefresh = New System.Windows.Forms.Button()
+        Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.btnheight_minus = New System.Windows.Forms.Button()
+        Me.btnheight_plus = New System.Windows.Forms.Button()
+        Me.btnwidth_minus = New System.Windows.Forms.Button()
+        Me.btnwidth_plus = New System.Windows.Forms.Button()
+        Me.btnEditor = New System.Windows.Forms.Button()
+        Me.btnShowConnections = New System.Windows.Forms.Button()
        Me.TBPM_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.btndelete = New System.Windows.Forms.Button()
        Me.btnsave = New System.Windows.Forms.Button()
-        Me.X_LOCTextBox = New System.Windows.Forms.TextBox()
-        Me.Y_LOCTextBox = New System.Windows.Forms.TextBox()
-        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
+        Me.btnTabelle = New System.Windows.Forms.Button()
+        Me.btnCheckbox = New System.Windows.Forms.Button()
+        Me.btnVektor = New System.Windows.Forms.Button()
+        Me.btndtp = New System.Windows.Forms.Button()
+        Me.btncmb = New System.Windows.Forms.Button()
+        Me.btntextbox = New System.Windows.Forms.Button()
+        Me.btnlabel = New System.Windows.Forms.Button()
        Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
        Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
-        Me.HEIGHTTextBox = New System.Windows.Forms.TextBox()
-        Me.WIDTHTextBox = New System.Windows.Forms.TextBox()
        Me.TBPM_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONNECTIONTableAdapter()
        Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.TBWH_CHECK_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter()
-        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
-        Me.btnrefresh = New System.Windows.Forms.Button()
-        Me.GUIDTextBox = New System.Windows.Forms.TextBox()
-        X_LOCLabel = New System.Windows.Forms.Label()
-        Y_LOCLabel = New System.Windows.Forms.Label()
        CHANGED_WHOLabel = New System.Windows.Forms.Label()
        CHANGED_WHENLabel = New System.Windows.Forms.Label()
-        HEIGHTLabel = New System.Windows.Forms.Label()
-        WIDTHLabel = New System.Windows.Forms.Label()
-        GUIDLabel = New System.Windows.Forms.Label()
        Me.Panel1.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.pnldesigner.SuspendLayout()
        Me.gbxControl.SuspendLayout()
        Me.TabControlEigenschaften.SuspendLayout()
        Me.TabPage1.SuspendLayout()
-        CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage2.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me.pnlAuswahlliste.SuspendLayout()
-        CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage4.SuspendLayout()
        Me.StatusStrip1.SuspendLayout()
+        CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
-        'X_LOCLabel
-        '
-        X_LOCLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        X_LOCLabel.AutoSize = True
-        X_LOCLabel.Location = New System.Drawing.Point(12, 412)
-        X_LOCLabel.Name = "X_LOCLabel"
-        X_LOCLabel.Size = New System.Drawing.Size(72, 16)
-        X_LOCLabel.TabIndex = 14
-        X_LOCLabel.Text = "Location X:"
-        '
-        'Y_LOCLabel
-        '
-        Y_LOCLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Y_LOCLabel.AutoSize = True
-        Y_LOCLabel.Location = New System.Drawing.Point(134, 412)
-        Y_LOCLabel.Name = "Y_LOCLabel"
-        Y_LOCLabel.Size = New System.Drawing.Size(71, 16)
-        Y_LOCLabel.TabIndex = 16
-        Y_LOCLabel.Text = "Location Y:"
-        '
        'CHANGED_WHOLabel
        '
        CHANGED_WHOLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        CHANGED_WHOLabel.AutoSize = True
-        CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 464)
+        CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 499)
        CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
        CHANGED_WHOLabel.Size = New System.Drawing.Size(91, 16)
        CHANGED_WHOLabel.TabIndex = 18
@ -159,41 +127,12 @@ Partial Class frmFormDesigner
        '
        CHANGED_WHENLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        CHANGED_WHENLabel.AutoSize = True
-        CHANGED_WHENLabel.Location = New System.Drawing.Point(250, 464)
+        CHANGED_WHENLabel.Location = New System.Drawing.Point(250, 499)
        CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
        CHANGED_WHENLabel.Size = New System.Drawing.Size(98, 16)
        CHANGED_WHENLabel.TabIndex = 20
        CHANGED_WHENLabel.Text = "Changed when:"
        '
-        'HEIGHTLabel
-        '
-        HEIGHTLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        HEIGHTLabel.AutoSize = True
-        HEIGHTLabel.Location = New System.Drawing.Point(250, 412)
-        HEIGHTLabel.Name = "HEIGHTLabel"
-        HEIGHTLabel.Size = New System.Drawing.Size(49, 16)
-        HEIGHTLabel.TabIndex = 21
-        HEIGHTLabel.Text = "Height:"
-        '
-        'WIDTHLabel
-        '
-        WIDTHLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        WIDTHLabel.AutoSize = True
-        WIDTHLabel.Location = New System.Drawing.Point(328, 412)
-        WIDTHLabel.Name = "WIDTHLabel"
-        WIDTHLabel.Size = New System.Drawing.Size(46, 16)
-        WIDTHLabel.TabIndex = 22
-        WIDTHLabel.Text = "Width:"
-        '
-        'GUIDLabel
-        '
-        GUIDLabel.AutoSize = True
-        GUIDLabel.Location = New System.Drawing.Point(12, 515)
-        GUIDLabel.Name = "GUIDLabel"
-        GUIDLabel.Size = New System.Drawing.Size(25, 16)
-        GUIDLabel.TabIndex = 24
-        GUIDLabel.Text = "ID:"
-        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.lblDesign)
@ -233,97 +172,6 @@ Partial Class frmFormDesigner
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Control-Typ (Drag and Drop)"
        '
-        'btnTabelle
-        '
-        Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add
-        Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnTabelle.Location = New System.Drawing.Point(290, 55)
-        Me.btnTabelle.Name = "btnTabelle"
-        Me.btnTabelle.Size = New System.Drawing.Size(103, 29)
-        Me.btnTabelle.TabIndex = 6
-        Me.btnTabelle.Text = "Tabelle"
-        Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnTabelle.UseVisualStyleBackColor = True
-        '
-        'btnCheckbox
-        '
-        Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnCheckbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG
-        Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnCheckbox.Location = New System.Drawing.Point(151, 90)
-        Me.btnCheckbox.Name = "btnCheckbox"
-        Me.btnCheckbox.Size = New System.Drawing.Size(133, 31)
-        Me.btnCheckbox.TabIndex = 5
-        Me.btnCheckbox.Text = "Checkbox"
-        Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnCheckbox.UseVisualStyleBackColor = True
-        '
-        'btnVektor
-        '
-        Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add
-        Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnVektor.Location = New System.Drawing.Point(151, 55)
-        Me.btnVektor.Name = "btnVektor"
-        Me.btnVektor.Size = New System.Drawing.Size(133, 29)
-        Me.btnVektor.TabIndex = 4
-        Me.btnVektor.Text = "Mehrfach-/Vektorfeld"
-        Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnVektor.UseVisualStyleBackColor = True
-        '
-        'btndtp
-        '
-        Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675
-        Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btndtp.Location = New System.Drawing.Point(151, 22)
-        Me.btndtp.Name = "btndtp"
-        Me.btndtp.Size = New System.Drawing.Size(133, 27)
-        Me.btndtp.TabIndex = 3
-        Me.btndtp.Text = "DatePicker"
-        Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btndtp.UseVisualStyleBackColor = True
-        '
-        'btncmb
-        '
-        Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btncmb.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG
-        Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btncmb.Location = New System.Drawing.Point(12, 90)
-        Me.btncmb.Name = "btncmb"
-        Me.btncmb.Size = New System.Drawing.Size(133, 31)
-        Me.btncmb.TabIndex = 2
-        Me.btncmb.Text = "Combobox"
-        Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btncmb.UseVisualStyleBackColor = True
-        '
-        'btntextbox
-        '
-        Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btntextbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox_708
-        Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btntextbox.Location = New System.Drawing.Point(13, 55)
-        Me.btntextbox.Name = "btntextbox"
-        Me.btntextbox.Size = New System.Drawing.Size(133, 29)
-        Me.btntextbox.TabIndex = 1
-        Me.btntextbox.Text = "Textbox"
-        Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btntextbox.UseVisualStyleBackColor = True
-        '
-        'btnlabel
-        '
-        Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnlabel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Label_684
-        Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnlabel.Location = New System.Drawing.Point(12, 22)
-        Me.btnlabel.Name = "btnlabel"
-        Me.btnlabel.Size = New System.Drawing.Size(133, 27)
-        Me.btnlabel.TabIndex = 0
-        Me.btnlabel.Text = "Label"
-        Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnlabel.UseVisualStyleBackColor = True
-        '
        'pnldesigner
        '
        Me.pnldesigner.AllowDrop = True
@ -384,6 +232,7 @@ Partial Class frmFormDesigner
        Me.TabControlEigenschaften.Controls.Add(Me.TabPage1)
        Me.TabControlEigenschaften.Controls.Add(Me.TabPage2)
        Me.TabControlEigenschaften.Controls.Add(Me.TabPage3)
+        Me.TabControlEigenschaften.Controls.Add(Me.TabPage4)
        Me.TabControlEigenschaften.Location = New System.Drawing.Point(12, 22)
        Me.TabControlEigenschaften.Name = "TabControlEigenschaften"
        Me.TabControlEigenschaften.SelectedIndex = 0
@ -429,16 +278,6 @@ Partial Class frmFormDesigner
        Me.ToolTip1.SetToolTip(Me.LOAD_IDX_VALUECheckBox, "Die im zugrundeliegenden Index gepeicherten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten werden nicht angezeigt")
        Me.LOAD_IDX_VALUECheckBox.UseVisualStyleBackColor = True
        '
-        'TBPM_PROFILE_CONTROLSBindingSource
-        '
-        Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS"
-        Me.TBPM_PROFILE_CONTROLSBindingSource.DataSource = Me.DD_DMSLiteDataSet
-        '
-        'DD_DMSLiteDataSet
-        '
-        Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
-        Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
        'READ_ONLYCheckBox
        '
        Me.READ_ONLYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILE_CONTROLSBindingSource, "READ_ONLY", True))
@ -594,7 +433,7 @@ Partial Class frmFormDesigner
        '
        'INDEX_NAMETextBox
        '
-        Me.INDEX_NAMETextBox.Location = New System.Drawing.Point(6, 104)
+        Me.INDEX_NAMETextBox.Location = New System.Drawing.Point(6, 103)
        Me.INDEX_NAMETextBox.Name = "INDEX_NAMETextBox"
        Me.INDEX_NAMETextBox.Size = New System.Drawing.Size(319, 23)
        Me.INDEX_NAMETextBox.TabIndex = 16
@ -605,9 +444,9 @@ Partial Class frmFormDesigner
        Me.TabPage2.Controls.Add(Me.btnheight_minus)
        Me.TabPage2.Controls.Add(Me.btnheight_plus)
        Me.TabPage2.Controls.Add(Me.Label3)
+        Me.TabPage2.Controls.Add(Me.Label2)
        Me.TabPage2.Controls.Add(Me.btnwidth_minus)
        Me.TabPage2.Controls.Add(Me.btnwidth_plus)
-        Me.TabPage2.Controls.Add(Me.Label2)
        Me.TabPage2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TabPage2.Location = New System.Drawing.Point(4, 25)
        Me.TabPage2.Name = "TabPage2"
@ -617,32 +456,6 @@ Partial Class frmFormDesigner
        Me.TabPage2.Text = "Format"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
-        'btnheight_minus
-        '
-        Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnheight_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out
-        Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnheight_minus.Location = New System.Drawing.Point(94, 69)
-        Me.btnheight_minus.Name = "btnheight_minus"
-        Me.btnheight_minus.Size = New System.Drawing.Size(75, 25)
-        Me.btnheight_minus.TabIndex = 1
-        Me.btnheight_minus.Text = "kleiner"
-        Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnheight_minus.UseVisualStyleBackColor = True
-        '
-        'btnheight_plus
-        '
-        Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnheight_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in
-        Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnheight_plus.Location = New System.Drawing.Point(13, 69)
-        Me.btnheight_plus.Name = "btnheight_plus"
-        Me.btnheight_plus.Size = New System.Drawing.Size(75, 25)
-        Me.btnheight_plus.TabIndex = 0
-        Me.btnheight_plus.Text = "größer"
-        Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnheight_plus.UseVisualStyleBackColor = True
-        '
        'Label3
        '
        Me.Label3.AutoSize = True
@ -652,32 +465,6 @@ Partial Class frmFormDesigner
        Me.Label3.TabIndex = 5
        Me.Label3.Text = "Höhe:"
        '
-        'btnwidth_minus
-        '
-        Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnwidth_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out
-        Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22)
-        Me.btnwidth_minus.Name = "btnwidth_minus"
-        Me.btnwidth_minus.Size = New System.Drawing.Size(75, 25)
-        Me.btnwidth_minus.TabIndex = 1
-        Me.btnwidth_minus.Text = "kleiner"
-        Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnwidth_minus.UseVisualStyleBackColor = True
-        '
-        'btnwidth_plus
-        '
-        Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnwidth_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in
-        Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22)
-        Me.btnwidth_plus.Name = "btnwidth_plus"
-        Me.btnwidth_plus.Size = New System.Drawing.Size(75, 25)
-        Me.btnwidth_plus.TabIndex = 0
-        Me.btnwidth_plus.Text = "größer"
-        Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnwidth_plus.UseVisualStyleBackColor = True
-        '
        'Label2
        '
        Me.Label2.AutoSize = True
@ -713,33 +500,6 @@ Partial Class frmFormDesigner
        Me.pnlAuswahlliste.Size = New System.Drawing.Size(441, 228)
        Me.pnlAuswahlliste.TabIndex = 2
        '
-        'btnEditor
-        '
-        Me.btnEditor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.btnEditor.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnEditor.Image = CType(resources.GetObject("btnEditor.Image"), System.Drawing.Image)
-        Me.btnEditor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnEditor.Location = New System.Drawing.Point(6, 197)
-        Me.btnEditor.Name = "btnEditor"
-        Me.btnEditor.Size = New System.Drawing.Size(114, 28)
-        Me.btnEditor.TabIndex = 81
-        Me.btnEditor.Text = "Editor Detail"
-        Me.btnEditor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnEditor.UseVisualStyleBackColor = True
-        '
-        'btnShowConnections
-        '
-        Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1
-        Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnShowConnections.Location = New System.Drawing.Point(271, 30)
-        Me.btnShowConnections.Name = "btnShowConnections"
-        Me.btnShowConnections.Size = New System.Drawing.Size(111, 24)
-        Me.btnShowConnections.TabIndex = 6
-        Me.btnShowConnections.Text = "Connections"
-        Me.btnShowConnections.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnShowConnections.UseVisualStyleBackColor = True
-        '
        'SQL_CommandTextBox
        '
        Me.SQL_CommandTextBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@ -786,6 +546,162 @@ Partial Class frmFormDesigner
        Me.cmbConnection.TabIndex = 0
        Me.cmbConnection.ValueMember = "GUID"
        '
+        'TabPage4
+        '
+        Me.TabPage4.Controls.Add(Me.pgControls)
+        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage4.Name = "TabPage4"
+        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage4.Size = New System.Drawing.Size(447, 237)
+        Me.TabPage4.TabIndex = 3
+        Me.TabPage4.Text = "Eigenschaften"
+        Me.TabPage4.UseVisualStyleBackColor = True
+        '
+        'pgControls
+        '
+        Me.pgControls.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pgControls.HelpVisible = False
+        Me.pgControls.Location = New System.Drawing.Point(3, 3)
+        Me.pgControls.Name = "pgControls"
+        Me.pgControls.Size = New System.Drawing.Size(441, 228)
+        Me.pgControls.TabIndex = 0
+        '
+        'CHANGED_WHOTextBox
+        '
+        Me.CHANGED_WHOTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHO", True))
+        Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 518)
+        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
+        Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(222, 23)
+        Me.CHANGED_WHOTextBox.TabIndex = 19
+        '
+        'StatusStrip1
+        '
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen})
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 556)
+        Me.StatusStrip1.Name = "StatusStrip1"
+        Me.StatusStrip1.Size = New System.Drawing.Size(995, 22)
+        Me.StatusStrip1.TabIndex = 20
+        Me.StatusStrip1.Text = "StatusStrip1"
+        '
+        'CHANGED_WHENTextBox
+        '
+        Me.CHANGED_WHENTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHEN", True))
+        Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(253, 518)
+        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
+        Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23)
+        Me.CHANGED_WHENTextBox.TabIndex = 21
+        '
+        'TBPM_PROFILE_CONTROLSBindingSource
+        '
+        Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS"
+        Me.TBPM_PROFILE_CONTROLSBindingSource.DataSource = Me.DD_DMSLiteDataSet
+        '
+        'DD_DMSLiteDataSet
+        '
+        Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
+        Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'btnrefresh
+        '
+        Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh
+        Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnrefresh.Location = New System.Drawing.Point(415, 41)
+        Me.btnrefresh.Name = "btnrefresh"
+        Me.btnrefresh.Size = New System.Drawing.Size(81, 23)
+        Me.btnrefresh.TabIndex = 24
+        Me.btnrefresh.Text = "Refresh"
+        Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnrefresh.UseVisualStyleBackColor = True
+        '
+        'tslblAenderungen
+        '
+        Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red
+        Me.tslblAenderungen.Name = "tslblAenderungen"
+        Me.tslblAenderungen.Size = New System.Drawing.Size(153, 17)
+        Me.tslblAenderungen.Text = "Änderungen gespeichert"
+        Me.tslblAenderungen.Visible = False
+        '
+        'btnheight_minus
+        '
+        Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnheight_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out
+        Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnheight_minus.Location = New System.Drawing.Point(94, 69)
+        Me.btnheight_minus.Name = "btnheight_minus"
+        Me.btnheight_minus.Size = New System.Drawing.Size(75, 25)
+        Me.btnheight_minus.TabIndex = 1
+        Me.btnheight_minus.Text = "kleiner"
+        Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnheight_minus.UseVisualStyleBackColor = True
+        '
+        'btnheight_plus
+        '
+        Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnheight_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in
+        Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnheight_plus.Location = New System.Drawing.Point(13, 69)
+        Me.btnheight_plus.Name = "btnheight_plus"
+        Me.btnheight_plus.Size = New System.Drawing.Size(75, 25)
+        Me.btnheight_plus.TabIndex = 0
+        Me.btnheight_plus.Text = "größer"
+        Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnheight_plus.UseVisualStyleBackColor = True
+        '
+        'btnwidth_minus
+        '
+        Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnwidth_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out
+        Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22)
+        Me.btnwidth_minus.Name = "btnwidth_minus"
+        Me.btnwidth_minus.Size = New System.Drawing.Size(75, 25)
+        Me.btnwidth_minus.TabIndex = 1
+        Me.btnwidth_minus.Text = "kleiner"
+        Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnwidth_minus.UseVisualStyleBackColor = True
+        '
+        'btnwidth_plus
+        '
+        Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnwidth_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in
+        Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22)
+        Me.btnwidth_plus.Name = "btnwidth_plus"
+        Me.btnwidth_plus.Size = New System.Drawing.Size(75, 25)
+        Me.btnwidth_plus.TabIndex = 0
+        Me.btnwidth_plus.Text = "größer"
+        Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnwidth_plus.UseVisualStyleBackColor = True
+        '
+        'btnEditor
+        '
+        Me.btnEditor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnEditor.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnEditor.Image = CType(resources.GetObject("btnEditor.Image"), System.Drawing.Image)
+        Me.btnEditor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnEditor.Location = New System.Drawing.Point(6, 197)
+        Me.btnEditor.Name = "btnEditor"
+        Me.btnEditor.Size = New System.Drawing.Size(114, 28)
+        Me.btnEditor.TabIndex = 81
+        Me.btnEditor.Text = "Editor Detail"
+        Me.btnEditor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnEditor.UseVisualStyleBackColor = True
+        '
+        'btnShowConnections
+        '
+        Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1
+        Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnShowConnections.Location = New System.Drawing.Point(271, 30)
+        Me.btnShowConnections.Name = "btnShowConnections"
+        Me.btnShowConnections.Size = New System.Drawing.Size(111, 24)
+        Me.btnShowConnections.TabIndex = 6
+        Me.btnShowConnections.Text = "Connections"
+        Me.btnShowConnections.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnShowConnections.UseVisualStyleBackColor = True
+        '
        'TBPM_CONNECTIONBindingSource
        '
        Me.TBPM_CONNECTIONBindingSource.DataMember = "TBPM_CONNECTION"
@ -818,34 +734,96 @@ Partial Class frmFormDesigner
        Me.btnsave.UseVisualStyleBackColor = True
        Me.btnsave.Visible = False
        '
-        'X_LOCTextBox
+        'btnTabelle
        '
-        Me.X_LOCTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.X_LOCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "X_LOC", True))
-        Me.X_LOCTextBox.Location = New System.Drawing.Point(15, 431)
-        Me.X_LOCTextBox.Name = "X_LOCTextBox"
-        Me.X_LOCTextBox.ReadOnly = True
-        Me.X_LOCTextBox.Size = New System.Drawing.Size(100, 23)
-        Me.X_LOCTextBox.TabIndex = 15
+        Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add
+        Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnTabelle.Location = New System.Drawing.Point(290, 55)
+        Me.btnTabelle.Name = "btnTabelle"
+        Me.btnTabelle.Size = New System.Drawing.Size(103, 29)
+        Me.btnTabelle.TabIndex = 6
+        Me.btnTabelle.Text = "Tabelle"
+        Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnTabelle.UseVisualStyleBackColor = True
        '
-        'Y_LOCTextBox
+        'btnCheckbox
        '
-        Me.Y_LOCTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Y_LOCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "Y_LOC", True))
-        Me.Y_LOCTextBox.Location = New System.Drawing.Point(137, 431)
-        Me.Y_LOCTextBox.Name = "Y_LOCTextBox"
-        Me.Y_LOCTextBox.ReadOnly = True
-        Me.Y_LOCTextBox.Size = New System.Drawing.Size(100, 23)
-        Me.Y_LOCTextBox.TabIndex = 17
+        Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnCheckbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG
+        Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCheckbox.Location = New System.Drawing.Point(151, 90)
+        Me.btnCheckbox.Name = "btnCheckbox"
+        Me.btnCheckbox.Size = New System.Drawing.Size(133, 31)
+        Me.btnCheckbox.TabIndex = 5
+        Me.btnCheckbox.Text = "Checkbox"
+        Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCheckbox.UseVisualStyleBackColor = True
        '
-        'CHANGED_WHOTextBox
+        'btnVektor
        '
-        Me.CHANGED_WHOTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHO", True))
-        Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 483)
-        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
-        Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(222, 23)
-        Me.CHANGED_WHOTextBox.TabIndex = 19
+        Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add
+        Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVektor.Location = New System.Drawing.Point(151, 55)
+        Me.btnVektor.Name = "btnVektor"
+        Me.btnVektor.Size = New System.Drawing.Size(133, 29)
+        Me.btnVektor.TabIndex = 4
+        Me.btnVektor.Text = "Mehrfach-/Vektorfeld"
+        Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnVektor.UseVisualStyleBackColor = True
+        '
+        'btndtp
+        '
+        Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675
+        Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btndtp.Location = New System.Drawing.Point(151, 22)
+        Me.btndtp.Name = "btndtp"
+        Me.btndtp.Size = New System.Drawing.Size(133, 27)
+        Me.btndtp.TabIndex = 3
+        Me.btndtp.Text = "DatePicker"
+        Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btndtp.UseVisualStyleBackColor = True
+        '
+        'btncmb
+        '
+        Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btncmb.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG
+        Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btncmb.Location = New System.Drawing.Point(12, 90)
+        Me.btncmb.Name = "btncmb"
+        Me.btncmb.Size = New System.Drawing.Size(133, 31)
+        Me.btncmb.TabIndex = 2
+        Me.btncmb.Text = "Combobox"
+        Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btncmb.UseVisualStyleBackColor = True
+        '
+        'btntextbox
+        '
+        Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btntextbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox_708
+        Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btntextbox.Location = New System.Drawing.Point(13, 55)
+        Me.btntextbox.Name = "btntextbox"
+        Me.btntextbox.Size = New System.Drawing.Size(133, 29)
+        Me.btntextbox.TabIndex = 1
+        Me.btntextbox.Text = "Textbox"
+        Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btntextbox.UseVisualStyleBackColor = True
+        '
+        'btnlabel
+        '
+        Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnlabel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Label_684
+        Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnlabel.Location = New System.Drawing.Point(12, 22)
+        Me.btnlabel.Name = "btnlabel"
+        Me.btnlabel.Size = New System.Drawing.Size(133, 27)
+        Me.btnlabel.TabIndex = 0
+        Me.btnlabel.Text = "Label"
+        Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnlabel.UseVisualStyleBackColor = True
        '
        'TBPM_PROFILE_CONTROLSTableAdapter
        '
@ -867,52 +845,6 @@ Partial Class frmFormDesigner
        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
        Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
        '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 556)
-        Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(995, 22)
-        Me.StatusStrip1.TabIndex = 20
-        Me.StatusStrip1.Text = "StatusStrip1"
-        '
-        'tslblAenderungen
-        '
-        Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red
-        Me.tslblAenderungen.Name = "tslblAenderungen"
-        Me.tslblAenderungen.Size = New System.Drawing.Size(153, 17)
-        Me.tslblAenderungen.Text = "Änderungen gespeichert"
-        Me.tslblAenderungen.Visible = False
-        '
-        'CHANGED_WHENTextBox
-        '
-        Me.CHANGED_WHENTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHEN", True))
-        Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(253, 483)
-        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
-        Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23)
-        Me.CHANGED_WHENTextBox.TabIndex = 21
-        '
-        'HEIGHTTextBox
-        '
-        Me.HEIGHTTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.HEIGHTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "HEIGHT", True))
-        Me.HEIGHTTextBox.Location = New System.Drawing.Point(253, 431)
-        Me.HEIGHTTextBox.Name = "HEIGHTTextBox"
-        Me.HEIGHTTextBox.ReadOnly = True
-        Me.HEIGHTTextBox.Size = New System.Drawing.Size(71, 23)
-        Me.HEIGHTTextBox.TabIndex = 22
-        '
-        'WIDTHTextBox
-        '
-        Me.WIDTHTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.WIDTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "WIDTH", True))
-        Me.WIDTHTextBox.Location = New System.Drawing.Point(331, 431)
-        Me.WIDTHTextBox.Name = "WIDTHTextBox"
-        Me.WIDTHTextBox.ReadOnly = True
-        Me.WIDTHTextBox.Size = New System.Drawing.Size(81, 23)
-        Me.WIDTHTextBox.TabIndex = 23
-        '
        'TBPM_CONNECTIONTableAdapter
        '
        Me.TBPM_CONNECTIONTableAdapter.ClearBeforeFill = True
@ -935,48 +867,17 @@ Partial Class frmFormDesigner
        '
        Me.TBPM_CONTROL_TABLETableAdapter.ClearBeforeFill = True
        '
-        'btnrefresh
-        '
-        Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh
-        Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnrefresh.Location = New System.Drawing.Point(415, 41)
-        Me.btnrefresh.Name = "btnrefresh"
-        Me.btnrefresh.Size = New System.Drawing.Size(81, 23)
-        Me.btnrefresh.TabIndex = 24
-        Me.btnrefresh.Text = "Refresh"
-        Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnrefresh.UseVisualStyleBackColor = True
-        '
-        'GUIDTextBox
-        '
-        Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "GUID", True))
-        Me.GUIDTextBox.Location = New System.Drawing.Point(43, 512)
-        Me.GUIDTextBox.Name = "GUIDTextBox"
-        Me.GUIDTextBox.ReadOnly = True
-        Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23)
-        Me.GUIDTextBox.TabIndex = 25
-        '
        'frmFormDesigner
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(995, 578)
-        Me.Controls.Add(GUIDLabel)
-        Me.Controls.Add(Me.GUIDTextBox)
        Me.Controls.Add(Me.btnrefresh)
-        Me.Controls.Add(WIDTHLabel)
-        Me.Controls.Add(Me.WIDTHTextBox)
-        Me.Controls.Add(HEIGHTLabel)
-        Me.Controls.Add(Me.HEIGHTTextBox)
        Me.Controls.Add(CHANGED_WHENLabel)
        Me.Controls.Add(Me.CHANGED_WHENTextBox)
        Me.Controls.Add(Me.StatusStrip1)
        Me.Controls.Add(CHANGED_WHOLabel)
        Me.Controls.Add(Me.CHANGED_WHOTextBox)
-        Me.Controls.Add(Y_LOCLabel)
-        Me.Controls.Add(Me.Y_LOCTextBox)
-        Me.Controls.Add(X_LOCLabel)
-        Me.Controls.Add(Me.X_LOCTextBox)
        Me.Controls.Add(Me.gbxControl)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.GroupBox1)
@ -997,16 +898,17 @@ Partial Class frmFormDesigner
        Me.TabControlEigenschaften.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage1.PerformLayout()
-        CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage2.PerformLayout()
        Me.TabPage3.ResumeLayout(False)
        Me.pnlAuswahlliste.ResumeLayout(False)
        Me.pnlAuswahlliste.PerformLayout()
-        CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage4.ResumeLayout(False)
        Me.StatusStrip1.ResumeLayout(False)
        Me.StatusStrip1.PerformLayout()
+        CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
@ -1040,8 +942,6 @@ Partial Class frmFormDesigner
    Friend WithEvents VALIDATIONCheckBox As System.Windows.Forms.CheckBox
    Friend WithEvents CTRL_TEXTTextBox As System.Windows.Forms.TextBox
    Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox
-    Friend WithEvents X_LOCTextBox As System.Windows.Forms.TextBox
-    Friend WithEvents Y_LOCTextBox As System.Windows.Forms.TextBox
    Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox
    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
    Friend WithEvents tslblAenderungen As System.Windows.Forms.ToolStripStatusLabel
@ -1055,8 +955,6 @@ Partial Class frmFormDesigner
    Friend WithEvents btnheight_plus As System.Windows.Forms.Button
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
-    Friend WithEvents HEIGHTTextBox As System.Windows.Forms.TextBox
-    Friend WithEvents WIDTHTextBox As System.Windows.Forms.TextBox
    Friend WithEvents btnVektor As System.Windows.Forms.Button
    Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
    Friend WithEvents TBPM_CONNECTIONBindingSource As System.Windows.Forms.BindingSource
@ -1082,5 +980,6 @@ Partial Class frmFormDesigner
    Friend WithEvents btnrefresh As System.Windows.Forms.Button
    Friend WithEvents btnShowConnections As System.Windows.Forms.Button
    Friend WithEvents btnEditor As Button
-    Friend WithEvents GUIDTextBox As TextBox
+    Friend WithEvents TabPage4 As TabPage
+    Friend WithEvents pgControls As PropertyGrid
 End Class
--- a/app/DD_PM_WINDREAM/frmFormDesigner.resx
+++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx
@ -117,27 +117,12 @@
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
-  <metadata name="X_LOCLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="Y_LOCLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
  <metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
-  <metadata name="HEIGHTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="WIDTHLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
  <metadata name="TBPM_PROFILE_CONTROLSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>179, 17</value>
  </metadata>
@ -161,15 +146,15 @@
  <metadata name="TBPM_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1021, 17</value>
  </metadata>
+  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>904, 17</value>
+  </metadata>
  <metadata name="TBPM_PROFILE_CONTROLSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>458, 17</value>
  </metadata>
  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>731, 17</value>
  </metadata>
-  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>904, 17</value>
-  </metadata>
  <metadata name="TBPM_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 56</value>
  </metadata>
--- a/app/DD_PM_WINDREAM/frmFormDesigner.vb
+++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@ -46,8 +46,9 @@ Public Class frmMain
            ClassLogger.Add("Error in Save FormLayout: " & ex.Message)
        End Try
        Try
-            Dim XMLPath = GetXML_LayoutName()
-            GridViewProfile.SaveLayoutToXml(XMLPath)
+            'Dim XMLPath = GetXML_LayoutName()
+            'GridViewProfile.SaveLayoutToXml(XMLPath)
+            SaveLayout()
        Catch ex As Exception

        End Try
@ -171,6 +172,43 @@ Public Class frmMain
        Dim Filename As String = String.Format("GridViewProfiles_UserLayout_{0}.xml", GRID_LOAD_TYPE)
        Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
    End Function
+
+    Private Sub SaveLayout()
+        Try
+            Dim xml As String = GetXML_LayoutName()
+            Dim xmlDefault = xml & ".default"
+
+            If IO.File.Exists(xmlDefault) = False Then
+                GridViewProfile.SaveLayoutToXml(xmlDefault, OptionsLayoutBase.FullLayout)
+            End If
+
+            GridViewProfile.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
+        Catch ex As Exception
+            ClassLogger.Add("Error while saving layout: " & ex.Message)
+        End Try
+    End Sub
+
+    Private Sub RestoreLayout()
+        Try
+            Dim xml As String = GetXML_LayoutName()
+            GridViewProfile.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
+        Catch ex As Exception
+            ClassLogger.Add("Error while restoring layout: " & ex.Message)
+        End Try
+    End Sub
+
+    Private Sub ResetLayout()
+        Try
+            Dim xml As String = GetXML_LayoutName()
+            Dim xmlDefault = xml & ".default"
+            IO.File.Delete(xml)
+
+            GridViewProfile.RestoreLayoutFromXml(xmlDefault, OptionsLayoutBase.FullLayout)
+        Catch ex As Exception
+            ClassLogger.Add("Error while resetting layout: " & ex.Message)
+        End Try
+    End Sub
+
    Sub Load_Profile_items()
        Cursor = Cursors.WaitCursor
        Try
@ -208,6 +246,10 @@ Public Class frmMain
        Cursor = Cursors.Default
    End Sub
    Private Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs)
+        ' Das aktuelle Layout speichern, bevor das neue geladen wird
+        ' und GRID_LOAD_TYPE gesetzt wird.
+        SaveLayout()
+
        Dim _tag = e.Link.Item.Tag
        If Not IsNothing(_tag) Then
            If _tag.ToString.Contains("itmProfile#") Then
@ -436,19 +478,12 @@ Public Class frmMain
                CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)

                Create_Basic_View()
-                Dim filexml = GetXML_LayoutName()
-                GridViewProfile.RestoreLayoutFromXml(filexml)
-                GridView_CheckInvalidColumns()
-                If GRID_INV_COL_REMOVED = True Then
-                    GridViewProfile.SaveLayoutToXml(filexml)
-                End If

+                Dim Columns_Removed = GridView_CheckInvalidColumns()
+                RestoreLayout()

            End If

-
-
-
        Catch ex As Exception
            ClassLogger.Add("Load_single_Profile - Error: " & ex.Message)
        End Try
@ -492,12 +527,8 @@ Public Class frmMain
        GridControlProfile.DataSource = CURR_DT_PROFILEGRID
        'GridControlProfile.ForceInitialize()

-        Try
-            Dim XMLPath = GetXML_LayoutName()
-            GridViewProfile.RestoreLayoutFromXml(XMLPath)
-        Catch ex As Exception
+        RestoreLayout()

-        End Try
        GridViewProfile.Columns.Item("PROFILE_ID").Visible = False
        GridViewProfile.Columns.Item("GUID").Visible = False
        GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False
@ -506,7 +537,7 @@ Public Class frmMain
        GridViewProfile.Columns.Item("ICON").MaxWidth = 24
        GridViewProfile.Columns.Item("ICON").MinWidth = 24
        GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
-        GridViewProfile.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
+        GridViewProfile.Columns.Item("ICON").Fixed = FixedStyle.Left
        GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
        GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
        GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
@ -514,7 +545,8 @@ Public Class frmMain

    End Sub

-    Private Sub GridView_CheckInvalidColumns()
+    Private Function GridView_CheckInvalidColumns() As Boolean
+        Dim Columns_Removed = False
        GRID_INV_COL_REMOVED = False
        Try
            For Each grid_column As GridColumn In GridViewProfile.Columns
@ -535,20 +567,20 @@ Public Class frmMain
                    If grid_column.Visible = True Then
                        Try
                            grid_column.Dispose()
+                            Columns_Removed = True
                            GRID_INV_COL_REMOVED = True
                        Catch ex As Exception

                        End Try

                    End If
-
-
                End If
            Next
+            Return Columns_Removed
        Catch ex As Exception
            ClassLogger.Add("Unexpected Error in GridView_CheckInvalidColumns: " & ex.Message)
        End Try
-    End Sub
+    End Function
    Sub LoadProfile_PM()
        Try
            If Me.Visible = True And frmProfileDesigner.Visible = False Then
@ -586,10 +618,9 @@ Public Class frmMain
                    Catch ex As Exception
                        ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
                    End Try
-                    GridView_CheckInvalidColumns()
-                    If GRID_INV_COL_REMOVED = True Then
-                        GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
-                    End If
+
+                    Dim Columns_Removed = GridView_CheckInvalidColumns()
+                    RestoreLayout()


                Else
@ -797,15 +828,6 @@ Public Class frmMain

    End Sub

-    Private Sub GridViewProfile_Layout(sender As Object, e As EventArgs) Handles GridViewProfile.Layout
-        Try
-            Dim XMLPath = GetXML_LayoutName()
-            GridViewProfile.SaveLayoutToXml(XMLPath)
-        Catch ex As Exception
-
-        End Try
-    End Sub
-
    Private Sub GridViewProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewProfile.MouseDown

        Dim view As GridView = sender
@ -923,6 +945,9 @@ Public Class frmMain
    End Sub

    Private Sub NavBarItemOverview_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemOverview.LinkClicked
+        ' Das aktuelle Layout speichern, bevor das neue geladen wird
+        ' und GRID_LOAD_TYPE gesetzt wird.
+        SaveLayout()
        Load_Grid_Overview()
    End Sub
    Sub Load_Grid_Overview()
@ -996,12 +1021,9 @@ Public Class frmMain
                GridControlProfile.DataSource = CURR_DT_PROFILEGRID
                'GridControlProfile.ForceInitialize()

-                Try
-                    Dim XMLPath = GetXML_LayoutName()
-                    GridViewProfile.RestoreLayoutFromXml(XMLPath)
-                Catch ex As Exception

-                End Try
+                Dim Columns_Removed = GridView_CheckInvalidColumns()
+                RestoreLayout()

                Try
                    GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
@ -1064,8 +1086,8 @@ Public Class frmMain



-                GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
-
+                'GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
+                SaveLayout()
            Else
                GridControlProfile.DataSource = Nothing
                Try
@ -1100,4 +1122,8 @@ Public Class frmMain
        End If
        Layout_Dashboard()
    End Sub
+
+    Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
+        ResetLayout()
+    End Sub
 End Class
--- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb
@ -256,6 +256,7 @@ Partial Class frmSQL_DESIGNER
        '
        'btnSaveSQLCommand
        '
+        Me.btnSaveSQLCommand.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnSaveSQLCommand.Image = CType(resources.GetObject("btnSaveSQLCommand.Image"), System.Drawing.Image)
        Me.btnSaveSQLCommand.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnSaveSQLCommand.Location = New System.Drawing.Point(818, 513)
--- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx
+++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx
@ -153,10 +153,10 @@
  </data>
  <data name="btnAddIndex.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
-        1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
-        RH5TZf96FwAAAABJRU5ErkJggg==
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
+        yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
+        TkSuQmCC
 </value>
  </data>
  <data name="btnSaveSQLCommand.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -168,10 +168,10 @@
  </data>
  <data name="btnAddControl.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
-        1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
-        RH5TZf96FwAAAABJRU5ErkJggg==
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
+        yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
+        TkSuQmCC
 </value>
  </data>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
--- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
+++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
@ -5,21 +5,27 @@ Public Class frmSQL_DESIGNER
    Private _windreamPM As ClassPMWindream

    Private Sub TBPM_PROFILE_FINAL_INDEXINGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
-        Me.Validate()
-        Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit()
-        Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)
+        Validate()
+        TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit()
+        TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)

    End Sub
    Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            lblSaveFinalIndex.Visible = False
-            'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBPM_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
-            Me.TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBPM_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_CONNECTION)
-            Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString
-            cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
-            cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
-            SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND")
+            TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBPM_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_CONNECTION)
+            TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString
+
+            CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBPM_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), True)
+
+            If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count > 0 Then
+                cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
+                cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
+                SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND")
+            Else
+                SQL_COMMANDTextBox.Text = String.Empty
+            End If
            Try
                ' Windream instanziieren
                _windreamPM = New ClassPMWindream()
@ -211,7 +217,7 @@ Public Class frmSQL_DESIGNER
            Else
                lblSaveFinalIndex.Visible = False
            End If
-
+            Me.Value = SQL_COMMANDTextBox.Text
        End If
    End Sub