Projektdateien hinzufügen.

Parkzeit.sln

@@ -0,0 +1,20 @@
+
+Microsoft Visual Studio Solution File, Format Version 11.00
+# Visual Studio 2010
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Parkzeit", "Parkzeit\Parkzeit.vbproj", "{E4190547-B222-4AE3-A0BE-A44EAEE70335}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|x86 = Debug|x86
+		Release|x86 = Release|x86
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.ActiveCfg = Debug|x86
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.Build.0 = Debug|x86
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.ActiveCfg = Release|x86
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.Build.0 = Release|x86
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

Parkzeit/App.config

@@ -0,0 +1,27 @@
+<?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="Parkzeit.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.0"/>
+    </startup>
+    <userSettings>
+        <Parkzeit.My.MySettings>
+            <setting name="frmMainPosition" serializeAs="String">
+                <value>200, 200</value>
+            </setting>
+            <setting name="frmMainSize" serializeAs="String">
+                <value>800, 500</value>
+            </setting>
+        </Parkzeit.My.MySettings>
+    </userSettings>
+  <connectionStrings>
+
+    <add name="PROD" connectionString="Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient"/>
+    <!--<add name="blaLong" connectionString="server=myserver;database=aaa;User ID=eee;Password=qqq;Connection LifeTime=600;Max Pool Size=150;Min Pool Size=10;" providerName="System.Data.SqlClient" />-->
+
+  </connectionStrings>
+</configuration>

Parkzeit/ApplicationEvents.vb

@@ -0,0 +1 @@
+

Parkzeit/ManagementObjectSearcher.vb

@@ -0,0 +1 @@
+

Parkzeit/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34014
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
+    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.Parkzeit.frmMain
+        End Sub
+    End Class
+End Namespace

Parkzeit/My Project/Application.myapp

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

Parkzeit/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden 
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die mit einer Assembly verknüpft sind.
+
+' Die Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("Parkzeit")> 
+<Assembly: AssemblyDescription("Verwaltung Parkzeiten Waberer's")> 
+<Assembly: AssemblyCompany("VERAG AG")> 
+<Assembly: AssemblyProduct("Parkzeit")> 
+<Assembly: AssemblyCopyright("Copyright ©  2013 Engelsberger Andreas")> 
+<Assembly: AssemblyTrademark("")> 
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
+<Assembly: Guid("486dafaa-99b7-45e9-8f54-b5fb9770f926")> 
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion 
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.2.1.0")> 
+<Assembly: AssemblyFileVersion("1.2.1.0")> 

Parkzeit/My Project/Resources.Designer.vb

