Update

Git_Create.bat

@@ -0,0 +1,8 @@
+touch README.md
+git init
+git checkout -b main
+git add README.md
+git commit -m "first commit"
+git remote add origin https://gitea.shubweb.ch/shu/Logbuch.git
+git push -u origin main
+pause

Logbuch/.vs/Logbuch/v17/DocumentLayout.json

@@ -0,0 +1,123 @@
+{
+  "Version": 1,
+  "WorkspaceRootPath": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\",
+  "Documents": [
+    {
+      "AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|e:\\software-projekte\\tkbdiverse\\logbuch\\logbuch\\logbuch\\logbuch\\frmschuldbrief.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\logbuch\\frmschuldbrief.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\logbuch\\logbuch\\frmschuldbrief.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\logbuch\\frmschuldbrief.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\logbuch\\logbuch\\frmpolice.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\logbuch\\frmpolice.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{00000000-0000-0000-0000-000000000000}|\u003CSolution\u003E|Logbuch||{04B8AB82-A572-4FEF-95CE-5222444B6B64}|"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\logbuch\\klassen\\clsdbhandling.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\klassen\\clsdbhandling.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\logbuch\\logbuch\\frmpolice.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\logbuch\\frmpolice.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    }
+  ],
+  "DocumentGroupContainers": [
+    {
+      "Orientation": 0,
+      "VerticalTabListWidth": 256,
+      "DocumentGroups": [
+        {
+          "DockedWidth": 200,
+          "SelectedChildIndex": 4,
+          "Children": [
+            {
+              "$type": "Document",
+              "DocumentIndex": 4,
+              "Title": "clsdbhandling.vb",
+              "DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Klassen\\clsdbhandling.vb",
+              "RelativeDocumentMoniker": "Logbuch\\Klassen\\clsdbhandling.vb",
+              "ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Klassen\\clsdbhandling.vb",
+              "RelativeToolTip": "Logbuch\\Klassen\\clsdbhandling.vb",
+              "ViewState": "AQIAACwBAAAAAAAAAAAmwD4BAAAIAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-10-29T19:26:52.272Z",
+              "IsPinned": true
+            },
+            {
+              "$type": "Bookmark",
+              "Name": "ST:0:0:{b1e99781-ab81-11d0-b683-00aa00a3ee26}"
+            },
+            {
+              "$type": "Bookmark",
+              "Name": "ST:0:0:{aa2115a1-9712-457b-9047-dbb71ca2cdd2}"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 1,
+              "Title": "frmSchuldbrief.vb [Entwurf]",
+              "DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmSchuldbrief.vb",
+              "RelativeDocumentMoniker": "Logbuch\\Logbuch\\frmSchuldbrief.vb",
+              "ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmSchuldbrief.vb [Entwurf]",
+              "RelativeToolTip": "Logbuch\\Logbuch\\frmSchuldbrief.vb [Entwurf]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-10-30T05:30:45.961Z",
+              "EditorCaption": " [Entwurf]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 0,
+              "Title": "frmSchuldbrief.vb",
+              "DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmSchuldbrief.vb",
+              "RelativeDocumentMoniker": "Logbuch\\Logbuch\\frmSchuldbrief.vb",
+              "ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmSchuldbrief.vb",
+              "RelativeToolTip": "Logbuch\\Logbuch\\frmSchuldbrief.vb",
+              "ViewState": "AQIAAAcAAAAAAAAAAAAkwNcAAAAAAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-10-30T04:57:11.392Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 3,
+              "Title": "Logbuch",
+              "DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch.vbproj",
+              "RelativeDocumentMoniker": "Logbuch\\Logbuch.vbproj",
+              "ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch.vbproj",
+              "RelativeToolTip": "Logbuch\\Logbuch.vbproj",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.001001|",
+              "WhenOpened": "2024-10-30T05:24:21.959Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 2,
+              "Title": "frmPolice.vb",
+              "DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmPolice.vb",
+              "RelativeDocumentMoniker": "Logbuch\\Logbuch\\frmPolice.vb",
+              "ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmPolice.vb",
+              "RelativeToolTip": "Logbuch\\Logbuch\\frmPolice.vb",
+              "ViewState": "AQIAADQBAAAAAAAAAAAAwD8BAAAAAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-10-29T19:26:52.265Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 5,
+              "Title": "frmPolice.vb [Entwurf]",
+              "DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmPolice.vb",
+              "RelativeDocumentMoniker": "Logbuch\\Logbuch\\frmPolice.vb",
+              "ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmPolice.vb [Entwurf]",
+              "RelativeToolTip": "Logbuch\\Logbuch\\frmPolice.vb [Entwurf]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-10-29T19:28:45.98Z"
+            }
+          ]
+        }
+      ]
+    }
+  ]
+}

Logbuch/20171126_Update/DBScripts.txt

