'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class GästeDataSet Inherits Global.System.Data.DataSet Private tableGäste As GästeDataTable Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub _ 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 Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("Gäste")) Is Nothing) Then MyBase.Tables.Add(New GästeDataTable(ds.Tables("Gäste"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) End If Me.GetSerializationData(info, context) Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub _ Public ReadOnly Property Gäste() As GästeDataTable Get Return Me.tableGäste End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As GästeDataSet = CType(MyBase.Clone,GästeDataSet) cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("Gäste")) Is Nothing) Then MyBase.Tables.Add(New GästeDataTable(ds.Tables("Gäste"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXml(reader) Me.InitVars End If End Sub _ 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)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableGäste = CType(MyBase.Tables("Gäste"),GästeDataTable) If (initTable = true) Then If (Not (Me.tableGäste) Is Nothing) Then Me.tableGäste.InitVars End If End If End Sub _ Private Sub InitClass() Me.DataSetName = "GästeDataSet" Me.Prefix = "" Me.Namespace = "http://tempuri.org/GästeDataSet.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableGäste = New GästeDataTable() MyBase.Tables.Add(Me.tableGäste) End Sub _ Private Function ShouldSerializeGäste() As Boolean Return false End Function _ 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 End If End Sub _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As GästeDataSet = New GästeDataSet() 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() Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any.Namespace = ds.Namespace sequence.Items.Add(any) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function _ Public Delegate Sub GästeRowChangeEventHandler(ByVal sender As Object, ByVal e As GästeRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class GästeDataTable Inherits Global.System.Data.TypedTableBase(Of GästeRow) Private columnID As Global.System.Data.DataColumn Private columnNachname As Global.System.Data.DataColumn Private columnVorname As Global.System.Data.DataColumn Private columnStraße As Global.System.Data.DataColumn Private columnPLZ As Global.System.Data.DataColumn Private columnOrt As Global.System.Data.DataColumn Private columnLand As Global.System.Data.DataColumn Private columnTelefon As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn Private columnAnmerkung As Global.System.Data.DataColumn Private columnStammgast As Global.System.Data.DataColumn Private columnBlockiert As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Gäste" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ 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 _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property NachnameColumn() As Global.System.Data.DataColumn Get Return Me.columnNachname End Get End Property _ Public ReadOnly Property VornameColumn() As Global.System.Data.DataColumn Get Return Me.columnVorname End Get End Property _ Public ReadOnly Property StraßeColumn() As Global.System.Data.DataColumn Get Return Me.columnStraße End Get End Property _ Public ReadOnly Property PLZColumn() As Global.System.Data.DataColumn Get Return Me.columnPLZ End Get End Property _ Public ReadOnly Property OrtColumn() As Global.System.Data.DataColumn Get Return Me.columnOrt End Get End Property _ Public ReadOnly Property LandColumn() As Global.System.Data.DataColumn Get Return Me.columnLand End Get End Property _ Public ReadOnly Property TelefonColumn() As Global.System.Data.DataColumn Get Return Me.columnTelefon End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property _ Public ReadOnly Property AnmerkungColumn() As Global.System.Data.DataColumn Get Return Me.columnAnmerkung End Get End Property _ Public ReadOnly Property StammgastColumn() As Global.System.Data.DataColumn Get Return Me.columnStammgast End Get End Property _ Public ReadOnly Property BlockiertColumn() As Global.System.Data.DataColumn Get Return Me.columnBlockiert End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As GästeRow Get Return CType(Me.Rows(index),GästeRow) End Get End Property _ Public Event GästeRowChanging As GästeRowChangeEventHandler _ Public Event GästeRowChanged As GästeRowChangeEventHandler _ Public Event GästeRowDeleting As GästeRowChangeEventHandler _ Public Event GästeRowDeleted As GästeRowChangeEventHandler _ Public Overloads Sub AddGästeRow(ByVal row As GästeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddGästeRow(ByVal Nachname As String, ByVal Vorname As String, ByVal Straße As String, ByVal PLZ As String, ByVal Ort As String, ByVal Land As String, ByVal Telefon As String, ByVal Email As String, ByVal Anmerkung As String, ByVal Stammgast As Boolean, ByVal Blockiert As Boolean) As GästeRow Dim rowGästeRow As GästeRow = CType(Me.NewRow,GästeRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nachname, Vorname, Straße, PLZ, Ort, Land, Telefon, Email, Anmerkung, Stammgast, Blockiert} rowGästeRow.ItemArray = columnValuesArray Me.Rows.Add(rowGästeRow) Return rowGästeRow End Function _ Public Function FindByID(ByVal ID As Integer) As GästeRow Return CType(Me.Rows.Find(New Object() {ID}),GästeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As GästeDataTable = CType(MyBase.Clone,GästeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New GästeDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnNachname = MyBase.Columns("Nachname") Me.columnVorname = MyBase.Columns("Vorname") Me.columnStraße = MyBase.Columns("Straße") Me.columnPLZ = MyBase.Columns("PLZ") Me.columnOrt = MyBase.Columns("Ort") Me.columnLand = MyBase.Columns("Land") Me.columnTelefon = MyBase.Columns("Telefon") Me.columnEmail = MyBase.Columns("Email") Me.columnAnmerkung = MyBase.Columns("Anmerkung") Me.columnStammgast = MyBase.Columns("Stammgast") Me.columnBlockiert = MyBase.Columns("Blockiert") End Sub _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnNachname = New Global.System.Data.DataColumn("Nachname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNachname) Me.columnVorname = New Global.System.Data.DataColumn("Vorname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVorname) Me.columnStraße = New Global.System.Data.DataColumn("Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStraße) Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPLZ) Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOrt) Me.columnLand = New Global.System.Data.DataColumn("Land", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLand) Me.columnTelefon = New Global.System.Data.DataColumn("Telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTelefon) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) Me.columnAnmerkung = New Global.System.Data.DataColumn("Anmerkung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAnmerkung) Me.columnStammgast = New Global.System.Data.DataColumn("Stammgast", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStammgast) Me.columnBlockiert = New Global.System.Data.DataColumn("Blockiert", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBlockiert) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = 1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnID.Unique = true Me.columnNachname.AllowDBNull = false Me.columnVorname.AllowDBNull = false Me.columnStraße.AllowDBNull = false Me.columnPLZ.AllowDBNull = false Me.columnPLZ.MaxLength = 15 Me.columnOrt.AllowDBNull = false Me.columnLand.AllowDBNull = false Me.columnLand.DefaultValue = CType("Deutschland",String) Me.columnStammgast.AllowDBNull = false Me.columnStammgast.DefaultValue = CType(false,Boolean) Me.columnBlockiert.AllowDBNull = false Me.columnBlockiert.DefaultValue = CType(false,Boolean) Me.CaseSensitive = false End Sub _ Public Function NewGästeRow() As GästeRow Return CType(Me.NewRow,GästeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New GästeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(GästeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.GästeRowChangedEvent) Is Nothing) Then RaiseEvent GästeRowChanged(Me, New GästeRowChangeEvent(CType(e.Row,GästeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.GästeRowChangingEvent) Is Nothing) Then RaiseEvent GästeRowChanging(Me, New GästeRowChangeEvent(CType(e.Row,GästeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.GästeRowDeletedEvent) Is Nothing) Then RaiseEvent GästeRowDeleted(Me, New GästeRowChangeEvent(CType(e.Row,GästeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.GästeRowDeletingEvent) Is Nothing) Then RaiseEvent GästeRowDeleting(Me, New GästeRowChangeEvent(CType(e.Row,GästeRow), e.Action)) End If End Sub _ Public Sub RemoveGästeRow(ByVal row As GästeRow) Me.Rows.Remove(row) End Sub _ 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() Dim ds As GästeDataSet = New GästeDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "GästeDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class GästeRow Inherits Global.System.Data.DataRow Private tableGäste As GästeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableGäste = CType(Me.Table,GästeDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tableGäste.IDColumn),Integer) End Get Set Me(Me.tableGäste.IDColumn) = value End Set End Property _ Public Property Nachname() As String Get Return CType(Me(Me.tableGäste.NachnameColumn),String) End Get Set Me(Me.tableGäste.NachnameColumn) = value End Set End Property _ Public Property Vorname() As String Get Return CType(Me(Me.tableGäste.VornameColumn),String) End Get Set Me(Me.tableGäste.VornameColumn) = value End Set End Property _ Public Property Straße() As String Get Return CType(Me(Me.tableGäste.StraßeColumn),String) End Get Set Me(Me.tableGäste.StraßeColumn) = value End Set End Property _ Public Property PLZ() As String Get Return CType(Me(Me.tableGäste.PLZColumn),String) End Get Set Me(Me.tableGäste.PLZColumn) = value End Set End Property _ Public Property Ort() As String Get Return CType(Me(Me.tableGäste.OrtColumn),String) End Get Set Me(Me.tableGäste.OrtColumn) = value End Set End Property _ Public Property Land() As String Get Return CType(Me(Me.tableGäste.LandColumn),String) End Get Set Me(Me.tableGäste.LandColumn) = value End Set End Property _ Public Property Telefon() As String Get Try Return CType(Me(Me.tableGäste.TelefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Telefon in Tabelle Gäste ist DBNull.", e) End Try End Get Set Me(Me.tableGäste.TelefonColumn) = value End Set End Property _ Public Property Email() As String Get Try Return CType(Me(Me.tableGäste.EmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle Gäste ist DBNull.", e) End Try End Get Set Me(Me.tableGäste.EmailColumn) = value End Set End Property _ Public Property Anmerkung() As String Get Try Return CType(Me(Me.tableGäste.AnmerkungColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anmerkung in Tabelle Gäste ist DBNull.", e) End Try End Get Set Me(Me.tableGäste.AnmerkungColumn) = value End Set End Property _ Public Property Stammgast() As Boolean Get Return CType(Me(Me.tableGäste.StammgastColumn),Boolean) End Get Set Me(Me.tableGäste.StammgastColumn) = value End Set End Property _ Public Property Blockiert() As Boolean Get Return CType(Me(Me.tableGäste.BlockiertColumn),Boolean) End Get Set Me(Me.tableGäste.BlockiertColumn) = value End Set End Property _ Public Function IsTelefonNull() As Boolean Return Me.IsNull(Me.tableGäste.TelefonColumn) End Function _ Public Sub SetTelefonNull() Me(Me.tableGäste.TelefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableGäste.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tableGäste.EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAnmerkungNull() As Boolean Return Me.IsNull(Me.tableGäste.AnmerkungColumn) End Function _ Public Sub SetAnmerkungNull() Me(Me.tableGäste.AnmerkungColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class GästeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As GästeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As GästeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As GästeRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class