@@ -0,0 +1,134 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34014
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Parkzeit.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
+        '''</summary>
+        Friend ReadOnly Property connectionString_DEV() As String
+            Get
+                Return ResourceManager.GetString("connectionString_DEV", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
+        '''</summary>
+        Friend ReadOnly Property connectionString_PROD() As String
+            Get
+                Return ResourceManager.GetString("connectionString_PROD", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Logo_Waberer() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Logo_Waberer", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
+        '''</summary>
+        Friend ReadOnly Property Parkschild() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Parkschild", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
+        '''</summary>
+        Friend ReadOnly Property parkzeit() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("parkzeit", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Version 1.2.1  19.03.2015 (Luxbauer Andreas)
+        '''- Umstellung auf SQLConnection
+        '''
+        '''Version 1.2.0  11.12.2014 (Luxbauer Andreas)
+        '''- Anbindung SQL Server
+        '''- Bugfix Programmstart
+        '''
+        '''Version 1.1.0  19.10.2013
+        '''NEU: Trennung der Abrechnung nach LKW-Kennzeichen
+        '''-Ungarn (die ersten drei Stellen sind Buchstaben)
+        '''-Rumänien (die erste oder zweite Stelle ist ein Buchstabe)
+        '''-Sonstige (die ersten beiden Stellen sind Ziffern)
+        '''KORREKTUR: Spaltengröße bei Gesamtsumme erweitert (ansonsten erfolgte Zeilenumbruch)
+        '''
+        '''Version [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
+        '''</summary>
+        Friend ReadOnly Property Versionsinfo() As String
+            Get
+                Return ResourceManager.GetString("Versionsinfo", resourceCulture)
+            End Get
+        End Property
+    End Module
+End Namespace

Parkzeit/My Project/Resources.resx

@@ -0,0 +1,139 @@
+<?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>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="Parkschild" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Parkschild.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Logo_Waberer" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Logo_Waberer.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
+  </data>
+  <data name="connectionString_DEV" xml:space="preserve">
+    <value>Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+  </data>
+  <data name="connectionString_PROD" xml:space="preserve">
+    <value>Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+  </data>
+  <data name="parkzeit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\parkzeit.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+</root>

Parkzeit/My Project/Settings.Designer.vb

@@ -0,0 +1,97 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34014
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Funktion zum automatischen Speichern von My.Settings"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("200, 200")>  _
+        Public Property frmMainPosition() As Global.System.Drawing.Point
+            Get
+                Return CType(Me("frmMainPosition"),Global.System.Drawing.Point)
+            End Get
+            Set
+                Me("frmMainPosition") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("800, 500")>  _
+        Public Property frmMainSize() As Global.System.Drawing.Size
+            Get
+                Return CType(Me("frmMainSize"),Global.System.Drawing.Size)
+            End Get
+            Set
+                Me("frmMainSize") = value
+            End Set
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.Parkzeit.My.MySettings
+            Get
+                Return Global.Parkzeit.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

Parkzeit/My Project/Settings.settings

@@ -0,0 +1,12 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="frmMainPosition" Type="System.Drawing.Point" Scope="User">
+      <Value Profile="(Default)">200, 200</Value>
+    </Setting>
+    <Setting Name="frmMainSize" Type="System.Drawing.Size" Scope="User">
+      <Value Profile="(Default)">800, 500</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>

Parkzeit/My Project/app.manifest

@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="utf-8"?>
+<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <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">
+        <!-- UAC-Manifestoptionen
+          Wenn Sie die Zugangsebene für das Windows-Benutzerkonto ändern möchten, ersetzen Sie den 
+          requestedExecutionLevel-Knoten durch eines der folgenden Elemente.
+
+        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
+        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
+        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
+
+            Durch Angeben des requestedExecutionLevel-Knotens wird die Datei- und Registrierungsvirtualisierung deaktiviert.
+            Wenn Sie Datei- und Registrierungsvirtualisierung für Abwärts- 
+            kompatibilität verwenden möchten, löschen Sie den requestedExecutionLevel-Knoten.
+        -->
+        <requestedExecutionLevel level="asInvoker" uiAccess="false" />
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+
+  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+    <application>
+      <!-- Eine Liste aller Windows-Versionen, mit denen die Anwendung kompatibel ist. 
+      Windows wählt automatisch die am stärksten kompatible Umgebung aus.-->
+
+      <!-- Wenn die Anwendung mit Windows Vista kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
+      <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"></supportedOS>-->
+
+      <!-- Wenn die Anwendung mit Windows 7 kompatibel ist, heben Sie die Kommentierung des folgenden supportedOS-Knotens auf.-->
+      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
+
+      <!-- Wenn die Anwendung mit Windows 8 kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
+      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"></supportedOS>-->
+
+      <!-- Wenn die Anwendung mit Windows 8.1 kompatibel ist, die Kommentierung des folgenden supportedOS-Knotens aufheben.-->
+      <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>-->
+
+    </application>
+  </compatibility>
+
+  <!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
+  <!-- <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+          type="win32"
+          name="Microsoft.Windows.Common-Controls"
+          version="6.0.0.0"
+          processorArchitecture="*"
+          publicKeyToken="6595b64144ccf1df"
+          language="*"
+        />
+    </dependentAssembly>
+  </dependency>-->
+
+</asmv1:assembly>

Parkzeit/Parkzeit.vbproj

@@ -0,0 +1,260 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
+    <ProductVersion>
+    </ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{E4190547-B222-4AE3-A0BE-A44EAEE70335}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>Parkzeit.My.MyApplication</StartupObject>
+    <RootNamespace>Parkzeit</RootNamespace>
+    <AssemblyName>Parkzeit</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkProfile>
+    </TargetFrameworkProfile>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <PublishUrl>publish\</PublishUrl>
+    <Install>true</Install>
+    <InstallFrom>Disk</InstallFrom>
+    <UpdateEnabled>false</UpdateEnabled>
+    <UpdateMode>Foreground</UpdateMode>
+    <UpdateInterval>7</UpdateInterval>
+    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+    <UpdatePeriodically>false</UpdatePeriodically>
+    <UpdateRequired>false</UpdateRequired>
+    <MapFileExtensions>true</MapFileExtensions>
+    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+    <UseApplicationTrust>false</UseApplicationTrust>
+    <BootstrapperEnabled>true</BootstrapperEnabled>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>Parkzeit.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>Parkzeit.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>On</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>parkzeit.ico</ApplicationIcon>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
+  </PropertyGroup>
+  <PropertyGroup>
+    <SignManifests>false</SignManifests>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="Microsoft.ReportViewer.Common, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>bin\Debug\Microsoft.ReportViewer.Common.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.ReportViewer.WinForms, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>bin\Debug\Microsoft.ReportViewer.WinForms.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Management" />
+    <Reference Include="System.Web.Services" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+  </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.Data.Sql" />
+    <Import Include="System.Data.SqlClient" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Management" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="ApplicationEvents.vb" />
+    <Compile Include="cDatenbank.vb" />
+    <Compile Include="cMeineFunktionen.vb" />
+    <Compile Include="frmAuswahl_Abrechnung.designer.vb">
+      <DependentUpon>frmAuswahl_Abrechnung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAuswahl_Abrechnung.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmDruckansicht.designer.vb">
+      <DependentUpon>frmDruckansicht.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmDruckansicht.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmEintragParkzeit.designer.vb">
+      <DependentUpon>frmEintragParkzeit.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmEintragParkzeit.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmInfo.Designer.vb">
+      <DependentUpon>frmInfo.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmInfo.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmMain.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmMain.Designer.vb">
+      <DependentUpon>frmMain.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="ManagementObjectSearcher.vb" />
+    <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="ParkzeitDataSet.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>ParkzeitDataSet.xsd</DependentUpon>
+    </Compile>
+    <Compile Include="SelectQuery.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="frmAuswahl_Abrechnung.resx">
+      <DependentUpon>frmAuswahl_Abrechnung.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmDruckansicht.resx">
+      <DependentUpon>frmDruckansicht.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmEintragParkzeit.resx">
+      <DependentUpon>frmEintragParkzeit.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmInfo.resx">
+      <DependentUpon>frmInfo.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmMain.resx">
+      <DependentUpon>frmMain.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+    </EmbeddedResource>
+    <EmbeddedResource Include="rptAbrechnung.rdlc" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="App.config" />
+    <None Include="My Project\app.manifest" />
+    <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>
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="parkzeit.ico" />
+    <Content Include="Resources\Parkschild.ico" />
+    <None Include="Resources\parkzeit.ico" />
+    <None Include="ParkzeitDataSet.xsc">
+      <DependentUpon>ParkzeitDataSet.xsd</DependentUpon>
+    </None>
+    <None Include="ParkzeitDataSet.xsd">
+      <Generator>MSDataSetGenerator</Generator>
+      <LastGenOutput>ParkzeitDataSet.Designer.vb</LastGenOutput>
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="ParkzeitDataSet.xss">
+      <DependentUpon>ParkzeitDataSet.xsd</DependentUpon>
+    </None>
+    <None Include="Resources\Versionsinfo.txt" />
+  </ItemGroup>
+  <ItemGroup>
+    <BootstrapperPackage Include=".NETFramework,Version=v4.0,Profile=Client">
+      <Visible>False</Visible>
+      <ProductName>Microsoft .NET Framework 4 Client Profile %28x86 und x64%29</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+      <Visible>False</Visible>
+      <ProductName>Windows Installer 3.1</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

Parkzeit/ParkzeitDataSet.vb

@@ -0,0 +1,4 @@
+
+
+Partial Public Class ParkzeitDataSet
+End Class

Parkzeit/ParkzeitDataSet.xsc

@@ -0,0 +1 @@
+

Parkzeit/ParkzeitDataSet.xsd

@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xs:schema id="ParkzeitDataSet" targetNamespace="http://tempuri.org/ParkzeitDataSet.xsd" xmlns:mstns="http://tempuri.org/ParkzeitDataSet.xsd" xmlns="http://tempuri.org/ParkzeitDataSet.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
+  <xs:annotation>
+    <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
+      <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+        <Connections>
+          <Connection ConnectionStringObject="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Projekte.NET\Verag\Parkzeit\Parkzeit.accdb" IsAppSettingsProperty="false" Modifier="Assembly" Name="Parkzeit.accdb" Provider="System.Data.OleDb" />
+        </Connections>
+        <Tables>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="ParkzeitenTableAdapter" GeneratorDataComponentClassName="ParkzeitenTableAdapter" Name="Parkzeiten" UserDataComponentName="ParkzeitenTableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="Parkzeit.accdb" DbObjectName="Parkzeiten" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+                <DeleteCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>DELETE FROM `Parkzeiten` WHERE ((`ParkzeitID` = ?) AND ((? = 1 AND `Laufende_Nr` IS NULL) OR (`Laufende_Nr` = ?)) AND ((? = 1 AND `Von` IS NULL) OR (`Von` = ?)) AND ((? = 1 AND `Bis` IS NULL) OR (`Bis` = ?)) AND ((? = 1 AND `Dauer` IS NULL) OR (`Dauer` = ?)) AND ((? = 1 AND `Dauer_Minuten` IS NULL) OR (`Dauer_Minuten` = ?)) AND ((? = 1 AND `Kennzeichen` IS NULL) OR (`Kennzeichen` = ?)))</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Original_ParkzeitID" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="ParkzeitID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Laufende_Nr" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Laufende_Nr" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Original_Laufende_Nr" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Laufende_Nr" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Von" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Von" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Original_Von" Precision="0" ProviderType="Date" Scale="0" Size="0" SourceColumn="Von" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Bis" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Bis" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Original_Bis" Precision="0" ProviderType="Date" Scale="0" Size="0" SourceColumn="Bis" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Dauer" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Dauer" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Original_Dauer" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="Dauer" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Dauer_Minuten" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Dauer_Minuten" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Original_Dauer_Minuten" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Dauer_Minuten" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Kennzeichen" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Kennzeichen" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Original_Kennzeichen" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="Kennzeichen" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </DeleteCommand>
+                <InsertCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>INSERT INTO `Parkzeiten` (`Laufende_Nr`, `Von`, `Bis`, `Dauer`, `Dauer_Minuten`, `Kennzeichen`) VALUES (?, ?, ?, ?, ?, ?)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Laufende_Nr" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Laufende_Nr" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Von" Precision="0" ProviderType="Date" Scale="0" Size="0" SourceColumn="Von" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Bis" Precision="0" ProviderType="Date" Scale="0" Size="0" SourceColumn="Bis" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Dauer" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="Dauer" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Dauer_Minuten" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Dauer_Minuten" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Kennzeichen" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="Kennzeichen" SourceColumnNullMapping="false" SourceVersion="Current" />
+                    </Parameters>
+                  </DbCommand>
+                </InsertCommand>
+                <SelectCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>SELECT ParkzeitID, Laufende_Nr, Von, Bis, Dauer, Dauer_Minuten, Kennzeichen FROM Parkzeiten</CommandText>
+                    <Parameters />
+                  </DbCommand>
+                </SelectCommand>
+                <UpdateCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>UPDATE `Parkzeiten` SET `Laufende_Nr` = ?, `Von` = ?, `Bis` = ?, `Dauer` = ?, `Dauer_Minuten` = ?, `Kennzeichen` = ? WHERE ((`ParkzeitID` = ?) AND ((? = 1 AND `Laufende_Nr` IS NULL) OR (`Laufende_Nr` = ?)) AND ((? = 1 AND `Von` IS NULL) OR (`Von` = ?)) AND ((? = 1 AND `Bis` IS NULL) OR (`Bis` = ?)) AND ((? = 1 AND `Dauer` IS NULL) OR (`Dauer` = ?)) AND ((? = 1 AND `Dauer_Minuten` IS NULL) OR (`Dauer_Minuten` = ?)) AND ((? = 1 AND `Kennzeichen` IS NULL) OR (`Kennzeichen` = ?)))</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Laufende_Nr" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Laufende_Nr" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Von" Precision="0" ProviderType="Date" Scale="0" Size="0" SourceColumn="Von" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Bis" Precision="0" ProviderType="Date" Scale="0" Size="0" SourceColumn="Bis" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Dauer" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="Dauer" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Dauer_Minuten" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Dauer_Minuten" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Kennzeichen" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="Kennzeichen" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Original_ParkzeitID" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="ParkzeitID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Laufende_Nr" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Laufende_Nr" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Original_Laufende_Nr" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Laufende_Nr" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Von" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Von" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Original_Von" Precision="0" ProviderType="Date" Scale="0" Size="0" SourceColumn="Von" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Bis" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Bis" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Original_Bis" Precision="0" ProviderType="Date" Scale="0" Size="0" SourceColumn="Bis" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Dauer" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Dauer" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Original_Dauer" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="Dauer" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Dauer_Minuten" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Dauer_Minuten" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="Original_Dauer_Minuten" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Dauer_Minuten" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_Kennzeichen" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="Kennzeichen" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Original_Kennzeichen" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="Kennzeichen" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </UpdateCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="ParkzeitID" DataSetColumn="ParkzeitID" />
+              <Mapping SourceColumn="Laufende_Nr" DataSetColumn="Laufende_Nr" />
+              <Mapping SourceColumn="Von" DataSetColumn="Von" />
+              <Mapping SourceColumn="Bis" DataSetColumn="Bis" />
+              <Mapping SourceColumn="Dauer" DataSetColumn="Dauer" />
+              <Mapping SourceColumn="Dauer_Minuten" DataSetColumn="Dauer_Minuten" />
+              <Mapping SourceColumn="Kennzeichen" DataSetColumn="Kennzeichen" />
+            </Mappings>
+            <Sources />
+          </TableAdapter>
+        </Tables>
+        <Sources />
+      </DataSource>
+    </xs:appinfo>
+  </xs:annotation>
+  <xs:element name="ParkzeitDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="ParkzeitDataSet" msprop:Generator_UserDSName="ParkzeitDataSet">
+    <xs:complexType>
+      <xs:choice minOccurs="0" maxOccurs="unbounded">
+        <xs:element name="Parkzeiten" msprop:Generator_TableClassName="ParkzeitenDataTable" msprop:Generator_TableVarName="tableParkzeiten" msprop:Generator_TablePropName="Parkzeiten" msprop:Generator_RowDeletingName="ParkzeitenRowDeleting" msprop:Generator_UserTableName="Parkzeiten" msprop:Generator_RowChangingName="ParkzeitenRowChanging" msprop:Generator_RowEvHandlerName="ParkzeitenRowChangeEventHandler" msprop:Generator_RowDeletedName="ParkzeitenRowDeleted" msprop:Generator_RowEvArgName="ParkzeitenRowChangeEvent" msprop:Generator_RowChangedName="ParkzeitenRowChanged" msprop:Generator_RowClassName="ParkzeitenRow">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="ParkzeitID" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnParkzeitID" msprop:Generator_ColumnPropNameInRow="ParkzeitID" msprop:Generator_ColumnPropNameInTable="ParkzeitIDColumn" msprop:Generator_UserColumnName="ParkzeitID" type="xs:int" />
+              <xs:element name="Laufende_Nr" msprop:Generator_ColumnVarNameInTable="columnLaufende_Nr" msprop:Generator_ColumnPropNameInRow="Laufende_Nr" msprop:Generator_ColumnPropNameInTable="Laufende_NrColumn" msprop:Generator_UserColumnName="Laufende_Nr" type="xs:int" minOccurs="0" />
+              <xs:element name="Von" msprop:Generator_ColumnVarNameInTable="columnVon" msprop:Generator_ColumnPropNameInRow="Von" msprop:Generator_ColumnPropNameInTable="VonColumn" msprop:Generator_UserColumnName="Von" type="xs:dateTime" minOccurs="0" />
+              <xs:element name="Bis" msprop:Generator_ColumnVarNameInTable="columnBis" msprop:Generator_ColumnPropNameInRow="Bis" msprop:Generator_ColumnPropNameInTable="BisColumn" msprop:Generator_UserColumnName="Bis" type="xs:dateTime" minOccurs="0" />
+              <xs:element name="Dauer" msprop:Generator_ColumnVarNameInTable="columnDauer" msprop:Generator_ColumnPropNameInRow="Dauer" msprop:Generator_ColumnPropNameInTable="DauerColumn" msprop:Generator_UserColumnName="Dauer" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="255" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="Dauer_Minuten" msprop:Generator_ColumnVarNameInTable="columnDauer_Minuten" msprop:Generator_ColumnPropNameInRow="Dauer_Minuten" msprop:Generator_ColumnPropNameInTable="Dauer_MinutenColumn" msprop:Generator_UserColumnName="Dauer_Minuten" type="xs:int" minOccurs="0" />
+              <xs:element name="Kennzeichen" msprop:Generator_ColumnVarNameInTable="columnKennzeichen" msprop:Generator_ColumnPropNameInRow="Kennzeichen" msprop:Generator_ColumnPropNameInTable="KennzeichenColumn" msprop:Generator_UserColumnName="Kennzeichen" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+      </xs:choice>
+    </xs:complexType>
+    <xs:unique name="Constraint1" msdata:PrimaryKey="true">
+      <xs:selector xpath=".//mstns:Parkzeiten" />
+      <xs:field xpath="mstns:ParkzeitID" />
+    </xs:unique>
+  </xs:element>
+</xs:schema>

Parkzeit/ParkzeitDataSet.xss

@@ -0,0 +1 @@
+

Parkzeit/Resources/Versionsinfo.txt

@@ -0,0 +1,24 @@
+Version 1.2.1  19.03.2015 (Luxbauer Andreas)
+- Umstellung auf SQLConnection
+
+Version 1.2.0  11.12.2014 (Luxbauer Andreas)
+- Anbindung SQL Server
+- Bugfix Programmstart
+
+Version 1.1.0  19.10.2013
+NEU: Trennung der Abrechnung nach LKW-Kennzeichen
+-Ungarn (die ersten drei Stellen sind Buchstaben)
+-Rum<75>nien (die erste oder zweite Stelle ist ein Buchstabe)
+-Sonstige (die ersten beiden Stellen sind Ziffern)
+KORREKTUR: Spaltengr<67><72>e bei Gesamtsumme erweitert (ansonsten erfolgte Zeilenumbruch)
+
+Version 1.0.0  30.07.2013
+Freigabe des Programms f<>r den Echtbetrieb
+
+Version 0.9.0  28.07.2013
+Beta-Version f<>r erste Tests
+
+Neues Programm nach Vereinbarung mit Siener Josef am 22.07.2013
+Zweck: Erfassung und Berechnung der Parkzeiten f<>r Waberer's LKWs
+
+

Parkzeit/SelectQuery.vb

@@ -0,0 +1 @@
+

Parkzeit/cDatenbank.vb

@@ -0,0 +1,281 @@
+Imports System.Data
+'Imports System.Data.OleDb
+'Imports System.IOSystem.Data.SqlClient.System.Data.SqlClient.SqlConnection
+Imports Parkzeit.cMeineFunktionen
+'Imports System.Data.SqlClient
+'Using oConn As System.Data.System.Data.SqlClient.System.Data.SqlClient.SqlConnection = New System.Data.System.Data.SqlClient.System.Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("tps_write").ConnectionString())
+
+Public Class cDatenbank
+    Public Shared Function GetNewOpenConnection() As System.Data.SqlClient.SqlConnection
+        Dim conn As New System.Data.SqlClient.SqlConnection
+        conn.ConnectionString = My.Resources.connectionString_PROD
+        conn.Open()
+        Return conn
+    End Function
+End Class
+
+Public Class cOptionen
+
+    Property OptionID As Integer
+    Property Kosten_je_Stunde As Double
+End Class
+
+Public Class cOptionenDAL
+    Public Function LesenOptionen() As cOptionen
+        'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
+        Dim sql As String = "SELECT * FROM Optionen WHERE OptionID = 0"
+        Dim daten As cOptionen = Nothing
+
+        Try
+            Using conn As System.Data.SqlClient.SqlConnection = cDatenbank.GetNewOpenConnection()
+                Using cmd As New System.Data.SqlClient.SqlCommand(sql, conn)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.HasRows Then
+                        dr.Read()
+                        daten = New cOptionen()
+                        Try
+                            daten.OptionID = 0
+                            daten.Kosten_je_Stunde = VarToDbl(dr.Item("Kosten_je_Stunde"))
+                        Catch ex As Exception
+                            MsgBox("Fehler beim Einlesen der Optionen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
+                        End Try
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+            Return daten
+        Catch ex As Exception
+            MsgBox("Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
+            Return Nothing
+        End Try
+    End Function
+
+    Public Sub SpeichernOptionen(ByVal d As cOptionen)
+        Dim hAuswahl As String = ""
+
+        'Änderung
+        hAuswahl = String.Format(
+                   "UPDATE Optionen SET Kosten_je_Stunde = @Kosten_je_Stunde WHERE OptionID = 0", _
+                      d.Kosten_je_Stunde)
+        Dim sql = hAuswahl
+        Using conn As System.Data.SqlClient.SqlConnection = cDatenbank.GetNewOpenConnection()
+            Using cmd As New System.Data.SqlClient.SqlCommand(sql, conn)
+                cmd.Parameters.AddWithValue("@Kosten_je_Stunde", d.Kosten_je_Stunde)
+                Try
+                    cmd.ExecuteNonQuery()
+                Catch ex As Exception
+                    MsgBox("Optionen können nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern")
+                End Try
+            End Using
+        End Using
+    End Sub
+
+End Class
+
+Public Class cParkzeit
+    Property ParkzeitID As Integer
+    Property Von As Date
+    Property Bis As Date
+    Property Dauer As String
+    Property Dauer_Minuten As Integer
+    Property Kennzeichen As String
+    Property Laufende_Nr As Integer
+End Class
+
+Public Class cParkzeitDruck
+    'alle notwendigen Druckfelder - müssen immer String sein !
+    Property ParkzeitID As String
+    Property Von As String
+    Property Bis As String
+    Property Dauer As String
+    Property Dauer_Minuten As String
+    Property Kennzeichen As String
+    Property Laufende_Nr As String
+    Property Kosten As String
+End Class
+
+Public Class cParkzeitenDAL
+
+    Public Function AnzeigeTabelle(hSQL As String) As DataTable
+        While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
+            Try
+                Dim myTable = New DataTable()
+                Using conn As System.Data.SqlClient.SqlConnection = cDatenbank.GetNewOpenConnection()
+                    Using cmd As New System.Data.SqlClient.SqlCommand(hSQL, conn)
+                        Dim dr = cmd.ExecuteReader()
+                        myTable.Load(dr)
+                        dr.Close()
+                    End Using
+                End Using
+                Return myTable  'While Schleife wird hier verlassen
+            Catch ex As Exception
+                Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
+                                              "Problem in Function 'AnzeigeTabelle'")
+                If antwort <> MsgBoxResult.Retry Then
+                    'Programm wird beendet
+                    MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
+                    Environment.Exit(0)
+                End If
+            End Try
+        End While
+
+        Return Nothing
+    End Function
+
+    Public Function LesenParkzeit(hID As Integer, hSQL As String) As cParkzeit
+        'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
+        Dim sql As String
+        If hID > 0 Then
+            sql = "SELECT * FROM Parkzeiten WHERE ParkzeitID = " & hID
+        Else
+            sql = hSQL
+        End If
+
+        Dim daten As cParkzeit = Nothing
+        Try
+            Using conn As System.Data.SqlClient.SqlConnection = cDatenbank.GetNewOpenConnection()
+                Using cmd As New System.Data.SqlClient.SqlCommand(sql, conn)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.HasRows Then
+                        dr.Read()
+                        daten = New cParkzeit()
+                        daten.ParkzeitID = VarToInt(dr.Item("ParkzeitID"))
+                        daten.Von = CDate(dr.Item("Von"))
+                        daten.Bis = CDate(dr.Item("Bis"))
+                        daten.Dauer = VarToStr(dr.Item("Dauer"))
+                        daten.Dauer_Minuten = VarToInt(dr.Item("Dauer_Minuten"))
+                        daten.Kennzeichen = VarToStr(dr.Item("Kennzeichen"))
+                        daten.Laufende_Nr = VarToInt(dr.Item("Laufende_Nr"))
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+            Return daten
+        Catch ex As Exception
+            MsgBox("Fehler bei LesenParkzeit: " & ex.Message)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Sub SpeichernParkzeit(ByVal d As cParkzeit)
+        Dim hAuswahl As String
+        If d.ParkzeitID = 0 Then
+            'Neuanlage
+            hAuswahl = "INSERT INTO Parkzeiten " &
+                       "(Von, Bis, Dauer, Dauer_Minuten, Kennzeichen, Laufende_Nr) VALUES " &
+                       "(@Von, @Bis, @Dauer, @Dauer_Minuten, @Kennzeichen, @Laufende_Nr)"
+        Else
+            'Änderung
+            hAuswahl = String.Format(
+                       "UPDATE Parkzeiten SET Von = @Von, Bis = @Bis, Dauer = @Dauer, Dauer_Minuten = @Dauer_Minuten, Kennzeichen = @Kennzeichen, Laufende_Nr = @Laufende_Nr " &
+                       " WHERE ParkzeitID = @ParkzeitID", _
+                          d.Von, d.Bis, d.Dauer, d.Dauer_Minuten, d.Kennzeichen, d.Laufende_Nr, d.ParkzeitID)
+        End If
+
+
+        Dim sql = hAuswahl
+        Using conn As System.Data.SqlClient.SqlConnection = cDatenbank.GetNewOpenConnection()
+            Using cmd As New System.Data.SqlClient.SqlCommand(sql, conn)
+                cmd.Parameters.AddWithValue("@Von", SQLDatumZeitWithOutSemi(d.Von))
+                cmd.Parameters.AddWithValue("@Bis", SQLDatumZeitWithOutSemi(d.Bis))
+                cmd.Parameters.AddWithValue("@Dauer", d.Dauer)
+                cmd.Parameters.AddWithValue("@Dauer_Minuten", d.Dauer_Minuten)
+                cmd.Parameters.AddWithValue("@Kennzeichen", d.Kennzeichen)
+                cmd.Parameters.AddWithValue("@Laufende_Nr", d.Laufende_Nr)
+                If Not d.ParkzeitID = 0 Then cmd.Parameters.AddWithValue("@ParkzeitID", d.ParkzeitID)
+
+
+                Try
+                    cmd.ExecuteNonQuery()
+                Catch ex As Exception
+                    MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Parkzeit")
+                End Try
+            End Using
+        End Using
+
+    End Sub
+
+    Public Sub LöschenParkZeit(ByVal hID As Integer)
+        Dim sql As String = "DELETE FROM Parkzeiten WHERE ParkzeitID = " & hID
+        Using conn As System.Data.SqlClient.SqlConnection = cDatenbank.GetNewOpenConnection()
+            Using cmd As New System.Data.SqlClient.SqlCommand(sql, conn)
+                Try
+                    cmd.ExecuteNonQuery()
+                Catch ex As Exception
+                    MsgBox("Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
+                End Try
+            End Using
+        End Using
+    End Sub
+
+    Public Function LeseDatenFürExport(hSQL As String, hDatei As String) As Long
+
+        Dim anz As Long
+        Dim textFile As IO.StreamWriter = IO.File.CreateText(hDatei)
+
+        'Spaltenüberschriften
+        Dim x As String = "Laufende_Nr;Einfahrt;Ausfahrt;Kennzeichen;Dauer;Dauer_Minuten"
+        textFile.WriteLine(x)
+
+        Using conn As System.Data.SqlClient.SqlConnection = cDatenbank.GetNewOpenConnection()
+
+            Using cmd As New System.Data.SqlClient.SqlCommand(hSQL, conn)
+                Dim dr = cmd.ExecuteReader()
+                If dr.HasRows Then
+                    While dr.Read()
+                        x = ""
+                        x &= VarToInt(dr.Item("Laufende_Nr")).ToString & ";"
+                        x &= Format(CDate(VarToDate(dr.Item("Von"))), "yyyy.MM.dd HH:mm") & ";"
+                        x &= Format(CDate(VarToDate(dr.Item("Bis"))), "yyyy.MM.dd HH:mm") & ";"
+                        x &= VarToStr(dr.Item("Kennzeichen")) & ";"
+                        x &= VarToStr(dr.Item("Dauer")) & "h;"
+                        x &= VarToInt(dr.Item("Dauer_Minuten"))
+                        textFile.WriteLine(x)
+                        anz += 1
+                    End While
+                End If
+                dr.Close()
+            End Using
+        End Using
+
+        textFile.Close()
+
+        Return anz   'Anzahl retour geben
+    End Function
+
+    Public Function LeseParkzeitenFürDruck(hSQL As String, hKosten As Double) As List(Of cParkzeitDruck)
+        'Dim sql As String
+        'sql = "SELECT * FROM Bilanzen, Bilanzarten, Kunden WHERE (Kunden.Sachbear = 'STW' OR Kunden.Sachbear = 'GRO') AND Bilanzarten.BilanzartID = Bilanzen.BilanzartID AND Kunden.KundeID = Bilanzen.KundeID"
+
+        'MsgBox("SQL:" & vbCrLf & hSQL)
+
+        Dim datenListe As List(Of cParkzeitDruck) = New List(Of cParkzeitDruck)
+        Dim datensatz As cParkzeitDruck
+
+        Using conn As System.Data.SqlClient.SqlConnection = cDatenbank.GetNewOpenConnection()
+
+            Using cmd As New System.Data.SqlClient.SqlCommand(hSQL, conn)
+                Dim dr = cmd.ExecuteReader()
+                If (dr.HasRows) Then
+                    While dr.Read()
+                        datensatz = New cParkzeitDruck()
+                        datensatz.ParkzeitID = VarToInt(dr.Item("ParkzeitID")).ToString
+                        datensatz.Von = Format(CDate(dr.Item("Von")), "dd.MM.yyyy HH:mm")
+                        datensatz.Bis = Format(CDate(dr.Item("Bis")), "dd.MM.yyyy HH:mm")
+                        datensatz.Dauer = VarToStr(dr.Item("Dauer"))
+                        datensatz.Dauer_Minuten = VarToStr(dr.Item("Dauer_Minuten"))
+                        datensatz.Kennzeichen = VarToStr(dr.Item("Kennzeichen"))
+                        datensatz.Laufende_Nr = VarToInt(dr.Item("Laufende_Nr")).ToString
+                        datensatz.Kosten = "" 'Berechnung pro Eintrag notwendig/sinnvoll?
+                        datenListe.Add(datensatz)
+                    End While
+                End If
+                dr.Close()
+            End Using
+        End Using
+
+
+        Return datenListe
+    End Function
+
+End Class

Parkzeit/cGlobal.vb

@@ -0,0 +1,14 @@
+'Imports System.Data.OleDb
+
+'Public Class cGlobal
+'  'Public Shared ConnStr As String
+'  Public Shared AufrufenderProzess As AufrufenderProzess
+'  Public Shared Aktive_ID As Integer
+'  Public Shared Optionen As New cOptionen
+'  Public Shared AngemeldeterUser As String
+'End Class
+
+'Public Enum AufrufenderProzess
+'  Programm1 = 1
+'  Programm2 = 2
+'End Enum

Parkzeit/cMeineFunktionen.vb

@@ -0,0 +1,167 @@
+Public Class cMeineFunktionen
+  'Diese Klasse beinhaltet alle meine Funktionen, die in allen Projekten verwendet werden können
+
+  Public Const LeerDatum As Date = #12/30/1899#   'wird als leerer Datumswert verwendet, da sonst Probleme bei Null/Date
+
+    Public Shared Function SQLDatum(dat As Date) As String
+        'Datum für SQLAbfrage umwandeln (31.01.1998 --> #1/31/1998#)
+        SQLDatum = ""
+
+        If Not IsDate(dat) Then Exit Function
+        SQLDatum = "'" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " 00:00:00'"
+        'SQLDatum = dat.ToString
+    End Function
+
+    Public Shared Function SQLDatumWithOutSemi(dat As Date) As String
+        'Datum für SQLAbfrage umwandeln (31.01.1998 --> #1/31/1998#)
+        SQLDatumWithOutSemi = ""
+
+        If Not IsDate(dat) Then Exit Function
+        SQLDatumWithOutSemi = "" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " 00:00:00"
+        'SQLDatum = dat.ToString
+    End Function
+
+  Public Shared Function SQLDatumZeit(dat As Date) As String
+    'Datum inklusive Zeit für SQLAbfrage umwandeln (31.01.1998 10:15 Uhr --> #1/31/1998 10:15:00#)
+        SQLDatumZeit = ""
+
+
+    If Not IsDate(dat) Then Exit Function
+        SQLDatumZeit = "'" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " " &
+                  DateAndTime.Hour(dat) & ":" & DateAndTime.Minute(dat) & ":" & DateAndTime.Second(dat) & "'"
+
+
+  End Function
+
+
+    Public Shared Function SQLDatumZeitWithOutSemi(dat As Date) As String
+        'Datum inklusive Zeit für SQLAbfrage umwandeln (31.01.1998 10:15 Uhr --> #1/31/1998 10:15:00#)
+        SQLDatumZeitWithOutSemi = ""
+
+
+        If Not IsDate(dat) Then Exit Function
+        SQLDatumZeitWithOutSemi = "" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " " &
+                    DateAndTime.Hour(dat) & ":" & DateAndTime.Minute(dat) & ":" & DateAndTime.Second(dat) & ""
+
+
+    End Function
+
+  Public Shared Function GetProgrammIcon() As Drawing.Icon
+    Return My.Resources.Parkschild
+  End Function
+
+  Public Shared Function VarToInt(ByVal wert As Object) As Integer
+    Try
+      If wert Is Nothing OrElse wert Is DBNull.Value Then
+        Return 0
+      Else
+        Return CInt(wert)
+      End If
+    Catch generatedExceptionName As Exception
+      Return 0
+    End Try
+  End Function
+
+  Public Shared Function VarToLng(ByVal wert As Object) As Long
+    Try
+      If wert Is Nothing OrElse wert Is DBNull.Value Then
+        Return 0
+      Else
+        Return CLng(wert)
+      End If
+    Catch generatedExceptionName As Exception
+      Return 0
+    End Try
+  End Function
+
+  Public Shared Function VarToDbl(ByVal wert As Object) As Double
+    Try
+      If wert Is Nothing OrElse wert Is DBNull.Value Then
+        Return 0
+      Else
+        Return CDbl(wert)
+      End If
+    Catch generatedExceptionName As Exception
+      Return 0
+    End Try
+  End Function
+
+  Public Shared Function VarToBool(ByVal wert As Object) As Boolean
+    Try
+      If wert Is Nothing OrElse wert Is DBNull.Value Then
+        Return False
+      Else
+        Return CBool(wert)
+      End If
+    Catch generatedExceptionName As Exception
+      Return False
+    End Try
+  End Function
+
+  Public Shared Function VarToStr(ByVal wert As Object) As String
+    Try
+      If wert Is Nothing OrElse wert Is DBNull.Value Then
+        Return ""
+      Else
+        Return Trim(DirectCast(wert, String))
+      End If
+    Catch generatedExceptionName As Exception
+      Return ""
+    End Try
+  End Function
+
+  Public Shared Function VarToDate(ByVal wert As Object) As Nullable(Of DateTime)
+    Try
+      If wert Is Nothing OrElse wert Is DBNull.Value Then
+        Return LeerDatum  'Nothing
+      Else
+        Return DirectCast(wert, DateTime)
+      End If
+    Catch generatedExceptionName As Exception
+      Return Nothing
+    End Try
+  End Function
+
+  Public Shared Function IstGleich(i As Integer, ParamArray list As Integer()) As Boolean
+    'prüft, ob ein Wert in einer Liste enthalten ist - z.B. i = 5 or 7 or 11 or 29
+    For x As Integer = 0 To list.Length - 1
+      If list(x) = i Then
+        Return True
+      End If
+      On Error Resume Next
+    Next
+    Return False
+  End Function
+
+  Public Shared Function Minuten_auf_Text(hMinuten As Long) As String
+    Dim hStunden As Long
+    Dim hMinus As Boolean
+    Dim hMin As Long
+
+    Minuten_auf_Text = ""
+    hMin = hMinuten
+
+    If hMin = 0 Then
+      Minuten_auf_Text = "0:00"
+      Exit Function
+    End If
+
+    If hMin < 0 Then
+      hMinus = True
+      hMin = hMin * -1
+    End If
+
+    hStunden = CLng(Fix(hMin / 60))
+    hMin = hMin - (hStunden * 60)
+    If hMinus Then Minuten_auf_Text = "-" 'Minus wird nur bei Stunden angezeigt
+    Minuten_auf_Text = Minuten_auf_Text & hStunden & ":" & Format(hMin, "00")
+  End Function
+
+  Public Shared Function ZeitInMinuten(hDat As Date) As Long
+    ZeitInMinuten = 0
+    If Not IsDate(hDat) Then Exit Function
+    ZeitInMinuten = Hour(hDat) * 60 + Minute(hDat)
+  End Function
+
+
+End Class

Parkzeit/frmAuswahl_Abrechnung.designer.vb

@@ -0,0 +1,234 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmAuswahl_Abrechnung
+  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(frmAuswahl_Abrechnung))
+        Me.btnDruck = New System.Windows.Forms.Button()
+        Me.btnAbbruch = New System.Windows.Forms.Button()
+        Me.txtKosten = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.dtpBis = New System.Windows.Forms.DateTimePicker()
+        Me.dtpVon = New System.Windows.Forms.DateTimePicker()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.btnCheck = New System.Windows.Forms.Button()
+        Me.btnExport = New System.Windows.Forms.Button()
+        Me.optAlle = New System.Windows.Forms.RadioButton()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.optUngarn = New System.Windows.Forms.RadioButton()
+        Me.optRumänien = New System.Windows.Forms.RadioButton()
+        Me.optSonstige = New System.Windows.Forms.RadioButton()
+        Me.SuspendLayout()
+        '
+        'btnDruck
+        '
+        Me.btnDruck.Location = New System.Drawing.Point(94, 285)
+        Me.btnDruck.Name = "btnDruck"
+        Me.btnDruck.Size = New System.Drawing.Size(80, 40)
+        Me.btnDruck.TabIndex = 7
+        Me.btnDruck.Text = "Drucken"
+        Me.btnDruck.UseVisualStyleBackColor = True
+        '
+        'btnAbbruch
+        '
+        Me.btnAbbruch.Location = New System.Drawing.Point(202, 285)
+        Me.btnAbbruch.Name = "btnAbbruch"
+        Me.btnAbbruch.Size = New System.Drawing.Size(80, 40)
+        Me.btnAbbruch.TabIndex = 8
+        Me.btnAbbruch.Text = "Schließen"
+        Me.btnAbbruch.UseVisualStyleBackColor = True
+        '
+        'txtKosten
+        '
+        Me.txtKosten.Location = New System.Drawing.Point(152, 74)
+        Me.txtKosten.MaxLength = 11
+        Me.txtKosten.Name = "txtKosten"
+        Me.txtKosten.Size = New System.Drawing.Size(43, 20)
+        Me.txtKosten.TabIndex = 2
+        Me.txtKosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(38, 77)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(108, 13)
+        Me.Label1.TabIndex = 5
+        Me.Label1.Text = "Kosten in € je Stunde"
+        '
+        'dtpBis
+        '
+        Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtpBis.Location = New System.Drawing.Point(246, 35)
+        Me.dtpBis.Name = "dtpBis"
+        Me.dtpBis.Size = New System.Drawing.Size(93, 20)
+        Me.dtpBis.TabIndex = 1
+        '
+        'dtpVon
+        '
+        Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtpVon.Location = New System.Drawing.Point(121, 35)
+        Me.dtpVon.Name = "dtpVon"
+        Me.dtpVon.Size = New System.Drawing.Size(93, 20)
+        Me.dtpVon.TabIndex = 0
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(220, 38)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 13)
+        Me.Label4.TabIndex = 25
+        Me.Label4.Text = "bis"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(38, 38)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(77, 13)
+        Me.Label6.TabIndex = 26
+        Me.Label6.Text = "Datum Einfahrt"
+        '
+        'btnCheck
+        '
+        Me.btnCheck.Location = New System.Drawing.Point(208, 68)
+        Me.btnCheck.Name = "btnCheck"
+        Me.btnCheck.Size = New System.Drawing.Size(80, 30)
+        Me.btnCheck.TabIndex = 3
+        Me.btnCheck.TabStop = False
+        Me.btnCheck.Text = "Check"
+        Me.btnCheck.UseVisualStyleBackColor = True
+        '
+        'btnExport
+        '
+        Me.btnExport.Location = New System.Drawing.Point(208, 104)
+        Me.btnExport.Name = "btnExport"
+        Me.btnExport.Size = New System.Drawing.Size(80, 30)
+        Me.btnExport.TabIndex = 6
+        Me.btnExport.TabStop = False
+        Me.btnExport.Text = "Export"
+        Me.btnExport.UseVisualStyleBackColor = True
+        '
+        'optAlle
+        '
+        Me.optAlle.AutoSize = True
+        Me.optAlle.Location = New System.Drawing.Point(78, 166)
+        Me.optAlle.Name = "optAlle"
+        Me.optAlle.Size = New System.Drawing.Size(73, 17)
+        Me.optAlle.TabIndex = 3
+        Me.optAlle.TabStop = True
+        Me.optAlle.Text = "alle LKWs"
+        Me.optAlle.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(38, 150)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(75, 13)
+        Me.Label2.TabIndex = 5
+        Me.Label2.Text = "Druckauswahl"
+        '
+        'optUngarn
+        '
+        Me.optUngarn.AutoSize = True
+        Me.optUngarn.Location = New System.Drawing.Point(78, 189)
+        Me.optUngarn.Name = "optUngarn"
+        Me.optUngarn.Size = New System.Drawing.Size(60, 17)
+        Me.optUngarn.TabIndex = 4
+        Me.optUngarn.TabStop = True
+        Me.optUngarn.Text = "Ungarn"
+        Me.optUngarn.UseVisualStyleBackColor = True
+        '
+        'optRumänien
+        '
+        Me.optRumänien.AutoSize = True
+        Me.optRumänien.Location = New System.Drawing.Point(78, 212)
+        Me.optRumänien.Name = "optRumänien"
+        Me.optRumänien.Size = New System.Drawing.Size(73, 17)
+        Me.optRumänien.TabIndex = 5
+        Me.optRumänien.TabStop = True
+        Me.optRumänien.Text = "Rumänien"
+        Me.optRumänien.UseVisualStyleBackColor = True
+        '
+        'optSonstige
+        '
+        Me.optSonstige.AutoSize = True
+        Me.optSonstige.Location = New System.Drawing.Point(78, 235)
+        Me.optSonstige.Name = "optSonstige"
+        Me.optSonstige.Size = New System.Drawing.Size(96, 17)
+        Me.optSonstige.TabIndex = 6
+        Me.optSonstige.TabStop = True
+        Me.optSonstige.Text = "sonstige LKWs"
+        Me.optSonstige.UseVisualStyleBackColor = True
+        '
+        'frmAuswahl_Abrechnung
+        '
+        Me.AcceptButton = Me.btnDruck
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(376, 362)
+        Me.Controls.Add(Me.optSonstige)
+        Me.Controls.Add(Me.optRumänien)
+        Me.Controls.Add(Me.optUngarn)
+        Me.Controls.Add(Me.optAlle)
+        Me.Controls.Add(Me.btnExport)
+        Me.Controls.Add(Me.btnCheck)
+        Me.Controls.Add(Me.dtpBis)
+        Me.Controls.Add(Me.dtpVon)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.txtKosten)
+        Me.Controls.Add(Me.btnAbbruch)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.btnDruck)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.KeyPreview = True
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmAuswahl_Abrechnung"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Druckauswahl Abrechnung"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+  Friend WithEvents btnDruck As System.Windows.Forms.Button
+  Friend WithEvents btnAbbruch As System.Windows.Forms.Button
+  Friend WithEvents txtKosten As System.Windows.Forms.TextBox
+  Friend WithEvents Label1 As System.Windows.Forms.Label
+  Friend WithEvents dtpBis As System.Windows.Forms.DateTimePicker
+  Friend WithEvents dtpVon As System.Windows.Forms.DateTimePicker
+  Friend WithEvents Label4 As System.Windows.Forms.Label
+  Friend WithEvents Label6 As System.Windows.Forms.Label
+  Friend WithEvents btnCheck As System.Windows.Forms.Button
+  Friend WithEvents btnExport As System.Windows.Forms.Button
+  Friend WithEvents optAlle As System.Windows.Forms.RadioButton
+  Friend WithEvents Label2 As System.Windows.Forms.Label
+  Friend WithEvents optUngarn As System.Windows.Forms.RadioButton
+  Friend WithEvents optRumänien As System.Windows.Forms.RadioButton
+  Friend WithEvents optSonstige As System.Windows.Forms.RadioButton
+End Class

Parkzeit/frmAuswahl_Abrechnung.resx

@@ -0,0 +1,180 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.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>
+        AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA
+        AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3
+        9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3
+        9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm
+        MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm
+        MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY
+        fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU
+        y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M
+        bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3/////
+        ///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////Bs6rBs6rBs6rBs6r/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwD/////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwD/////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////+AXUJmMwBmMwBmMwD/////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////+AXUJm
+        MwBmMwBmMwDBs6rBs6rBs6rBs6rBs6r/////////////////////////////////////////////////
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDUy8X/////////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwCAXUL/////
+        //////+YfWtmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
+        //////////////////////////+AXUJmMwBmMwCAXUL////////////Lv7hmMwBmMwBmMwCtmo3/////
+        //////////////////////////////////////////////////////////////////////////+AXUJm
+        MwBmMwB0SSbBs6rBs6q3p5xmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCMblj39fT/////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>

Parkzeit/frmAuswahl_Abrechnung.vb

@@ -0,0 +1,169 @@
+Imports Parkzeit.cMeineFunktionen
+Imports System.Data.OleDb
+Imports System.Data.SqlClient
+
+Public Class frmAuswahl_Abrechnung
+
+    Private Sub frmAuswahl_Abrechnung_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
+        'Escape händisch abfangen und auf Abbruch-Taste legen
+        If e.KeyCode = Keys.Escape Then
+            btnAbbruch.PerformClick()
+        End If
+    End Sub
+
+    Private Sub frmAuswahl_Abrechnung_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+        Me.CenterToParent()
+
+        'Vorschlagswerte setzen
+        dtpVon.Value = DateSerial(Now.Date.AddMonths(-1).Year, Now.Date.AddMonths(-1).Month, 1)
+        dtpBis.Value = dtpVon.Value.AddMonths(1).AddDays(-1)
+
+        txtKosten.Text = Format(frmMain.Optionen.Kosten_je_Stunde, "#0.00")
+
+        optAlle.Checked = True
+    End Sub
+
+    Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
+        'Fenster schließen
+        Me.Close()
+    End Sub
+
+    Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtKosten.GotFocus
+        'txtBilanzart.SelectAll()
+        CType(sender, TextBox).SelectAll()
+    End Sub
+
+    'Private Sub txtKosten_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtKosten.KeyPress
+    '  'Es sind nur Zahleneingaben erlaubt
+    '  Dim asc As Integer = Convert.ToInt32(e.KeyChar)
+    '  Select Case asc
+    '    'Folgende Tasten sind erlaubt
+    '    '8 = Rücktaste (Back)
+    '    '13 = Enter
+    '    '27 = Esc
+    '    '48 To 57 = 0 bis 9
+    '    Case 8, 13, 27, 48 To 57
+    '    Case Else
+    '      e.Handled = True
+    '  End Select
+    'End Sub
+
+    Private Sub btnDruck_Click(sender As System.Object, e As System.EventArgs) Handles btnDruck.Click, btnCheck.Click
+        Dim hSummeZeit As Integer
+        Dim hAnzahl As Integer
+        Dim hKosten As Double
+
+        'Logische Prüfungen vor dem Drucken
+        If dtpBis.Value < dtpVon.Value Then
+            MsgBox("Bis-Datum muß größer/gleich dem Von-Datum sein.", vbInformation)
+            dtpBis.Focus()
+            Exit Sub
+        End If
+
+        If VarToDbl(txtKosten.Text) = 0 Then
+            MsgBox("Bitte einen gültigen Kostensatz eingeben.", vbInformation)
+            txtKosten.Focus()
+            Exit Sub
+        End If
+
+        'Zusammenbau der SQL-Abfrage
+        Dim hSQL As String = "SELECT * FROM Parkzeiten WHERE Von >= " & SQLDatum(dtpVon.Value) & " AND Von <= " & SQLDatum(dtpBis.Value.AddDays(1))
+
+        Dim hauswahl As String = "Auswahl: "
+
+
+        If optUngarn.Checked Then
+            hSQL += " AND (((Left(CAST(Kennzeichen AS varchar),1))>='A' And (Left(CAST(Kennzeichen AS varchar),1))<='Z') AND ((right(left(CAST(Kennzeichen AS varchar),2),1))>='A' And (right(left(CAST(Kennzeichen AS varchar),2),1))<='Z') " &
+              "AND ((right(left(CAST(Kennzeichen AS varchar),3),1))>='A' And (right(left(CAST(Kennzeichen AS varchar),3),1))<='Z'))"
+            'hSQL += " AND Left(CAST(Kennzeichen AS varchar),1)>='A' "
+            hauswahl += "ungarische LKWs"
+        ElseIf optRumänien.Checked Then
+            hSQL += " AND (((Parkzeiten.Von)>=" & SQLDatum(dtpVon.Value) & " And (Parkzeiten.Von)<=" & SQLDatum(dtpBis.Value) &
+                    ") AND ((Left(CAST(Kennzeichen AS varchar),1))>='A' And (Left(CAST(Kennzeichen AS varchar),1))<='Z') AND ((right(left(CAST(Kennzeichen AS varchar),2),1))>='0' And " &
+                    "(right(left(CAST(Kennzeichen AS varchar),2),1))<='9')) OR (((Parkzeiten.Von)>=" & SQLDatum(dtpVon.Value) & " And (Parkzeiten.Von)<=" &
+                    SQLDatum(dtpBis.Value) & ") AND ((Left(CAST(Kennzeichen AS varchar),1))>='0' And (Left(CAST(Kennzeichen AS varchar),1))<='9') AND " &
+                    "((right(left(CAST(Kennzeichen AS varchar),2),1))>='A' And (right(left(CAST(Kennzeichen AS varchar),2),1))<='Z')) OR (((Parkzeiten.Von)>=" & SQLDatum(dtpVon.Value) &
+                    " And (Parkzeiten.Von)<=" & SQLDatum(dtpBis.Value) & ") AND ((Left(CAST(Kennzeichen AS varchar),1))>='A' And (Left(CAST(Kennzeichen AS varchar),1))<='Z') " &
+                    "AND ((right(left(CAST(Kennzeichen AS varchar),3),1))>='0' And (right(left(CAST(Kennzeichen AS varchar),3),1))<='9') AND ((right(left(CAST(Kennzeichen AS varchar),2),1))>='A' And " &
+                    "(right(left(CAST(Kennzeichen AS varchar),2),1))<='Z')) OR (((Parkzeiten.Von)>=" & SQLDatum(dtpVon.Value) & " And (Parkzeiten.Von)<=" &
+                    SQLDatum(dtpBis.Value) & ") AND ((Left(CAST(Kennzeichen AS varchar),1))>='0' And (Left(CAST(Kennzeichen AS varchar),1))<='9') AND " &
+                    "((right(left(CAST(Kennzeichen AS varchar),3),1))>='A' And (right(left(CAST(Kennzeichen AS varchar),3),1))<='Z') AND ((right(left(CAST(Kennzeichen AS varchar),2),1))>='A' And " &
+                    "(right(left(CAST(Kennzeichen AS varchar),2),1))<='Z'))"
+            hauswahl += "rumänische LKWs"
+        ElseIf optSonstige.Checked Then
+            hSQL += " AND (((Left(CAST(Kennzeichen AS varchar),1))>='0' And (Left(CAST(Kennzeichen AS varchar),1))<='9') AND ((right(left(CAST(Kennzeichen AS varchar),2),1))>='0' And (right(left(CAST(Kennzeichen AS varchar),2),1))<='9'))"
+            hauswahl += "sonstige LKWs"
+        Else
+            hauswahl += "alle"
+        End If
+
+        hSQL += " ORDER BY Laufende_Nr"
+
+
+        hSummeZeit = 0
+        hAnzahl = 0
+        Using conn As SqlConnection = cDatenbank.GetNewOpenConnection()
+            Using cmd As New SqlCommand(hSQL, conn)
+                Dim dr = cmd.ExecuteReader() 'AL: ERR
+                If Not IsNothing(dr) Then
+                    While dr.Read()
+                        hSummeZeit += VarToInt(dr.Item("Dauer_Minuten"))
+                        hAnzahl += 1
+                    End While
+                End If
+            End Using
+        End Using
+
+        'If hSummeZeit Mod 60 = 0 Then
+        'hSummeZeit = CInt(Fix(hSummeZeit / 60)) 'umgerechnet auf Stunden
+        'Else
+        'hSummeZeit = CInt(Fix(hSummeZeit / 60) + 1) 'umgerechnet auf Stunden + Aufrundung auf nächste volle Stunde
+        'End If
+
+        hKosten = hSummeZeit / 60 * VarToDbl(txtKosten.Text.Trim)
+
+
+        Dim hGesamtdauer As String = Minuten_auf_Text(hSummeZeit)
+        Dim hGesamtkosten As String = Format(hKosten, "€ #,##0.00")
+
+        'Check gedrückt -> es wird nur eine Messagebox angezeigt
+        If sender Is btnCheck Then
+
+
+            MsgBox("Für diesen Zeitraum fallen folgende Werte an: " & vbCrLf & vbCrLf &
+                   "Anzahl LKWs: " & hAnzahl & vbCrLf &
+                   "Summe Stunden: " & hGesamtdauer & vbCrLf &
+                   "Kosten: " & hGesamtkosten)
+
+            Exit Sub
+        End If
+
+        hauswahl += "; " & Format(dtpVon.Value, "dd.MM.yyyy") & " bis " &
+                                 Format(dtpBis.Value, "dd.MM.yyyy") & " / Kosten je Stunde: € " & Format(VarToDbl(txtKosten.Text), "#0.00")
+
+        Dim Auswertung As New frmDruckansicht
+        Dim Parkzeiten = New cParkzeitenDAL
+        Auswertung.BefüllenAbrechnung("Auswertung Parkzeiten Waberer's LKWs", Parkzeiten.LeseParkzeitenFürDruck(hSQL, VarToDbl(txtKosten.Text)), hauswahl, hGesamtdauer, hGesamtkosten)
+        Auswertung.Show()
+
+    End Sub
+
+    Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles btnExport.Click
+        Me.Cursor = Cursors.WaitCursor
+        btnAbbruch.Visible = False
+        btnCheck.Visible = False
+
+        'Zusammenbau der SQL-Abfrage
+        Dim hSQL As String = "SELECT * FROM Parkzeiten WHERE Von >= " & SQLDatum(dtpVon.Value) & " AND Von <= " & SQLDatum(dtpBis.Value.AddDays(1))
+        hSQL += " ORDER BY Laufende_Nr"
+        Dim hDatei As String = Application.StartupPath & "\Parkzeiten_Abrechnung_per_" & Format(Now, "yyyy_MM_dd_HH_mm") & ".csv"
+        Dim hExport As New cParkzeitenDAL
+        Dim hanz As Long = hExport.LeseDatenFürExport(hSQL, hDatei)
+
+        MsgBox("Es wurden " & hanz & " Sätze in die Datei '" & hDatei & "' exportiert.", vbInformation, "Export Parkzeiten")
+
+        Me.Cursor = Cursors.Default
+        btnAbbruch.Visible = True
+        btnCheck.Visible = True
+    End Sub
+End Class

Parkzeit/frmDruckansicht.designer.vb

@@ -0,0 +1,54 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmDruckansicht
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <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
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDruckansicht))
+        Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
+        Me.SuspendLayout()
+        '
+        'ReportViewer1
+        '
+        Me.ReportViewer1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
+        Me.ReportViewer1.Name = "ReportViewer1"
+        Me.ReportViewer1.ShowFindControls = False
+        Me.ReportViewer1.Size = New System.Drawing.Size(1185, 913)
+        Me.ReportViewer1.TabIndex = 0
+        '
+        'frmDruckansicht
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1184, 912)
+        Me.Controls.Add(Me.ReportViewer1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmDruckansicht"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Auswertung"
+        Me.ResumeLayout(False)
+
+    End Sub
+    Private WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
+End Class

Parkzeit/frmDruckansicht.resx

@@ -0,0 +1,180 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.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>
+        AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA
+        AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3
+        9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3
+        9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm
+        MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm
+        MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY
+        fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU
+        y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M
+        bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3/////
+        ///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////Bs6rBs6rBs6rBs6r/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwD/////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwD/////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////+AXUJmMwBmMwBmMwD/////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////+AXUJm
+        MwBmMwBmMwDBs6rBs6rBs6rBs6rBs6r/////////////////////////////////////////////////
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDUy8X/////////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwCAXUL/////
+        //////+YfWtmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
+        //////////////////////////+AXUJmMwBmMwCAXUL////////////Lv7hmMwBmMwBmMwCtmo3/////
+        //////////////////////////////////////////////////////////////////////////+AXUJm
+        MwBmMwB0SSbBs6rBs6q3p5xmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCMblj39fT/////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>

Parkzeit/frmDruckansicht.vb

@@ -0,0 +1,101 @@
+Imports System.IO
+Imports Microsoft.Reporting.WinForms
+
+Public Class frmDruckansicht
+
+  Public Sub BefüllenAbrechnung(ByVal titel As String, ByVal ds As IList(Of cParkzeitDruck), ByVal hAuswahl As String, _
+                                ByVal hGesamtdauer As String, ByVal hGesamtkosten As String)
+    Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc"
+    Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
+
+    Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", titel))
+    Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("SelektionText", hAuswahl))
+        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Firmenname", "VERAG Spedition AG"))
+    Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Gesamtdauer", hGesamtdauer))
+    Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Gesamtkosten", hGesamtkosten))
+    Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("KostenJeStunde", "0"))
+    'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Anwender", SystemInformation.UserName.ToString))
+    'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("SelektionText", "Selektion: angeforderte, aber nicht erhaltene Bilanzen; Sortierung nach Sachbearbeiter, Kundennr"))
+    'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("GruppierungNachBetreuer", boolToJaNein(True)))
+    Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds))
+    Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
+    Me.ReportViewer1.RefreshReport()
+
+  End Sub
+
+  'Private Sub reportVorbereiten(ByVal gruppierungNachBetreuer As Boolean, ByRef reportPath As String)
+  '  Dim doc As XDocument = XDocument.Parse(My.Resources.rptBilanzenAuswertung)
+
+  '  If Not gruppierungNachBetreuer Then
+  '    Const ns As String = "{http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition}"  'namespace
+  '    'GroupExpression entfernen
+  '    For Each groupNode As XElement In doc.Descendants(ns & "Group")
+  '      If groupNode.HasAttributes AndAlso groupNode.Attributes("Name").Count = 1 AndAlso groupNode.Attributes("Name")(0).Value = "GroupBetreuer" Then
+  '        groupNode.Elements(ns & "GroupExpressions")(0).Elements(ns & "GroupExpression")(0).Value = ""
+  '        Exit For
+  '      End If
+  '    Next
+
+  '    'Inhalt der Gruppe entfernen
+  '    For Each groupNode As XElement In doc.Descendants(ns & "Rectangle")
+  '      If groupNode.HasAttributes AndAlso groupNode.Attributes("Name").Count = 1 AndAlso groupNode.Attributes("Name")(0).Value = "GroupBetreuerRectangle" Then
+  '        groupNode.Elements(ns & "ReportItems").Remove()
+  '        Exit For
+  '      End If
+  '    Next
+
+  '    'Höhe der Gruppe auf 0 setzen
+  '    Dim row As XElement = doc.Descendants(ns & "TablixRow").First
+  '    row.Elements(ns & "Height").First.Value = "0.01625in"
+  '  End If
+
+  '  reportPath = Path.GetTempPath() & "BilanzenAuswertung.rdlc"
+  '  doc.Save(reportPath)
+  'End Sub
+
+  'Public Sub BefüllenSerienbrief(ByVal ds As IList(Of cSerienbriefdruck), ByVal hBearbeiter As String, ByVal hOrt As String, ByVal hTyp As Integer)
+  '  'Optionen laden
+  '  Dim myOptionen As New cOptionenDAL
+  '  myOptionen.OpenConnection(frmMain.connStr)
+  '  Dim optionen As cOptionen = myOptionen.LesenOptionen()
+  '  myOptionen.CloseConnection()
+
+
+  '  Dim rdlcName As String = "Bilanzen.SerienbriefAuswertung.rdlc"
+  '  Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
+  '  Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Text_Schriftart", "Arial"))
+  '  Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Text_Größe", optionen.Text_Größe & "pt"))
+  '  Dim fontWeight As String = "Default"
+  '  If (optionen.Auflistung_Fett) Then
+  '    fontWeight = "Bold"
+  '  End If
+
+  '  Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Auflistung_fett", fontWeight))
+  '  Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("BriefpartnerUndDurchwahl", hBearbeiter))
+  '  Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("GeschäftsstelleUndDatum", hOrt))
+  '  'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Kopf_Bilanz", "Kopf"))
+  '  'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Fuss_Bilanz", "Fuß"))
+  '  Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Kopf_Bilanz", "")) 'convertToHTML(hKopf)))
+  '  Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Fuss_Bilanz", "")) 'convertToHTML(hFuß)))
+  '  Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("SerienbriefDataSet", ds))
+  '  Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
+  '  Me.ReportViewer1.RefreshReport()
+  '  Me.ReportViewer1.Focus()
+
+  'End Sub
+
+
+
+
+  Private Function boolToJaNein(ByVal wert As Boolean) As String
+    If wert Then
+      Return "ja"
+    Else
+      Return "nein"
+    End If
+  End Function
+
+    Private Sub frmDruckansicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+End Class

Parkzeit/frmEintragParkzeit.Designer.vb

@@ -0,0 +1,220 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmEintragParkzeit
+    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(frmEintragParkzeit))
+        Me.btnAbbruch = New System.Windows.Forms.Button()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.dtpDatumVon = New System.Windows.Forms.DateTimePicker()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.txtKennzeichen = New System.Windows.Forms.TextBox()
+        Me.dtpUhrzeitVon = New System.Windows.Forms.DateTimePicker()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtLaufende_Nr = New System.Windows.Forms.TextBox()
+        Me.dtpUhrzeitBis = New System.Windows.Forms.DateTimePicker()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.dtpDatumBis = New System.Windows.Forms.DateTimePicker()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtDauer = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        'btnAbbruch
+        '
+        Me.btnAbbruch.Location = New System.Drawing.Point(240, 162)
+        Me.btnAbbruch.Name = "btnAbbruch"
+        Me.btnAbbruch.Size = New System.Drawing.Size(80, 40)
+        Me.btnAbbruch.TabIndex = 7
+        Me.btnAbbruch.Text = "Schließen"
+        Me.btnAbbruch.UseVisualStyleBackColor = True
+        '
+        'btnOK
+        '
+        Me.btnOK.Location = New System.Drawing.Point(102, 162)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(110, 40)
+        Me.btnOK.TabIndex = 6
+        Me.btnOK.Text = "OK -> Nächster"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'dtpDatumVon
+        '
+        Me.dtpDatumVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtpDatumVon.Location = New System.Drawing.Point(154, 55)
+        Me.dtpDatumVon.Name = "dtpDatumVon"
+        Me.dtpDatumVon.Size = New System.Drawing.Size(93, 20)
+        Me.dtpDatumVon.TabIndex = 1
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(20, 118)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(96, 13)
+        Me.Label20.TabIndex = 56
+        Me.Label20.Text = "LKW-Kennzeichen"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(20, 59)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(115, 13)
+        Me.Label14.TabIndex = 56
+        Me.Label14.Text = "Datum/Uhrzeit Einfahrt"
+        '
+        'txtKennzeichen
+        '
+        Me.txtKennzeichen.Location = New System.Drawing.Point(154, 115)
+        Me.txtKennzeichen.MaxLength = 100
+        Me.txtKennzeichen.Name = "txtKennzeichen"
+        Me.txtKennzeichen.Size = New System.Drawing.Size(249, 20)
+        Me.txtKennzeichen.TabIndex = 5
+        '
+        'dtpUhrzeitVon
+        '
+        Me.dtpUhrzeitVon.CustomFormat = "HH:mm"
+        Me.dtpUhrzeitVon.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.dtpUhrzeitVon.Location = New System.Drawing.Point(253, 55)
+        Me.dtpUhrzeitVon.MinDate = New Date(1800, 1, 1, 0, 0, 0, 0)
+        Me.dtpUhrzeitVon.Name = "dtpUhrzeitVon"
+        Me.dtpUhrzeitVon.ShowUpDown = True
+        Me.dtpUhrzeitVon.Size = New System.Drawing.Size(54, 20)
+        Me.dtpUhrzeitVon.TabIndex = 2
+        Me.dtpUhrzeitVon.Value = New Date(2013, 1, 1, 0, 0, 0, 0)
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(20, 20)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(177, 13)
+        Me.Label3.TabIndex = 56
+        Me.Label3.Text = "lfd. Nummer (von Liste übernehmen)"
+        '
+        'txtLaufende_Nr
+        '
+        Me.txtLaufende_Nr.Location = New System.Drawing.Point(203, 17)
+        Me.txtLaufende_Nr.MaxLength = 10
+        Me.txtLaufende_Nr.Name = "txtLaufende_Nr"
+        Me.txtLaufende_Nr.Size = New System.Drawing.Size(42, 20)
+        Me.txtLaufende_Nr.TabIndex = 0
+        '
+        'dtpUhrzeitBis
+        '
+        Me.dtpUhrzeitBis.CustomFormat = "HH:mm"
+        Me.dtpUhrzeitBis.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.dtpUhrzeitBis.Location = New System.Drawing.Point(253, 81)
+        Me.dtpUhrzeitBis.MinDate = New Date(1800, 1, 1, 0, 0, 0, 0)
+        Me.dtpUhrzeitBis.Name = "dtpUhrzeitBis"
+        Me.dtpUhrzeitBis.ShowUpDown = True
+        Me.dtpUhrzeitBis.Size = New System.Drawing.Size(54, 20)
+        Me.dtpUhrzeitBis.TabIndex = 4
+        Me.dtpUhrzeitBis.Value = New Date(2013, 1, 1, 0, 0, 0, 0)
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(20, 85)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(118, 13)
+        Me.Label1.TabIndex = 56
+        Me.Label1.Text = "Datum/Uhrzeit Ausfahrt"
+        '
+        'dtpDatumBis
+        '
+        Me.dtpDatumBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtpDatumBis.Location = New System.Drawing.Point(154, 81)
+        Me.dtpDatumBis.Name = "dtpDatumBis"
+        Me.dtpDatumBis.Size = New System.Drawing.Size(93, 20)
+        Me.dtpDatumBis.TabIndex = 3
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(313, 85)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(36, 13)
+        Me.Label2.TabIndex = 58
+        Me.Label2.Text = "Dauer"
+        '
+        'txtDauer
+        '
+        Me.txtDauer.BackColor = System.Drawing.SystemColors.Info
+        Me.txtDauer.ForeColor = System.Drawing.SystemColors.InfoText
+        Me.txtDauer.Location = New System.Drawing.Point(355, 82)
+        Me.txtDauer.MaxLength = 100
+        Me.txtDauer.Name = "txtDauer"
+        Me.txtDauer.ReadOnly = True
+        Me.txtDauer.Size = New System.Drawing.Size(48, 20)
+        Me.txtDauer.TabIndex = 57
+        Me.txtDauer.TabStop = False
+        Me.txtDauer.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'frmEintragParkzeit
+        '
+        Me.AcceptButton = Me.btnOK
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(423, 228)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.txtDauer)
+        Me.Controls.Add(Me.btnAbbruch)
+        Me.Controls.Add(Me.btnOK)
+        Me.Controls.Add(Me.dtpDatumBis)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.dtpDatumVon)
+        Me.Controls.Add(Me.dtpUhrzeitBis)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.dtpUhrzeitVon)
+        Me.Controls.Add(Me.txtLaufende_Nr)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.txtKennzeichen)
+        Me.Controls.Add(Me.Label20)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.KeyPreview = True
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmEintragParkzeit"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Eintrag Parkzeiten"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+  Friend WithEvents btnAbbruch As System.Windows.Forms.Button
+  Friend WithEvents btnOK As System.Windows.Forms.Button
+  Friend WithEvents dtpDatumVon As System.Windows.Forms.DateTimePicker
+  Friend WithEvents Label20 As System.Windows.Forms.Label
+  Friend WithEvents Label14 As System.Windows.Forms.Label
+  Friend WithEvents txtKennzeichen As System.Windows.Forms.TextBox
+  Friend WithEvents dtpUhrzeitVon As System.Windows.Forms.DateTimePicker
+  Friend WithEvents Label3 As System.Windows.Forms.Label
+  Friend WithEvents txtLaufende_Nr As System.Windows.Forms.TextBox
+  Friend WithEvents dtpUhrzeitBis As System.Windows.Forms.DateTimePicker
+  Friend WithEvents Label1 As System.Windows.Forms.Label
+  Friend WithEvents dtpDatumBis As System.Windows.Forms.DateTimePicker
+  Friend WithEvents Label2 As System.Windows.Forms.Label
+  Friend WithEvents txtDauer As System.Windows.Forms.TextBox
+End Class

Parkzeit/frmEintragParkzeit.resx

@@ -0,0 +1,180 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.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>
+        AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA
+        AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3
+        9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3
+        9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm
+        MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm
+        MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY
+        fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU
+        y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M
+        bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3/////
+        ///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////Bs6rBs6rBs6rBs6r/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwD/////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwD/////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////+AXUJmMwBmMwBmMwD/////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////+AXUJm
+        MwBmMwBmMwDBs6rBs6rBs6rBs6rBs6r/////////////////////////////////////////////////
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDUy8X/////////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwCAXUL/////
+        //////+YfWtmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
+        //////////////////////////+AXUJmMwBmMwCAXUL////////////Lv7hmMwBmMwBmMwCtmo3/////
+        //////////////////////////////////////////////////////////////////////////+AXUJm
+        MwBmMwB0SSbBs6rBs6q3p5xmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCMblj39fT/////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>

Parkzeit/frmEintragParkzeit.vb

@@ -0,0 +1,161 @@
+'Imports System.Windows.Forms
+Imports Parkzeit.cMeineFunktionen
+
+Public Class frmEintragParkzeit
+
+  Dim Titel_Msgbox As String = "Erfassen Parkzeiten"     'wird als Titel bei einer Msgbox verwendet
+  Dim Parkzeiten As New cParkzeitenDAL
+  Dim myParkzeit As New cParkzeit
+  Dim hÄnderung As Boolean = False
+  Dim Neuanlage As Boolean = False
+  Dim DatumVon As Date
+  Dim DatumBis As Date
+  Dim Dauer As String
+  Dim DauerMinuten As Long
+  Dim Berechnung_freigegeben As Boolean = False
+
+  Private Sub frmEintragParkzeit_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
+    'Escape händisch abfangen und auf Abbruch-Taste legen
+    If e.KeyCode = Keys.Escape Then
+      btnAbbruch.PerformClick()
+    End If
+  End Sub
+
+  Private Sub frmEintragParkzeit_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+
+    Icon = cMeineFunktionen.GetProgrammIcon
+
+    Me.CenterToParent()
+
+
+    If frmMain.Aktive_ID = 0 Then
+      'es erfolgt eine Neuanlage
+      Neuanlage = True
+
+      'Vorschlagswerte setzen
+      dtpDatumVon.Value = DateSerial(Now.AddMonths(-1).Year, Now.AddMonths(-1).Month, 1)
+      dtpDatumBis.Value = dtpDatumVon.Value
+      txtLaufende_Nr.Text = "1"
+
+    Else
+      Me.Text += " (Änderung)"
+      btnOK.Text = "Speichern"
+      'ausgewählter Datensatz wird geladen
+      myParkzeit = Parkzeiten.LesenParkzeit(frmMain.Aktive_ID, "")
+
+      'Werte(zuweisen)
+      txtLaufende_Nr.Text = myParkzeit.Laufende_Nr.ToString
+      dtpDatumVon.Value = myParkzeit.Von.Date
+      dtpUhrzeitVon.Value = myParkzeit.Von
+      dtpDatumBis.Value = myParkzeit.Bis.Date
+      dtpUhrzeitBis.Value = myParkzeit.Bis
+      txtKennzeichen.Text = myParkzeit.Kennzeichen.Trim
+      txtDauer.Text = myParkzeit.Dauer
+            DauerMinuten = myParkzeit.Dauer_Minuten
+    End If
+    hÄnderung = False
+
+    Berechnung_freigegeben = True
+
+  End Sub
+
+
+  Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
+    Me.Close()
+  End Sub
+
+
+  Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtLaufende_Nr.GotFocus, txtKennzeichen.GotFocus
+    CType(sender, TextBox).SelectAll()
+  End Sub
+
+  Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
+    'Falls keine Änderung oder Neuanlage, dann kann Fenster geschlossen werden
+
+    'Logische Prüfungen vor dem Speichern
+    If VarToInt(txtLaufende_Nr.Text) = 0 Then
+      MsgBox("Bitte eine gültige laufende Nummer eintragen.", , Titel_Msgbox)
+      txtLaufende_Nr.Focus()
+      Exit Sub
+    End If
+
+    DatumVon = dtpDatumVon.Value + dtpUhrzeitVon.Value.TimeOfDay
+    DatumBis = dtpDatumBis.Value + dtpUhrzeitBis.Value.TimeOfDay
+
+    If DatumBis <= DatumVon Then
+      MsgBox("Die Bis-Zeit ist kleiner/gleich der Von-Zeit!", , Titel_Msgbox)
+      dtpDatumVon.Focus()
+      Exit Sub
+    End If
+
+    If txtKennzeichen.Text.Trim = "" Then
+      MsgBox("Bitte das LKW-Kennzeichen eintragen.", , Titel_Msgbox)
+      txtKennzeichen.Focus()
+      Exit Sub
+    End If
+
+    'Änderungen werden gespeichert
+    myParkzeit.Laufende_Nr = VarToInt(txtLaufende_Nr.Text)
+    myParkzeit.Von = DatumVon
+    myParkzeit.Bis = DatumBis
+    myParkzeit.Kennzeichen = txtKennzeichen.Text.Trim
+    myParkzeit.Dauer = txtDauer.Text
+    myParkzeit.Dauer_Minuten = VarToInt(DauerMinuten)
+
+    Parkzeiten.SpeichernParkzeit(myParkzeit)
+
+    'bei Änderung Fenster verlassen, ansonsten können weitere Daten eingegeben werden
+    If Not Neuanlage Then
+      Me.Close()
+    Else
+      'Jetzt Fenster für nächste Eingabe vorbereiten
+      frmMain.Tabelle_anzeigen()
+
+      txtLaufende_Nr.Text = (myParkzeit.Laufende_Nr + 1).ToString
+      dtpUhrzeitVon.Value = Now.Date
+      dtpUhrzeitBis.Value = Now.Date
+      dtpDatumBis.Value = dtpDatumVon.Value.Date
+      txtKennzeichen.Text = ""
+      dtpDatumVon.Focus()
+    End If
+  End Sub
+
+
+  Private Sub dtpDatum_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpDatumVon.ValueChanged, dtpDatumBis.ValueChanged, dtpUhrzeitVon.ValueChanged, dtpUhrzeitBis.ValueChanged
+    If Not Berechnung_freigegeben Then Exit Sub
+
+    'Dauer neu berechnen
+    DatumVon = dtpDatumVon.Value + dtpUhrzeitVon.Value.TimeOfDay
+    DatumBis = dtpDatumBis.Value + dtpUhrzeitBis.Value.TimeOfDay
+    Try
+      DauerMinuten = DateDiff(DateInterval.Minute, DatumVon, DatumBis)
+      If DauerMinuten < 0 Then DauerMinuten = 0
+      Dauer = Minuten_auf_Text(DauerMinuten)
+    Catch ex As Exception
+      DauerMinuten = 0
+      Dauer = ""
+    End Try
+
+    txtDauer.Text = Dauer
+    txtDauer.Refresh()
+  End Sub
+
+  Private Sub txtZahl_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtLaufende_Nr.KeyPress
+    'Es sind nur Zahleneingaben erlaubt
+    Dim asc As Integer = Convert.ToInt32(e.KeyChar)
+    Select Case asc
+      'Folgende Tasten sind erlaubt
+      '8 = Rücktaste (Back)
+      '13 = Enter
+      '27 = Esc
+      '48 To 57 = 0 bis 9
+      Case 8, 13, 27, 48 To 57
+      Case Else
+        e.Handled = True
+    End Select
+  End Sub
+
+End Class
+
+
+

Parkzeit/frmInfo.Designer.vb

@@ -0,0 +1,226 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmInfo
+    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(frmInfo))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.btnSysteminfos = New System.Windows.Forms.Button()
+        Me.lblVersion = New System.Windows.Forms.Label()
+        Me.lblTitel = New System.Windows.Forms.Label()
+        Me.btnOKInfo = New System.Windows.Forms.Button()
+        Me.txtVersionsinfo = New System.Windows.Forms.TextBox()
+        Me.lblCopyright = New System.Windows.Forms.Label()
+        Me.lblText = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblAndi = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(76, 44)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(292, 17)
+        Me.Label1.TabIndex = 31
+        Me.Label1.Text = "Erfassung der Parkzeiten für Waberer's LKW"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(14, 16)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(64, 64)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+        Me.PictureBox1.TabIndex = 30
+        Me.PictureBox1.TabStop = False
+        '
+        'btnSysteminfos
+        '
+        Me.btnSysteminfos.Location = New System.Drawing.Point(331, 358)
+        Me.btnSysteminfos.Name = "btnSysteminfos"
+        Me.btnSysteminfos.Size = New System.Drawing.Size(79, 24)
+        Me.btnSysteminfos.TabIndex = 29
+        Me.btnSysteminfos.TabStop = False
+        Me.btnSysteminfos.Text = "Systeminfos"
+        Me.btnSysteminfos.UseVisualStyleBackColor = True
+        '
+        'lblVersion
+        '
+        Me.lblVersion.AutoSize = True
+        Me.lblVersion.BackColor = System.Drawing.Color.Transparent
+        Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblVersion.ForeColor = System.Drawing.Color.White
+        Me.lblVersion.Location = New System.Drawing.Point(76, 70)
+        Me.lblVersion.Name = "lblVersion"
+        Me.lblVersion.Size = New System.Drawing.Size(115, 20)
+        Me.lblVersion.TabIndex = 28
+        Me.lblVersion.Text = "Version 1.0.0.0"
+        '
+        'lblTitel
+        '
+        Me.lblTitel.AutoSize = True
+        Me.lblTitel.BackColor = System.Drawing.Color.Transparent
+        Me.lblTitel.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblTitel.ForeColor = System.Drawing.Color.White
+        Me.lblTitel.Location = New System.Drawing.Point(73, 13)
+        Me.lblTitel.Name = "lblTitel"
+        Me.lblTitel.Size = New System.Drawing.Size(153, 31)
+        Me.lblTitel.TabIndex = 27
+        Me.lblTitel.Text = "Parkzeiten"
+        '
+        'btnOKInfo
+        '
+        Me.btnOKInfo.Location = New System.Drawing.Point(416, 358)
+        Me.btnOKInfo.Name = "btnOKInfo"
+        Me.btnOKInfo.Size = New System.Drawing.Size(66, 24)
+        Me.btnOKInfo.TabIndex = 20
+        Me.btnOKInfo.Text = "OK"
+        Me.btnOKInfo.UseVisualStyleBackColor = True
+        '
+        'txtVersionsinfo
+        '
+        Me.txtVersionsinfo.BackColor = System.Drawing.Color.AliceBlue
+        Me.txtVersionsinfo.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtVersionsinfo.Location = New System.Drawing.Point(36, 179)
+        Me.txtVersionsinfo.Multiline = True
+        Me.txtVersionsinfo.Name = "txtVersionsinfo"
+        Me.txtVersionsinfo.ReadOnly = True
+        Me.txtVersionsinfo.ScrollBars = System.Windows.Forms.ScrollBars.Both
+        Me.txtVersionsinfo.Size = New System.Drawing.Size(446, 173)
+        Me.txtVersionsinfo.TabIndex = 26
+        Me.txtVersionsinfo.TabStop = False
+        '
+        'lblCopyright
+        '
+        Me.lblCopyright.AutoSize = True
+        Me.lblCopyright.BackColor = System.Drawing.Color.Transparent
+        Me.lblCopyright.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblCopyright.ForeColor = System.Drawing.Color.White
+        Me.lblCopyright.Location = New System.Drawing.Point(150, 133)
+        Me.lblCopyright.Name = "lblCopyright"
+        Me.lblCopyright.Size = New System.Drawing.Size(173, 14)
+        Me.lblCopyright.TabIndex = 25
+        Me.lblCopyright.Text = "© 2013 Engelsberger Andreas"
+        '
+        'lblText
+        '
+        Me.lblText.AutoSize = True
+        Me.lblText.BackColor = System.Drawing.Color.Transparent
+        Me.lblText.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblText.ForeColor = System.Drawing.Color.White
+        Me.lblText.Location = New System.Drawing.Point(33, 159)
+        Me.lblText.Name = "lblText"
+        Me.lblText.Size = New System.Drawing.Size(95, 14)
+        Me.lblText.TabIndex = 24
+        Me.lblText.Text = "Versionshistorie:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.BackColor = System.Drawing.Color.Transparent
+        Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(33, 133)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(59, 14)
+        Me.Label2.TabIndex = 22
+        Me.Label2.Text = "Copyright"
+        '
+        'lblAndi
+        '
+        Me.lblAndi.AutoSize = True
+        Me.lblAndi.BackColor = System.Drawing.Color.Transparent
+        Me.lblAndi.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.lblAndi.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAndi.ForeColor = System.Drawing.Color.White
+        Me.lblAndi.Location = New System.Drawing.Point(150, 109)
+        Me.lblAndi.Name = "lblAndi"
+        Me.lblAndi.Size = New System.Drawing.Size(126, 14)
+        Me.lblAndi.TabIndex = 23
+        Me.lblAndi.Text = "Andreas Engelsberger"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.BackColor = System.Drawing.Color.Transparent
+        Me.Label7.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.ForeColor = System.Drawing.Color.White
+        Me.Label7.Location = New System.Drawing.Point(33, 109)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(96, 14)
+        Me.Label7.TabIndex = 21
+        Me.Label7.Text = "Programmierung"
+        '
+        'frmInfo
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.SteelBlue
+        Me.ClientSize = New System.Drawing.Size(494, 394)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.btnSysteminfos)
+        Me.Controls.Add(Me.lblVersion)
+        Me.Controls.Add(Me.lblTitel)
+        Me.Controls.Add(Me.btnOKInfo)
+        Me.Controls.Add(Me.txtVersionsinfo)
+        Me.Controls.Add(Me.lblCopyright)
+        Me.Controls.Add(Me.lblText)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.lblAndi)
+        Me.Controls.Add(Me.Label7)
+        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 = "frmInfo"
+        Me.Padding = New System.Windows.Forms.Padding(9)
+        Me.ShowInTaskbar = False
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Programminfo"
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+  Friend WithEvents Label1 As System.Windows.Forms.Label
+  Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+  Friend WithEvents btnSysteminfos As System.Windows.Forms.Button
+  Friend WithEvents lblVersion As System.Windows.Forms.Label
+  Friend WithEvents lblTitel As System.Windows.Forms.Label
+  Friend WithEvents btnOKInfo As System.Windows.Forms.Button
+  Friend WithEvents txtVersionsinfo As System.Windows.Forms.TextBox
+  Friend WithEvents lblCopyright As System.Windows.Forms.Label
+  Friend WithEvents lblText As System.Windows.Forms.Label
+  Friend WithEvents Label2 As System.Windows.Forms.Label
+  Friend WithEvents lblAndi As System.Windows.Forms.Label
+  Friend WithEvents Label7 As System.Windows.Forms.Label
+
+End Class

Parkzeit/frmInfo.resx

@@ -0,0 +1,198 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wgAADsIBFShKgAAAAulJREFUeF7t28lrk0EcxvFma2JsQpdIlBxysI1kKUjF9dSYW6tQWihIFIUi+BcI
+        HqSHiHiyJ0HQmwt4LygIIiLuoAcVBJeLqIh4ERUEjd+f4OVlKvMWZt4hzgMfOjn0nc5D3ryZ5G2fj4+P
+        T4iksM6gQfTD2WzBB4Pe4jmu4gR2IwtnshNdy57hKAqIPDug+iNteIWDiDRRFvDXBQwhkrhQgLiNEqzH
+        lQLEQxRhNS4VIK4hA2txrQDRgbW4WMB3bIOVaBUQi8W6iUTiM2N5Y6Mll8t9zWazf36Xx2HJqRCH8WgV
+        kMlkus1m8zDjnK7FxcXK3Nzc5Pj4+Knh4eF38XhceewV/MQkjEe7gKmpqf2MQ6fb7cY6nU55bGzsSiqV
+        Uh5/BZdhPGEKOMB41aGI/kajcS7EM+ETNsBorBUgkRLK5fI9GWqahdFYLUDSbrdbvDjKOa6cK+A0jMZ6
+        AfIsKJVK92WoQa4GRmO9AEm9Xj/JD+VcAU+QhLFEUkCtVmsnk0nlXAEvsRbGEkkBrVarnU6nlXMFvIG8
+        rzCWSAoYHR09onk5fIo0jCWKF8FYtVq9JEMNtxCDsVgvYGlpaXBkZET2C8q5As7DaKwXMDExcZyNlXIe
+        Bdl/GI3VAubn55v5fP4LQ+U8Ad+wCUZjpQDO++TMzMxsoVCQLbVyDoUbML4l1i6ABexjrB0WHV9eXh6a
+        np6erFQqFwcGBpTH/odQ8602WgXIJYsS5JJ0XRdb35vFYvG9lMfjsB5jDYxHqwDLZKO0B1biYgFnYS2u
+        FXAHeViLSwXIt8hlWI0rBTzARliPCwXIviCyr8qjLOA1DiHSRFHACxyD3EITeUwX8AMf8QhnsBdGP+AI
+        G90CfmEBckvNLk3bUcN6JOBkwhSwGT2XMAVsRc/FFwDVgoN8AfAFoOfiC4BqwUG+APgC0HPxBUC14CBf
+        AHwB6Ln89wWE+ZcZa/fv2kwDdzXI5/VV9GTkDgwdPj4+Po6nr+83T4Lt8/4YiW4AAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA
+        AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3
+        9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3
+        9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm
+        MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm
+        MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY
+        fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU
+        y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M
+        bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3/////
+        ///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////Bs6rBs6rBs6rBs6r/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwD/////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwD/////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////+AXUJmMwBmMwBmMwD/////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////+AXUJm
+        MwBmMwBmMwDBs6rBs6rBs6rBs6rBs6r/////////////////////////////////////////////////
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDUy8X/////////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwCAXUL/////
+        //////+YfWtmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
+        //////////////////////////+AXUJmMwBmMwCAXUL////////////Lv7hmMwBmMwBmMwCtmo3/////
+        //////////////////////////////////////////////////////////////////////////+AXUJm
+        MwBmMwB0SSbBs6rBs6q3p5xmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCMblj39fT/////////////////////////////////////////////////////////////////////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>

Parkzeit/frmInfo.vb

@@ -0,0 +1,78 @@
+Imports Microsoft.VisualBasic.Devices
+Imports System.Management
+
+Public Class frmInfo
+
+    Private Sub frmInfo_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
+        'Fenster bei Escape schließen
+        If e.KeyValue = Keys.Escape Then Me.Close()
+    End Sub
+
+    Private Sub frmInfo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+        lblVersion.Text = "Version " & Application.ProductVersion
+        txtVersionsinfo.Text = Parkzeit.My.Resources.Versionsinfo.ToString
+    End Sub
+
+    Private Sub btnOKInfo_Click(sender As System.Object, e As System.EventArgs) Handles btnOKInfo.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnSysteminfos_Click(sender As System.Object, e As System.EventArgs) Handles btnSysteminfos.Click
+        lblText.Text = "Systeminfos"
+
+        Dim ci As New ComputerInfo()
+
+        txtVersionsinfo.Text = "DATENBANK" & vbCrLf
+        txtVersionsinfo.Text += "Connection: " & vbTab & frmMain.ConnStrInfo & vbCrLf & vbCrLf
+
+        txtVersionsinfo.Text += "ANWENDER" & vbCrLf
+        txtVersionsinfo.Text += "Username: " & vbTab & SystemInformation.UserName.ToString & vbCrLf
+
+        Dim query2 As New SelectQuery("Win32_ComputerSystem")
+        Dim mos2 As New ManagementObjectSearcher(query2)
+
+        Dim query As New SelectQuery("Win32_Processor")
+        Dim mos As New ManagementObjectSearcher(query)
+
+        For Each mo As ManagementObject In mos2.[Get]()
+            txtVersionsinfo.Text += "Domäne: " & vbTab & vbTab & mo("Domain").ToString() & vbCrLf
+        Next
+
+        txtVersionsinfo.Text += vbCrLf & "COMPUTER" & vbCrLf
+        txtVersionsinfo.Text += "Computername: " & vbTab & SystemInformation.ComputerName.ToString & vbCrLf
+        For Each mo As ManagementObject In mos2.[Get]()
+
+            txtVersionsinfo.Text += "Computermodell: " & vbTab & mo("Manufacturer").ToString & " " & mo("Model").ToString & vbCrLf
+        Next
+        For Each mo As ManagementObject In mos.[Get]()
+            txtVersionsinfo.Text += "Prozessor: " & vbTab & mo("Name").ToString() & vbCrLf
+            txtVersionsinfo.Text += "Prozessor-Speed: " & vbTab & mo("CurrentClockSpeed").ToString() & "MHz" & vbCrLf
+        Next
+        txtVersionsinfo.Text += "verwendeter RAM: " & vbTab & Format(((New ComputerInfo()).TotalPhysicalMemory / 1024 / 1024 / 1024), "#0.00") & " GB" & vbCrLf
+        txtVersionsinfo.Text += "Monitorauflösung: " & vbTab & SystemInformation.PrimaryMonitorSize.ToString & vbCrLf
+
+        txtVersionsinfo.Text += vbCrLf & "SOFTWARE" & vbTab & vbCrLf
+        txtVersionsinfo.Text += "Betriebssystem: " & vbTab & ci.OSFullName & vbCrLf
+        txtVersionsinfo.Text += "Service Pack: " & vbTab & Environment.OSVersion.ServicePack & vbCrLf
+        txtVersionsinfo.Text += "Plattform:      " & vbTab & ci.OSPlatform & vbCrLf
+        txtVersionsinfo.Text += ".net-Framework: " & vbTab & "Version " & Environment.Version.ToString & vbCrLf
+
+        mos.Dispose()
+        mos2.Dispose()
+
+        txtVersionsinfo.Focus()
+        txtVersionsinfo.Select(1, 0)
+    End Sub
+
+    Private Sub lblVersion_Click(sender As System.Object, e As System.EventArgs) Handles lblVersion.Click
+        lblText.Text = "Versionshistorie"
+        txtVersionsinfo.Text = My.Resources.Versionsinfo.ToString
+    End Sub
+
+    Private Sub lblAndi_Click(sender As System.Object, e As System.EventArgs) Handles lblAndi.Click
+        'eMail-Programm wird gestartet werden
+        Dim hMail As String = "mailto:engelsberger@inext.at?subject=Parkzeit-Programm"
+        System.Diagnostics.Process.Start(hMail)
+    End Sub
+
+End Class

Parkzeit/frmMain.Designer.vb

@@ -0,0 +1,290 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMain
+  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(frmMain))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lblAnzahl = New System.Windows.Forms.Label()
+        Me.picLogo = New System.Windows.Forms.PictureBox()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.btnInfo = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnAuswerten = New System.Windows.Forms.Button()
+        Me.btnErfassen = New System.Windows.Forms.Button()
+        Me.dtpBis = New System.Windows.Forms.DateTimePicker()
+        Me.dtpVon = New System.Windows.Forms.DateTimePicker()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.txtSuche = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.lblSuche = New System.Windows.Forms.Label()
+        Me.gridParkzeiten = New System.Windows.Forms.DataGridView()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.mnuLöschen = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Panel1.SuspendLayout()
+        CType(Me.picLogo, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        CType(Me.gridParkzeiten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.BackColor = System.Drawing.Color.Azure
+        Me.Panel1.Controls.Add(Me.lblAnzahl)
+        Me.Panel1.Controls.Add(Me.picLogo)
+        Me.Panel1.Controls.Add(Me.Panel2)
+        Me.Panel1.Controls.Add(Me.btnAuswerten)
+        Me.Panel1.Controls.Add(Me.btnErfassen)
+        Me.Panel1.Controls.Add(Me.dtpBis)
+        Me.Panel1.Controls.Add(Me.dtpVon)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.Label14)
+        Me.Panel1.Controls.Add(Me.txtSuche)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.lblSuche)
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(680, 78)
+        Me.Panel1.TabIndex = 4
+        '
+        'lblAnzahl
+        '
+        Me.lblAnzahl.AutoSize = True
+        Me.lblAnzahl.ForeColor = System.Drawing.SystemColors.HotTrack
+        Me.lblAnzahl.Location = New System.Drawing.Point(189, 33)
+        Me.lblAnzahl.Name = "lblAnzahl"
+        Me.lblAnzahl.Size = New System.Drawing.Size(82, 13)
+        Me.lblAnzahl.TabIndex = 69
+        Me.lblAnzahl.Text = "123 ausgewählt"
+        '
+        'picLogo
+        '
+        Me.picLogo.Image = CType(resources.GetObject("picLogo.Image"), System.Drawing.Image)
+        Me.picLogo.InitialImage = Nothing
+        Me.picLogo.Location = New System.Drawing.Point(0, 3)
+        Me.picLogo.Name = "picLogo"
+        Me.picLogo.Size = New System.Drawing.Size(183, 72)
+        Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.picLogo.TabIndex = 68
+        Me.picLogo.TabStop = False
+        '
+        'Panel2
+        '
+        Me.Panel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel2.Controls.Add(Me.btnInfo)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Location = New System.Drawing.Point(627, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(53, 78)
+        Me.Panel2.TabIndex = 67
+        '
+        'btnInfo
+        '
+        Me.btnInfo.Location = New System.Drawing.Point(22, 3)
+        Me.btnInfo.Name = "btnInfo"
+        Me.btnInfo.Size = New System.Drawing.Size(28, 28)
+        Me.btnInfo.TabIndex = 68
+        Me.btnInfo.TabStop = False
+        Me.btnInfo.Text = "?"
+        Me.btnInfo.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(0, 59)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(50, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "Auswahl:"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'btnAuswerten
+        '
+        Me.btnAuswerten.Location = New System.Drawing.Point(469, 42)
+        Me.btnAuswerten.Name = "btnAuswerten"
+        Me.btnAuswerten.Size = New System.Drawing.Size(80, 30)
+        Me.btnAuswerten.TabIndex = 4
+        Me.btnAuswerten.TabStop = False
+        Me.btnAuswerten.Text = "Auswerten"
+        Me.btnAuswerten.UseVisualStyleBackColor = True
+        '
+        'btnErfassen
+        '
+        Me.btnErfassen.Location = New System.Drawing.Point(469, 8)
+        Me.btnErfassen.Name = "btnErfassen"
+        Me.btnErfassen.Size = New System.Drawing.Size(80, 30)
+        Me.btnErfassen.TabIndex = 3
+        Me.btnErfassen.TabStop = False
+        Me.btnErfassen.Text = "Erfassen"
+        Me.btnErfassen.UseVisualStyleBackColor = True
+        '
+        'dtpBis
+        '
+        Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtpBis.Location = New System.Drawing.Point(351, 31)
+        Me.dtpBis.Name = "dtpBis"
+        Me.dtpBis.Size = New System.Drawing.Size(98, 20)
+        Me.dtpBis.TabIndex = 1
+        '
+        'dtpVon
+        '
+        Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtpVon.Location = New System.Drawing.Point(351, 9)
+        Me.dtpVon.Name = "dtpVon"
+        Me.dtpVon.Size = New System.Drawing.Size(98, 20)
+        Me.dtpVon.TabIndex = 0
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(286, 33)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(59, 13)
+        Me.Label4.TabIndex = 60
+        Me.Label4.Text = "Einfahrt bis"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(286, 11)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(64, 13)
+        Me.Label14.TabIndex = 59
+        Me.Label14.Text = "Einfahrt von"
+        '
+        'txtSuche
+        '
+        Me.txtSuche.Location = New System.Drawing.Point(351, 52)
+        Me.txtSuche.MaxLength = 30
+        Me.txtSuche.Name = "txtSuche"
+        Me.txtSuche.Size = New System.Drawing.Size(98, 20)
+        Me.txtSuche.TabIndex = 2
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(189, 11)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(50, 13)
+        Me.Label3.TabIndex = 14
+        Me.Label3.Text = "Auswahl:"
+        '
+        'lblSuche
+        '
+        Me.lblSuche.AutoSize = True
+        Me.lblSuche.Location = New System.Drawing.Point(286, 55)
+        Me.lblSuche.Name = "lblSuche"
+        Me.lblSuche.Size = New System.Drawing.Size(38, 13)
+        Me.lblSuche.TabIndex = 14
+        Me.lblSuche.Text = "Suche"
+        '
+        'gridParkzeiten
+        '
+        Me.gridParkzeiten.AllowUserToAddRows = False
+        Me.gridParkzeiten.AllowUserToDeleteRows = False
+        Me.gridParkzeiten.AllowUserToResizeRows = False
+        Me.gridParkzeiten.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.gridParkzeiten.BackgroundColor = System.Drawing.SystemColors.ButtonHighlight
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.ActiveCaption
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridParkzeiten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.gridParkzeiten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.gridParkzeiten.Location = New System.Drawing.Point(0, 78)
+        Me.gridParkzeiten.MultiSelect = False
+        Me.gridParkzeiten.Name = "gridParkzeiten"
+        Me.gridParkzeiten.ReadOnly = True
+        Me.gridParkzeiten.RowHeadersVisible = False
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        Me.gridParkzeiten.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.gridParkzeiten.RowTemplate.Height = 18
+        Me.gridParkzeiten.RowTemplate.ReadOnly = True
+        Me.gridParkzeiten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.gridParkzeiten.Size = New System.Drawing.Size(680, 580)
+        Me.gridParkzeiten.TabIndex = 5
+        Me.gridParkzeiten.TabStop = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuLöschen})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(156, 26)
+        '
+        'mnuLöschen
+        '
+        Me.mnuLöschen.Name = "mnuLöschen"
+        Me.mnuLöschen.Size = New System.Drawing.Size(155, 22)
+        Me.mnuLöschen.Text = "Eintrag löschen"
+        '
+        'frmMain
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(680, 658)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.gridParkzeiten)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmMain"
+        Me.Text = "Erfassung LKW Liste Parkplatz"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.picLogo, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        CType(Me.gridParkzeiten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents txtSuche As System.Windows.Forms.TextBox
+    Friend WithEvents lblSuche As System.Windows.Forms.Label
+    Friend WithEvents gridParkzeiten As System.Windows.Forms.DataGridView
+    Friend WithEvents dtpBis As System.Windows.Forms.DateTimePicker
+    Friend WithEvents dtpVon As System.Windows.Forms.DateTimePicker
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents btnErfassen As System.Windows.Forms.Button
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents btnAuswerten As System.Windows.Forms.Button
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents picLogo As System.Windows.Forms.PictureBox
+    Friend WithEvents lblAnzahl As System.Windows.Forms.Label
+    Friend WithEvents btnInfo As System.Windows.Forms.Button
+    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents mnuLöschen As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+
+End Class

Parkzeit/frmMain.vb

@@ -0,0 +1,253 @@
+Imports System.IO
+Imports System.Windows.Forms
+Imports Parkzeit.cMeineFunktionen
+Imports System.Data.SqlClient
+Imports System.ComponentModel
+
+Public Class frmMain
+    Public Shared ConnStr As String
+    Public Shared ConnStrInfo As String
+    Public Shared Aktive_ID As Integer
+    Public Shared Optionen As New cOptionen
+    Public Shared Ausgewählte_Zeile As Integer = 0
+    Private Parkzeiten As New cParkzeitenDAL
+    Private locZeilen As Integer = -1
+    Private Anzahl As Integer
+    Private Grid_aktiv As Boolean = False
+    Private Suche_freigegeben As Boolean = False
+
+    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+        'InitializeComponent()
+        Icon = GetProgrammIcon()
+
+        ''aktuelle DB zuweisen
+        'Dim pfadDatei As String = "C:\Projekte.NET\Verag\Parkzeit\Parkzeit.accdb"
+        ' If Not File.Exists(pfadDatei) Then
+        'MsgBox("nicht gefunden: " & pfadDatei)
+        'Sonderfall zum Debuggen
+        'pfadDatei = Application.StartupPath & "\Parkzeit.accdb"
+        ' End If
+
+        ' If Not File.Exists(pfadDatei) Then
+        'MsgBox("Auf die Datenbank '" & pfadDatei & "' konnte nicht zugegriffen werden!" & vbCrLf & vbCrLf & _
+        '       "Bitte verständigen Sie den zuständigen Administrator.", vbExclamation, "Fehler Datenbank")
+        ' Environment.Exit(0)
+        'Me.Close()
+        ' End If
+        'ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & pfadDatei
+        'ConnStr = "Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=Parkzeit;uid=sa;Password=BmWr501956;"
+        'Dim tmp As String
+        'tmp = "Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=Parkzeit;"
+
+        ' ConnStrInfo = tmp & "uid=**;password=*********"
+        ' ConnStr = tmp & "uid=sa;password=BmWr501956"
+        'Server=DEVELOPER\DEVSQL;database=Parkzeit;User ID=sa;Pwd=BmWr501956
+        'jetzt noch Optionen laden
+        Dim OptionenDAL As New cOptionenDAL
+        Optionen = OptionenDAL.LesenOptionen()
+        If IsNothing(Optionen) Then
+            MsgBox("Fehler beim Laden der Optionen. Standardwerte werden eventuell nicht richtig vorgegeben.", vbCritical)
+            Me.Close()
+        End If
+
+        'Position+Größe wird in ApplicationSettings vom Formular gespeichert
+        Try
+            Me.Size = My.Settings.frmMainSize
+            Me.Location = My.Settings.frmMainPosition
+        Catch ex As Exception
+            'nix tun - Standardgröße wird somit automatisch gesetzt
+        End Try
+
+        'Vorschlagswerte vergeben
+        dtpVon.Value = DateSerial(Now.Date.AddMonths(-1).Year, Now.Date.AddMonths(-1).Month, 1)
+        dtpBis.Value = Now.Date.AddDays(1)
+        'txtKosten.Text = Format(Optionen.Kosten_je_Stunde, "#0.00")
+        dtpVon.Refresh()
+        dtpBis.Refresh()
+        'txtKosten.Refresh()
+
+        Grid_aktiv = True
+        Tabelle_anzeigen()
+
+
+        ' Spalten_festlegen()  'AL: Hat Fehler beim Start ausgelöst, wenn keine Daten vorhanden.
+
+
+        Suche_freigegeben = True
+
+    End Sub
+
+    Private Sub frmMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
+        My.Settings.frmMainSize = Me.Size
+        My.Settings.frmMainPosition = Me.Location
+        My.Settings.Save()
+        Application.Exit()
+    End Sub
+
+    Public Sub Tabelle_anzeigen()
+        Dim msStart As Long = CLng((DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds)
+        'Paint wieder reaktivieren
+        locZeilen = -1
+        If Not Grid_aktiv Then Exit Sub
+
+
+        'je nach Auswahl SQL anpassen
+        Dim hSQL As String = "SELECT * FROM Parkzeiten WHERE Von >= " & SQLDatum(dtpVon.Value) &
+                             " AND Von <= " & SQLDatum(dtpBis.Value.AddDays(1))
+
+        If txtSuche.Text <> "" Then
+            hSQL += " AND Kennzeichen LIKE '%" & txtSuche.Text & "%'"
+        End If
+
+        hSQL += " ORDER BY Laufende_Nr, Von"
+
+        gridParkzeiten.DataSource = Parkzeiten.AnzeigeTabelle(hSQL)
+
+        'Tabelle Kommt/Geht bereinigen
+        If gridParkzeiten.RowCount = 0 Then
+            gridParkzeiten.DataSource = Nothing
+        Else
+            Spalten_festlegen()
+            'AL: Sortierung nach Ausfahrt (Zeit)
+            gridParkzeiten.Sort(gridParkzeiten.Columns(3), ListSortDirection.Descending)
+        End If
+
+        'Anzeige der Anzahl gewählter/aller Datensätze
+        lblAnzahl.Text = Format(gridParkzeiten.RowCount, "#,##0") & " ausgewählt"
+        lblAnzahl.Refresh()
+
+        Dim msEnd As Long = CLng((DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds)
+        Label1.Text = "" & (msEnd - msStart) & " ms"
+
+    End Sub
+
+    Private Sub Spalten_festlegen()
+        With gridParkzeiten
+            .Columns(0).Visible = False     'ID nicht anzeigen
+
+            .Columns(1).Width = 50
+            .Columns(1).HeaderText = "lfd.Nr"
+            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns(2).Width = 120
+            .Columns(2).HeaderText = "Einfahrt"
+            .Columns(2).DefaultCellStyle.Format = "dd.MM.yyyy HH:mm"
+
+            .Columns(3).Width = 120
+            .Columns(3).HeaderText = "Ausfahrt"
+            .Columns(3).DefaultCellStyle.Format = "dd.MM.yyyy HH:mm"
+
+            .Columns(4).Width = 80
+            .Columns(4).HeaderText = "Dauer Std"
+            .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns(5).Visible = False     'Dauer in Minuten wird nicht angezeigt
+
+            .Columns(6).Width = 300
+            .Columns(6).HeaderText = "LKW-Kennzeichen"
+        End With
+
+    End Sub
+
+    Private Sub btnInfo_Click(sender As System.Object, e As System.EventArgs) Handles btnInfo.Click
+        Dim f As New frmInfo
+        f.ShowDialog(Me)
+    End Sub
+
+    Private Sub btnErfassen_Click(sender As System.Object, e As System.EventArgs) Handles btnErfassen.Click
+        Dim f As New frmEintragParkzeit
+        Aktive_ID = 0   'neue Einträge
+        f.ShowDialog(Me)
+    End Sub
+
+    Private Sub btnAuswerten_Click(sender As System.Object, e As System.EventArgs) Handles btnAuswerten.Click
+        Dim f As New frmAuswahl_Abrechnung
+        f.ShowDialog(Me)
+    End Sub
+
+    Private Sub dtpDatum_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpVon.ValueChanged, dtpBis.ValueChanged
+        If Not Suche_freigegeben Then Exit Sub
+
+        Tabelle_anzeigen()
+    End Sub
+
+    Private Sub txtSuche_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtSuche.TextChanged
+        If Not Suche_freigegeben Then Exit Sub
+
+        Tabelle_anzeigen()
+    End Sub
+
+    Private Sub gridParkzeiten_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridParkzeiten.CellMouseClick
+        'Bei Rechtsklick mit Maus die betroffene Zeile markieren
+
+        If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
+
+        If e.Button = Windows.Forms.MouseButtons.Right Then
+            gridParkzeiten.CurrentCell = gridParkzeiten.Rows(e.RowIndex).Cells(e.ColumnIndex)
+            ContextMenuStrip1.Show(Windows.Forms.Cursor.Position)
+        End If
+    End Sub
+
+
+    Private Sub gridParkzeiten_DoubleClick(sender As Object, e As System.EventArgs) Handles gridParkzeiten.DoubleClick
+        Try
+
+            Aktive_ID = CInt(gridParkzeiten.Rows(gridParkzeiten.CurrentRow.Index).Cells("ParkzeitID").Value)
+
+            Ausgewählte_Zeile = gridParkzeiten.CurrentRow.Index
+            Dim f As New frmEintragParkzeit
+            f.ShowDialog(Me)
+
+            'falls Änderung, dann die neuen Werte in Grid anzeigen
+            If Ausgewählte_Zeile >= 0 Then
+                Dim hParkzeit As cParkzeit = Parkzeiten.LesenParkzeit(Aktive_ID, "")
+                If Not IsNothing(hParkzeit) Then
+                    gridParkzeiten.Rows(Ausgewählte_Zeile).Cells(1).Value = hParkzeit.Laufende_Nr
+                    gridParkzeiten.Rows(Ausgewählte_Zeile).Cells(2).Value = hParkzeit.Von
+                    gridParkzeiten.Rows(Ausgewählte_Zeile).Cells(3).Value = hParkzeit.Bis
+                    gridParkzeiten.Rows(Ausgewählte_Zeile).Cells(4).Value = hParkzeit.Dauer
+                    gridParkzeiten.Rows(Ausgewählte_Zeile).Cells(5).Value = hParkzeit.Dauer_Minuten
+                    gridParkzeiten.Rows(Ausgewählte_Zeile).Cells(6).Value = hParkzeit.Kennzeichen
+                End If
+            End If
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+
+    Private Sub mnuLöschen_Click(sender As System.Object, e As System.EventArgs) Handles mnuLöschen.Click
+        Aktive_ID = CInt(gridParkzeiten.Rows(gridParkzeiten.CurrentRow.Index).Cells("ParkzeitID").Value)
+
+        Dim antwort = MsgBox("Möchten Sie die ausgewählte Parkzeit wirklich löschen?", CType(vbQuestion + vbYesNo + vbDefaultButton2, MsgBoxStyle), "Bilanzeintrag löschen")
+        If antwort = vbNo Then Exit Sub
+
+        Parkzeiten.LöschenParkZeit(Aktive_ID)
+
+        Tabelle_anzeigen()
+    End Sub
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs)
+        Dim conString As String
+        'conString = "Server=BEVPC\SQLExpress;database=MSDNSolve;Integrated Security=true"
+        conString = "Server=DEVELOPER\DEVSQL;database=Parkzeit;User ID=sa;Pwd=BmWr501956;" 'Application Name=MyApp
+        Dim con As SqlConnection = Nothing
+        Try
+            con = New SqlConnection(conString)
+            con.Open()
+            MessageBox.Show("Offen")
+
+        Catch ex As Exception
+            MessageBox.Show(ex.Message)
+        Finally
+            If con.State <> ConnectionState.Closed Then con.Close()
+        End Try
+        con.Dispose()
+
+        '  myConnection.ConnectionString = "Server=DEVELOPER\DEVSQL;Database=Parkzeit;Uid=sa;Pwd=BmWr501956;"
+
+    End Sub
+
+End Class