@@ -0,0 +1,84 @@
+ALTER TABLE Logbuch ADD LSNr VARCHAR(255)
+GO
+ALTER TABLE Logbuch ADD GrundBuchNr INT
+GO
+UPDATE logbuch SET grundbuchnr=0
+UPDATE logbuch SET lsnr=''
+
+USE [logbuch]
+GO
+
+/****** Object:  Table [dbo].[Grundbuch]    Script Date: 26.11.2017 11:16:51 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+SET ANSI_PADDING ON
+GO
+
+CREATE TABLE [dbo].[Grundbuch](
+	[GrundbuchNr] [INT] IDENTITY(1,1) NOT NULL,
+	[Grundbuch] [VARCHAR](255) NULL,
+	[Aktiv] [BIT] NULL,
+ CONSTRAINT [PK_Grundbuch] PRIMARY KEY CLUSTERED 
+(
+	[GrundbuchNr] ASC
+)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
+) ON [PRIMARY]
+
+GO
+
+SET ANSI_PADDING OFF
+GO
+
+USE [logbuch]
+GO
+
+/****** Object:  StoredProcedure [dbo].[SP_Anzeige]    Script Date: 26.11.2017 15:26:08 ******/
+DROP PROCEDURE [dbo].[SP_Anzeige]
+GO
+
+/****** Object:  StoredProcedure [dbo].[SP_Anzeige]    Script Date: 26.11.2017 15:26:08 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+CREATE PROCEDURE [dbo].[SP_Anzeige] 
+   @partner VARCHAR(25),
+   @modus INT = 1 -- 1 -> schuldbriefe, 0 -> policen
+AS
+
+
+	
+IF @modus = 1 BEGIN
+        SELECT Logbuch.*, Partner.BKPAR00,  Benutzer.Kurzzeichen AS UserKurzzeichen,  Bemerkungen.Bemerkung AS XBemerkung,  
+        Gegenpartei.Bezeichnung AS XGegenpartei , LEFT(RIGHT(REPLICATE('0',8) + CAST(partnernr AS VARCHAR(8)),8),4)+'.'+RIGHT(RIGHT(REPLICATE('0',8)+CAST(partnernr AS VARCHAR(8)),8),4) AS PnrAufbereitet,
+		grundbuch.Grundbuch
+         FROM Logbuch 
+                INNER JOIN  Gegenpartei ON   Logbuch.Gegenpartei = Gegenpartei.Gegenparteinr 
+                LEFT OUTER JOIN  Grundbuch ON   Logbuch.Grundbuchnr = Grundbuch.Grundbuchnr 
+                LEFT OUTER  JOIN  Bemerkungen ON  Logbuch.Stdbemerkung = Bemerkungen.Bemerkungsnr 
+                LEFT OUTER  JOIN   Benutzer ON   Logbuch.Mitarbeiter = Benutzer.NrBenutzer 
+                LEFT OUTER JOIN   dbo.Partner ON Logbuch.Partnernr = dbo.Partner.NRPAR00
+        WHERE Partnernr = @partner
+END ELSE IF @modus = 0 BEGIN
+SELECT Policen.*, Partner.BKPAR00,  Benutzer.Kurzzeichen AS UserKurzzeichen,  Bemerkungen.Bemerkung AS XBemerkung,  
+        Gegenpartei.Bezeichnung AS XGegenpartei , LEFT(RIGHT(REPLICATE('0',8) + CAST(partnernr AS VARCHAR(8)),8),4)+'.'+RIGHT(RIGHT(REPLICATE('0',8)+CAST(partnernr AS VARCHAR(8)),8),4) AS PnrAufbereitet,
+		dbo.Versgesellschaften.Bezeichnung AS Versgesellschaft
+        FROM Policen 
+                INNER JOIN  Gegenpartei ON   Policen.Gegenpartei = Gegenpartei.Gegenparteinr 
+				LEFT OUTER JOIN dbo.Versgesellschaften ON policen.VersgesellschaftId = dbo.Versgesellschaften.VersgesellschaftId
+                LEFT OUTER  JOIN  Bemerkungen ON  Policen.Stdbemerkung = Bemerkungen.Bemerkungsnr 
+                LEFT OUTER  JOIN   Benutzer ON   Policen.MitarbeiterNr = Benutzer.NrBenutzer 
+                LEFT OUTER JOIN   dbo.Partner ON Policen.Partnernr = dbo.Partner.NRPAR00
+        WHERE Partnernr = @partner
+END
+
+GO
+
+

Logbuch/Access_Version/Logbuch/TKBCR/AMS_Connstring.cfg

@@ -0,0 +1 @@
+¹µÈ¦rȽ¹¿¸ª‰ Œ¢‰¢§˜‡‚…|˜”˜”žœs•½Â®Æ¾¯°m¸¦À­±Á¯’È»¦¿È{ªÇ»³Æ‡µ·ºÈ½Ç¹rȳ§ÂÇ®ÀÅe»¶»Ã‘‹³ÁÁ©ˆÌ´¾·¸Æ©É½Ã³r¾²ˆÅ¦¯·ªÆhȽڏ‰~}ƒº¿±·r±¹‘¸§³ÂÁªÇ»€¼­¸Å¿ÄƸ‚¶·¯±À»¿²~wƒ

Logbuch/Access_Version/Logbuch/TKBCR/LB_Connstring.cfg

@@ -0,0 +1 @@
+¹µÈ¦rȽ¹¿¸ª‰ Œ¢”¤›•’¥™t}ƒ™“”¤˜ƒ—œ€»Ã·¸¶¶±l¯¦Æ©Áû‚¾Äµ¦Â¸­‡¼ªÄ»¾ÇÈeź±¹¿¾¹Ål®À®Ä‘š¦¾È³ÄÄ··¿¹³¼¾ÃÂe»¹‹½¶¨·±¹r»¾Î¹‚†…‡zˆÊ¸±¾e»¬’¸¶±Á¼°¹°½€¼­¸Å¿ÄƸ‚¶·º³´·º¯´w„¸

Logbuch/Access_Version/Logbuch/TKBCR/TKBCRReporting.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>

Logbuch/Access_Version/Logbuch/TKBCR/TKBCRReporting.vshost.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>

Logbuch/Access_Version/Logbuch/TKBCR/TKBCRReporting.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

Logbuch/Access_Version/Logbuch/TKBCR/TKBCRReporting.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+TKBCRReporting
+</name>
+</assembly>
+<members>
+<member name="P:CrystalReportsApplication1.My.Resources.Resources.ResourceManager">
+	<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member><member name="P:CrystalReportsApplication1.My.Resources.Resources.Culture">
+	<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member><member name="T:CrystalReportsApplication1.My.Resources.Resources">
+	<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
+</members>
+</doc>

Logbuch/Access_Version/Logbuch/connstrlogbuch.cfg

@@ -0,0 +1 @@
+AcpxZPPiXKddDph[A_wdh]qUzt;bnYgbullSXiQr<vz@PeiI\awdl;XI?VblIjje>HQO;oL?N\h[^ieVu]a\a^wmE@KsBQhKvMWURwuCNZV_o<aQNbwNY\oMD\ED=PFR\KYhAadxxIYK^>VirVER\B@XT[RhD_OPupfaNDT]Iqp;RC_\]\xiNkooKXoTEZWa\\G

Logbuch/DB_Scripts/StoredProc.sql

@@ -0,0 +1,457 @@
+USE [logbuch]
+GO
+
+/****** Object:  StoredProcedure [dbo].[sp_get_dbkey]    Script Date: 28.09.2017 15:37:18 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+-- =============================================
+-- Author:		<Author,,Name>
+-- Create date: <Create Date,,>
+-- Description:	<Description,,>
+-- =============================================
+CREATE PROCEDURE [dbo].[sp_get_dbkey] 
+	@tablename varchar(255),
+	@dbkey int output,
+	@iErrorcode int output
+AS
+BEGIN
+	declare @zwkey int
+	select @zwkey = key_wert from key_tabelle where beschreibung = @tablename
+	set @zwkey = @zwkey + 1
+	update key_tabelle set key_wert = @zwkey where beschreibung=@tablename
+	select @dbkey = @zwkey
+	select @iErrorCode=@@Error
+END
+
+
+GO
+
+/****** Object:  StoredProcedure [dbo].[pr_spalten_Delete]    Script Date: 28.09.2017 15:37:18 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+
+---------------------------------------------------------------------------------
+-- Stored procedure that will delete an existing row from the table 'spalten'
+-- using the Primary Key. 
+-- Gets: @ieintragnr int
+-- Returns: @iErrorCode int
+---------------------------------------------------------------------------------
+CREATE PROCEDURE [dbo].[pr_spalten_Delete]
+	@ieintragnr INT,
+	@iErrorCode INT OUTPUT
+AS
+SET NOCOUNT ON
+-- DELETE an existing row from the table.
+DELETE FROM [dbo].[spalten]
+WHERE
+	[eintragnr] = @ieintragnr
+-- Get the Error Code for the statement just executed.
+SELECT @iErrorCode=@@ERROR
+
+
+
+
+GO
+
+/****** Object:  StoredProcedure [dbo].[pr_spalten_Insert]    Script Date: 28.09.2017 15:37:18 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+
+---------------------------------------------------------------------------------
+-- Stored procedure that will insert 1 row in the table 'spalten'
+-- Gets: @ieintragnr int
+-- Gets: @stabelle varchar(255)
+-- Gets: @stabellenspalte varchar(255)
+-- Gets: @sspalte varchar(255)
+-- Gets: @bReadonly bit
+-- Gets: @balsHacken bit
+-- Gets: @iBreite int
+-- Gets: @iReihenfolge int
+-- Gets: @stiptext varchar(255)
+-- Gets: @baktiv bit
+-- Gets: @daerstellt_am datetime
+-- Gets: @damutiert_am datetime
+-- Gets: @imutierer int
+-- Gets: @imandantnr int
+-- Gets: @sNumberFormat varchar(255)
+-- Returns: @iErrorCode int
+---------------------------------------------------------------------------------
+CREATE PROCEDURE [dbo].[pr_spalten_Insert]
+	@ieintragnr INT,
+	@stabelle VARCHAR(255),
+	@stabellenspalte VARCHAR(255),
+	@sspalte VARCHAR(255),
+	@bReadonly BIT,
+	@balsHacken BIT,
+	@iBreite INT,
+	@iReihenfolge INT,
+	@stiptext VARCHAR(255),
+	@baktiv BIT,
+	@daerstellt_am DATETIME,
+	@damutiert_am DATETIME,
+	@imutierer INT,
+	@imandantnr INT,
+	@sNumberFormat VARCHAR(255),
+	@iErrorCode INT OUTPUT
+AS
+SET NOCOUNT ON
+-- INSERT a new row in the table.
+INSERT [dbo].[spalten]
+(
+	[eintragnr],
+	[tabelle],
+	[tabellenspalte],
+	[spalte],
+	[Readonly],
+	[alsHacken],
+	[Breite],
+	[Reihenfolge],
+	[tiptext],
+	[aktiv],
+	[erstellt_am],
+	[mutiert_am],
+	[mutierer],
+	[mandantnr],
+	[NumberFormat]
+)
+VALUES
+(
+	@ieintragnr,
+	@stabelle,
+	@stabellenspalte,
+	@sspalte,
+	@bReadonly,
+	@balsHacken,
+	@iBreite,
+	@iReihenfolge,
+	@stiptext,
+	@baktiv,
+	@daerstellt_am,
+	@damutiert_am,
+	@imutierer,
+	@imandantnr,
+	@sNumberFormat
+)
+-- Get the Error Code for the statement just executed.
+SELECT @iErrorCode=@@ERROR
+
+
+
+
+GO
+
+/****** Object:  StoredProcedure [dbo].[pr_spalten_SelectAll_Aktiv]    Script Date: 28.09.2017 15:37:18 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+-- =============================================
+-- Author:		<Author,,Name>
+-- Create date: <Create Date,,>
+-- Description:	<Description,,>
+-- =============================================
+CREATE  PROCEDURE [dbo].[pr_spalten_SelectAll_Aktiv]
+	@iErrorCode int OUTPUT
+AS
+SET NOCOUNT ON
+-- SELECT all rows from the table.
+SELECT
+	[eintragnr],
+	tabelle,
+	tabellenspalte,
+	[spalte],
+	[Readonly],
+	[alsHacken],
+	[Breite],
+	[Reihenfolge],
+	[tiptext],
+	[aktiv],
+	[erstellt_am],
+	[mutiert_am],
+	[mutierer],
+	[mandantnr],
+    [numberformat]
+FROM [dbo].[spalten]
+Where aktiv=1
+ORDER BY 
+	[eintragnr] ASC
+-- Get the Error Code for the statement just executed.
+SELECT @iErrorCode=@@ERROR
+
+
+
+
+
+
+GO
+
+/****** Object:  StoredProcedure [dbo].[pr_spalten_SelectAll]    Script Date: 28.09.2017 15:37:18 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+
+---------------------------------------------------------------------------------
+-- Stored procedure that will select all rows from the table 'spalten'
+-- Returns: @iErrorCode int
+---------------------------------------------------------------------------------
+CREATE PROCEDURE [dbo].[pr_spalten_SelectAll]
+	@iErrorCode int OUTPUT
+AS
+SET NOCOUNT ON
+-- SELECT all rows from the table.
+SELECT
+	[eintragnr],
+	[tabelle],
+	[tabellenspalte],
+	[spalte],
+	[Readonly],
+	[alsHacken],
+	[Breite],
+	[Reihenfolge],
+	[tiptext],
+	[aktiv],
+	[erstellt_am],
+	[mutiert_am],
+	[mutierer],
+	[mandantnr],
+	[NumberFormat]
+FROM [dbo].[spalten]
+ORDER BY 
+	[eintragnr] ASC
+-- Get the Error Code for the statement just executed.
+SELECT @iErrorCode=@@ERROR
+
+
+
+
+GO
+
+/****** Object:  StoredProcedure [dbo].[pr_spalten_Update]    Script Date: 28.09.2017 15:37:18 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+
+---------------------------------------------------------------------------------
+-- Stored procedure that will update an existing row in the table 'spalten'
+-- Gets: @ieintragnr int
+-- Gets: @stabelle varchar(255)
+-- Gets: @stabellenspalte varchar(255)
+-- Gets: @sspalte varchar(255)
+-- Gets: @bReadonly bit
+-- Gets: @balsHacken bit
+-- Gets: @iBreite int
+-- Gets: @iReihenfolge int
+-- Gets: @stiptext varchar(255)
+-- Gets: @baktiv bit
+-- Gets: @daerstellt_am datetime
+-- Gets: @damutiert_am datetime
+-- Gets: @imutierer int
+-- Gets: @imandantnr int
+-- Gets: @sNumberFormat varchar(255)
+-- Returns: @iErrorCode int
+---------------------------------------------------------------------------------
+CREATE PROCEDURE [dbo].[pr_spalten_Update]
+	@ieintragnr int,
+	@stabelle varchar(255),
+	@stabellenspalte varchar(255),
+	@sspalte varchar(255),
+	@bReadonly bit,
+	@balsHacken bit,
+	@iBreite int,
+	@iReihenfolge int,
+	@stiptext varchar(255),
+	@baktiv bit,
+	@daerstellt_am datetime,
+	@damutiert_am datetime,
+	@imutierer int,
+	@imandantnr int,
+	@sNumberFormat varchar(255),
+	@iErrorCode int OUTPUT
+AS
+SET NOCOUNT ON
+-- UPDATE an existing row in the table.
+UPDATE [dbo].[spalten]
+SET 
+	[tabelle] = @stabelle,
+	[tabellenspalte] = @stabellenspalte,
+	[spalte] = @sspalte,
+	[Readonly] = @bReadonly,
+	[alsHacken] = @balsHacken,
+	[Breite] = @iBreite,
+	[Reihenfolge] = @iReihenfolge,
+	[tiptext] = @stiptext,
+	[aktiv] = @baktiv,
+	[erstellt_am] = @daerstellt_am,
+	[mutiert_am] = @damutiert_am,
+	[mutierer] = @imutierer,
+	[mandantnr] = @imandantnr,
+	[NumberFormat] = @sNumberFormat
+WHERE
+	[eintragnr] = @ieintragnr
+-- Get the Error Code for the statement just executed.
+SELECT @iErrorCode=@@ERROR
+
+
+
+
+GO
+
+/****** Object:  StoredProcedure [dbo].[pr_spalten_SelectOne]    Script Date: 28.09.2017 15:37:18 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+
+---------------------------------------------------------------------------------
+-- Stored procedure that will select an existing row from the table 'spalten'
+-- based on the Primary Key.
+-- Gets: @ieintragnr int
+-- Returns: @iErrorCode int
+---------------------------------------------------------------------------------
+CREATE PROCEDURE [dbo].[pr_spalten_SelectOne]
+	@ieintragnr int,
+	@iErrorCode int OUTPUT
+AS
+SET NOCOUNT ON
+-- SELECT an existing row from the table.
+SELECT
+	[eintragnr],
+	[tabelle],
+	[tabellenspalte],
+	[spalte],
+	[Readonly],
+	[alsHacken],
+	[Breite],
+	[Reihenfolge],
+	[tiptext],
+	[aktiv],
+	[erstellt_am],
+	[mutiert_am],
+	[mutierer],
+	[mandantnr],
+	[NumberFormat]
+FROM [dbo].[spalten]
+WHERE
+	[eintragnr] = @ieintragnr
+-- Get the Error Code for the statement just executed.
+SELECT @iErrorCode=@@ERROR
+
+
+
+
+GO
+
+/****** Object:  StoredProcedure [dbo].[sp_update_spalten]    Script Date: 28.09.2017 15:37:18 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+
+
+
+
+CREATE PROCEDURE [dbo].[sp_update_spalten]
+	@tablename varchar(255)
+AS
+begin
+	declare @len int
+	declare @inhalt varchar(30)
+	declare @col varchar(30)
+	declare @readonly int
+	declare @dbkey int
+	declare @alshacken int
+	declare @ierrorcode int
+	declare @spaltenkey int
+	declare @aktiv int
+	declare @tiptext varchar(255)
+	declare xcursor cursor for
+		SELECT column_name
+		from	INFORMATION_SCHEMA.Columns
+		where	table_name = @tablename
+	open xcursor
+	FETCH NEXT FROM xcursor into @col
+	WHILE @@FETCH_STATUS = 0 BEGIN
+		execute sp_get_dbkey 'spalten', @dbkey output, @ierrorcode output
+		set @spaltenkey=@dbkey
+
+	set @inhalt=@col
+	set @readonly=0
+	set @aktiv=1
+	set @tiptext=''
+	set @len=100
+	set @alshacken=0
+	if upper(@col)='ERSTELLT_AM' begin
+		set @inhalt='Erstellungsdatum'
+		set @len=100
+		set @readonly=1
+	end
+	if upper(@col)='MUTIERT_AM' begin
+		set @inhalt='Mutationsdatum'
+		set @len=100
+		set @readonly=1
+	end
+	if upper(@col)='MUTIERER' begin
+		set @inhalt='Mutiert durch'
+		set @len=40
+		set @readonly=1
+	end
+	if upper(@col)='AKTIV' begin
+		set @inhalt='Aktiv'
+		set @len=40
+		set @alshacken=0
+	end
+	
+		insert into spalten (eintragnr,tabelle,tabellenspalte,spalte,readonly,aktiv,erstellt_am, mutiert_am,mutierer,mandantnr,alsHacken,tiptext, breite, reihenfolge) 
+			values(@spaltenkey,@tablename,@col,@inhalt,@readonly,@aktiv,getdate(),getdate(),-1,1,@alshacken,@tiptext,@len,0)
+	FETCH NEXT FROM xcursor into @col
+	end   
+	close xcursor
+	deallocate xcursor
+end
+
+
+
+
+
+
+
+GO
+

Logbuch/Logbuch.sln

@@ -0,0 +1,22 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 15
+VisualStudioVersion = 15.0.26228.4
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Logbuch", "Logbuch\Logbuch.vbproj", "{8A404216-38A9-4305-9BA2-04CD2AC20F32}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{8A404216-38A9-4305-9BA2-04CD2AC20F32}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{8A404216-38A9-4305-9BA2-04CD2AC20F32}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{8A404216-38A9-4305-9BA2-04CD2AC20F32}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{8A404216-38A9-4305-9BA2-04CD2AC20F32}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

Logbuch/Logbuch/App.config

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="Logbuch.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
+    </startup>
+    <userSettings>
+        <Logbuch.My.MySettings>
+            <setting name="Waehrung" serializeAs="String">
+                <value>CHF</value>
+            </setting>
+            <setting name="NumRegex" serializeAs="String">
+                <value>[^0-9.]</value>
+            </setting>
+        </Logbuch.My.MySettings>
+    </userSettings>
+</configuration>

Logbuch/Logbuch/DB/MyDBObjects/clsMyKey_Tabelle.vb

@@ -0,0 +1,61 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Namespace DB
+    Public Class clsMyKey_Tabelle
+        Inherits db.clsKey_tabelle
+
+        Public Function get_dbkey(ByVal Tablename As String) As Long
+            Dim m_dbkey As Long
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                Try
+                    scmCmdToExecute.Connection.Open()
+                Catch ex As Exception
+                Finally
+                End Try
+
+                scmCmdToExecute.ExecuteNonQuery()
+                m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+                scmCmdToExecute.Connection.Close()
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return m_dbkey
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+    End Class
+End Namespace

Logbuch/Logbuch/DB/MyDBObjects/db_connection.vb

@@ -0,0 +1,59 @@
+Imports System.IO
+Namespace DB
+    ''' <summary>
+    ''' Dynamische Datenbank-Verbindung aufbauen. Verwendet wird standardmässig Vertragsverwaltung.cfg.
+    ''' Sollen Datenbank-Verbindungen zur Auswahl angezeigt werden, werden sämntliche Datenbank-Verbindungsdateien 
+    ''' mit dem Namen "Vertragsverwaltung....cfg" berücksichtigt
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public Class DB_Connection
+
+        ''' <summary>
+        ''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
+        ''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
+        ''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
+        ''' 
+        ''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
+        ''' </summary>
+        ''' <remarks></remarks>
+        Shared Sub New()
+            Dim fc As Integer = 0
+            If Globals.ConnectionFileName.Length = 0 Then
+                Dim Dir As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
+                Try
+                    Dim f As New frmDatenbankauswahl()
+                    Dim ChildFile As FileInfo
+                    For Each ChildFile In Dir.GetFiles()
+                        If UCase(Left(ChildFile.Name, 14)) = "LOGBUCH" And UCase(ChildFile.Extension) = ".CFG" Then
+                            f.ListBox1.Items.Add(ChildFile.Name)
+                            fc = fc + 1
+                        End If
+                    Next
+                    If fc > 1 Then
+                        f.ListBox1.SelectedIndex = 0
+                        f.ListBox1.Select()
+                        f.ShowDialog()
+                        Globals.ConnectionFileName = f.ListBox1.SelectedItem
+                        f.Dispose()
+                    End If
+                Catch except As Exception
+                    fc = 0
+                    Exit Sub
+                End Try
+            End If
+            If fc < 2 Then Globals.ConnectionFileName = "LOGBUCH.cfg"
+            Dim ofile As System.IO.File
+            Dim oread As System.IO.StreamReader
+            oread = ofile.OpenText(Application.StartupPath + "\" + Globals.ConnectionFileName)
+            sConnectionString = oread.ReadLine
+            sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
+            sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
+            Globals.sConnectionString = sConnectionString
+            Globals.conn.sConnectionString = sConnectionString
+            oread.Close()
+        End Sub
+
+    End Class
+
+End Namespace
+

Logbuch/Logbuch/DB/MyDBObjects/frmDatenbankauswahl.resx

@@ -0,0 +1,138 @@
+<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
+        AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAzd3d3MzMzAAAAAAAAAAAAM3d3dzMzMwAAAAAAAAAAM3eIiIi7MzMzAAAAAAAA
+        ADN3iIiIuzMzMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAA
+        AAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7
+        MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uI
+        iIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAA
+        AHe7iIiIiIi7dwAAAAAAAAB3u4iIiIiIu3cAAAAAAAAAiIj//////4h3AAAAAAAAAIiI//////+IdwAA
+        AAAAAAAzd3d3d3d3dzMAAAAAAAAAM3d3d3d3d3czAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////////////////////AAA//wA
+        AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wA
+        AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//////////////////////w==
+</value>
+  </data>
+</root>

Logbuch/Logbuch/DB/MyDBObjects/frmDatenbankauswahl.vb

@@ -0,0 +1,95 @@
+''' <summary>
+''' Form für die Datenbankauswahl
+''' </summary>
+''' <remarks></remarks>
+Public Class frmDatenbankauswahl
+    Inherits System.Windows.Forms.Form
+
+#Region " Vom Windows Form Designer generierter Code "
+
+    Public Sub New()
+        MyBase.New()
+
+        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
+        InitializeComponent()
+
+        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
+
+    End Sub
+
+    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    ' Für Windows Form-Designer erforderlich
+    Private components As System.ComponentModel.IContainer
+
+    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
+    'Sie kann mit dem Windows Form-Designer modifiziert werden.
+    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
+    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDatenbankauswahl))
+        Me.ListBox1 = New System.Windows.Forms.ListBox
+        Me.Button1 = New System.Windows.Forms.Button
+        Me.SuspendLayout()
+        '
+        'ListBox1
+        '
+        Me.ListBox1.Location = New System.Drawing.Point(16, 16)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(232, 95)
+        Me.ListBox1.TabIndex = 0
+        '
+        'Button1
+        '
+        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Button1.Location = New System.Drawing.Point(88, 128)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 1
+        Me.Button1.Text = "&OK"
+        '
+        'frmDatenbankauswahl
+        '
+        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
+        Me.ClientSize = New System.Drawing.Size(258, 165)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.ListBox1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmDatenbankauswahl"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Vertragsverwaltung: Datebbankauswahl"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+#End Region
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        Me.Close()
+    End Sub
+
+    Private Sub frmDatenbankauswahl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+    End Sub
+
+
+    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
+        Me.Close()
+    End Sub
+
+    Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
+        If e.KeyCode = Keys.Enter Then Me.Close()
+    End Sub
+End Class

Logbuch/Logbuch/DB/clsConnectionProvider.vb

@@ -0,0 +1,289 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Connection Provider class for Database connection sharing  
+' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
+' // This class implements IDisposable.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Configuration
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Collections
+
+Namespace DB
+	' /// <summary>
+	' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
+	' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
+	' /// on a high level.
+	' /// </summary>
+	Public Class clsConnectionProvider
+		Implements IDisposable
+
+#Region " Class Member Declarations "
+
+		Private		m_scoDBConnection As SqlConnection
+		Private		m_bIsTransactionPending, m_bIsDisposed As Boolean
+		Private		m_stCurrentTransaction As SqlTransaction
+		Private		m_alSavePoints As ArrayList
+
+#End Region
+
+
+		Public Sub New()
+			' // Init the class
+			InitClass()
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the IDispose' method Dispose.
+		' /// </summary>
+		Overloads Public Sub Dispose() Implements IDisposable.Dispose
+			Dispose(True)
+			GC.SuppressFinalize(Me)
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the Dispose functionality.
+		' /// </summary>
+		Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
+			' // Check to see if Dispose has already been called.
+			If Not m_bIsDisposed Then
+				If bIsDisposing Then
+					' // Dispose managed resources.
+					If Not (m_stCurrentTransaction Is Nothing) Then
+						m_stCurrentTransaction.Dispose()
+						m_stCurrentTransaction = Nothing
+					End If
+					If Not (m_scoDBConnection Is Nothing) Then
+						' // closing the connection will abort (rollback) any pending transactions
+						m_scoDBConnection.Close()
+						m_scoDBConnection.Dispose()
+						m_scoDBConnection = Nothing
+					End If
+				End If
+			End If
+			m_bIsDisposed = True
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Initializes class members.
+		' /// </summary>
+		Private Sub InitClass()
+			' // Create all the objects and initialize other members.
+			m_scoDBConnection = new SqlConnection()
+			m_bIsDisposed = False
+			m_stCurrentTransaction = Nothing
+			m_bIsTransactionPending = False
+			m_alSavePoints = new ArrayList()
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Opens the connection object.
+		' /// </summary>
+		' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
+		Public Function OpenConnection() As Boolean
+			Try
+				If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
+					' // It's already open.
+					Throw New Exception("OpenConnection::Connection is already open.")
+				End If
+				m_scoDBConnection.Open()
+				m_bIsTransactionPending = False
+				m_alSavePoints.Clear()
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
+		' /// </summary>
+		' /// <param name="sTransactionName">Name of the transaction to start</param>
+		' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
+		Public Function BeginTransaction(sTransactionName As String) As Boolean
+			Try
+				If m_bIsTransactionPending Then
+					' // no nested transactions allowed.
+					Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
+				End If
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // no open connection
+					Throw New Exception("BeginTransaction::Connection is not open.")
+				End If
+				' // begin the transaction and store the transaction object.
+				m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
+				m_bIsTransactionPending = True
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Commits a pending transaction on the open connection object of this class.
+		' /// </summary>
+		' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
+		Public Function CommitTransaction() As Boolean
+			Try
+				If Not m_bIsTransactionPending Then
+					' // no transaction pending
+					Throw New Exception("CommitTransaction::No transaction pending.")
+				End If
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // no open connection
+					Throw New Exception("CommitTransaction::Connection is not open.")
+				End if
+				' // commit the transaction
+				m_stCurrentTransaction.Commit()
+				m_bIsTransactionPending = False
+				m_stCurrentTransaction.Dispose()
+				m_stCurrentTransaction = Nothing
+				m_alSavePoints.Clear()
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Rolls back a pending transaction on the open connection object of this class, 
+		' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
+		' /// </summary>
+		' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
+		' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
+		Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
+			Try
+				If Not m_bIsTransactionPending Then
+					' // no transaction pending
+					Throw New Exception("RollbackTransaction::No transaction pending.")
+				End If
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // no open connection
+					Throw New Exception("RollbackTransaction::Connection is not open.")
+				End If
+				' // rollback the transaction
+				m_stCurrentTransaction.Rollback(sTransactionToRollback)
+				' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
+				' // can clean it up.
+				If Not m_alSavePoints.Contains(sTransactionToRollback) Then
+					' // it's not a savepoint
+					m_bIsTransactionPending = False
+					m_stCurrentTransaction.Dispose()
+					m_stCurrentTransaction = Nothing
+					m_alSavePoints.Clear()
+				End If
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
+		' /// with the given name.
+		' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
+		' /// </summary>
+		' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
+		' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
+		Public Function SaveTransaction(sSavePointName As String) As Boolean
+			Try
+				If Not m_bIsTransactionPending Then
+					' // no transaction pending
+					Throw New Exception("SaveTransaction::No transaction pending.")
+				End If
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // no open connection
+					Throw New Exception("SaveTransaction::Connection is not open.")
+				End If
+				' // save the transaction
+				m_stCurrentTransaction.Save(sSavePointName)
+				' // Store the savepoint in the list.
+				m_alSavePoints.Add(sSavePointName)
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
+		' /// transaction is commited, or aborted. 
+		' /// </summary>
+		' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
+		' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
+		' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
+		' /// an error occurs</returns>
+		Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
+			Try
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // No open connection
+					Return False
+				End If
+				If m_bIsTransactionPending Then
+					If bCommitPendingTransaction Then
+						' // Commit the pending transaction
+						m_stCurrentTransaction.Commit()
+					Else
+						' // Rollback the pending transaction
+						m_stCurrentTransaction.Rollback()
+					End If
+					m_bIsTransactionPending = False
+					m_stCurrentTransaction.Dispose()
+					m_stCurrentTransaction = Nothing
+					m_alSavePoints.Clear()
+				End If
+				' // close the connection
+				m_scoDBConnection.Close()
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public ReadOnly Property stCurrentTransaction() As SqlTransaction
+			Get
+				Return m_stCurrentTransaction
+			End Get
+		End Property
+
+
+		Public ReadOnly Property bIsTransactionPending() As Boolean
+			Get
+				Return m_bIsTransactionPending
+			End Get
+		End Property
+
+
+		Public ReadOnly Property scoDBConnection() As SqlConnection
+			Get
+				Return m_scoDBConnection
+			End Get
+		End Property
+		Public WriteOnly Property sConnectionString() As String
+			Set (ByVal Value As String)
+				m_scoDBConnection.ConnectionString = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

Logbuch/Logbuch/DB/clsDBInteractionBase.vb

@@ -0,0 +1,208 @@
+' //////////////////////////////////////////////////////////////////////////////////////////
+' // Description: Base class for Database Interaction.                       
+' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
+' // Because this class implements IDisposable, derived classes shouldn't do so.
+' //////////////////////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Configuration
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace DB
+	' /// <summary>
+	' /// Purpose: Error Enums used by this LLBL library.
+	' /// </summary>
+	Public Enum LLBLError
+		AllOk
+		' // Add more here (check the comma's!)
+	End Enum
+
+
+	' /// <summary>
+	' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
+	' /// </summary>
+	Public Interface ICommonDBAccess
+		Function	Insert() As Boolean
+		Function	Update() As Boolean
+		Function	Delete() As Boolean
+		Function	SelectOne() As DataTable
+		Function	SelectAll() As DataTable
+	End Interface
+
+
+	' /// <summary>
+	' /// Purpose: Abstract base class for Database Interaction classes.
+	' /// </summary>
+	Public MustInherit Class clsDBInteractionBase
+		Implements IDisposable
+		Implements ICommonDBAccess
+
+#Region " Class Member Declarations "
+
+		Protected	m_scoMainConnection As SqlConnection
+		Protected	m_iRowsAffected As Integer
+		Protected	m_iErrorCode As SqlInt32
+		Protected	m_bMainConnectionIsCreatedLocal As Boolean
+		Protected	m_cpMainConnectionProvider As clsConnectionProvider
+		Private		m_sConnectionString As String
+		Private		m_bIsDisposed As Boolean
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Initialize the class' members.
+			InitClass()
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Initializes class members.
+		' /// </summary>
+		Private Sub InitClass()
+			' // create all the objects and initialize other members.
+			m_scoMainConnection = new SqlConnection()
+			m_bMainConnectionIsCreatedLocal = True
+			m_cpMainConnectionProvider = Nothing
+			m_iErrorCode = New SqlInt32(LLBLError.AllOk)
+			m_bIsDisposed = False
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the IDispose' method Dispose.
+		' /// </summary>
+		Overloads Public Sub Dispose() Implements IDisposable.Dispose
+			Dispose(True)
+			GC.SuppressFinalize(Me)
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the Dispose functionality.
+		' /// </summary>
+		Overridable  Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
+			' // Check to see if Dispose has already been called.
+			If Not m_bIsDisposed Then
+				If bIsDisposing Then
+					' // Dispose managed resources.
+					If m_bMainConnectionIsCreatedLocal Then
+						' // Object is created in this class, so destroy it here.
+						m_scoMainConnection.Close()
+						m_scoMainConnection.Dispose()
+						m_bMainConnectionIsCreatedLocal = True
+					End If
+					m_cpMainConnectionProvider = Nothing
+					m_scoMainConnection = Nothing
+				End If
+			End If
+			m_bIsDisposed = True
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.Insert() method.
+		' /// </summary>
+		Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.Delete() method.
+		' /// </summary>
+		Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.Update() method.
+		' /// </summary>
+		Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
+		' /// </summary>
+		Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
+		' /// </summary>
+		Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
+			Set(ByVal Value As clsConnectionProvider)
+				If Value Is Nothing Then
+					' // Invalid value
+					Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
+				End If
+
+				' // A connection provider object is passed to this class.
+				' // Retrieve the SqlConnection object, if present and create a
+				' // reference to it. If there is already a MainConnection object
+				' // referenced by the membervar, destroy that one or simply 
+				' // remove the reference, based on the flag.
+				If Not (m_scoMainConnection Is Nothing) Then
+					' // First get rid of current connection object. Caller is responsible
+					If m_bMainConnectionIsCreatedLocal Then
+						' // Is local created object, close it and dispose it.
+						m_scoMainConnection.Close()
+						m_scoMainConnection.Dispose()
+					End If
+					' // Remove reference.
+					m_scoMainConnection = Nothing
+				End If
+				m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
+				m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
+				m_bMainConnectionIsCreatedLocal = False
+			End Set
+		End Property
+
+
+		Public ReadOnly Property iErrorCode() As SqlInt32
+			Get
+				Return m_iErrorCode
+			End Get
+		End Property
+
+
+		Public Property sConnectionString() As String
+			Get
+				Return m_sConnectionString
+			End Get
+			Set (ByVal Value As String)
+				m_sConnectionString = Value
+				m_scoMainConnection.ConnectionString = m_sConnectionString
+			End Set
+		End Property
+		Public Readonly Property iRowsAffected() As Integer
+			Get
+				Return m_iRowsAffected
+			End Get
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

Logbuch/Logbuch/DB/clsKey_tabelle.vb

@@ -0,0 +1,491 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'key_tabelle'
+' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace DB
+	''' <summary>
+	''' Purpose: Data Access class for the table 'key_tabelle'.
+	''' </summary>
+	Public Class clsKey_tabelle
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
+		Private 		m_sBeschreibung As SqlString
+
+#End Region
+
+
+		''' <summary>
+		''' Purpose: Class constructor.
+		''' </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		''' <summary>
+		''' Purpose: Insert method. This method will insert one new row into the database.
+		''' </summary>
+		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>sBeschreibung</LI>
+		'''		 <LI>iKey_wert</LI>
+		'''		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		'''		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		'''		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iKeynr</LI>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: Update method. This method will Update one existing row in the database.
+		''' </summary>
+		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iKeynr</LI>
+		'''		 <LI>sBeschreibung</LI>
+		'''		 <LI>iKey_wert</LI>
+		'''		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		'''		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		'''		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+		''' </summary>
+		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iKeynr</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function Delete() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		''' </summary>
+		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iKeynr</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''		 <LI>iKeynr</LI>
+		'''		 <LI>sBeschreibung</LI>
+		'''		 <LI>iKey_wert</LI>
+		'''		 <LI>iMandantnr</LI>
+		'''		 <LI>bAktiv</LI>
+		'''		 <LI>daErstellt_am</LI>
+		'''		 <LI>daMutiert_am</LI>
+		'''		 <LI>iMutierer</LI>
+		'''</UL>
+		''' Will fill all properties corresponding with a field in the table with the value of the row selected.
+		''' </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("key_tabelle")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				If dtToReturn.Rows.Count > 0 Then
+					m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
+					m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
+					m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
+					If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+						m_iMandantnr = SqlInt32.Null
+					Else
+						m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+					End If
+					If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+						m_bAktiv = SqlBoolean.Null
+					Else
+						m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+					End If
+					If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+						m_daErstellt_am = SqlDateTime.Null
+					Else
+						m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+					End If
+					If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+						m_daMutiert_am = SqlDateTime.Null
+					Else
+						m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+					End If
+					If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+						m_iMutierer = SqlInt32.Null
+					Else
+						m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+					End If
+				End If
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: SelectAll method. This method will Select all rows from the table.
+		''' </summary>
+		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function SelectAll() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("key_tabelle")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iKeynr]() As SqlInt32
+			Get
+				Return m_iKeynr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iKeynrTmp As SqlInt32 = Value
+				If iKeynrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
+				End If
+				m_iKeynr = Value
+			End Set
+		End Property
+
+
+		Public Property [sBeschreibung]() As SqlString
+			Get
+				Return m_sBeschreibung
+			End Get
+			Set(ByVal Value As SqlString)
+				Dim sBeschreibungTmp As SqlString = Value
+				If sBeschreibungTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
+				End If
+				m_sBeschreibung = Value
+			End Set
+		End Property
+
+
+		Public Property [iKey_wert]() As SqlInt32
+			Get
+				Return m_iKey_wert
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iKey_wertTmp As SqlInt32 = Value
+				If iKey_wertTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
+				End If
+				m_iKey_wert = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

Logbuch/Logbuch/DB/clsMyPartner.vb

@@ -0,0 +1,200 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+    Public Class clsMyPartner
+        Public Function search_partner(ByVal query As String, ByVal anzahl As String, ByVal fnkt As Integer) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_search_partner]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anzahl))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function search_doppelte_partner(ByVal query As String, ByVal table As String, ByVal fnkt As Integer) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        Public Function Partner_Detail(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_detail]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_zus_Adressen(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_zus_adressen]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        Public Function Partner_VV(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_vv]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_Gebdat(ByVal nrpar00 As String) As String
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_gebdat]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@gebdat", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+
+                Return scmCmdToExecute.Parameters("@gebdat").Value
+            Catch ex As Exception
+                '   MsgBox(ex.Message)
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                '  Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+                Return ""
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_Betreuer(ByVal nrpar00 As String) As String
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_betreuer]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@betreuer", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return scmCmdToExecute.Parameters("@betreuer").Value
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+                Return ""
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+                dtToReturn.Dispose()
+            End Try
+
+        End Function
+
+
+    End Class
+End Namespace

Logbuch/Logbuch/DB/clsSpalten.vb

@@ -0,0 +1,630 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'spalten'
+' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 13:15:45
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace db
+	''' <summary>
+	''' Purpose: Data Access class for the table 'spalten'.
+	''' </summary>
+	Public Class clsSpalten
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bReadonly, m_bAlsHacken, m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iMandantnr, m_iMutierer, m_iReihenfolge, m_iEintragnr, m_iBreite As SqlInt32
+		Private 		m_sTabelle, m_sNumberFormat, m_sTiptext, m_sSpalte, m_sTabellenspalte As SqlString
+
+#End Region
+
+
+		''' <summary>
+		''' Purpose: Class constructor.
+		''' </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		''' <summary>
+		''' Purpose: Insert method. This method will insert one new row into the database.
+		''' </summary>
+		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iEintragnr</LI>
+		'''		 <LI>sTabelle. May be SqlString.Null</LI>
+		'''		 <LI>sTabellenspalte. May be SqlString.Null</LI>
+		'''		 <LI>sSpalte. May be SqlString.Null</LI>
+		'''		 <LI>bReadonly</LI>
+		'''		 <LI>bAlsHacken</LI>
+		'''		 <LI>iBreite. May be SqlInt32.Null</LI>
+		'''		 <LI>iReihenfolge. May be SqlInt32.Null</LI>
+		'''		 <LI>sTiptext. May be SqlString.Null</LI>
+		'''		 <LI>bAktiv</LI>
+		'''		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		'''		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		'''		 <LI>sNumberFormat. May be SqlString.Null</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_spalten_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_spalten_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsSpalten::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: Update method. This method will Update one existing row in the database.
+		''' </summary>
+		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iEintragnr</LI>
+		'''		 <LI>sTabelle. May be SqlString.Null</LI>
+		'''		 <LI>sTabellenspalte. May be SqlString.Null</LI>
+		'''		 <LI>sSpalte. May be SqlString.Null</LI>
+		'''		 <LI>bReadonly</LI>
+		'''		 <LI>bAlsHacken</LI>
+		'''		 <LI>iBreite. May be SqlInt32.Null</LI>
+		'''		 <LI>iReihenfolge. May be SqlInt32.Null</LI>
+		'''		 <LI>sTiptext. May be SqlString.Null</LI>
+		'''		 <LI>bAktiv</LI>
+		'''		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		'''		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		'''		 <LI>sNumberFormat. May be SqlString.Null</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_spalten_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_spalten_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsSpalten::Update::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+		''' </summary>
+		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iEintragnr</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function Delete() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_spalten_Delete]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_spalten_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsSpalten::Delete::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		''' </summary>
+		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iEintragnr</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''		 <LI>iEintragnr</LI>
+		'''		 <LI>sTabelle</LI>
+		'''		 <LI>sTabellenspalte</LI>
+		'''		 <LI>sSpalte</LI>
+		'''		 <LI>bReadonly</LI>
+		'''		 <LI>bAlsHacken</LI>
+		'''		 <LI>iBreite</LI>
+		'''		 <LI>iReihenfolge</LI>
+		'''		 <LI>sTiptext</LI>
+		'''		 <LI>bAktiv</LI>
+		'''		 <LI>daErstellt_am</LI>
+		'''		 <LI>daMutiert_am</LI>
+		'''		 <LI>iMutierer</LI>
+		'''		 <LI>iMandantnr</LI>
+		'''		 <LI>sNumberFormat</LI>
+		'''</UL>
+		''' Will fill all properties corresponding with a field in the table with the value of the row selected.
+		''' </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("spalten")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_spalten_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				If dtToReturn.Rows.Count > 0 Then
+					m_iEintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("eintragnr"), Integer))
+					If dtToReturn.Rows(0)("tabelle") Is System.DBNull.Value Then
+						m_sTabelle = SqlString.Null
+					Else
+						m_sTabelle = New SqlString(CType(dtToReturn.Rows(0)("tabelle"), String))
+					End If
+					If dtToReturn.Rows(0)("tabellenspalte") Is System.DBNull.Value Then
+						m_sTabellenspalte = SqlString.Null
+					Else
+						m_sTabellenspalte = New SqlString(CType(dtToReturn.Rows(0)("tabellenspalte"), String))
+					End If
+					If dtToReturn.Rows(0)("spalte") Is System.DBNull.Value Then
+						m_sSpalte = SqlString.Null
+					Else
+						m_sSpalte = New SqlString(CType(dtToReturn.Rows(0)("spalte"), String))
+					End If
+					m_bReadonly = New SqlBoolean(CType(dtToReturn.Rows(0)("Readonly"), Boolean))
+					m_bAlsHacken = New SqlBoolean(CType(dtToReturn.Rows(0)("alsHacken"), Boolean))
+					If dtToReturn.Rows(0)("Breite") Is System.DBNull.Value Then
+						m_iBreite = SqlInt32.Null
+					Else
+						m_iBreite = New SqlInt32(CType(dtToReturn.Rows(0)("Breite"), Integer))
+					End If
+					If dtToReturn.Rows(0)("Reihenfolge") Is System.DBNull.Value Then
+						m_iReihenfolge = SqlInt32.Null
+					Else
+						m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("Reihenfolge"), Integer))
+					End If
+					If dtToReturn.Rows(0)("tiptext") Is System.DBNull.Value Then
+						m_sTiptext = SqlString.Null
+					Else
+						m_sTiptext = New SqlString(CType(dtToReturn.Rows(0)("tiptext"), String))
+					End If
+					m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+					If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+						m_daErstellt_am = SqlDateTime.Null
+					Else
+						m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+					End If
+					If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+						m_daMutiert_am = SqlDateTime.Null
+					Else
+						m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+					End If
+					If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+						m_iMutierer = SqlInt32.Null
+					Else
+						m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+					End If
+					If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+						m_iMandantnr = SqlInt32.Null
+					Else
+						m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+					End If
+					If dtToReturn.Rows(0)("NumberFormat") Is System.DBNull.Value Then
+						m_sNumberFormat = SqlString.Null
+					Else
+						m_sNumberFormat = New SqlString(CType(dtToReturn.Rows(0)("NumberFormat"), String))
+					End If
+				End If
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsSpalten::SelectOne::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: SelectAll method. This method will Select all rows from the table.
+		''' </summary>
+		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function SelectAll() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectAll]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("spalten")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_spalten_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsSpalten::SelectAll::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iEintragnr]() As SqlInt32
+			Get
+				Return m_iEintragnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iEintragnrTmp As SqlInt32 = Value
+				If iEintragnrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iEintragnr", "iEintragnr can't be NULL")
+				End If
+				m_iEintragnr = Value
+			End Set
+		End Property
+
+
+		Public Property [sTabelle]() As SqlString
+			Get
+				Return m_sTabelle
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sTabelle = Value
+			End Set
+		End Property
+
+
+		Public Property [sTabellenspalte]() As SqlString
+			Get
+				Return m_sTabellenspalte
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sTabellenspalte = Value
+			End Set
+		End Property
+
+
+		Public Property [sSpalte]() As SqlString
+			Get
+				Return m_sSpalte
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sSpalte = Value
+			End Set
+		End Property
+
+
+		Public Property [bReadonly]() As SqlBoolean
+			Get
+				Return m_bReadonly
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				Dim bReadonlyTmp As SqlBoolean = Value
+				If bReadonlyTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("bReadonly", "bReadonly can't be NULL")
+				End If
+				m_bReadonly = Value
+			End Set
+		End Property
+
+
+		Public Property [bAlsHacken]() As SqlBoolean
+			Get
+				Return m_bAlsHacken
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				Dim bAlsHackenTmp As SqlBoolean = Value
+				If bAlsHackenTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("bAlsHacken", "bAlsHacken can't be NULL")
+				End If
+				m_bAlsHacken = Value
+			End Set
+		End Property
+
+
+		Public Property [iBreite]() As SqlInt32
+			Get
+				Return m_iBreite
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iBreite = Value
+			End Set
+		End Property
+
+
+		Public Property [iReihenfolge]() As SqlInt32
+			Get
+				Return m_iReihenfolge
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iReihenfolge = Value
+			End Set
+		End Property
+
+
+		Public Property [sTiptext]() As SqlString
+			Get
+				Return m_sTiptext
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sTiptext = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				Dim bAktivTmp As SqlBoolean = Value
+				If bAktivTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
+				End If
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [sNumberFormat]() As SqlString
+			Get
+				Return m_sNumberFormat
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sNumberFormat = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

Logbuch/Logbuch/Form1.Designer.vb

@@ -0,0 +1,131 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
+        Me.menuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.dateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.beendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.logbuchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SystemadministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tscbboxAuswertung = New System.Windows.Forms.ToolStripComboBox()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.tsbtnclose = New System.Windows.Forms.ToolStripButton()
+        Me.menuStrip1.SuspendLayout()
+        Me.ToolStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'menuStrip1
+        '
+        Me.menuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.dateiToolStripMenuItem, Me.logbuchToolStripMenuItem, Me.SystemadministrationToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.tscbboxAuswertung})
+        Me.menuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.menuStrip1.Name = "menuStrip1"
+        Me.menuStrip1.Size = New System.Drawing.Size(1005, 27)
+        Me.menuStrip1.TabIndex = 1
+        Me.menuStrip1.Text = "menuStrip1"
+        '
+        'dateiToolStripMenuItem
+        '
+        Me.dateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.beendenToolStripMenuItem})
+        Me.dateiToolStripMenuItem.Name = "dateiToolStripMenuItem"
+        Me.dateiToolStripMenuItem.Size = New System.Drawing.Size(46, 23)
+        Me.dateiToolStripMenuItem.Text = "&Datei"
+        '
+        'beendenToolStripMenuItem
+        '
+        Me.beendenToolStripMenuItem.Name = "beendenToolStripMenuItem"
+        Me.beendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
+        Me.beendenToolStripMenuItem.Text = "&Beenden"
+        '
+        'logbuchToolStripMenuItem
+        '
+        Me.logbuchToolStripMenuItem.Name = "logbuchToolStripMenuItem"
+        Me.logbuchToolStripMenuItem.Size = New System.Drawing.Size(135, 23)
+        Me.logbuchToolStripMenuItem.Text = "Schuldbriefe / Policen"
+        '
+        'SystemadministrationToolStripMenuItem
+        '
+        Me.SystemadministrationToolStripMenuItem.Name = "SystemadministrationToolStripMenuItem"
+        Me.SystemadministrationToolStripMenuItem.Size = New System.Drawing.Size(134, 23)
+        Me.SystemadministrationToolStripMenuItem.Text = "Systemadministration"
+        '
+        'AuswertungenToolStripMenuItem
+        '
+        Me.AuswertungenToolStripMenuItem.Name = "AuswertungenToolStripMenuItem"
+        Me.AuswertungenToolStripMenuItem.Size = New System.Drawing.Size(96, 23)
+        Me.AuswertungenToolStripMenuItem.Text = "&Auswertungen"
+        '
+        'tscbboxAuswertung
+        '
+        Me.tscbboxAuswertung.Name = "tscbboxAuswertung"
+        Me.tscbboxAuswertung.Size = New System.Drawing.Size(250, 23)
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnclose})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 27)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(1005, 25)
+        Me.ToolStrip1.TabIndex = 3
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'tsbtnclose
+        '
+        Me.tsbtnclose.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnclose.Image = CType(resources.GetObject("tsbtnclose.Image"), System.Drawing.Image)
+        Me.tsbtnclose.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnclose.Name = "tsbtnclose"
+        Me.tsbtnclose.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnclose.Text = "Anwendung beenden"
+        '
+        'Form1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1005, 464)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.menuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.IsMdiContainer = True
+        Me.Name = "Form1"
+        Me.Text = "Logbuch"
+        Me.menuStrip1.ResumeLayout(False)
+        Me.menuStrip1.PerformLayout()
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Private WithEvents menuStrip1 As MenuStrip
+    Private WithEvents dateiToolStripMenuItem As ToolStripMenuItem
+    Private WithEvents beendenToolStripMenuItem As ToolStripMenuItem
+    Private WithEvents logbuchToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents tsbtnclose As ToolStripButton
+    Friend WithEvents SystemadministrationToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AuswertungenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tscbboxAuswertung As ToolStripComboBox
+End Class

Logbuch/Logbuch/Form1.resx

@@ -0,0 +1,311 @@
+<?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="menuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>132, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="tsbtnclose.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLfS1NhGMdfCPoDuummi+i6KwcWZYjb3Obx
+        7MzN5dY5Z9tJV86MirIgK8t++KssC63IYSoVRaVWRmn2Q9FIUcpCyiXVRXiRRCFIFwWfjhqLXdYDH3if
+        F94P7/d5X/E/9XVyIDj7aexn295M/mwt1vWK3K6Oyly6js0jJek8KnHjkJ2n8V3MTPTwZfwes+/7ubrf
+        mirorJBJW2tnzXobazf8JX29ldWWDOYSPSS6DjPa5Odb4hnXDzpSBR3lMplWJza7hN3hSmLNdpKeYeNd
+        W4TRSzrD54PMvHnIrSM5qQJHg0CqXkKO3YfkUpBy3EiSjMsls8EqMdFqMHwxxPPGINOjnQtR/xwVwlYj
+        SEy34zQluVkabmcARfKjyF5kt4csh5vX8TBDTTr9DZv4OHiN+1XKosBWLRj/1ExrvyCzSmCvFzjPCeTy
+        5XiVIJ48P9m5PsYuafSf1Zl7sJK3fS08rPUiXHWCFx+qiA8JmgfN9VQRIx8ivPwcXpBs9ITJzw8ieQKM
+        nFd5ckbjR88q3txvoq/evyh4nCgjPiaIjwpaXgtaJwSvvkdwnBUE84soCIRw52sMNQboOx2kuczJy84a
+        njUEFiJY7GaE7rdbaE8IsuYjnBQ4zgjyDq1AV6OouoEvaDDQ4Kf31EZuVyq8uFbBYKOaHKIlu1bQNeXD
+        eVpgBHZjaKUY4WIMI0rEKCQQivKk3suDOh/d1V4GLu9h+EIo5RktTvPKSt1SosYOokUlFEWLFyg00TbH
+        eFTnobsqjzvHPfQ0xRhrjqQIRFvpOraWlFIS20nJtu1JYiaFxTvorZW5e0Kh45ibu6dCjLcUInRdR9dC
+        aFoYVZ3HXKua2atJVLMv2KSzLxbgSoVi/kCZm0fzmGjfsjjEf6VcT99/+YDj1+SVWGqEf6hlJmlCCMtv
+        k4rCoiUUiGcAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
+        AAYAgAAmAIAAGACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
+        AAIAgAAyAIAAdgCAALQAgADSAIAAugCAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAACAIAAEgCA
+        ACoAgABUAIAAmACAAN4AgAD/AIAA/wCAAP8AgAD/AIAA/wCAANYAgAAeAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAIAAEACA
+        ADwAgAB0AIAApACAANIAgAD6AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACmAIAAHAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAACACA
+        ADYAgACKAIAAwACAANwAgAD2AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPoAgAD4AIAA/wCA
+        AP8AgAD0AIAAiACAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAIAgAAWAIAALgCA
+        AFYAgACmAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD6AIAA6ACAANAAgACgAIAAWgCA
+        ABgAgABcAIAA6gCAAP8AgAD/AIAA+ACAAH4AgAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAASAIAAQACA
+        AHIAgACsAIAA2gCAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA6ACAALwAgACCAIAAVACA
+        ACQAgAAAAAAAAAAAAAAAgAAOAIAAgACAAPAAgAD/AIAA/wCAAPIAgABSAIAAAgAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAACAIAAIgCA
+        AHQAgADCAIAA3gCAAPYAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA8gCAAL4AgABqAIAAOACA
+        AB4AgAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAFgCAAKQAgAD/AIAA/wCAAP8AgADSAIAAPACA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
+        AA4AgACGAIAA8ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPoAgADkAIAAzACAAKAAgABOAIAAEgCA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAoAgADAAIAA/ACA
+        AP8AgAD/AIAAygCAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAIAADgCAAH4AgAD6AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADiAIAAtACAAIQAgABMAIAAHACA
+        AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAA2AIAAzACAAP8AgAD/AIAA/ACAALYAgAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAACAIAAYACAAOoAgAD/AIAA/wCAAP8AgAD0AIAAvACAAHAAgAA0AIAAGgCA
+        AAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAEAIAAUgCAAOQAgAD/AIAA/wCAAPwAgACKAIAACAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAqAIAAzgCAAP8AgAD/AIAA9ACAAKIAgAAYAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAFgAgADyAIAA/wCAAP8AgADyAIAAgACA
+        AAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgABgAIAA+gCAAP8AgAD8AIAAqgCA
+        ABoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAIAgACMAIAA9gCA
+        AP8AgAD/AIAA5gCAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgACgAIAA/wCA
+        AP8AgADmAIAAUgCAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAQAIAASACAAG4AgAAiAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAAaAIAApgCAAPwAgAD/AIAA/wCAAOIAgAAqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgADSAIAA/wCAAP8AgADOAIAAHgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAAAIAACgCAACAAgAA+AIAAdACAALQAgAD2AIAA/wCAAP8AgADaAIAARgCA
+        AAQAAAAAAAAAAAAAAAAAAAAAAIAAHACAALAAgAD/AIAA/wCAAP8AgADMAIAALgCAAAIAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgADgAIAA/wCAAP8AgADGAIAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAIAACACAACwAgABiAIAAkACAAL4AgADuAIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD8AIAAxgCAADQAAAAAAAAAAAAAAAAAAAAAAAAAAACAACwAgADaAIAA/wCAAP8AgAD6AIAArACA
+        AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgADaAIAA/wCAAP8AgADIAIAAFAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAIAABACAACoAgAB6AIAAtACAANQAgADuAIAA/ACAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAMIAgAAOAAAAAAAAAAAAAAAAAAAAAACAAAAAgABWAIAA6ACA
+        AP8AgAD/AIAA9gCAAJQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAC2AIAA/wCAAP8AgADcAIAAOgCA
+        AAAAAAAAAAAAAACAAAIAgAAYAIAALgCAAFIAgACgAIAA3gCAAPwAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACuAIAAHACAAAAAAAAAAAAAAAAA
+        AAAAgAAEAIAAYgCAAOgAgAD/AIAA/wCAAP8AgAByAIAACAAAAAAAAAAAAAAAAAAAAAAAgACIAIAA/wCA
+        AP8AgAD2AIAAogCAAD4AgAAwAIAAUgCAAHoAgACuAIAA2gCAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD0AIAAkgCA
+        ABQAAAAAAAAAAAAAAAAAAAAAAIAADACAAH4AgAD/AIAA/wCAAP8AgADkAIAAWACAAAYAAAAAAAAAAAAA
+        AAAAgABQAIAA+gCAAP8AgAD/AIAA9gCAAN4AgADWAIAA6ACAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA8ACAAHwAAAAAAAAAAAAAAAAAAAAAAAAAAACAABAAgACyAIAA/wCAAP8AgAD8AIAA0gCA
+        ADQAAAAAAAAAAAAAAAAAgAAkAIAAyACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPwAgABkAIAACAAAAAAAAAAAAAAAAAAAAAAAgAAgAIAAtgCA
+        APoAgAD/AIAA/wCAANYAgAAcAAAAAAAAAAAAgAAIAIAAhACAAPgAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADgAIAAUgCAAAQAAAAAAAAAAAAA
+        AAAAgAAAAIAAOgCAANAAgAD/AIAA/wCAAP8AgACgAIAAGAAAAAAAgAAAAIAALgCAANQAgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA0gCA
+        ADYAAAAAAAAAAAAAAAAAAAAAAIAABACAAEwAgAD6AIAA/wCAAP8AgADyAIAAfgCAAAoAAAAAAAAAAACA
+        ADwAgADoAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAN4AgAAmAIAAAAAAAAAAAAAAAAAAAAAAAAAAgABwAIAA8gCAAP8AgAD/AIAA9ACA
+        AF4AAAAAAAAAAAAAAAAAgABmAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACwAIAAIgAAAAAAAAAAAAAAAAAAAAAAgAAUAIAAngCA
+        APoAgAD/AIAA/wCAAJwAAAAAAAAAAAAAAAAAgAAMAIAAfACAAPAAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD2AIAAlgCAABQAAAAAAAAAAAAA
+        AAAAgAAAAIAAZACAAPAAgAD/AIAA/wCAAH4AAAAAAAAAAAAAAAAAAAAAAIAABgCAAHoAgAD4AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACA
+        AJQAgAAIAAAAAAAAAAAAAAAAAIAAZgCAAPIAgAD/AIAA/wCAAFQAAAAAAAAAAAAAAAAAAAAAAAAAAACA
+        AAgAgACeAIAA+ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAPgAgABqAIAACAAAAAAAAAAAAIAAZgCAAPIAgAD/AIAA/wCAAFgAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAgAIAArACAAPwAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADiAIAAVgCAAAIAAAAAAIAAWgCAAOwAgAD/AIAA/wCA
+        AHwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAHACAAK4AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA4gCAAFAAAAAAAIAALACA
+        ANIAgAD/AIAA/wCAAJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAACQAgADMAIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPIAgADOAIAAwACAAOgAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        ANYAgAAqAIAABgCAAIAAgAD0AIAA4gCAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgABEAIAA1gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAOAAgACeAIAAaACAAD4AgAAoAIAAIACAAEYAgADuAIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgACwAIAAHgCAABAAgAA8AIAANACAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAAAIAARACAANQAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/ACAAPAAgADaAIAAxACAAJoAgABWAIAAHgCAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgABOAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD8AIAAqgCAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAgCAAFAAgADuAIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/ACAAOYAgAC2AIAAjACAAGQAgAA2AIAAEACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAUAIAApgCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA+ACAAJQAgAAGAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAQAgAByAIAA9ACA
+        AP8AgAD/AIAA/wCAAP8AgAD0AIAAkgCAADYAgAAcAIAACACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAEAIAAKACAAGQAgACsAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        APYAgABoAIAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAAIAIAAcgCAAO4AgAD/AIAA/wCAAP8AgAD2AIAAhgCAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAACAIAAEACAACIAgAA8AIAAaACAAKIAgADkAIAA/ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgADqAIAAZACAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAIAAEACAAIQAgAD8AIAA/wCAAP8AgAD/AIAA5gCAAGQAAAAAAAAAAAAA
+        AAAAgAAGAIAAIgCAAEgAgAB2AIAAnACAAMQAgADuAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA2ACAAEYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAABAAgACqAIAA/wCAAP8AgAD/AIAA/wCA
+        AOYAgAB0AIAAXACAAIAAgAC2AIAA0ACAAOIAgAD4AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAL4AAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAYAIAApACA
+        APgAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AMIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAAAAIAAKACAALYAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        APwAgADeAIAAsACAAEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAIAAAACAACgAgADeAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        APQAgAC+AIAAiACAAFQAgAAwAIAAGgCAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA2AIAA0ACAAPwAgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAPAAgADcAIAAygCA
+        AKgAgABsAIAANgCAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAEAIAATACA
+        ANoAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA9ACAANYAgACsAIAAiACA
+        AGQAgAA6AIAAGACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAIAABgCAAFAAgAD4AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA4ACAAKwAgABsAIAAQgCA
+        ACwAgAAWAIAABgCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgABaAIAAygCAANAAgAC4AIAAigCAAFYAgAAaAIAAAgAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAEAIAAHACAACQAgAAGAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP///////wAA////x///
+        AAD///wD//8AAP//4AH//wAA//4AAP//AAD/8ABw//8AAP+AA/B//wAA/AA/+D//AADgAf/8H/8AAOAP
+        //4P/wAAwP///wf/AACD////g/8AAIf///+D/wAAD////8H/AAAP//4P4P8AAA//4AfwfwAAD/8AA/g/
+        AAAP8AAB/D8AAAeAAAD+HwAAgAAAAP4PAACAAAAAfwcAAIAAAAA/gwAAwAAAAB/DAADgAAAAD+EAAPAA
+        AAAH4AAA+AAAAAPxAAD8AAAAAfEAAPwAAAAB8QAA/gAAAADxAAD/AAAAAHAAAP+AAAAAMQAA/8AAAfAf
+        AAD/4AAf+A8AAP/wAf/4BwAA//gP//AHAAD//A//AAMAAP/8D/AAAQAA//4GAAAAAAD//wAAAAAAAP//
+        gAAAAQAA///AAAAPAAD//+AAAf8AAP//8AAf/wAA///4A///AAD///w///8AAP///////wAA////////
+        AAA=
+</value>
+  </data>
+</root>

Logbuch/Logbuch/Form1.vb

@@ -0,0 +1,98 @@
+Imports System.Security.Principal
+Public Class Form1
+    Dim ouser As New WindowsPrincipal(WindowsIdentity.GetCurrent)
+    Dim db As New clsdbhandling
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnclose.Click
+        beendenToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub beendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles beendenToolStripMenuItem.Click
+
+        Me.Close()
+    End Sub
+
+    Private Sub logbuchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles logbuchToolStripMenuItem.Click
+        Dim f As New frmLogbuch
+        f.MdiParent = Me
+        f.Show()
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If Check_User() = False Then
+            MsgBox("Sie haben keine Bereichtigungen für diese Anwendung.", vbExclamation)
+            Me.Close()
+            Exit Sub
+        End If
+
+        Dim sql As String = ""
+        If Globals.Userdaten.Rows(0).Item("ES_Auswerten") = True Then
+            sql = sql + "Reportgruppe=2"
+        End If
+        If Globals.Userdaten.Rows(0).Item("Policen_Auswerten") = True Then
+            If sql = "" Then
+                sql = sql + "Reportgruppe=4"
+            Else
+                sql = sql + " or Reportgruppe=4"
+            End If
+        End If
+        If Globals.Userdaten.Rows(0).Item("Systemadministrator") = False Then
+            Me.SystemadministrationToolStripMenuItem.Visible = False
+        End If
+        If sql <> "" Then
+            sql = "Select ReportNr, Bezeichnung from Report where aktiv=1 and (" + sql + ") order by sortorder"
+        Else
+            sql = "Select ReportNr, Bezeichnung from Report where aktiv=1 and reportgruppe=-1 order by sortorder"
+        End If
+
+        db.Fill_TSCombobox(Me.tscbboxAuswertung, sql, False, True)
+        If Me.tscbboxAuswertung.Items.Count = 0 Then
+            Me.tscbboxAuswertung.Visible = False
+            Me.AuswertungenToolStripMenuItem.Visible = False
+        End If
+        Globals.Version = Globals.Version
+        Dim f As New frmLogbuch
+        f.MdiParent = Me
+        f.Show()
+        Me.WindowState = FormWindowState.Maximized
+        Globals.Applikationsdaten = db.Get_Tabledata("Select * from applikation", False, True)
+    End Sub
+
+    Function Check_User() As Boolean
+
+        Globals.Userdaten = db.Get_Tabledata("Select * from Benutzer where tgnummer='" + Get_Username() + "'", False, True)
+        If Globals.Userdaten.Rows.Count < 1 Then
+            Return False
+        Else
+            Return True
+
+        End If
+    End Function
+
+    Private Sub SystemadministrationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SystemadministrationToolStripMenuItem.Click
+        Dim f1 As New frmSysadmin
+        f1.MdiParent = Me
+        f1.Show()
+    End Sub
+
+
+
+    Private Sub tscbboxAuswertung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscbboxAuswertung.SelectedIndexChanged
+        For Each r As DataRow In Globals.Reportdata.Rows
+            If r.Item(1) = tscbboxAuswertung.Text Then
+                Dim f As New frmAuswertung(r.Item(0), Me.tscbboxAuswertung.Text)
+                f.MdiParent = Me
+                f.Show()
+            End If
+        Next
+    End Sub
+
+    Private Function Get_Username() As String
+        With ouser.Identity.Name
+            Return (.Substring(.IndexOf("\") + 1))
+        End With
+    End Function
+
+    Private Sub AuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswertungenToolStripMenuItem.Click
+
+    End Sub
+End Class

Logbuch/Logbuch/Klassen/clsSpalten.vb

@@ -0,0 +1,432 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+'*
+' Object MyspaltenTitel
+'
+' Dieses Objekt liest die Daten aus der Tabelle Spalten und speichert diese in spaltendaten
+' Die Daten werden für die Spaltenbezeichnung der C1Datagrids verwendet
+'
+' Autor: Stefan Hutter
+' Datum: 2.12.2002
+'*
+Imports C1.Win.C1TrueDBGrid
+Namespace Utils
+
+    Public Class Tabellenspalte
+        Private m_table As String
+        Private m_field As String
+        Private m_spaltenname As String
+        Private m_locked As Boolean
+        Private m_Width As Integer
+        Private m_Order As Integer
+        Private m_alsHacken As Boolean
+        Private m_tiptext As String
+        Private m_numberformat As String
+
+        Property ColWith() As Integer
+            Get
+                Return m_Width
+            End Get
+            Set(ByVal Value As Integer)
+                m_Width = Value
+            End Set
+        End Property
+        Property Order() As Integer
+            Get
+                Return m_Order
+            End Get
+            Set(ByVal Value As Integer)
+                m_Order = Value
+            End Set
+        End Property
+        Property Tabelle() As String
+            Get
+                Return m_table
+            End Get
+            Set(ByVal Value As String)
+                m_table = Value
+            End Set
+        End Property
+        Property Feld() As String
+            Get
+                Return m_field
+            End Get
+            Set(ByVal Value As String)
+                m_field = Value
+            End Set
+        End Property
+        Property spaltenname() As String
+            Get
+                Return m_spaltenname
+            End Get
+            Set(ByVal Value As String)
+                m_spaltenname = Value
+            End Set
+        End Property
+        Property locked() As Boolean
+            Get
+                Return m_locked
+            End Get
+            Set(ByVal Value As Boolean)
+                m_locked = Value
+            End Set
+        End Property
+        Property AlsHacken() As Boolean
+            Get
+                Return m_alsHacken
+            End Get
+            Set(ByVal Value As Boolean)
+                m_alsHacken = Value
+            End Set
+        End Property
+        Property TipText() As String
+            Get
+                Return m_tiptext
+            End Get
+            Set(ByVal Value As String)
+                m_tiptext = Value
+            End Set
+        End Property
+        Property Numberformat() As String
+            Get
+                Return m_numberformat
+            End Get
+            Set(ByVal value As String)
+                m_numberformat = value
+            End Set
+        End Property
+        Public Sub New()
+
+        End Sub
+        Public Sub New(ByRef daten As Object, ByRef tablename As String, ByRef ds As DataSet)
+            Spaltentitel_aktualisieren(daten, tablename, ds)
+        End Sub
+        Public Function getspalte()
+            Try
+                Dim myspalten As New MySpaltenTitel()
+                myspalten.getspalte(Me.Tabelle, Me.Feld, Me.spaltenname, Me.locked, Me.ColWith, Me.Order, Me.AlsHacken, Me.TipText, Me.Numberformat)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+
+            End Try
+        End Function
+
+        Public Function Spaltentitel_aktualisieren(ByRef daten As Object, ByRef tablename As String, ByRef ds As DataSet)
+            Dim anzcols As Integer
+            Dim i As Integer
+            Dim s As String
+            anzcols = daten.Splits(0).DisplayColumns.Count
+            Me.Tabelle = tablename
+            For i = 0 To daten.Columns.Count - 1
+                s = daten.Columns(i).DataField
+                Me.Feld = s
+                Me.getspalte()
+                daten.Columns(i).Caption = Me.spaltenname
+
+                If Me.ColWith = 0 Then
+                    daten.Splits(0).DisplayColumns(i).Width = 0
+                    daten.Splits(0).DisplayColumns(i).Visible = False
+                Else
+                    daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
+                End If
+
+                If Me.locked Then
+                    daten.Splits(0).DisplayColumns(i).Locked = True
+                End If
+
+                If Me.AlsHacken Then
+                    daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
+                End If
+
+                'Präsentation von aktiv
+                If LCase(daten.Columns(i).DataField) = "aktiv" Then
+                    daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
+                    daten.Columns(i).ValueItems.DefaultItem = True
+                    daten.Columns(i).DefaultValue = True
+                    daten.Columns(i).FilterText = True
+                    'Dim items As C1.Win.C1TrueDBGrid.ValueItems = daten.Columns("aktiv").ValueItems
+                    'items.Values.Clear()
+                    'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("False", False)) ' unchecked
+                    'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("True", True)) ' checked
+                    'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("", "INDETERMINATE")) ' indeterminate state
+
+
+                End If
+                Select Case LCase(daten.Columns(i).DataField)
+                    Case "erstellt_am", "erstelltam"
+                        daten.Columns(i).DefaultValue = Now
+                End Select
+                If daten.Columns(i).DataType.Name = "DateTime" Then
+                    daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
+                End If
+                If Me.Numberformat <> "" Then
+                    daten.columns(i).numberformat = Me.Numberformat
+                End If
+            Next
+            ColumnOrder(tablename, daten)
+            daten.HeadingStyle.WrapText = False
+        End Function
+
+        Public Function Spaltentitel_aktualisieren(ByRef daten As Object, ByRef tablename As String, ByRef dt As DataTable, Optional ByVal Aktiv_Spalte_True_Setzen As Boolean = True)
+            Dim anzcols As Integer
+            Dim i As Integer
+            Dim t As New DataTable()
+            Dim s As String
+            anzcols = daten.Splits(0).DisplayColumns.Count
+            t = dt
+            Me.Tabelle = tablename
+            For i = 0 To daten.Columns.Count - 1
+                s = daten.Columns(i).DataField
+                'If s = "ApplikationNr" Then
+                '    MsgBox("Hallo")
+
+                'End If
+                Me.Feld = s
+                Me.getspalte()
+                daten.Columns(i).Caption = Me.spaltenname
+
+                If Me.ColWith = 0 Then
+                    daten.Splits(0).DisplayColumns(i).Width = 0
+                    daten.Splits(0).DisplayColumns(i).Visible = False
+                Else
+                    daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
+                End If
+
+                If Me.locked Then
+                    daten.Splits(0).DisplayColumns(i).Locked = True
+                End If
+
+                If Me.AlsHacken Then
+                    daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
+                End If
+
+                'Präsentation von aktiv
+                If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Spalte_True_Setzen = True Then
+                    daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
+                    daten.Columns(i).ValueItems.DefaultItem = True
+                    daten.Columns(i).DefaultValue = True
+                    daten.Columns(i).FilterText = True
+                End If
+                Select Case LCase(daten.Columns(i).DataField)
+                    Case "erstellt_am", "erstelltam"
+                        daten.Columns(i).DefaultValue = Now
+                End Select
+                If daten.Columns(i).DataType.Name = "DateTime" Then
+                    daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
+                End If
+                If Me.Numberformat <> "" Then
+                    daten.columns(i).numberformat = Me.Numberformat
+                End If
+            Next
+            ColumnOrder(tablename, daten)
+            daten.HeadingStyle.WrapText = False
+        End Function
+
+        Public Function Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(ByRef daten As Object, ByRef tablename As String, ByRef dt As DataTable, Optional ByVal Aktiv_Filter As String = "")
+            Dim anzcols As Integer
+            Dim i As Integer
+            Dim t As New DataTable()
+            Dim s As String
+            anzcols = daten.Splits(0).DisplayColumns.Count
+            t = dt
+            Me.Tabelle = tablename
+            For i = 0 To daten.Columns.Count - 1
+                s = daten.Columns(i).DataField
+
+                Me.Feld = s
+                Me.getspalte()
+                If Me.spaltenname = "" Then
+                    daten.Splits(0).DisplayColumns(i).Width = 0
+                Else
+                    daten.Columns(i).Caption = Me.spaltenname
+
+                    If Me.ColWith = 0 Then
+                        daten.Splits(0).DisplayColumns(i).Width = 0
+                        daten.Splits(0).DisplayColumns(i).Visible = False
+                    Else
+                        daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
+                    End If
+
+                    If Me.locked Then
+                        daten.Splits(0).DisplayColumns(i).Locked = True
+                    End If
+
+                    If Me.AlsHacken Then
+                        daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
+                    End If
+
+                    'Präsentation von aktiv
+                    If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Filter <> "" Then
+                        daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
+                        daten.Columns(i).ValueItems.DefaultItem = True
+                        daten.Columns(i).DefaultValue = True
+                        daten.Columns(i).FilterText = Aktiv_Filter
+                    End If
+                    Select Case LCase(daten.Columns(i).DataField)
+                        Case "erstellt_am", "erstelltam"
+                            daten.Columns(i).DefaultValue = Now
+                    End Select
+                    If daten.Columns(i).DataType.Name = "DateTime" Then
+                        daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
+                    End If
+                    If Me.Numberformat <> "" Then
+                        daten.columns(i).numberformat = Me.Numberformat
+                    End If
+                End If
+            Next
+            ColumnOrder(tablename, daten)
+            daten.HeadingStyle.WrapText = False
+        End Function
+        ''' <summary>
+        ''' Sortierung der in der DB-Tabelle Spalaten festgelegten Reihenfolge
+        ''' </summary>
+        ''' <param name="Tablename"></param>
+        ''' <param name="Data"></param>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function ColumnOrder(ByVal Tablename As String, ByRef Data As C1TrueDBGrid)
+            Dim spaltendata As DataTable = Globals.Spaltendaten
+            Dim dv() As DataRow
+            Dim dr As DataRow
+            Dim dc As New Collection
+            dv = spaltendata.Select("Tabelle='" & Tablename & "'", "Reihenfolge desc, Eintragnr")
+            For Each c As C1DisplayColumn In Data.Splits(0).DisplayColumns
+                dc.Add(c)
+            Next
+            While Data.Splits(0).DisplayColumns.Count > 0
+                Data.Splits(0).DisplayColumns.RemoveAt(0)
+            End While
+
+            For Each dr In dv
+                For Each e As C1DisplayColumn In dc
+                    If e.Name = dr.Item(3) Then
+                        Data.Splits(0).DisplayColumns.Insert(0, e)
+                    End If
+                Next
+            Next
+
+        End Function
+    End Class
+
+    Public Class MySpaltenTitel
+        Private spaltendata As DataTable = Globals.Spaltendaten
+        Sub New()
+            load_data()
+        End Sub
+
+        Sub dispose()
+            spaltendata.Dispose()
+            Me.dispose()
+        End Sub
+
+        Public Function getspalte(ByVal tabelle As String, ByVal feld As String, ByRef spaltenname As String, ByRef locked As Boolean,
+        ByRef colwidth As Integer, ByRef order As Integer, ByRef alshacken As Boolean, ByRef tiptext As String, ByRef numberformat As String)
+            If spaltendata.Rows.Count = 0 Then load_data()
+            Dim dv() As DataRow
+            Dim dr As DataRow
+            dv = spaltendata.Select("Tabelle='" & tabelle & "' and tabellenspalte='" & feld & "'", "Reihenfolge, Eintragnr")
+            If dv.Length = 0 Then
+                spaltenname = ""
+                locked = True
+                colwidth = 0
+                order = 0
+                alshacken = False
+                tiptext = ""
+                numberformat = ""
+            End If
+            For Each dr In dv
+                spaltenname = dr.Item(3)
+                locked = dr.Item(4)
+                colwidth = dr.Item(6)
+                order = dr.Item(7)
+                alshacken = dr.Item(5)
+                tiptext = dr.Item(8)
+                numberformat = dr.Item(14).ToString
+            Next
+            'Dim i As Integer
+            'For i = 0 To spaltendata.Rows.Count - 1
+
+            '    If UCase(spaltendata.Rows(i).Item(1)) = UCase(tabelle) And UCase(spaltendata.Rows(i).Item(2)) = UCase(feld) Then
+            '        spaltenname = spaltendata.Rows(i).Item(3)
+            '        locked = spaltendata.Rows(i).Item(4)
+            '        colwidth = spaltendata.Rows(i).Item(6)
+            '        order = spaltendata.Rows(i).Item(7)
+            '        alshacken = spaltendata.Rows(i).Item(5)
+            '        tiptext = spaltendata.Rows(i).Item(8)
+            '        Exit Function
+            '    End If
+            'Next
+
+        End Function
+
+        Public Sub load_data()
+            If Me.spaltendata.Rows.Count > 0 Then Exit Sub
+            Dim spalten As New Utils.clsSpalten()
+            spaltendata.Rows.Clear()
+            spalten.cpMainConnectionProvider = conn
+            spaltendata = spalten.Select_All_Aktiv
+            Globals.Spaltendaten = spaltendata
+        End Sub
+    End Class
+
+    Public Class clsSpalten
+        Inherits DB.clsSpalten
+        ''' <summary>
+        ''' Purpose: SelectAll method. This method will Select all rows from the table.
+        ''' </summary>
+        ''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ''' <remarks>
+        ''' Properties set after a succesful call of this method: 
+        ''' <UL>
+        '''		 <LI>iErrorCode</LI>
+        '''</UL>
+        ''' </remarks>
+        Public Function Select_All_Aktiv() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectAll_Aktiv]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("spalten")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(0)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_spalten_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsSpalten::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+    End Class
+End Namespace

Logbuch/Logbuch/Klassen/clsdbhandling.vb

@@ -0,0 +1,354 @@
+Imports System.Data.Sql
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Public Class clsdbhandling
+    Dim ConnString As String
+
+    Public daten As New DataSet
+    Dim qb As New SqlCommandBuilder
+    Sub New()
+        Me.ConNString = Get_Connectionstring()
+    End Sub
+
+
+    Function Get_Connectionstring() As String
+        Return Globals.sConnectionString
+        'Return "Data Source=shu00;Initial Catalog=logbuch;User ID=sa;Password=*shu29"
+    End Function
+
+    Public Function get_datatable(typ As Integer, partnernr As Integer) As System.Data.DataTable
+        ''string Connstr = System.Configuration.ConfigurationManager.AppSettings["EDOKAConnectionstring"];
+        Dim scmCmdToExecute As New SqlCommand()
+        scmCmdToExecute.CommandText = "dbo.[sp_anzeige]"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Dim dtToReturn As New DataTable("partner")
+        Dim sdaAdapter As New SqlDataAdapter(scmCmdToExecute)
+        Dim conn As New SqlConnection(ConnString)
+
+
+        scmCmdToExecute.Connection = conn
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@partner", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10,
+            0, "", DataRowVersion.Proposed, partnernr))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@modus", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10,
+            0, "", DataRowVersion.Proposed, typ))
+            conn.Open()
+            sdaAdapter.Fill(daten)
+            'Return daten
+        Catch ex As Exception
+            ' // some error occured. Bubble it to caller and encapsulate Exception object
+            Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
+        Finally
+            scmCmdToExecute.Connection.Close()
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Function
+
+    Public Function Get_Tabledata(ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
+        Try
+            Dim sqlconnect As New SqlConnection
+            Dim ds As New DataSet
+            ds.Tables.Clear()
+            sqlconnect.ConnectionString = Me.ConnString
+            sqlconnect.Open()
+            Dim da As New SqlDataAdapter("", sqlconnect)
+            Dim sqlcmd As New SqlCommand
+            sqlcmd.Connection = sqlconnect
+            If StoredProc = True Then
+                sqlcmd.CommandType = CommandType.StoredProcedure
+                sqlcmd.CommandText = Tablename
+            Else
+                sqlcmd.CommandType = CommandType.Text
+                sqlcmd.CommandText = "Select * from " + Tablename
+            End If
+            If is_SQL_String = True Then
+                sqlcmd.CommandText = Tablename
+            End If
+            '        sqlcmd.CommandType = CommandType.StoredProcedure
+            '       sqlcmd.CommandText = "Berufsliste"
+            da.SelectCommand = sqlcmd
+            da.Fill(ds, "Daten")
+            If Left(UCase(sqlcmd.CommandText), 6) = "INSERT" Then Exit Function
+            Return ds.Tables(0)
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+        End Try
+
+    End Function
+
+    Public Function Get_Tabledata(ByVal Tablename As String, ByVal Params As List(Of ParamItem), Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
+
+        Dim sqlconnect As New SqlConnection
+        Dim ds As New DataSet
+        ds.Tables.Clear()
+        sqlconnect.ConnectionString = Me.ConnString
+        sqlconnect.Open()
+        Dim da As New SqlDataAdapter("", sqlconnect)
+        Dim sqlcmd As New SqlCommand
+        sqlcmd.Connection = sqlconnect
+        If StoredProc = True Then
+            sqlcmd.CommandType = CommandType.StoredProcedure
+            sqlcmd.CommandText = Tablename
+            For Each p As ParamItem In Params
+                sqlcmd.Parameters.Add(p.ParamName, p.ParamValue)
+            Next
+        Else
+            sqlcmd.CommandType = CommandType.Text
+            sqlcmd.CommandText = "Select * from " + Tablename
+        End If
+        If is_SQL_String = True Then
+            sqlcmd.CommandText = Tablename
+        End If
+        '        sqlcmd.CommandType = CommandType.StoredProcedure
+        '       sqlcmd.CommandText = "Berufsliste"
+        da.SelectCommand = sqlcmd
+        da.Fill(ds, "Daten")
+
+
+        Return ds.Tables(0)
+    End Function
+
+    Dim da As SqlDataAdapter
+    Public Function Get_Tabledata_for_Update(ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
+        Dim sqlconnect As New SqlConnection
+        Dim ds As New DataSet
+        ds.Tables.Clear()
+        sqlconnect.ConnectionString = Me.ConnString
+        sqlconnect.Open()
+        da = New SqlDataAdapter("", sqlconnect)
+        Dim sqlcmd As New SqlCommand
+        sqlcmd.Connection = sqlconnect
+        If StoredProc = True Then
+            sqlcmd.CommandType = CommandType.StoredProcedure
+            sqlcmd.CommandText = Tablename
+        Else
+            sqlcmd.CommandType = CommandType.Text
+            sqlcmd.CommandText = "Select * from " + Tablename
+        End If
+        If is_SQL_String = True Then
+            sqlcmd.CommandText = Tablename
+        End If
+        '        sqlcmd.CommandType = CommandType.StoredProcedure
+        '       sqlcmd.CommandText = "Berufsliste"
+        da.SelectCommand = sqlcmd
+        da.Fill(daten, "Daten")
+        qb = New SqlCommandBuilder(da)
+    End Function
+
+    Public Sub Update_Tabeldata()
+        da.Update(daten, "Daten")
+    End Sub
+
+
+    Public Sub Fill_Combobox(ByRef cbbox As ComboBox, ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False)
+        Dim data As New DataTable
+        data = Get_Tabledata(Tablename, StoredProc, is_SQL_String)
+        Dim cbboxitems = New List(Of ComboboxItem)
+        For Each r As DataRow In data.Rows
+            cbboxitems.Add(New ComboboxItem(r.Item(0), r.Item(1)))
+        Next
+        cbbox.DataSource = cbboxitems
+        cbbox.DisplayMember = "bezeichnung"
+        cbbox.ValueMember = data.Columns(0).ColumnName
+
+    End Sub
+
+    Public Function Fill_Combobox1(ByRef cbbox As ComboBox, ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
+        Dim data As New DataTable
+        data = Get_Tabledata(Tablename, StoredProc, is_SQL_String)
+        Dim cbboxitems = New List(Of ComboboxItem)
+        For Each r As DataRow In data.Rows
+            cbboxitems.Add(New ComboboxItem(r.Item(0), r.Item(1)))
+            Try
+                cbbox.AutoCompleteCustomSource.Add(r.Item("kurzzeichen"))
+                cbbox.AutoCompleteCustomSource.Add(r.Item("tgnummer"))
+                cbbox.AutoCompleteCustomSource.Add(r.Item(1))
+            Catch
+            End Try
+
+        Next
+        cbbox.DataSource = cbboxitems
+        cbbox.DisplayMember = "bezeichnung"
+        cbbox.ValueMember = data.Columns(0).ColumnName
+        Return data
+    End Function
+
+    Public Sub Fill_TSCombobox(ByRef cbbox As ToolStripComboBox, ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False)
+        Dim data As New DataTable
+        data = Get_Tabledata(Tablename, StoredProc, is_SQL_String)
+        Globals.Reportdata = data.Copy
+        For Each r As DataRow In data.Rows
+            cbbox.Items.Add(r.Item(1))
+        Next
+    End Sub
+
+    Public Function Insert_New_Entry(ByVal Table As String) As DataTable
+        Dim sqlconnect As New SqlConnection
+        Dim ds As New DataSet
+        ds.Tables.Clear()
+        sqlconnect.ConnectionString = Me.ConnString
+        Dim da As New SqlDataAdapter("", sqlconnect)
+        Dim sqlcmd As New SqlCommand
+        sqlcmd.Connection = sqlconnect
+        Dim sql As String
+        If Table = "Logbuch" Then
+            sqlcmd.CommandText = "Insert into Logbuch (aktiv) values(1)"
+        Else
+            sqlcmd.CommandText = "Insert into Policen (aktiv) values(1)"
+        End If
+        sqlconnect.Open()
+        sqlcmd.ExecuteNonQuery()
+        sqlconnect.Close()
+        Dim data As New DataTable
+        If Table = "Logbuch" Then
+            data = Get_Tabledata("Select top 1 * from logbuch order by nreintrag desc", False, True)
+        Else
+
+            data = Get_Tabledata("Select top 1 * from Policen order by policeid desc", False, True)
+        End If
+
+        Return data
+
+    End Function
+
+    Public Function updatedata(ByVal Tablename As String, ByVal sourcetable As DataTable, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataSet
+        Dim sqlconnect As New SqlConnection
+        Dim ds As New DataSet
+        Dim qb As New SqlCommandBuilder
+        ds.Tables.Clear()
+        sqlconnect.ConnectionString = Me.ConnString
+        sqlconnect.Open()
+        Dim da As New SqlDataAdapter("", sqlconnect)
+        Dim sqlcmd As New SqlCommand
+        sqlcmd.Connection = sqlconnect
+        If StoredProc = True Then
+            sqlcmd.CommandType = CommandType.StoredProcedure
+            sqlcmd.CommandText = Tablename
+        Else
+            sqlcmd.CommandType = CommandType.Text
+            sqlcmd.CommandText = "Select * from " + Tablename
+        End If
+        If is_SQL_String = True Then
+            sqlcmd.CommandText = Tablename
+        End If
+        '        sqlcmd.CommandType = CommandType.StoredProcedure
+        '       sqlcmd.CommandText = "Berufsliste"
+        da.SelectCommand = sqlcmd
+        da.Fill(ds, "Daten")
+        qb = New SqlCommandBuilder(da)
+        For Each c As DataColumn In sourcetable.Columns
+            ds.Tables(0).Rows(0).Item(c.ColumnName) = sourcetable.Rows(0).Item(c.ColumnName)
+        Next
+        da.Update(ds, "Daten")
+    End Function
+
+    Public Sub Delete_Entry(ByVal Typ As Integer, ByVal Key As Integer)
+        Dim sqlconnect As New SqlConnection
+        Dim ds As New DataSet
+        Dim qb As New SqlCommandBuilder
+        ds.Tables.Clear()
+        sqlconnect.ConnectionString = Me.ConnString
+        sqlconnect.Open()
+        Dim da As New SqlDataAdapter("", sqlconnect)
+        Dim sqlcmd As New SqlCommand
+        sqlcmd.Connection = sqlconnect
+        Dim sql As String
+        If Typ = 1 Then
+            sql = "Update LOGBUCH "
+        Else
+            sql = "Update Policen "
+        End If
+        sql = sql + "set aktiv=0, Mutationsdatum=getdate(), mutierer=" + Globals.Userdaten.Rows(0).Item(0).ToString + " where "
+        If Typ = 1 Then
+            sql = sql + "nreintrag = " + Key.ToString
+        Else
+            sql = sql + "policeid = " + Key.ToString
+        End If
+        sqlcmd.CommandText = sql
+        sqlcmd.ExecuteNonQuery()
+        sqlconnect.Close()
+    End Sub
+
+    Public Sub insert_stammdaten(ByVal typ As String, ByVal Text As String)
+
+        Try
+            Dim sql As String
+            Select Case UCase(typ)
+                Case "GRUNDBUCH"
+                    sql = "Insert grundbuch (grundbuch,aktiv) values('" + Text + "',1)"
+                    Get_Tabledata(sql, False, True)
+                Case "GEGENPARTEI"
+                    sql = "Insert Gegenpartei (Bezeichnung) values('" + Text + "')"
+                    Get_Tabledata(sql, False, True)
+                Case "STDBEMERKUNG"
+                    sql = "Insert Bemerkungen (Bemerkung) values('" + Text + "')"
+                    Get_Tabledata(sql, False, True)
+                Case "VERSGESELLSCHAFT"
+                    sql = "Insert Versgesellschaften (bezeichnung,aktiv) values('" + Text + "',1)"
+                    Get_Tabledata(sql, False, True)
+
+            End Select
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+End Class
+
+Public Class ComboboxItem
+
+    Public Sub New(ByVal id As Integer, ByVal Bezeichnung As String)
+        mID = id
+        mBezeichnung = Bezeichnung
+    End Sub
+
+    Private mID As Integer
+    Public Property ID() As Integer
+        Get
+            Return mID
+        End Get
+        Set(ByVal value As Integer)
+            mID = value
+        End Set
+    End Property
+
+    Private mBezeichnung As String
+    Public Property Bezeichnung() As String
+        Get
+            Return mBezeichnung
+        End Get
+        Set(ByVal value As String)
+            mBezeichnung = value
+        End Set
+    End Property
+
+End Class
+
+Public Class ParamItem
+
+    Public Sub New(ByVal ParamName As String, ByVal ParamValue As String)
+        mParamName = ParamName
+        mParamValue = ParamValue
+    End Sub
+
+    Private mParamName As String
+    Property ParamName As String
+        Get
+            Return mParamName
+        End Get
+        Set(value As String)
+            mParamName = value
+        End Set
+    End Property
+
+    Private mParamValue As String
+    Public Property ParamValue() As String
+        Get
+            Return mParamValue
+        End Get
+        Set(ByVal value As String)
+            mParamValue = value
+        End Set
+    End Property
+
+End Class

Logbuch/Logbuch/Logbuch.vbproj

@@ -0,0 +1,247 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{8A404216-38A9-4305-9BA2-04CD2AC20F32}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>Logbuch.My.MyApplication</StartupObject>
+    <RootNamespace>Logbuch</RootNamespace>
+    <AssemblyName>Logbuch</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>Logbuch.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>Logbuch.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>book-multi-size.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8" />
+    <Reference Include="C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8" />
+    <Reference Include="C1.Win.C1Input.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a, processorArchitecture=MSIL" />
+    <Reference Include="C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a, processorArchitecture=MSIL" />
+    <Reference Include="C1.Win.C1TrueDBGrid.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
+    <Reference Include="FastReport, Version=2017.4.1.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\Framework 4.0\FastReport.dll</HintPath>
+    </Reference>
+    <Reference Include="FastReport.Bars, Version=2017.4.1.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\Framework 4.0\FastReport.Bars.dll</HintPath>
+    </Reference>
+    <Reference Include="FastReport.Editor, Version=2017.4.1.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\Framework 4.0\FastReport.Editor.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Design" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Web.Services" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="DB\clsConnectionProvider.vb" />
+    <Compile Include="DB\clsDBInteractionBase.vb" />
+    <Compile Include="DB\clsKey_tabelle.vb" />
+    <Compile Include="DB\clsMyPartner.vb" />
+    <Compile Include="DB\clsSpalten.vb" />
+    <Compile Include="DB\MyDBObjects\clsMyKey_Tabelle.vb" />
+    <Compile Include="DB\MyDBObjects\db_connection.vb" />
+    <Compile Include="DB\MyDBObjects\frmDatenbankauswahl.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.Designer.vb">
+      <DependentUpon>Form1.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmSplash.designer.vb">
+      <DependentUpon>frmSplash.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSplash.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Klassen\clsdbhandling.vb" />
+    <Compile Include="Klassen\clsSpalten.vb" />
+    <Compile Include="Logbuch\frmLogbuch.Designer.vb">
+      <DependentUpon>frmLogbuch.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Logbuch\frmLogbuch.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Logbuch\frmPolice.Designer.vb">
+      <DependentUpon>frmPolice.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Logbuch\frmPolice.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Logbuch\frmSchuldbrief.Designer.vb">
+      <DependentUpon>frmSchuldbrief.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Logbuch\frmSchuldbrief.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="Partner\frmPartnersuche.Designer.vb">
+      <DependentUpon>frmPartnersuche.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Partner\frmPartnersuche.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Reports\frmAuswertung.Designer.vb">
+      <DependentUpon>frmAuswertung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Reports\frmAuswertung.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Reports\frmCRReporting.Designer.vb">
+      <DependentUpon>frmCRReporting.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Reports\frmCRReporting.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Reports\frmKalender.Designer.vb">
+      <DependentUpon>frmKalender.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Reports\frmKalender.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Sysadmin\frmSysadmin.Designer.vb">
+      <DependentUpon>frmSysadmin.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Sysadmin\frmSysadmin.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Utils\Crypto.vb" />
+    <Compile Include="Utils\Globals.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="DB\MyDBObjects\frmDatenbankauswahl.resx" />
+    <EmbeddedResource Include="Form1.resx">
+      <DependentUpon>Form1.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmSplash.resx">
+      <DependentUpon>frmSplash.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Logbuch\frmLogbuch.resx">
+      <DependentUpon>frmLogbuch.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Logbuch\frmPolice.resx">
+      <DependentUpon>frmPolice.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Logbuch\frmSchuldbrief.resx">
+      <DependentUpon>frmSchuldbrief.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Partner\frmPartnersuche.resx">
+      <DependentUpon>frmPartnersuche.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Reports\frmAuswertung.resx">
+      <DependentUpon>frmAuswertung.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Reports\frmCRReporting.resx">
+      <DependentUpon>frmCRReporting.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Reports\frmKalender.resx">
+      <DependentUpon>frmKalender.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Sysadmin\frmSysadmin.resx">
+      <DependentUpon>frmSysadmin.vb</DependentUpon>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="book-48.ico" />
+    <Content Include="book-multi-size.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <Service Include="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

Logbuch/Logbuch/Logbuch.vbproj.user

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ReferencePath>C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet\</ReferencePath>
+  </PropertyGroup>
+</Project>

Logbuch/Logbuch/Logbuch/frmLogbuch.Designer.vb

@@ -0,0 +1,212 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmLogbuch
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLogbuch))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
+        Me.Tstxtpartnernr = New System.Windows.Forms.ToolStripTextBox()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel()
+        Me.tscbboxArt = New System.Windows.Forms.ToolStripComboBox()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
+        Me.tscbboxmodus = New System.Windows.Forms.ToolStripComboBox()
+        Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
+        Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.NeuerEintragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EintragAnzeigenBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1.SuspendLayout()
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripLabel1, Me.Tstxtpartnernr, Me.ToolStripButton2, Me.ToolStripSeparator1, Me.ToolStripLabel3, Me.tscbboxArt, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.tscbboxmodus, Me.ToolStripButton3})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(1073, 25)
+        Me.ToolStrip1.TabIndex = 0
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "Schliessen"
+        '
+        'ToolStripLabel1
+        '
+        Me.ToolStripLabel1.Name = "ToolStripLabel1"
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(66, 22)
+        Me.ToolStripLabel1.Text = "Partner-Nr:"
+        '
+        'Tstxtpartnernr
+        '
+        Me.Tstxtpartnernr.Name = "Tstxtpartnernr"
+        Me.Tstxtpartnernr.Size = New System.Drawing.Size(100, 25)
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton2.Text = "Partner suchen"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+        '
+        'ToolStripLabel3
+        '
+        Me.ToolStripLabel3.Name = "ToolStripLabel3"
+        Me.ToolStripLabel3.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripLabel3.Text = "Art"
+        '
+        'tscbboxArt
+        '
+        Me.tscbboxArt.Items.AddRange(New Object() {"Aktive Einträge", "Alle Einträge", "Inaktive Einträge"})
+        Me.tscbboxArt.Name = "tscbboxArt"
+        Me.tscbboxArt.Size = New System.Drawing.Size(121, 25)
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
+        '
+        'ToolStripLabel2
+        '
+        Me.ToolStripLabel2.Name = "ToolStripLabel2"
+        Me.ToolStripLabel2.Size = New System.Drawing.Size(47, 22)
+        Me.ToolStripLabel2.Text = "Modus:"
+        '
+        'tscbboxmodus
+        '
+        Me.tscbboxmodus.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.tscbboxmodus.Items.AddRange(New Object() {"Schuldbrife", "Policen"})
+        Me.tscbboxmodus.Name = "tscbboxmodus"
+        Me.tscbboxmodus.Size = New System.Drawing.Size(121, 25)
+        '
+        'ToolStripButton3
+        '
+        Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
+        Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton3.Name = "ToolStripButton3"
+        Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton3.Text = "Neuer Eintrag"
+        '
+        'C1Daten
+        '
+        Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
+        Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1Daten.FilterBar = True
+        Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
+        Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
+        Me.C1Daten.Location = New System.Drawing.Point(0, 25)
+        Me.C1Daten.Name = "C1Daten"
+        Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
+        Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
+        Me.C1Daten.Size = New System.Drawing.Size(1073, 406)
+        Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
+        Me.C1Daten.TabIndex = 10
+        Me.C1Daten.Text = "C1TrueDBGrid1"
+        Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerEintragToolStripMenuItem, Me.EintragAnzeigenBearbeitenToolStripMenuItem, Me.EintragLöschenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 92)
+        '
+        'NeuerEintragToolStripMenuItem
+        '
+        Me.NeuerEintragToolStripMenuItem.Name = "NeuerEintragToolStripMenuItem"
+        Me.NeuerEintragToolStripMenuItem.Size = New System.Drawing.Size(222, 22)
+        Me.NeuerEintragToolStripMenuItem.Text = "&Neuer Eintrag"
+        '
+        'EintragAnzeigenBearbeitenToolStripMenuItem
+        '
+        Me.EintragAnzeigenBearbeitenToolStripMenuItem.Name = "EintragAnzeigenBearbeitenToolStripMenuItem"
+        Me.EintragAnzeigenBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(222, 22)
+        Me.EintragAnzeigenBearbeitenToolStripMenuItem.Text = "Eintrag anzeigen/bearbeiten"
+        '
+        'EintragLöschenToolStripMenuItem
+        '
+        Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem"
+        Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(222, 22)
+        Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen"
+        '
+        'frmLogbuch
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1073, 431)
+        Me.Controls.Add(Me.C1Daten)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmLogbuch"
+        Me.Text = "Schuldbriefe / Policen"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents ToolStripLabel1 As ToolStripLabel
+    Friend WithEvents Tstxtpartnernr As ToolStripTextBox
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents ToolStripLabel3 As ToolStripLabel
+    Friend WithEvents tscbboxArt As ToolStripComboBox
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents ToolStripLabel2 As ToolStripLabel
+    Friend WithEvents tscbboxmodus As ToolStripComboBox
+    Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents ToolStripButton2 As ToolStripButton
+    Friend WithEvents ToolStripButton3 As ToolStripButton
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents NeuerEintragToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents EintragAnzeigenBearbeitenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents EintragLöschenToolStripMenuItem As ToolStripMenuItem
+End Class

Logbuch/Logbuch/Logbuch/frmLogbuch.resx

@@ -0,0 +1,380 @@
+<?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="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK0SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYmlYjb3Obx
+        7MzN1dY5Z9tJV86Min5BlvZb07Is1CKHqVQYlVoZaZmlaGQopSLmkuwigoooguii4NNRY7HLeuAD7/PC
+        ++H9Pu8r/qc+Tw8EP8yO/mzZm8mfrYVqK8/tbD+SS+exOaQkHUclrpfZeRzfyafJHj6O3eXb636u7rem
+        CjrKZVal21m91kZ6xl/S1lpZaVnH90QPic5DjNT7+ZJ4QttBR6qgvVQm0+rEZpewO1xJrNlO0tbZeNUS
+        YeSSznBDkE8T3dw8nJMqcNQKpMpF5Nh9SC4FKceNJMm4XDIZVonJZoPhiyGe1gV5P9IxH/XPUSFsJwWJ
+        9604TUlulobbGUCR/CiyF9ntIcvhZjweZqhep792I7OD17hXoSwIbJWCsbeNNPcLMisE9hqB87xALl2K
+        VwniyfOTnetj9JJG/zmd7/eXM9XbRHeVF+GqFjx7U0F8SNA4aK5nCnn+JsKLd+F5yXpPmPz8IJInwPMG
+        lb6zGj96VjBxr57eGv+C4FFiD/FRQXxE0DQuaJ4UvPwawXFOEMwvZEMghDtfY6guQO+ZII17nLzoOMmT
+        2sB8BIvdjNA1tZnWhCBrLsIpgeOsIK9sGboaRdUNfEGDgVo/D06v59YRhWfXyhmsU5NDtGRXCTpnfDjP
+        CIzALgytBCNchGFEiRgFBEJR+mq83K/20VXpZeDyboYvhFKe0eI0r6xULyZqbCdaWExhtGieAhNtU4yH
+        1R66KvK4fdxDT32M0cZIikC0lKxhS3EJxbEdFG/dliRmUlC0nQdVMndOKLQfc3PndIixpgKEruvoWghN
+        C6Oqc5hrVTN7NYlq9hs26uyLBbhSrpg/UObG0TwmWzcvDPFfKdXT9jccyPg1fSWWGuEfaonJKiGE5Tdo
+        FcKGVVlc7gAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHxSURBVDhPYxgFGICxpbF5o6ur6wNjY2MuqBiDhYWFkI+3
+        94PO9vYFUCFMkJ+fr1BUUNCVlJD439zM/L+ZsXGAoaGhr5ubmwfQgGgLoFhaSsr/6srKtubqZlmoNghY
+        PG+x0bIlS79ER0b9t7e1++/u6vbfzMT0X3BwyP+4uASQgf9AYiC5/Ny8/2vXrv24bNkybah2BoaF8xau
+        q6+t+29na/tfQ139P8g2K0ur/yUlJZ9LS0q/wvi21jb/y0pK/q9cvuL/7h27FoM1L5o717ykuPhPVVnJ
+        /+DAgP/iYmL/tTQ0wYpNDA13AvEROxvb/04Ojv9NjU3+JyfE/6+tKP9fWlLyZ9miReYMzg726wIMFf/n
+        e5r8b0iP/G9jpPffxsr6f3dn139zE/OF1hYWa6ZMmvw/LCT0v5m26v8wE6X/1RFu/2szY//b2FiuZTCT
+        E/+ZZybxv99H43+bt/b/aDOF/5qamjuszK0y9fT0xLS0tCQszCzS9bS1twXoy/5vcFX9PznY4H+dm9p/
+        XVHRnwyaKipHOtwU/+9LNfm/KETzv5+BIsiAALD/kICamlpAoLEyWA1IbYer4n9VBfmjDOrq6lKOpvpr
+        CpyN3uX629/z9vAogOrBADZWVoVp3tYP6kOtPwS7OazT19eXhkoNXcDAAABhb8pBnSSQ0QAAAABJRU5E
+        rkJggg==
+</value>
+  </data>
+  <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
+        AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
+        Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
+        ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
+        T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
+        cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaQdFf3Y+sP3f/sDqf9gm8Q8gMRgG
+        qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
+        B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
+        7GDMwMAMEUIHDAwAsbvzUSNPIp4AAAAASUVORK5CYII=
+</value>
+  </data>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>124, 17</value>
+  </metadata>
+  <data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAADRJREFUKFN1iQEKACAMAv3/p4six3R5IIqHD+v1oIu0Lzy8B0cwQhcpQhSEwrvo
+        R9qCCWADoKoc5CkvobIAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
+        dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
+        emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
+        c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
+        dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
+        LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
+        U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
+        AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
+        cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
+        eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
+        bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
+        ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
+        AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
+        ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
+        RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
+        9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
+        AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
+        BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
+        AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
+        QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
+        ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
+</value>
+  </data>
+  <data name="C1Daten.PropBag" xml:space="preserve">
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1071, 404&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1071, 404&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+  </data>
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
+        AAYAgAAmAIAAGACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
+        AAIAgAAyAIAAdgCAALQAgADSAIAAugCAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAACAIAAEgCA
+        ACoAgABUAIAAmACAAN4AgAD/AIAA/wCAAP8AgAD/AIAA/wCAANYAgAAeAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAIAAEACA
+        ADwAgAB0AIAApACAANIAgAD6AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACmAIAAHAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAACACA
+        ADYAgACKAIAAwACAANwAgAD2AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPoAgAD4AIAA/wCA
+        AP8AgAD0AIAAiACAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAIAgAAWAIAALgCA
+        AFYAgACmAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD6AIAA6ACAANAAgACgAIAAWgCA
+        ABgAgABcAIAA6gCAAP8AgAD/AIAA+ACAAH4AgAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAASAIAAQACA
+        AHIAgACsAIAA2gCAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA6ACAALwAgACCAIAAVACA
+        ACQAgAAAAAAAAAAAAAAAgAAOAIAAgACAAPAAgAD/AIAA/wCAAPIAgABSAIAAAgAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAACAIAAIgCA
+        AHQAgADCAIAA3gCAAPYAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA8gCAAL4AgABqAIAAOACA
+        AB4AgAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAFgCAAKQAgAD/AIAA/wCAAP8AgADSAIAAPACA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
+        AA4AgACGAIAA8ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPoAgADkAIAAzACAAKAAgABOAIAAEgCA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAoAgADAAIAA/ACA
+        AP8AgAD/AIAAygCAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAIAADgCAAH4AgAD6AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADiAIAAtACAAIQAgABMAIAAHACA
+        AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAA2AIAAzACAAP8AgAD/AIAA/ACAALYAgAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAACAIAAYACAAOoAgAD/AIAA/wCAAP8AgAD0AIAAvACAAHAAgAA0AIAAGgCA
+        AAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAEAIAAUgCAAOQAgAD/AIAA/wCAAPwAgACKAIAACAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAqAIAAzgCAAP8AgAD/AIAA9ACAAKIAgAAYAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAFgAgADyAIAA/wCAAP8AgADyAIAAgACA
+        AAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgABgAIAA+gCAAP8AgAD8AIAAqgCA
+        ABoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAIAgACMAIAA9gCA
+        AP8AgAD/AIAA5gCAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgACgAIAA/wCA
+        AP8AgADmAIAAUgCAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAQAIAASACAAG4AgAAiAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAAaAIAApgCAAPwAgAD/AIAA/wCAAOIAgAAqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgADSAIAA/wCAAP8AgADOAIAAHgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAAAIAACgCAACAAgAA+AIAAdACAALQAgAD2AIAA/wCAAP8AgADaAIAARgCA
+        AAQAAAAAAAAAAAAAAAAAAAAAAIAAHACAALAAgAD/AIAA/wCAAP8AgADMAIAALgCAAAIAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgADgAIAA/wCAAP8AgADGAIAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAIAACACAACwAgABiAIAAkACAAL4AgADuAIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD8AIAAxgCAADQAAAAAAAAAAAAAAAAAAAAAAAAAAACAACwAgADaAIAA/wCAAP8AgAD6AIAArACA
+        AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgADaAIAA/wCAAP8AgADIAIAAFAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAIAABACAACoAgAB6AIAAtACAANQAgADuAIAA/ACAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAMIAgAAOAAAAAAAAAAAAAAAAAAAAAACAAAAAgABWAIAA6ACA
+        AP8AgAD/AIAA9gCAAJQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAC2AIAA/wCAAP8AgADcAIAAOgCA
+        AAAAAAAAAAAAAACAAAIAgAAYAIAALgCAAFIAgACgAIAA3gCAAPwAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACuAIAAHACAAAAAAAAAAAAAAAAA
+        AAAAgAAEAIAAYgCAAOgAgAD/AIAA/wCAAP8AgAByAIAACAAAAAAAAAAAAAAAAAAAAAAAgACIAIAA/wCA
+        AP8AgAD2AIAAogCAAD4AgAAwAIAAUgCAAHoAgACuAIAA2gCAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD0AIAAkgCA
+        ABQAAAAAAAAAAAAAAAAAAAAAAIAADACAAH4AgAD/AIAA/wCAAP8AgADkAIAAWACAAAYAAAAAAAAAAAAA
+        AAAAgABQAIAA+gCAAP8AgAD/AIAA9gCAAN4AgADWAIAA6ACAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA8ACAAHwAAAAAAAAAAAAAAAAAAAAAAAAAAACAABAAgACyAIAA/wCAAP8AgAD8AIAA0gCA
+        ADQAAAAAAAAAAAAAAAAAgAAkAIAAyACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPwAgABkAIAACAAAAAAAAAAAAAAAAAAAAAAAgAAgAIAAtgCA
+        APoAgAD/AIAA/wCAANYAgAAcAAAAAAAAAAAAgAAIAIAAhACAAPgAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADgAIAAUgCAAAQAAAAAAAAAAAAA
+        AAAAgAAAAIAAOgCAANAAgAD/AIAA/wCAAP8AgACgAIAAGAAAAAAAgAAAAIAALgCAANQAgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA0gCA
+        ADYAAAAAAAAAAAAAAAAAAAAAAIAABACAAEwAgAD6AIAA/wCAAP8AgADyAIAAfgCAAAoAAAAAAAAAAACA
+        ADwAgADoAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAN4AgAAmAIAAAAAAAAAAAAAAAAAAAAAAAAAAgABwAIAA8gCAAP8AgAD/AIAA9ACA
+        AF4AAAAAAAAAAAAAAAAAgABmAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACwAIAAIgAAAAAAAAAAAAAAAAAAAAAAgAAUAIAAngCA
+        APoAgAD/AIAA/wCAAJwAAAAAAAAAAAAAAAAAgAAMAIAAfACAAPAAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD2AIAAlgCAABQAAAAAAAAAAAAA
+        AAAAgAAAAIAAZACAAPAAgAD/AIAA/wCAAH4AAAAAAAAAAAAAAAAAAAAAAIAABgCAAHoAgAD4AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACA
+        AJQAgAAIAAAAAAAAAAAAAAAAAIAAZgCAAPIAgAD/AIAA/wCAAFQAAAAAAAAAAAAAAAAAAAAAAAAAAACA
+        AAgAgACeAIAA+ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAPgAgABqAIAACAAAAAAAAAAAAIAAZgCAAPIAgAD/AIAA/wCAAFgAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAgAIAArACAAPwAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADiAIAAVgCAAAIAAAAAAIAAWgCAAOwAgAD/AIAA/wCA
+        AHwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAHACAAK4AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA4gCAAFAAAAAAAIAALACA
+        ANIAgAD/AIAA/wCAAJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAACQAgADMAIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPIAgADOAIAAwACAAOgAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        ANYAgAAqAIAABgCAAIAAgAD0AIAA4gCAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgABEAIAA1gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAOAAgACeAIAAaACAAD4AgAAoAIAAIACAAEYAgADuAIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgACwAIAAHgCAABAAgAA8AIAANACAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAAAIAARACAANQAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/ACAAPAAgADaAIAAxACAAJoAgABWAIAAHgCAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgABOAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD8AIAAqgCAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAgCAAFAAgADuAIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/ACAAOYAgAC2AIAAjACAAGQAgAA2AIAAEACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAUAIAApgCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA+ACAAJQAgAAGAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAQAgAByAIAA9ACA
+        AP8AgAD/AIAA/wCAAP8AgAD0AIAAkgCAADYAgAAcAIAACACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAgAAEAIAAKACAAGQAgACsAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        APYAgABoAIAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAAIAIAAcgCAAO4AgAD/AIAA/wCAAP8AgAD2AIAAhgCAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAACAIAAEACAACIAgAA8AIAAaACAAKIAgADkAIAA/ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgADqAIAAZACAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAIAAEACAAIQAgAD8AIAA/wCAAP8AgAD/AIAA5gCAAGQAAAAAAAAAAAAA
+        AAAAgAAGAIAAIgCAAEgAgAB2AIAAnACAAMQAgADuAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA2ACAAEYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAABAAgACqAIAA/wCAAP8AgAD/AIAA/wCA
+        AOYAgAB0AIAAXACAAIAAgAC2AIAA0ACAAOIAgAD4AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAL4AAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAYAIAApACA
+        APgAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AMIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAgAAAAIAAKACAALYAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        APwAgADeAIAAsACAAEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAIAAAACAACgAgADeAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
+        APQAgAC+AIAAiACAAFQAgAAwAIAAGgCAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA2AIAA0ACAAPwAgAD/AIAA/wCA
+        AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAPAAgADcAIAAygCA
+        AKgAgABsAIAANgCAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAEAIAATACA
+        ANoAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA9ACAANYAgACsAIAAiACA
+        AGQAgAA6AIAAGACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAIAABgCAAFAAgAD4AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA4ACAAKwAgABsAIAAQgCA
+        ACwAgAAWAIAABgCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgABaAIAAygCAANAAgAC4AIAAigCAAFYAgAAaAIAAAgAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAEAIAAHACAACQAgAAGAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP///////wAA////x///
+        AAD///wD//8AAP//4AH//wAA//4AAP//AAD/8ABw//8AAP+AA/B//wAA/AA/+D//AADgAf/8H/8AAOAP
+        //4P/wAAwP///wf/AACD////g/8AAIf///+D/wAAD////8H/AAAP//4P4P8AAA//4AfwfwAAD/8AA/g/
+        AAAP8AAB/D8AAAeAAAD+HwAAgAAAAP4PAACAAAAAfwcAAIAAAAA/gwAAwAAAAB/DAADgAAAAD+EAAPAA
+        AAAH4AAA+AAAAAPxAAD8AAAAAfEAAPwAAAAB8QAA/gAAAADxAAD/AAAAAHAAAP+AAAAAMQAA/8AAAfAf
+        AAD/4AAf+A8AAP/wAf/4BwAA//gP//AHAAD//A//AAMAAP/8D/AAAQAA//4GAAAAAAD//wAAAAAAAP//
+        gAAAAQAA///AAAAPAAD//+AAAf8AAP//8AAf/wAA///4A///AAD///w///8AAP///////wAA////////
+        AAA=
+</value>
+  </data>
+</root>

Logbuch/Logbuch/Logbuch/frmLogbuch.vb

@@ -0,0 +1,218 @@
+Imports System.ComponentModel
+Imports C1.Win.C1TrueDBGrid
+
+Public Class frmLogbuch
+    Dim spalten As New Utils.Tabellenspalte
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Me.Close()
+    End Sub
+
+    Private Sub frmLogbuch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        Me.tscbboxmodus.Items.Clear()
+
+        If Globals.Userdaten.Rows(0).Item("es_anzeigen") = True Or Globals.Userdaten.Rows(0).Item("es_bearbeiten") = True Then
+            Me.tscbboxmodus.Items.Add("Schuldbriefe")
+        End If
+        If Globals.Userdaten.Rows(0).Item("policen_anzeigen") = True Or Globals.Userdaten.Rows(0).Item("policen_bearbeiten") = True Then
+            Me.tscbboxmodus.Items.Add("Policen")
+        End If
+        If Me.tscbboxmodus.Items.Count < 1 Then
+            MsgBox("Sie haben keine Berechtigungen für diesen Dialog.", vbExclamation)
+
+            Exit Sub
+        End If
+
+        Try
+            Me.tscbboxArt.SelectedIndex = 0
+            Me.tscbboxmodus.SelectedIndex = 0
+            Refresh_View()
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub Refresh_View()
+
+        Try
+            Dim bm As Integer = C1Daten.Bookmark
+            Dim data As New DataTable
+            Dim db As New clsdbhandling
+            Dim i As Integer
+            i = Me.tscbboxmodus.SelectedIndex
+            If i = 0 Then i = 1 Else i = 0
+            db.get_datatable(i, Me.Tstxtpartnernr.Text)
+            data = db.daten.Tables(0).Copy
+            For Each r As DataRow In data.Rows
+                For Each c As DataColumn In data.Columns
+                    If r.Item(c.ColumnName).ToString = "01.01.1900 00:00:00" Then
+                        r.Item(c.ColumnName) = System.DBNull.Value
+                    End If
+
+
+                Next
+            Next
+            Me.C1Daten.DataSource = Nothing
+            Me.C1Daten.DataSource = data
+            Me.C1Daten.DataMember = data.TableName
+
+            If i = 1 Then
+                spalten.Spaltentitel_aktualisieren(C1Daten, "Logbuch_View", data)
+            Else
+                spalten.Spaltentitel_aktualisieren(C1Daten, "Policen_View", data)
+
+            End If
+
+            Set_Filter()
+            C1Daten.Bookmark = bm
+            Me.ToolStripButton3.Enabled = True
+            If Me.tscbboxmodus.Text = "Schuldbriefe" And Globals.Userdaten.Rows(0).Item("ES_Bearbeiten") = False Then
+                Me.ToolStripButton3.Enabled = False
+                Me.NeuerEintragToolStripMenuItem.Enabled = False
+                Me.EintragLöschenToolStripMenuItem.Enabled = False
+            End If
+            If Me.tscbboxmodus.Text = "Policen" And Globals.Userdaten.Rows(0).Item("Plicen_Bearbeiten") = False Then
+                Me.ToolStripButton3.Enabled = False
+                Me.NeuerEintragToolStripMenuItem.Enabled = False
+                Me.EintragLöschenToolStripMenuItem.Enabled = False
+            End If
+
+        Catch
+        End Try
+    End Sub
+
+    Sub Set_Filter()
+        Try
+
+            Select Case Me.tscbboxArt.SelectedIndex
+                Case 0
+                    Me.C1Daten.Columns("aktiv").FilterText = True
+                Case 1
+                    Me.C1Daten.Columns("aktiv").FilterText = 0
+                Case 2
+                    Me.C1Daten.Columns("aktiv").FilterText = False
+
+            End Select
+        Catch
+        End Try
+
+
+    End Sub
+
+    Private Sub Tstxtpartnernr_KeyDown(sender As Object, e As KeyEventArgs) Handles Tstxtpartnernr.KeyDown
+        If e.KeyCode = Keys.Enter Then Refresh_View()
+    End Sub
+
+    Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
+        Try
+            Dim i As Integer
+            If Me.tscbboxmodus.Text = "Schuldbriefe" Then
+                Dim f As New frmSchuldbrief
+                f.SchuldbriefNr = C1Daten.Columns(0).Value
+                f.ShowDialog()
+            Else
+                Dim f As New frmPolice
+                f.Policenr = C1Daten.Columns(0).Value
+                f.ShowDialog()
+            End If
+            Refresh_View()
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+
+
+    Private Sub tscbboxmodus_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscbboxmodus.SelectedIndexChanged
+        Refresh_View()
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        Dim f As New frmPartnersuche
+        f.ShowDialog()
+        If f.PartnerNr > 0 Then
+            Me.Tstxtpartnernr.Text = f.PartnerNr
+            Refresh_View()
+        End If
+    End Sub
+
+
+
+    Private Sub tscbboxArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscbboxArt.SelectedIndexChanged
+        Set_Filter()
+    End Sub
+
+    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
+        Dim key As Integer
+        If Me.tscbboxmodus.Text = "Schuldbriefe" Then
+            Dim f As New frmSchuldbrief
+            f.SchuldbriefNr = -1
+            f.ShowDialog()
+            key = f.SchuldbriefNr
+        Else
+            Dim f As New frmPolice
+            f.Policenr = -1
+            f.ShowDialog()
+            key = f.Policenr
+        End If
+        Refresh_View()
+        Try
+            For i As Integer = 0 To Me.C1Daten.Splits(0).Rows.Count - 1
+                If C1Daten.Rows(i).Item("nreintrag") = key Then C1Daten.Bookmark = i
+            Next
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+
+    Private Sub tscbboxmodus_Click(sender As Object, e As EventArgs) Handles tscbboxmodus.Click
+
+    End Sub
+
+    Private Sub tscbboxmodus_Leave(sender As Object, e As EventArgs) Handles tscbboxmodus.Leave
+        If Me.tscbboxmodus.Text <> "Schuldbriefe" And Me.tscbboxmodus.Text <> "Policen" Then
+            Me.tscbboxmodus.Select()
+            Me.tscbboxmodus.SelectedIndex = 0
+        End If
+    End Sub
+
+    Private Sub c1daten_formattext(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FormatTextEventArgs) Handles C1Daten.FormatText
+        If e.Column.DataType.Name = "DateTime" And e.Value = "01.01.1900 00:00:00" Then e.Value = ""
+    End Sub
+
+    Private Sub NeuerEintragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem.Click
+        Me.ToolStripButton3_Click(sender, e)
+    End Sub
+
+    Private Sub EintragAnzeigenBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragAnzeigenBearbeitenToolStripMenuItem.Click
+        Me.C1Daten_DoubleClick(sender, e)
+    End Sub
+
+    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
+        If MsgBox("Eintrag wirklihc löschen?", vbYesNo + vbQuestion) = vbYes Then
+            Dim key As Integer = C1Daten.Columns(0).Value
+            Dim db As New clsdbhandling
+            If Me.tscbboxmodus.Text = "Schuldbriefe" Then
+                db.Delete_Entry(1, key)
+            Else
+                db.Delete_Entry(2, key)
+            End If
+            Refresh_View()
+        End If
+    End Sub
+
+    Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
+        Me.EintragAnzeigenBearbeitenToolStripMenuItem.Enabled = True
+        Me.EintragLöschenToolStripMenuItem.Enabled = True
+
+        If Me.C1Daten.Splits(0).Rows.Count < 1 Then
+            Me.EintragAnzeigenBearbeitenToolStripMenuItem.Enabled = False
+            Me.EintragLöschenToolStripMenuItem.Enabled = False
+
+        End If
+    End Sub
+End Class

Logbuch/Logbuch/Logbuch/frmPolice.Designer.vb

@@ -0,0 +1,988 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmPolice
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPolice))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.tsbtnexit = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtensave = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtndelete = New System.Windows.Forms.ToolStripButton()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.dtpickerGemahntSchuldbrief2 = New System.Windows.Forms.DateTimePicker()
+        Me.txtGemahntSchuldbrief2 = New System.Windows.Forms.MaskedTextBox()
+        Me.dtpickerGemahntSchuldbrief1 = New System.Windows.Forms.DateTimePicker()
+        Me.txtGemahntSchuldbrief1 = New System.Windows.Forms.MaskedTextBox()
+        Me.dtpickermahnungSchuldbrief2 = New System.Windows.Forms.DateTimePicker()
+        Me.txtmahnungSchuldbrief2 = New System.Windows.Forms.MaskedTextBox()
+        Me.dtpickerMahnungSchuldbrief1 = New System.Windows.Forms.DateTimePicker()
+        Me.txtMahnungSchuldbrief1 = New System.Windows.Forms.MaskedTextBox()
+        Me.dtpickerTerminSchuldbrief = New System.Windows.Forms.DateTimePicker()
+        Me.txtTerminSchuldbrief = New System.Windows.Forms.MaskedTextBox()
+        Me.dtpickerGemahntEmpfangsschein2 = New System.Windows.Forms.DateTimePicker()
+        Me.txtGemahntEmpfangsschein2 = New System.Windows.Forms.MaskedTextBox()
+        Me.dtpickerGemahntEmpfangsschein1 = New System.Windows.Forms.DateTimePicker()
+        Me.txtGemahntEmpfangsschein1 = New System.Windows.Forms.MaskedTextBox()
+        Me.dtpickerMahnungEmpfangsschein2 = New System.Windows.Forms.DateTimePicker()
+        Me.txtMahnungEmpfangsschein2 = New System.Windows.Forms.MaskedTextBox()
+        Me.dtpickerMahnungEmpfangsschein1 = New System.Windows.Forms.DateTimePicker()
+        Me.txtMahnungEmpfangsschein1 = New System.Windows.Forms.MaskedTextBox()
+        Me.dtpickerTerminEmpfangsschein = New System.Windows.Forms.DateTimePicker()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.txtTerminEmpfangsschein = New System.Windows.Forms.MaskedTextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.cbboxGegenpartei = New System.Windows.Forms.ComboBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.txtbemerkung = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.cbboxstandardbemerkung = New System.Windows.Forms.ComboBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.cbboxversgesellschaft = New System.Windows.Forms.ComboBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.GrpStatus = New System.Windows.Forms.GroupBox()
+        Me.dtPickerEingangSB = New System.Windows.Forms.DateTimePicker()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtEingangSB = New System.Windows.Forms.MaskedTextBox()
+        Me.cberledigt = New System.Windows.Forms.CheckBox()
+        Me.cbempfangsscheinerhalten = New System.Windows.Forms.CheckBox()
+        Me.cbeinlieferung = New System.Windows.Forms.CheckBox()
+        Me.cbtitelvorhanden = New System.Windows.Forms.CheckBox()
+        Me.cbneugeschäft = New System.Windows.Forms.CheckBox()
+        Me.cbdevauslieferung = New System.Windows.Forms.CheckBox()
+        Me.cbprovauslieferung = New System.Windows.Forms.CheckBox()
+        Me.cbpfandbrief = New System.Windows.Forms.CheckBox()
+        Me.cbgrundpfandverschreibung = New System.Windows.Forms.CheckBox()
+        Me.cbschuldbrief = New System.Windows.Forms.CheckBox()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.txtPolicenNr = New System.Windows.Forms.TextBox()
+        Me.txtNominal = New System.Windows.Forms.TextBox()
+        Me.dtPickerDatum = New System.Windows.Forms.DateTimePicker()
+        Me.txtDatum = New System.Windows.Forms.MaskedTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.cbboxSachbearbeiter = New System.Windows.Forms.ComboBox()
+        Me.txtKurzname = New System.Windows.Forms.TextBox()
+        Me.txtPartnernr = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.cbeuro = New System.Windows.Forms.CheckBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cbaktiv = New System.Windows.Forms.CheckBox()
+        Me.ToolStrip1.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        Me.GrpStatus.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnexit, Me.tsbtensave, Me.tsbtndelete})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(1013, 25)
+        Me.ToolStrip1.TabIndex = 6
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'tsbtnexit
+        '
+        Me.tsbtnexit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnexit.Image = CType(resources.GetObject("tsbtnexit.Image"), System.Drawing.Image)
+        Me.tsbtnexit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnexit.Name = "tsbtnexit"
+        Me.tsbtnexit.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnexit.Text = "Schliessen"
+        '
+        'tsbtensave
+        '
+        Me.tsbtensave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtensave.Image = CType(resources.GetObject("tsbtensave.Image"), System.Drawing.Image)
+        Me.tsbtensave.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtensave.Name = "tsbtensave"
+        Me.tsbtensave.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtensave.Text = "Speichern"
+        '
+        'tsbtndelete
+        '
+        Me.tsbtndelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtndelete.Image = CType(resources.GetObject("tsbtndelete.Image"), System.Drawing.Image)
+        Me.tsbtndelete.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtndelete.Name = "tsbtndelete"
+        Me.tsbtndelete.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtndelete.Text = "Löschen"
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Controls.Add(Me.Button2)
+        Me.GroupBox3.Controls.Add(Me.dtpickerGemahntSchuldbrief2)
+        Me.GroupBox3.Controls.Add(Me.txtGemahntSchuldbrief2)
+        Me.GroupBox3.Controls.Add(Me.dtpickerGemahntSchuldbrief1)
+        Me.GroupBox3.Controls.Add(Me.txtGemahntSchuldbrief1)
+        Me.GroupBox3.Controls.Add(Me.dtpickermahnungSchuldbrief2)
+        Me.GroupBox3.Controls.Add(Me.txtmahnungSchuldbrief2)
+        Me.GroupBox3.Controls.Add(Me.dtpickerMahnungSchuldbrief1)
+        Me.GroupBox3.Controls.Add(Me.txtMahnungSchuldbrief1)
+        Me.GroupBox3.Controls.Add(Me.dtpickerTerminSchuldbrief)
+        Me.GroupBox3.Controls.Add(Me.txtTerminSchuldbrief)
+        Me.GroupBox3.Controls.Add(Me.dtpickerGemahntEmpfangsschein2)
+        Me.GroupBox3.Controls.Add(Me.txtGemahntEmpfangsschein2)
+        Me.GroupBox3.Controls.Add(Me.dtpickerGemahntEmpfangsschein1)
+        Me.GroupBox3.Controls.Add(Me.txtGemahntEmpfangsschein1)
+        Me.GroupBox3.Controls.Add(Me.dtpickerMahnungEmpfangsschein2)
+        Me.GroupBox3.Controls.Add(Me.txtMahnungEmpfangsschein2)
+        Me.GroupBox3.Controls.Add(Me.dtpickerMahnungEmpfangsschein1)
+        Me.GroupBox3.Controls.Add(Me.txtMahnungEmpfangsschein1)
+        Me.GroupBox3.Controls.Add(Me.dtpickerTerminEmpfangsschein)
+        Me.GroupBox3.Controls.Add(Me.Label18)
+        Me.GroupBox3.Controls.Add(Me.txtTerminEmpfangsschein)
+        Me.GroupBox3.Controls.Add(Me.Label17)
+        Me.GroupBox3.Controls.Add(Me.Label14)
+        Me.GroupBox3.Controls.Add(Me.Label15)
+        Me.GroupBox3.Controls.Add(Me.Label16)
+        Me.GroupBox3.Controls.Add(Me.Label13)
+        Me.GroupBox3.Controls.Add(Me.Label12)
+        Me.GroupBox3.Controls.Add(Me.Label11)
+        Me.GroupBox3.Location = New System.Drawing.Point(623, 24)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(383, 249)
+        Me.GroupBox3.TabIndex = 10
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "Termine"
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(21, 212)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(136, 23)
+        Me.Button2.TabIndex = 11
+        Me.Button2.TabStop = False
+        Me.Button2.Text = "Termindaten initialisieren"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'dtpickerGemahntSchuldbrief2
+        '
+        Me.dtpickerGemahntSchuldbrief2.Location = New System.Drawing.Point(324, 173)
+        Me.dtpickerGemahntSchuldbrief2.Name = "dtpickerGemahntSchuldbrief2"
+        Me.dtpickerGemahntSchuldbrief2.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickerGemahntSchuldbrief2.TabIndex = 47
+        Me.dtpickerGemahntSchuldbrief2.TabStop = False
+        '
+        'txtGemahntSchuldbrief2
+        '
+        Me.txtGemahntSchuldbrief2.Location = New System.Drawing.Point(261, 173)
+        Me.txtGemahntSchuldbrief2.Mask = "00/00/0000"
+        Me.txtGemahntSchuldbrief2.Name = "txtGemahntSchuldbrief2"
+        Me.txtGemahntSchuldbrief2.Size = New System.Drawing.Size(66, 20)
+        Me.txtGemahntSchuldbrief2.TabIndex = 9
+        Me.txtGemahntSchuldbrief2.ValidatingType = GetType(Date)
+        '
+        'dtpickerGemahntSchuldbrief1
+        '
+        Me.dtpickerGemahntSchuldbrief1.Location = New System.Drawing.Point(324, 143)
+        Me.dtpickerGemahntSchuldbrief1.Name = "dtpickerGemahntSchuldbrief1"
+        Me.dtpickerGemahntSchuldbrief1.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickerGemahntSchuldbrief1.TabIndex = 45
+        Me.dtpickerGemahntSchuldbrief1.TabStop = False
+        '
+        'txtGemahntSchuldbrief1
+        '
+        Me.txtGemahntSchuldbrief1.Location = New System.Drawing.Point(261, 143)
+        Me.txtGemahntSchuldbrief1.Mask = "00/00/0000"
+        Me.txtGemahntSchuldbrief1.Name = "txtGemahntSchuldbrief1"
+        Me.txtGemahntSchuldbrief1.Size = New System.Drawing.Size(66, 20)
+        Me.txtGemahntSchuldbrief1.TabIndex = 7
+        Me.txtGemahntSchuldbrief1.ValidatingType = GetType(Date)
+        '
+        'dtpickermahnungSchuldbrief2
+        '
+        Me.dtpickermahnungSchuldbrief2.Location = New System.Drawing.Point(217, 170)
+        Me.dtpickermahnungSchuldbrief2.Name = "dtpickermahnungSchuldbrief2"
+        Me.dtpickermahnungSchuldbrief2.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickermahnungSchuldbrief2.TabIndex = 43
+        Me.dtpickermahnungSchuldbrief2.TabStop = False
+        '
+        'txtmahnungSchuldbrief2
+        '
+        Me.txtmahnungSchuldbrief2.Location = New System.Drawing.Point(154, 170)
+        Me.txtmahnungSchuldbrief2.Mask = "00/00/0000"
+        Me.txtmahnungSchuldbrief2.Name = "txtmahnungSchuldbrief2"
+        Me.txtmahnungSchuldbrief2.Size = New System.Drawing.Size(66, 20)
+        Me.txtmahnungSchuldbrief2.TabIndex = 8
+        Me.txtmahnungSchuldbrief2.ValidatingType = GetType(Date)
+        '
+        'dtpickerMahnungSchuldbrief1
+        '
+        Me.dtpickerMahnungSchuldbrief1.Location = New System.Drawing.Point(217, 146)
+        Me.dtpickerMahnungSchuldbrief1.Name = "dtpickerMahnungSchuldbrief1"
+        Me.dtpickerMahnungSchuldbrief1.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickerMahnungSchuldbrief1.TabIndex = 41
+        Me.dtpickerMahnungSchuldbrief1.TabStop = False
+        '
+        'txtMahnungSchuldbrief1
+        '
+        Me.txtMahnungSchuldbrief1.Location = New System.Drawing.Point(154, 146)
+        Me.txtMahnungSchuldbrief1.Mask = "00/00/0000"
+        Me.txtMahnungSchuldbrief1.Name = "txtMahnungSchuldbrief1"
+        Me.txtMahnungSchuldbrief1.Size = New System.Drawing.Size(66, 20)
+        Me.txtMahnungSchuldbrief1.TabIndex = 6
+        Me.txtMahnungSchuldbrief1.ValidatingType = GetType(Date)
+        '
+        'dtpickerTerminSchuldbrief
+        '
+        Me.dtpickerTerminSchuldbrief.Location = New System.Drawing.Point(217, 118)
+        Me.dtpickerTerminSchuldbrief.Name = "dtpickerTerminSchuldbrief"
+        Me.dtpickerTerminSchuldbrief.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickerTerminSchuldbrief.TabIndex = 39
+        Me.dtpickerTerminSchuldbrief.TabStop = False
+        '
+        'txtTerminSchuldbrief
+        '
+        Me.txtTerminSchuldbrief.Location = New System.Drawing.Point(154, 118)
+        Me.txtTerminSchuldbrief.Mask = "00/00/0000"
+        Me.txtTerminSchuldbrief.Name = "txtTerminSchuldbrief"
+        Me.txtTerminSchuldbrief.Size = New System.Drawing.Size(66, 20)
+        Me.txtTerminSchuldbrief.TabIndex = 5
+        Me.txtTerminSchuldbrief.ValidatingType = GetType(Date)
+        '
+        'dtpickerGemahntEmpfangsschein2
+        '
+        Me.dtpickerGemahntEmpfangsschein2.Location = New System.Drawing.Point(324, 69)
+        Me.dtpickerGemahntEmpfangsschein2.Name = "dtpickerGemahntEmpfangsschein2"
+        Me.dtpickerGemahntEmpfangsschein2.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickerGemahntEmpfangsschein2.TabIndex = 37
+        Me.dtpickerGemahntEmpfangsschein2.TabStop = False
+        '
+        'txtGemahntEmpfangsschein2
+        '
+        Me.txtGemahntEmpfangsschein2.Location = New System.Drawing.Point(261, 69)
+        Me.txtGemahntEmpfangsschein2.Mask = "00/00/0000"
+        Me.txtGemahntEmpfangsschein2.Name = "txtGemahntEmpfangsschein2"
+        Me.txtGemahntEmpfangsschein2.Size = New System.Drawing.Size(66, 20)
+        Me.txtGemahntEmpfangsschein2.TabIndex = 4
+        Me.txtGemahntEmpfangsschein2.ValidatingType = GetType(Date)
+        '
+        'dtpickerGemahntEmpfangsschein1
+        '
+        Me.dtpickerGemahntEmpfangsschein1.Location = New System.Drawing.Point(324, 46)
+        Me.dtpickerGemahntEmpfangsschein1.Name = "dtpickerGemahntEmpfangsschein1"
+        Me.dtpickerGemahntEmpfangsschein1.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickerGemahntEmpfangsschein1.TabIndex = 35
+        Me.dtpickerGemahntEmpfangsschein1.TabStop = False
+        '
+        'txtGemahntEmpfangsschein1
+        '
+        Me.txtGemahntEmpfangsschein1.Location = New System.Drawing.Point(261, 46)
+        Me.txtGemahntEmpfangsschein1.Mask = "00/00/0000"
+        Me.txtGemahntEmpfangsschein1.Name = "txtGemahntEmpfangsschein1"
+        Me.txtGemahntEmpfangsschein1.Size = New System.Drawing.Size(66, 20)
+        Me.txtGemahntEmpfangsschein1.TabIndex = 2
+        Me.txtGemahntEmpfangsschein1.ValidatingType = GetType(Date)
+        '
+        'dtpickerMahnungEmpfangsschein2
+        '
+        Me.dtpickerMahnungEmpfangsschein2.Location = New System.Drawing.Point(217, 69)
+        Me.dtpickerMahnungEmpfangsschein2.Name = "dtpickerMahnungEmpfangsschein2"
+        Me.dtpickerMahnungEmpfangsschein2.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickerMahnungEmpfangsschein2.TabIndex = 33
+        Me.dtpickerMahnungEmpfangsschein2.TabStop = False
+        '
+        'txtMahnungEmpfangsschein2
+        '
+        Me.txtMahnungEmpfangsschein2.Location = New System.Drawing.Point(154, 69)
+        Me.txtMahnungEmpfangsschein2.Mask = "00/00/0000"
+        Me.txtMahnungEmpfangsschein2.Name = "txtMahnungEmpfangsschein2"
+        Me.txtMahnungEmpfangsschein2.Size = New System.Drawing.Size(66, 20)
+        Me.txtMahnungEmpfangsschein2.TabIndex = 3
+        Me.txtMahnungEmpfangsschein2.ValidatingType = GetType(Date)
+        '
+        'dtpickerMahnungEmpfangsschein1
+        '
+        Me.dtpickerMahnungEmpfangsschein1.Location = New System.Drawing.Point(217, 45)
+        Me.dtpickerMahnungEmpfangsschein1.Name = "dtpickerMahnungEmpfangsschein1"
+        Me.dtpickerMahnungEmpfangsschein1.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickerMahnungEmpfangsschein1.TabIndex = 31
+        Me.dtpickerMahnungEmpfangsschein1.TabStop = False
+        '
+        'txtMahnungEmpfangsschein1
+        '
+        Me.txtMahnungEmpfangsschein1.Location = New System.Drawing.Point(154, 45)
+        Me.txtMahnungEmpfangsschein1.Mask = "00/00/0000"
+        Me.txtMahnungEmpfangsschein1.Name = "txtMahnungEmpfangsschein1"
+        Me.txtMahnungEmpfangsschein1.Size = New System.Drawing.Size(66, 20)
+        Me.txtMahnungEmpfangsschein1.TabIndex = 1
+        Me.txtMahnungEmpfangsschein1.ValidatingType = GetType(Date)
+        '
+        'dtpickerTerminEmpfangsschein
+        '
+        Me.dtpickerTerminEmpfangsschein.Location = New System.Drawing.Point(217, 17)
+        Me.dtpickerTerminEmpfangsschein.Name = "dtpickerTerminEmpfangsschein"
+        Me.dtpickerTerminEmpfangsschein.Size = New System.Drawing.Size(21, 20)
+        Me.dtpickerTerminEmpfangsschein.TabIndex = 17
+        Me.dtpickerTerminEmpfangsschein.TabStop = False
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(260, 126)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(67, 13)
+        Me.Label18.TabIndex = 29
+        Me.Label18.Text = "Gemahnt am"
+        '
+        'txtTerminEmpfangsschein
+        '
+        Me.txtTerminEmpfangsschein.Location = New System.Drawing.Point(154, 17)
+        Me.txtTerminEmpfangsschein.Mask = "00/00/0000"
+        Me.txtTerminEmpfangsschein.Name = "txtTerminEmpfangsschein"
+        Me.txtTerminEmpfangsschein.Size = New System.Drawing.Size(66, 20)
+        Me.txtTerminEmpfangsschein.TabIndex = 0
+        Me.txtTerminEmpfangsschein.ValidatingType = GetType(Date)
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(260, 25)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(67, 13)
+        Me.Label17.TabIndex = 13
+        Me.Label17.Text = "Gemahnt am"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(18, 173)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(61, 13)
+        Me.Label14.TabIndex = 25
+        Me.Label14.Text = "Mahnung 2"
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(18, 150)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(61, 13)
+        Me.Label15.TabIndex = 23
+        Me.Label15.Text = "Mahnung 1"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(18, 121)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(95, 13)
+        Me.Label16.TabIndex = 21
+        Me.Label16.Text = "Termin Schuldbrief"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(18, 72)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(61, 13)
+        Me.Label13.TabIndex = 17
+        Me.Label13.Text = "Mahnung 2"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(18, 49)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(61, 13)
+        Me.Label12.TabIndex = 15
+        Me.Label12.Text = "Mahnung 1"
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(18, 20)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(120, 13)
+        Me.Label11.TabIndex = 13
+        Me.Label11.Text = "Termin Empfangsschein"
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.Button4)
+        Me.GroupBox2.Controls.Add(Me.Button5)
+        Me.GroupBox2.Controls.Add(Me.Button3)
+        Me.GroupBox2.Controls.Add(Me.cbboxGegenpartei)
+        Me.GroupBox2.Controls.Add(Me.Label19)
+        Me.GroupBox2.Controls.Add(Me.txtbemerkung)
+        Me.GroupBox2.Controls.Add(Me.Label10)
+        Me.GroupBox2.Controls.Add(Me.cbboxstandardbemerkung)
+        Me.GroupBox2.Controls.Add(Me.Label9)
+        Me.GroupBox2.Controls.Add(Me.cbboxversgesellschaft)
+        Me.GroupBox2.Controls.Add(Me.Label8)
+        Me.GroupBox2.Location = New System.Drawing.Point(7, 312)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(610, 181)
+        Me.GroupBox2.TabIndex = 9
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "Diverses"
+        '
+        'Button4
+        '
+        Me.Button4.Location = New System.Drawing.Point(348, 69)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(21, 23)
+        Me.Button4.TabIndex = 24
+        Me.Button4.TabStop = False
+        Me.Button4.Text = "N"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.Location = New System.Drawing.Point(348, 17)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(21, 23)
+        Me.Button5.TabIndex = 23
+        Me.Button5.TabStop = False
+        Me.Button5.Text = "N"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(348, 42)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(21, 23)
+        Me.Button3.TabIndex = 21
+        Me.Button3.TabStop = False
+        Me.Button3.Text = "N"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'cbboxGegenpartei
+        '
+        Me.cbboxGegenpartei.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cbboxGegenpartei.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cbboxGegenpartei.FormattingEnabled = True
+        Me.cbboxGegenpartei.Location = New System.Drawing.Point(106, 19)
+        Me.cbboxGegenpartei.Name = "cbboxGegenpartei"
+        Me.cbboxGegenpartei.Size = New System.Drawing.Size(240, 21)
+        Me.cbboxGegenpartei.Sorted = True
+        Me.cbboxGegenpartei.TabIndex = 0
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Location = New System.Drawing.Point(16, 20)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(65, 13)
+        Me.Label19.TabIndex = 19
+        Me.Label19.Text = "Gegenpartei"
+        '
+        'txtbemerkung
+        '
+        Me.txtbemerkung.Location = New System.Drawing.Point(106, 101)
+        Me.txtbemerkung.Multiline = True
+        Me.txtbemerkung.Name = "txtbemerkung"
+        Me.txtbemerkung.Size = New System.Drawing.Size(479, 74)
+        Me.txtbemerkung.TabIndex = 3
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(16, 104)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(61, 13)
+        Me.Label10.TabIndex = 17
+        Me.Label10.Text = "Bemerkung"
+        '
+        'cbboxstandardbemerkung
+        '
+        Me.cbboxstandardbemerkung.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cbboxstandardbemerkung.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cbboxstandardbemerkung.FormattingEnabled = True
+        Me.cbboxstandardbemerkung.Location = New System.Drawing.Point(106, 71)
+        Me.cbboxstandardbemerkung.Name = "cbboxstandardbemerkung"
+        Me.cbboxstandardbemerkung.Size = New System.Drawing.Size(240, 21)
+        Me.cbboxstandardbemerkung.Sorted = True
+        Me.cbboxstandardbemerkung.TabIndex = 2
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(16, 72)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(80, 13)
+        Me.Label9.TabIndex = 15
+        Me.Label9.Text = "Std-Bemerkung"
+        '
+        'cbboxversgesellschaft
+        '
+        Me.cbboxversgesellschaft.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cbboxversgesellschaft.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cbboxversgesellschaft.FormattingEnabled = True
+        Me.cbboxversgesellschaft.Location = New System.Drawing.Point(106, 44)
+        Me.cbboxversgesellschaft.Name = "cbboxversgesellschaft"
+        Me.cbboxversgesellschaft.Size = New System.Drawing.Size(240, 21)
+        Me.cbboxversgesellschaft.Sorted = True
+        Me.cbboxversgesellschaft.TabIndex = 1
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(16, 45)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(92, 13)
+        Me.Label8.TabIndex = 13
+        Me.Label8.Text = "Vers.-Gesellschaft"
+        '
+        'GrpStatus
+        '
+        Me.GrpStatus.Controls.Add(Me.dtPickerEingangSB)
+        Me.GrpStatus.Controls.Add(Me.Label7)
+        Me.GrpStatus.Controls.Add(Me.txtEingangSB)
+        Me.GrpStatus.Controls.Add(Me.cberledigt)
+        Me.GrpStatus.Controls.Add(Me.cbempfangsscheinerhalten)
+        Me.GrpStatus.Controls.Add(Me.cbeinlieferung)
+        Me.GrpStatus.Controls.Add(Me.cbtitelvorhanden)
+        Me.GrpStatus.Controls.Add(Me.cbneugeschäft)
+        Me.GrpStatus.Controls.Add(Me.cbdevauslieferung)
+        Me.GrpStatus.Controls.Add(Me.cbprovauslieferung)
+        Me.GrpStatus.Controls.Add(Me.cbpfandbrief)
+        Me.GrpStatus.Controls.Add(Me.cbgrundpfandverschreibung)
+        Me.GrpStatus.Controls.Add(Me.cbschuldbrief)
+        Me.GrpStatus.Location = New System.Drawing.Point(7, 170)
+        Me.GrpStatus.Name = "GrpStatus"
+        Me.GrpStatus.Size = New System.Drawing.Size(610, 136)
+        Me.GrpStatus.TabIndex = 8
+        Me.GrpStatus.TabStop = False
+        Me.GrpStatus.Text = "Status"
+        '
+        'dtPickerEingangSB
+        '
+        Me.dtPickerEingangSB.Location = New System.Drawing.Point(170, 101)
+        Me.dtPickerEingangSB.Name = "dtPickerEingangSB"
+        Me.dtPickerEingangSB.Size = New System.Drawing.Size(21, 20)
+        Me.dtPickerEingangSB.TabIndex = 17
+        Me.dtPickerEingangSB.TabStop = False
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(21, 104)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(78, 13)
+        Me.Label7.TabIndex = 13
+        Me.Label7.Text = "Eingang Police"
+        '
+        'txtEingangSB
+        '
+        Me.txtEingangSB.Location = New System.Drawing.Point(107, 101)
+        Me.txtEingangSB.Mask = "00/00/0000"
+        Me.txtEingangSB.Name = "txtEingangSB"
+        Me.txtEingangSB.Size = New System.Drawing.Size(66, 20)
+        Me.txtEingangSB.TabIndex = 7
+        Me.txtEingangSB.ValidatingType = GetType(Date)
+        '
+        'cberledigt
+        '
+        Me.cberledigt.AutoSize = True
+        Me.cberledigt.Location = New System.Drawing.Point(308, 49)
+        Me.cberledigt.Name = "cberledigt"
+        Me.cberledigt.Size = New System.Drawing.Size(61, 17)
+        Me.cberledigt.TabIndex = 6
+        Me.cberledigt.Text = "Erledigt"
+        Me.cberledigt.UseVisualStyleBackColor = True
+        '
+        'cbempfangsscheinerhalten
+        '
+        Me.cbempfangsscheinerhalten.AutoSize = True
+        Me.cbempfangsscheinerhalten.Location = New System.Drawing.Point(308, 26)
+        Me.cbempfangsscheinerhalten.Name = "cbempfangsscheinerhalten"
+        Me.cbempfangsscheinerhalten.Size = New System.Drawing.Size(145, 17)
+        Me.cbempfangsscheinerhalten.TabIndex = 5
+        Me.cbempfangsscheinerhalten.Text = "Empfangsschein erhalten"
+        Me.cbempfangsscheinerhalten.UseVisualStyleBackColor = True
+        '
+        'cbeinlieferung
+        '
+        Me.cbeinlieferung.AutoSize = True
+        Me.cbeinlieferung.Location = New System.Drawing.Point(169, 49)
+        Me.cbeinlieferung.Name = "cbeinlieferung"
+        Me.cbeinlieferung.Size = New System.Drawing.Size(81, 17)
+        Me.cbeinlieferung.TabIndex = 4
+        Me.cbeinlieferung.Text = "Einlieferung"
+        Me.cbeinlieferung.UseVisualStyleBackColor = True
+        '
+        'cbtitelvorhanden
+        '
+        Me.cbtitelvorhanden.AutoSize = True
+        Me.cbtitelvorhanden.Location = New System.Drawing.Point(168, 26)
+        Me.cbtitelvorhanden.Name = "cbtitelvorhanden"
+        Me.cbtitelvorhanden.Size = New System.Drawing.Size(100, 17)
+        Me.cbtitelvorhanden.TabIndex = 3
+        Me.cbtitelvorhanden.Text = "Titel vorhanden"
+        Me.cbtitelvorhanden.UseVisualStyleBackColor = True
+        '
+        'cbneugeschäft
+        '
+        Me.cbneugeschäft.AutoSize = True
+        Me.cbneugeschäft.Location = New System.Drawing.Point(24, 72)
+        Me.cbneugeschäft.Name = "cbneugeschäft"
+        Me.cbneugeschäft.Size = New System.Drawing.Size(87, 17)
+        Me.cbneugeschäft.TabIndex = 2
+        Me.cbneugeschäft.Text = "Neugeschäft"
+        Me.cbneugeschäft.UseVisualStyleBackColor = True
+        Me.cbneugeschäft.Visible = False
+        '
+        'cbdevauslieferung
+        '
+        Me.cbdevauslieferung.AutoSize = True
+        Me.cbdevauslieferung.Location = New System.Drawing.Point(24, 49)
+        Me.cbdevauslieferung.Name = "cbdevauslieferung"
+        Me.cbdevauslieferung.Size = New System.Drawing.Size(110, 17)
+        Me.cbdevauslieferung.TabIndex = 1
+        Me.cbdevauslieferung.Text = "Dev. Auslieferung"
+        Me.cbdevauslieferung.UseVisualStyleBackColor = True
+        '
+        'cbprovauslieferung
+        '
+        Me.cbprovauslieferung.AutoSize = True
+        Me.cbprovauslieferung.Location = New System.Drawing.Point(23, 26)
+        Me.cbprovauslieferung.Name = "cbprovauslieferung"
+        Me.cbprovauslieferung.Size = New System.Drawing.Size(112, 17)
+        Me.cbprovauslieferung.TabIndex = 0
+        Me.cbprovauslieferung.Text = "Prov. Auslieferung"
+        Me.cbprovauslieferung.UseVisualStyleBackColor = True
+        '
+        'cbpfandbrief
+        '
+        Me.cbpfandbrief.AutoSize = True
+        Me.cbpfandbrief.Location = New System.Drawing.Point(443, 109)
+        Me.cbpfandbrief.Name = "cbpfandbrief"
+        Me.cbpfandbrief.Size = New System.Drawing.Size(74, 17)
+        Me.cbpfandbrief.TabIndex = 2
+        Me.cbpfandbrief.Text = "Pfandbrief"
+        Me.cbpfandbrief.UseVisualStyleBackColor = True
+        Me.cbpfandbrief.Visible = False
+        '
+        'cbgrundpfandverschreibung
+        '
+        Me.cbgrundpfandverschreibung.AutoSize = True
+        Me.cbgrundpfandverschreibung.Location = New System.Drawing.Point(443, 86)
+        Me.cbgrundpfandverschreibung.Name = "cbgrundpfandverschreibung"
+        Me.cbgrundpfandverschreibung.Size = New System.Drawing.Size(149, 17)
+        Me.cbgrundpfandverschreibung.TabIndex = 1
+        Me.cbgrundpfandverschreibung.Text = "Grundpfandverschreibung"
+        Me.cbgrundpfandverschreibung.UseVisualStyleBackColor = True
+        Me.cbgrundpfandverschreibung.Visible = False
+        '
+        'cbschuldbrief
+        '
+        Me.cbschuldbrief.AutoSize = True
+        Me.cbschuldbrief.Location = New System.Drawing.Point(442, 63)
+        Me.cbschuldbrief.Name = "cbschuldbrief"
+        Me.cbschuldbrief.Size = New System.Drawing.Size(79, 17)
+        Me.cbschuldbrief.TabIndex = 0
+        Me.cbschuldbrief.Text = "Schuldbrief"
+        Me.cbschuldbrief.UseVisualStyleBackColor = True
+        Me.cbschuldbrief.Visible = False
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.Button1)
+        Me.GroupBox1.Controls.Add(Me.txtPolicenNr)
+        Me.GroupBox1.Controls.Add(Me.txtNominal)
+        Me.GroupBox1.Controls.Add(Me.dtPickerDatum)
+        Me.GroupBox1.Controls.Add(Me.txtDatum)
+        Me.GroupBox1.Controls.Add(Me.Label6)
+        Me.GroupBox1.Controls.Add(Me.cbboxSachbearbeiter)
+        Me.GroupBox1.Controls.Add(Me.txtKurzname)
+        Me.GroupBox1.Controls.Add(Me.txtPartnernr)
+        Me.GroupBox1.Controls.Add(Me.Label5)
+        Me.GroupBox1.Controls.Add(Me.cbeuro)
+        Me.GroupBox1.Controls.Add(Me.Label4)
+        Me.GroupBox1.Controls.Add(Me.Label3)
+        Me.GroupBox1.Controls.Add(Me.Label2)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Location = New System.Drawing.Point(7, 24)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(610, 140)
+        Me.GroupBox1.TabIndex = 7
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Datum/Partner"
+        '
+        'Button1
+        '
+        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
+        Me.Button1.Location = New System.Drawing.Point(199, 43)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(33, 23)
+        Me.Button1.TabIndex = 11
+        Me.Button1.TabStop = False
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'txtPolicenNr
+        '
+        Me.txtPolicenNr.Location = New System.Drawing.Point(443, 100)
+        Me.txtPolicenNr.Name = "txtPolicenNr"
+        Me.txtPolicenNr.Size = New System.Drawing.Size(161, 20)
+        Me.txtPolicenNr.TabIndex = 5
+        '
+        'txtNominal
+        '
+        Me.txtNominal.Location = New System.Drawing.Point(106, 100)
+        Me.txtNominal.Name = "txtNominal"
+        Me.txtNominal.Size = New System.Drawing.Size(187, 20)
+        Me.txtNominal.TabIndex = 3
+        Me.txtNominal.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'dtPickerDatum
+        '
+        Me.dtPickerDatum.Location = New System.Drawing.Point(170, 18)
+        Me.dtPickerDatum.Name = "dtPickerDatum"
+        Me.dtPickerDatum.Size = New System.Drawing.Size(21, 20)
+        Me.dtPickerDatum.TabIndex = 15
+        Me.dtPickerDatum.TabStop = False
+        '
+        'txtDatum
+        '
+        Me.txtDatum.Location = New System.Drawing.Point(107, 18)
+        Me.txtDatum.Mask = "00/00/0000"
+        Me.txtDatum.Name = "txtDatum"
+        Me.txtDatum.Size = New System.Drawing.Size(66, 20)
+        Me.txtDatum.TabIndex = 0
+        Me.txtDatum.ValidatingType = GetType(Date)
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(21, 102)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(45, 13)
+        Me.Label6.TabIndex = 11
+        Me.Label6.Text = "Nominal"
+        '
+        'cbboxSachbearbeiter
+        '
+        Me.cbboxSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cbboxSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.cbboxSachbearbeiter.FormattingEnabled = True
+        Me.cbboxSachbearbeiter.Location = New System.Drawing.Point(106, 71)
+        Me.cbboxSachbearbeiter.Name = "cbboxSachbearbeiter"
+        Me.cbboxSachbearbeiter.Size = New System.Drawing.Size(187, 21)
+        Me.cbboxSachbearbeiter.Sorted = True
+        Me.cbboxSachbearbeiter.TabIndex = 2
+        '
+        'txtKurzname
+        '
+        Me.txtKurzname.Location = New System.Drawing.Point(308, 42)
+        Me.txtKurzname.Name = "txtKurzname"
+        Me.txtKurzname.ReadOnly = True
+        Me.txtKurzname.Size = New System.Drawing.Size(296, 20)
+        Me.txtKurzname.TabIndex = 8
+        Me.txtKurzname.TabStop = False
+        '
+        'txtPartnernr
+        '
+        Me.txtPartnernr.Location = New System.Drawing.Point(106, 45)
+        Me.txtPartnernr.Name = "txtPartnernr"
+        Me.txtPartnernr.Size = New System.Drawing.Size(97, 20)
+        Me.txtPartnernr.TabIndex = 1
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(378, 103)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(59, 13)
+        Me.Label5.TabIndex = 5
+        Me.Label5.Text = "Policen-Nr."
+        '
+        'cbeuro
+        '
+        Me.cbeuro.AutoSize = True
+        Me.cbeuro.Location = New System.Drawing.Point(308, 103)
+        Me.cbeuro.Name = "cbeuro"
+        Me.cbeuro.Size = New System.Drawing.Size(48, 17)
+        Me.cbeuro.TabIndex = 4
+        Me.cbeuro.Text = "Euro"
+        Me.cbeuro.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(20, 72)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(79, 13)
+        Me.Label4.TabIndex = 3
+        Me.Label4.Text = "Sachbearbeiter"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(239, 45)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(54, 13)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "Kurzname"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(20, 45)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(41, 13)
+        Me.Label2.TabIndex = 1
+        Me.Label2.Text = "Partner"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(20, 20)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(38, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Datum"
+        '
+        'cbaktiv
+        '
+        Me.cbaktiv.AutoSize = True
+        Me.cbaktiv.Location = New System.Drawing.Point(947, 470)
+        Me.cbaktiv.Name = "cbaktiv"
+        Me.cbaktiv.Size = New System.Drawing.Size(50, 17)
+        Me.cbaktiv.TabIndex = 19
+        Me.cbaktiv.TabStop = False
+        Me.cbaktiv.Text = "Aktiv"
+        Me.cbaktiv.UseVisualStyleBackColor = True
+        '
+        'frmPolice
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1013, 494)
+        Me.Controls.Add(Me.cbaktiv)
+        Me.Controls.Add(Me.GroupBox3)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GrpStatus)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmPolice"
+        Me.Text = "Police"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
+        Me.GrpStatus.ResumeLayout(False)
+        Me.GrpStatus.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents tsbtnexit As ToolStripButton
+    Friend WithEvents tsbtensave As ToolStripButton
+    Friend WithEvents tsbtndelete As ToolStripButton
+    Friend WithEvents GroupBox3 As GroupBox
+    Friend WithEvents dtpickerGemahntSchuldbrief2 As DateTimePicker
+    Friend WithEvents txtGemahntSchuldbrief2 As MaskedTextBox
+    Friend WithEvents dtpickerGemahntSchuldbrief1 As DateTimePicker
+    Friend WithEvents txtGemahntSchuldbrief1 As MaskedTextBox
+    Friend WithEvents dtpickermahnungSchuldbrief2 As DateTimePicker
+    Friend WithEvents txtmahnungSchuldbrief2 As MaskedTextBox
+    Friend WithEvents dtpickerMahnungSchuldbrief1 As DateTimePicker
+    Friend WithEvents txtMahnungSchuldbrief1 As MaskedTextBox
+    Friend WithEvents dtpickerTerminSchuldbrief As DateTimePicker
+    Friend WithEvents txtTerminSchuldbrief As MaskedTextBox
+    Friend WithEvents dtpickerGemahntEmpfangsschein2 As DateTimePicker
+    Friend WithEvents txtGemahntEmpfangsschein2 As MaskedTextBox
+    Friend WithEvents dtpickerGemahntEmpfangsschein1 As DateTimePicker
+    Friend WithEvents txtGemahntEmpfangsschein1 As MaskedTextBox
+    Friend WithEvents dtpickerMahnungEmpfangsschein2 As DateTimePicker
+    Friend WithEvents txtMahnungEmpfangsschein2 As MaskedTextBox
+    Friend WithEvents dtpickerMahnungEmpfangsschein1 As DateTimePicker
+    Friend WithEvents txtMahnungEmpfangsschein1 As MaskedTextBox
+    Friend WithEvents dtpickerTerminEmpfangsschein As DateTimePicker
+    Friend WithEvents Label18 As Label
+    Friend WithEvents txtTerminEmpfangsschein As MaskedTextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents Label14 As Label
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Label16 As Label
+    Friend WithEvents Label13 As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents GroupBox2 As GroupBox
+    Friend WithEvents txtbemerkung As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents cbboxstandardbemerkung As ComboBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents cbboxversgesellschaft As ComboBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents GrpStatus As GroupBox
+    Friend WithEvents dtPickerEingangSB As DateTimePicker
+    Friend WithEvents Label7 As Label
+    Friend WithEvents txtEingangSB As MaskedTextBox
+    Friend WithEvents cberledigt As CheckBox
+    Friend WithEvents cbempfangsscheinerhalten As CheckBox
+    Friend WithEvents cbeinlieferung As CheckBox
+    Friend WithEvents cbtitelvorhanden As CheckBox
+    Friend WithEvents cbneugeschäft As CheckBox
+    Friend WithEvents cbdevauslieferung As CheckBox
+    Friend WithEvents cbprovauslieferung As CheckBox
+    Friend WithEvents cbpfandbrief As CheckBox
+    Friend WithEvents cbgrundpfandverschreibung As CheckBox
+    Friend WithEvents cbschuldbrief As CheckBox
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents txtPolicenNr As TextBox
+    Friend WithEvents txtNominal As TextBox
+    Friend WithEvents dtPickerDatum As DateTimePicker
+    Friend WithEvents txtDatum As MaskedTextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents cbboxSachbearbeiter As ComboBox
+    Friend WithEvents txtKurzname As TextBox
+    Friend WithEvents txtPartnernr As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents cbeuro As CheckBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents cbaktiv As CheckBox
+    Friend WithEvents cbboxGegenpartei As ComboBox
+    Friend WithEvents Label19 As Label
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+End Class