From 2bc1399617bc7891bd1586b22d6c0caa808b4905 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 22 Jun 2020 13:37:54 +0200 Subject: [PATCH] neu --- Parkzeit/App.config | 2 +- Parkzeit/My Project/Application.Designer.vb | 8 +- Parkzeit/My Project/Application.myapp | 2 +- Parkzeit/My Project/Resources.Designer.vb | 6 +- Parkzeit/My Project/Resources.resx | 8 +- Parkzeit/My Project/Settings.Designer.vb | 8 +- Parkzeit/My Project/app.manifest | 16 +- Parkzeit/Parkzeit.vbproj | 18 +- Parkzeit/ParkzeitDataSet.Designer.vb | 222 ++++++++++---------- Parkzeit/frmDruckansicht.vb | 5 +- Parkzeit/frmMain.vb | 2 +- 11 files changed, 153 insertions(+), 144 deletions(-) diff --git a/Parkzeit/App.config b/Parkzeit/App.config index 9b1ee58..53b150a 100644 --- a/Parkzeit/App.config +++ b/Parkzeit/App.config @@ -6,7 +6,7 @@ - + diff --git a/Parkzeit/My Project/Application.Designer.vb b/Parkzeit/My Project/Application.Designer.vb index 7a066bb..993a5ce 100644 --- a/Parkzeit/My Project/Application.Designer.vb +++ b/Parkzeit/My Project/Application.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.34014 +' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. @@ -14,8 +14,8 @@ Option Explicit On Namespace My - 'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern - ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. ' @@ -25,7 +25,7 @@ Namespace My Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) Me.IsSingleInstance = false - Me.EnableVisualStyles = true + Me.EnableVisualStyles = false Me.SaveMySettingsOnExit = true Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses End Sub diff --git a/Parkzeit/My Project/Application.myapp b/Parkzeit/My Project/Application.myapp index 739ea6f..3c0c27b 100644 --- a/Parkzeit/My Project/Application.myapp +++ b/Parkzeit/My Project/Application.myapp @@ -4,7 +4,7 @@ frmMain false 0 - true + false 0 true \ No newline at end of file diff --git a/Parkzeit/My Project/Resources.Designer.vb b/Parkzeit/My Project/Resources.Designer.vb index 5e89ecb..25b1f8f 100644 --- a/Parkzeit/My Project/Resources.Designer.vb +++ b/Parkzeit/My Project/Resources.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.34014 +' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -70,7 +70,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt. ''' Friend ReadOnly Property connectionString_PROD() As String Get diff --git a/Parkzeit/My Project/Resources.resx b/Parkzeit/My Project/Resources.resx index 06708d7..c5026e6 100644 --- a/Parkzeit/My Project/Resources.resx +++ b/Parkzeit/My Project/Resources.resx @@ -127,13 +127,13 @@ ..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 + + ..\Resources\parkzeit.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; - Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; - - - ..\Resources\parkzeit.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; \ No newline at end of file diff --git a/Parkzeit/My Project/Settings.Designer.vb b/Parkzeit/My Project/Settings.Designer.vb index efaa5e9..e21b1c2 100644 --- a/Parkzeit/My Project/Settings.Designer.vb +++ b/Parkzeit/My Project/Settings.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.34014 +' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. @@ -15,21 +15,21 @@ Option Explicit On Namespace My _ 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" +#Region "Automatische My.Settings-Speicherfunktion" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If diff --git a/Parkzeit/My Project/app.manifest b/Parkzeit/My Project/app.manifest index 1dcd8c6..7d83d37 100644 --- a/Parkzeit/My Project/app.manifest +++ b/Parkzeit/My Project/app.manifest @@ -1,6 +1,6 @@  - + @@ -18,29 +18,26 @@ --> + + + + - - - - - - - - - + \ No newline at end of file diff --git a/Parkzeit/Parkzeit.vbproj b/Parkzeit/Parkzeit.vbproj index 2039f96..c5bc1f3 100644 --- a/Parkzeit/Parkzeit.vbproj +++ b/Parkzeit/Parkzeit.vbproj @@ -1,5 +1,5 @@  - + Debug x86 @@ -13,7 +13,7 @@ Parkzeit 512 WindowsForms - v4.0 + v4.7 false @@ -41,6 +41,7 @@ bin\Debug\ Parkzeit.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false x86 @@ -51,6 +52,7 @@ bin\Release\ Parkzeit.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false On @@ -73,14 +75,22 @@ false + + LocalIntranet + + + true + False bin\Debug\Microsoft.ReportViewer.Common.dll + True False bin\Debug\Microsoft.ReportViewer.WinForms.dll + True @@ -195,7 +205,9 @@ Designer Resources.Designer.vb - + + Always + diff --git a/Parkzeit/ParkzeitDataSet.Designer.vb b/Parkzeit/ParkzeitDataSet.Designer.vb index 00e15e7..ee3b7d5 100644 --- a/Parkzeit/ParkzeitDataSet.Designer.vb +++ b/Parkzeit/ParkzeitDataSet.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.34014 +' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. @@ -30,7 +30,7 @@ Partial Public Class ParkzeitDataSet Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -42,7 +42,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -77,7 +77,7 @@ Partial Public Class ParkzeitDataSet End Sub _ Public ReadOnly Property Parkzeiten() As ParkzeitenDataTable @@ -87,7 +87,7 @@ Partial Public Class ParkzeitDataSet End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -100,7 +100,7 @@ Partial Public Class ParkzeitDataSet End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -109,7 +109,7 @@ Partial Public Class ParkzeitDataSet End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -118,7 +118,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -126,7 +126,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As ParkzeitDataSet = CType(MyBase.Clone,ParkzeitDataSet) cln.InitVars @@ -135,19 +135,19 @@ Partial Public Class ParkzeitDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -171,7 +171,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -180,13 +180,13 @@ Partial Public Class ParkzeitDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableParkzeiten = CType(MyBase.Tables("Parkzeiten"),ParkzeitenDataTable) If (initTable = true) Then @@ -197,7 +197,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "ParkzeitDataSet" Me.Prefix = "" @@ -209,13 +209,13 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeParkzeiten() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -223,7 +223,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As ParkzeitDataSet = New ParkzeitDataSet() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -272,7 +272,7 @@ Partial Public Class ParkzeitDataSet Return type End Function - _ + _ Public Delegate Sub ParkzeitenRowChangeEventHandler(ByVal sender As Object, ByVal e As ParkzeitenRowChangeEvent) ''' @@ -298,7 +298,7 @@ Partial Public Class ParkzeitDataSet Private columnKennzeichen As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "Parkzeiten" @@ -308,7 +308,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -326,14 +326,14 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ParkzeitIDColumn() As Global.System.Data.DataColumn Get Return Me.columnParkzeitID @@ -341,7 +341,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Laufende_NrColumn() As Global.System.Data.DataColumn Get Return Me.columnLaufende_Nr @@ -349,7 +349,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VonColumn() As Global.System.Data.DataColumn Get Return Me.columnVon @@ -357,7 +357,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BisColumn() As Global.System.Data.DataColumn Get Return Me.columnBis @@ -365,7 +365,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DauerColumn() As Global.System.Data.DataColumn Get Return Me.columnDauer @@ -373,7 +373,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Dauer_MinutenColumn() As Global.System.Data.DataColumn Get Return Me.columnDauer_Minuten @@ -381,7 +381,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property KennzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnKennzeichen @@ -389,7 +389,7 @@ Partial Public Class ParkzeitDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -398,33 +398,33 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As ParkzeitenRow Get Return CType(Me.Rows(index),ParkzeitenRow) End Get End Property - _ + _ Public Event ParkzeitenRowChanging As ParkzeitenRowChangeEventHandler - _ + _ Public Event ParkzeitenRowChanged As ParkzeitenRowChangeEventHandler - _ + _ Public Event ParkzeitenRowDeleting As ParkzeitenRowChangeEventHandler - _ + _ Public Event ParkzeitenRowDeleted As ParkzeitenRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddParkzeitenRow(ByVal row As ParkzeitenRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddParkzeitenRow(ByVal Laufende_Nr As Integer, ByVal Von As Date, ByVal Bis As Date, ByVal Dauer As String, ByVal Dauer_Minuten As Integer, ByVal Kennzeichen As String) As ParkzeitenRow Dim rowParkzeitenRow As ParkzeitenRow = CType(Me.NewRow,ParkzeitenRow) Dim columnValuesArray() As Object = New Object() {Nothing, Laufende_Nr, Von, Bis, Dauer, Dauer_Minuten, Kennzeichen} @@ -434,13 +434,13 @@ Partial Public Class ParkzeitDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByParkzeitID(ByVal ParkzeitID As Integer) As ParkzeitenRow Return CType(Me.Rows.Find(New Object() {ParkzeitID}),ParkzeitenRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As ParkzeitenDataTable = CType(MyBase.Clone,ParkzeitenDataTable) cln.InitVars @@ -448,13 +448,13 @@ Partial Public Class ParkzeitDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New ParkzeitenDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnParkzeitID = MyBase.Columns("ParkzeitID") Me.columnLaufende_Nr = MyBase.Columns("Laufende_Nr") @@ -466,7 +466,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnParkzeitID = New Global.System.Data.DataColumn("ParkzeitID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnParkzeitID) @@ -493,25 +493,25 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewParkzeitenRow() As ParkzeitenRow Return CType(Me.NewRow,ParkzeitenRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New ParkzeitenRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(ParkzeitenRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.ParkzeitenRowChangedEvent) Is Nothing) Then @@ -520,7 +520,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.ParkzeitenRowChangingEvent) Is Nothing) Then @@ -529,7 +529,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.ParkzeitenRowDeletedEvent) Is Nothing) Then @@ -538,7 +538,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.ParkzeitenRowDeletingEvent) Is Nothing) Then @@ -547,13 +547,13 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveParkzeitenRow(ByVal row As ParkzeitenRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -628,14 +628,14 @@ Partial Public Class ParkzeitDataSet Private tableParkzeiten As ParkzeitenDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableParkzeiten = CType(Me.Table,ParkzeitenDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ParkzeitID() As Integer Get Return CType(Me(Me.tableParkzeiten.ParkzeitIDColumn),Integer) @@ -646,7 +646,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Laufende_Nr() As Integer Get Try @@ -661,7 +661,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Von() As Date Get Try @@ -676,7 +676,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Bis() As Date Get Try @@ -691,7 +691,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Dauer() As String Get Try @@ -706,7 +706,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Dauer_Minuten() As Integer Get Try @@ -721,7 +721,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Kennzeichen() As String Get Try @@ -736,73 +736,73 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLaufende_NrNull() As Boolean Return Me.IsNull(Me.tableParkzeiten.Laufende_NrColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLaufende_NrNull() Me(Me.tableParkzeiten.Laufende_NrColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVonNull() As Boolean Return Me.IsNull(Me.tableParkzeiten.VonColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVonNull() Me(Me.tableParkzeiten.VonColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBisNull() As Boolean Return Me.IsNull(Me.tableParkzeiten.BisColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBisNull() Me(Me.tableParkzeiten.BisColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDauerNull() As Boolean Return Me.IsNull(Me.tableParkzeiten.DauerColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDauerNull() Me(Me.tableParkzeiten.DauerColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDauer_MinutenNull() As Boolean Return Me.IsNull(Me.tableParkzeiten.Dauer_MinutenColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDauer_MinutenNull() Me(Me.tableParkzeiten.Dauer_MinutenColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsKennzeichenNull() As Boolean Return Me.IsNull(Me.tableParkzeiten.KennzeichenColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetKennzeichenNull() Me(Me.tableParkzeiten.KennzeichenColumn) = Global.System.Convert.DBNull End Sub @@ -811,7 +811,7 @@ Partial Public Class ParkzeitDataSet ''' '''Row event argument class ''' - _ + _ Public Class ParkzeitenRowChangeEvent Inherits Global.System.EventArgs @@ -820,7 +820,7 @@ Partial Public Class ParkzeitDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As ParkzeitenRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -828,7 +828,7 @@ Partial Public Class ParkzeitDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As ParkzeitenRow Get Return Me.eventRow @@ -836,7 +836,7 @@ Partial Public Class ParkzeitDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -870,14 +870,14 @@ Namespace ParkzeitDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter Get If (Me._adapter Is Nothing) Then @@ -888,7 +888,7 @@ Namespace ParkzeitDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection Get If (Me._connection Is Nothing) Then @@ -918,7 +918,7 @@ Namespace ParkzeitDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction Get Return Me._transaction @@ -946,7 +946,7 @@ Namespace ParkzeitDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() Get If (Me._commandCollection Is Nothing) Then @@ -957,7 +957,7 @@ Namespace ParkzeitDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -968,7 +968,7 @@ Namespace ParkzeitDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -1046,7 +1046,7 @@ Namespace ParkzeitDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.OleDb.OleDbConnection() Me._connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Projekte.NET\Verag\Parkzeit\Park"& _ @@ -1054,7 +1054,7 @@ Namespace ParkzeitDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() @@ -1065,7 +1065,7 @@ Namespace ParkzeitDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As ParkzeitDataSet.ParkzeitenDataTable) As Integer @@ -1078,7 +1078,7 @@ Namespace ParkzeitDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As ParkzeitDataSet.ParkzeitenDataTable @@ -1089,35 +1089,35 @@ Namespace ParkzeitDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As ParkzeitDataSet.ParkzeitenDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As ParkzeitDataSet) As Integer Return Me.Adapter.Update(dataSet, "Parkzeiten") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_ParkzeitID As Integer, ByVal Original_Laufende_Nr As Global.System.Nullable(Of Integer), ByVal Original_Von As Global.System.Nullable(Of Date), ByVal Original_Bis As Global.System.Nullable(Of Date), ByVal Original_Dauer As String, ByVal Original_Dauer_Minuten As Global.System.Nullable(Of Integer), ByVal Original_Kennzeichen As String) As Integer @@ -1180,7 +1180,7 @@ Namespace ParkzeitDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal Laufende_Nr As Global.System.Nullable(Of Integer), ByVal Von As Global.System.Nullable(Of Date), ByVal Bis As Global.System.Nullable(Of Date), ByVal Dauer As String, ByVal Dauer_Minuten As Global.System.Nullable(Of Integer), ByVal Kennzeichen As String) As Integer @@ -1230,7 +1230,7 @@ Namespace ParkzeitDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal Laufende_Nr As Global.System.Nullable(Of Integer), ByVal Von As Global.System.Nullable(Of Date), ByVal Bis As Global.System.Nullable(Of Date), ByVal Dauer As String, ByVal Dauer_Minuten As Global.System.Nullable(Of Integer), ByVal Kennzeichen As String, ByVal Original_ParkzeitID As Integer, ByVal Original_Laufende_Nr As Global.System.Nullable(Of Integer), ByVal Original_Von As Global.System.Nullable(Of Date), ByVal Original_Bis As Global.System.Nullable(Of Date), ByVal Original_Dauer As String, ByVal Original_Dauer_Minuten As Global.System.Nullable(Of Integer), ByVal Original_Kennzeichen As String) As Integer @@ -1343,7 +1343,7 @@ Namespace ParkzeitDataSetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -1354,7 +1354,7 @@ Namespace ParkzeitDataSetTableAdapters End Property _ @@ -1368,7 +1368,7 @@ Namespace ParkzeitDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -1379,7 +1379,7 @@ Namespace ParkzeitDataSetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -1398,7 +1398,7 @@ Namespace ParkzeitDataSetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -1414,7 +1414,7 @@ Namespace ParkzeitDataSetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As ParkzeitDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._parkzeitenTableAdapter) Is Nothing) Then @@ -1433,7 +1433,7 @@ Namespace ParkzeitDataSetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As ParkzeitDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._parkzeitenTableAdapter) Is Nothing) Then @@ -1451,7 +1451,7 @@ Namespace ParkzeitDataSetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As ParkzeitDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._parkzeitenTableAdapter) Is Nothing) Then @@ -1469,7 +1469,7 @@ Namespace ParkzeitDataSetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -1495,7 +1495,7 @@ Namespace ParkzeitDataSetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As ParkzeitDataSet) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -1630,13 +1630,13 @@ Namespace ParkzeitDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -1654,7 +1654,7 @@ Namespace ParkzeitDataSetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -1665,7 +1665,7 @@ Namespace ParkzeitDataSetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -1675,7 +1675,7 @@ Namespace ParkzeitDataSetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -1687,7 +1687,7 @@ Namespace ParkzeitDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -1726,7 +1726,7 @@ Namespace ParkzeitDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/Parkzeit/frmDruckansicht.vb b/Parkzeit/frmDruckansicht.vb index 9085e6c..846057b 100644 --- a/Parkzeit/frmDruckansicht.vb +++ b/Parkzeit/frmDruckansicht.vb @@ -5,8 +5,9 @@ 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 + ' Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc" + 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)) diff --git a/Parkzeit/frmMain.vb b/Parkzeit/frmMain.vb index 9647277..4c3e402 100644 --- a/Parkzeit/frmMain.vb +++ b/Parkzeit/frmMain.vb @@ -81,7 +81,7 @@ Public Class frmMain My.Settings.frmMainSize = Me.Size My.Settings.frmMainPosition = Me.Location My.Settings.Save() - Application.Exit() + ' Application.Exit() End Sub Public Sub Tabelle_anzeigen()