From 5bd3719e02a914051dac27c97cd2039b34f87561 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 12 Sep 2024 10:00:05 +0200 Subject: [PATCH] vers --- Parkzeit/App.config | 12 +- Parkzeit/My Project/Application.Designer.vb | 6 + Parkzeit/My Project/AssemblyInfo.vb | 6 +- Parkzeit/My Project/Settings.Designer.vb | 2 +- Parkzeit/Parkzeit.vbproj | 3 +- Parkzeit/ParkzeitDataSet.Designer.vb | 220 ++++++++++---------- Parkzeit/frmMain.vb | 2 + 7 files changed, 130 insertions(+), 121 deletions(-) diff --git a/Parkzeit/App.config b/Parkzeit/App.config index 74177c7..2da0825 100644 --- a/Parkzeit/App.config +++ b/Parkzeit/App.config @@ -1,12 +1,12 @@ - + -
+
- + @@ -20,15 +20,15 @@ - + - - + + diff --git a/Parkzeit/My Project/Application.Designer.vb b/Parkzeit/My Project/Application.Designer.vb index 993a5ce..9d68297 100644 --- a/Parkzeit/My Project/Application.Designer.vb +++ b/Parkzeit/My Project/Application.Designer.vb @@ -34,5 +34,11 @@ Namespace My Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.Parkzeit.frmMain End Sub + + _ + Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean + Me.MinimumSplashScreenDisplayTime = 0 + Return MyBase.OnInitialize(commandLineArgs) + End Function End Class End Namespace diff --git a/Parkzeit/My Project/AssemblyInfo.vb b/Parkzeit/My Project/AssemblyInfo.vb index 3b992b9..e6f3e83 100644 --- a/Parkzeit/My Project/AssemblyInfo.vb +++ b/Parkzeit/My Project/AssemblyInfo.vb @@ -18,7 +18,7 @@ Imports System.Runtime.InteropServices 'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird - + ' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: ' @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Parkzeit/My Project/Settings.Designer.vb b/Parkzeit/My Project/Settings.Designer.vb index e21b1c2..b8eedd7 100644 --- a/Parkzeit/My Project/Settings.Designer.vb +++ b/Parkzeit/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/Parkzeit/Parkzeit.vbproj b/Parkzeit/Parkzeit.vbproj index 0b1fc4b..0c61fb1 100644 --- a/Parkzeit/Parkzeit.vbproj +++ b/Parkzeit/Parkzeit.vbproj @@ -13,7 +13,7 @@ Parkzeit 512 WindowsForms - v4.7 + v4.8 false @@ -184,6 +184,7 @@ True Application.myapp + True True diff --git a/Parkzeit/ParkzeitDataSet.Designer.vb b/Parkzeit/ParkzeitDataSet.Designer.vb index ee3b7d5..a95d798 100644 --- a/Parkzeit/ParkzeitDataSet.Designer.vb +++ b/Parkzeit/ParkzeitDataSet.Designer.vb @@ -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", "17.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", "17.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", "17.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", "17.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", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.0.0.0")> _ Private Function ShouldSerializeParkzeiten() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.0.0.0")> _ Public Function NewParkzeitenRow() As ParkzeitenRow Return CType(Me.NewRow,ParkzeitenRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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/frmMain.vb b/Parkzeit/frmMain.vb index 68d2cd4..a97aff3 100644 --- a/Parkzeit/frmMain.vb +++ b/Parkzeit/frmMain.vb @@ -377,6 +377,8 @@ Public Class frmMain Dim Kosten As Double = 0.4 '!!!!!!!Standard!!!!!!! If KdNr.ToString = "717981" Then Kosten = 0.3 'Waberers + If KdNr.ToString = "402608" Then Kosten = 0.3 'Nexways + If KdNr.ToString = "402507" Then Kosten = 0.5 'TP Omerbasic Dim KostenTmp = SQL.getValueTxtBySql("SELECT TOP 1 Preis FROM [Offertenpositionen] where KundenNr='" & KdNr.ToString & "' and OffertenNr='" & OFFERETNNR_PARKEN.ToString & "' and LeistungsNr='" & LEISTUNGSNR_PARKEN.ToString & "' and Preis is not null", "FMZOLL",,, -1) If CDbl(KostenTmp) >= 0 Then