???'------------------------------------------------------------------------------
' <autogenerated>
' This code was generated by a tool.
' Runtime Version: 1.0.3705.0
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.Data
Imports System.Runtime.Serialization
Imports System.Xml
<Serializable(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Diagnostics.DebuggerStepThrough(), _
System.ComponentModel.ToolboxItem(true)> _
Public Class DataSet1
Inherits DataSet
Private tableContacts As ContactsDataTable
Public Sub New()
MyBase.New
Me.InitClass
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
MyBase.New
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(System.String)),String)
If (Not (strSchema) Is Nothing) Then
Dim ds As DataSet = New DataSet
ds.ReadXmlSchema(New XmlTextReader(New System.IO.StringReader(strSchema)))
If (Not (ds.Tables("Contacts")) Is Nothing) Then
Me.Tables.Add(New ContactsDataTable(ds.Tables("Contacts")))
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, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.InitClass
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Contacts As ContactsDataTable
Get
Return Me.tableContacts
End Get
End Property
Public Overrides Function Clone() As DataSet
Dim cln As DataSet1 = CType(MyBase.Clone,DataSet1)
cln.InitVars
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 XmlReader)
Me.Reset
Dim ds As DataSet = New DataSet
ds.ReadXml(reader)
If (Not (ds.Tables("Contacts")) Is Nothing) Then
Me.Tables.Add(New ContactsDataTable(ds.Tables("Contacts")))
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, System.Data.MissingSchemaAction.Add)
Me.InitVars
End Sub
Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
Me.WriteXmlSchema(New XmlTextWriter(stream, Nothing))
stream.Position = 0
Return System.Xml.Schema.XmlSchema.Read(New XmlTextReader(stream), Nothing)
End Function
Friend Sub InitVars()
Me.tableContacts = CType(Me.Tables("Contacts"),ContactsDataTable)
If (Not (Me.tableContacts) Is Nothing) Then
Me.tableContacts.InitVars
End If
End Sub
Private Sub InitClass()
Me.DataSetName = "DataSet1"
Me.Prefix = ""
Me.Namespace = "http://www.tempuri.org/DataSet1.xsd"
Me.Locale = New System.Globalization.CultureInfo("en-US")
Me.CaseSensitive = false
Me.EnforceConstraints = true
Me.tableContacts = New ContactsDataTable
Me.Tables.Add(Me.tableContacts)
End Sub
Private Function ShouldSerializeContacts() As Boolean
Return false
End Function
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
Public Delegate Sub ContactsRowChangeEventHandler(ByVal sender As Object, ByVal e As ContactsRowChangeEvent)
<System.Diagnostics.DebuggerStepThrough()> _
Public Class ContactsDataTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private columnAddress As DataColumn
Private columnCity As DataColumn
Private columnContactID As DataColumn
Private columnName As DataColumn
Private columnPhoneHome As DataColumn
Private columnPhoneWork As DataColumn
Private columnState As DataColumn
Private columnZip As DataColumn
Friend Sub New()
MyBase.New("Contacts")
Me.InitClass
End Sub
Friend Sub New(ByVal table As DataTable)
MyBase.New(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
Me.DisplayExpression = table.DisplayExpression
End Sub
<System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count As Integer
Get
Return Me.Rows.Count
End Get
End Property
Friend ReadOnly Property AddressColumn As DataColumn
Get
Return Me.columnAddress
End Get
End Property
Friend ReadOnly Property CityColumn As DataColumn
Get
Return Me.columnCity
End Get
End Property
Friend ReadOnly Property ContactIDColumn As DataColumn
Get
Return Me.columnContactID
End Get
End Property
Friend ReadOnly Property NameColumn As DataColumn
Get
Return Me.columnName
End Get
End Property
Friend ReadOnly Property PhoneHomeColumn As DataColumn
Get
Return Me.columnPhoneHome
End Get
End Property
Friend ReadOnly Property PhoneWorkColumn As DataColumn
Get
Return Me.columnPhoneWork
End Get
End Property
Friend ReadOnly Property StateColumn As DataColumn
Get
Return Me.columnState
End Get
End Property
Friend ReadOnly Property ZipColumn As DataColumn
Get
Return Me.columnZip
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As ContactsRow
Get
Return CType(Me.Rows(index),ContactsRow)
End Get
End Property
Public Event ContactsRowChanged As ContactsRowChangeEventHandler
Public Event ContactsRowChanging As ContactsRowChangeEventHandler
Public Event ContactsRowDeleted As ContactsRowChangeEventHandler
Public Event ContactsRowDeleting As ContactsRowChangeEventHandler
Public Overloads Sub AddContactsRow(ByVal row As ContactsRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function AddContactsRow(ByVal Address As String, ByVal City As String, ByVal Name As String, ByVal PhoneHome As String, ByVal PhoneWork As String, ByVal State As String, ByVal Zip As String) As ContactsRow
Dim rowContactsRow As ContactsRow = CType(Me.NewRow,ContactsRow)
rowContactsRow.ItemArray = New Object() {Address, City, Nothing, Name, PhoneHome, PhoneWork, State, Zip}
Me.Rows.Add(rowContactsRow)
Return rowContactsRow
End Function
Public Function FindByContactID(ByVal ContactID As Integer) As ContactsRow
Return CType(Me.Rows.Find(New Object() {ContactID}),ContactsRow)
End Function
Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
Public Overrides Function Clone() As DataTable
Dim cln As ContactsDataTable = CType(MyBase.Clone,ContactsDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New ContactsDataTable
End Function
Friend Sub InitVars()
Me.columnAddress = Me.Columns("Address")
Me.columnCity = Me.Columns("City")
Me.columnContactID = Me.Columns("ContactID")
Me.columnName = Me.Columns("Name")
Me.columnPhoneHome = Me.Columns("PhoneHome")
Me.columnPhoneWork = Me.Columns("PhoneWork")
Me.columnState = Me.Columns("State")
Me.columnZip = Me.Columns("Zip")
End Sub
Private Sub InitClass()
Me.columnAddress = New DataColumn("Address", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnAddress)
Me.columnCity = New DataColumn("City", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnCity)
Me.columnContactID = New DataColumn("ContactID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnContactID)
Me.columnName = New DataColumn("Name", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnName)
Me.columnPhoneHome = New DataColumn("PhoneHome", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnPhoneHome)
Me.columnPhoneWork = New DataColumn("PhoneWork", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnPhoneWork)
Me.columnState = New DataColumn("State", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnState)
Me.columnZip = New DataColumn("Zip", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnZip)
Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnContactID}, true))
Me.columnContactID.AutoIncrement = true
Me.columnContactID.AllowDBNull = false
Me.columnContactID.Unique = true
End Sub
Public Function NewContactsRow() As ContactsRow
Return CType(Me.NewRow,ContactsRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New ContactsRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(ContactsRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.ContactsRowChangedEvent) Is Nothing) Then
RaiseEvent ContactsRowChanged(Me, New ContactsRowChangeEvent(CType(e.Row,ContactsRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.ContactsRowChangingEvent) Is Nothing) Then
RaiseEvent ContactsRowChanging(Me, New ContactsRowChangeEvent(CType(e.Row,ContactsRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.ContactsRowDeletedEvent) Is Nothing) Then
RaiseEvent ContactsRowDeleted(Me, New ContactsRowChangeEvent(CType(e.Row,ContactsRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.ContactsRowDeletingEvent) Is Nothing) Then
RaiseEvent ContactsRowDeleting(Me, New ContactsRowChangeEvent(CType(e.Row,ContactsRow), e.Action))
End If
End Sub
Public Sub RemoveContactsRow(ByVal row As ContactsRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class ContactsRow
Inherits DataRow
Private tableContacts As ContactsDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tableContacts = CType(Me.Table,ContactsDataTable)
End Sub
Public Property Address As String
Get
Try
Return CType(Me(Me.tableContacts.AddressColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableContacts.AddressColumn) = value
End Set
End Property
Public Property City As String
Get
Try
Return CType(Me(Me.tableContacts.CityColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableContacts.CityColumn) = value
End Set
End Property
Public Property ContactID As Integer
Get
Return CType(Me(Me.tableContacts.ContactIDColumn),Integer)
End Get
Set
Me(Me.tableContacts.ContactIDColumn) = value
End Set
End Property
Public Property Name As String
Get
Try
Return CType(Me(Me.tableContacts.NameColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableContacts.NameColumn) = value
End Set
End Property
Public Property PhoneHome As String
Get
Try
Return CType(Me(Me.tableContacts.PhoneHomeColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableContacts.PhoneHomeColumn) = value
End Set
End Property
Public Property PhoneWork As String
Get
Try
Return CType(Me(Me.tableContacts.PhoneWorkColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableContacts.PhoneWorkColumn) = value
End Set
End Property
Public Property State As String
Get
Try
Return CType(Me(Me.tableContacts.StateColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableContacts.StateColumn) = value
End Set
End Property
Public Property Zip As String
Get
Try
Return CType(Me(Me.tableContacts.ZipColumn),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableContacts.ZipColumn) = value
End Set
End Property
Public Function IsAddressNull() As Boolean
Return Me.IsNull(Me.tableContacts.AddressColumn)
End Function
Public Sub SetAddressNull()
Me(Me.tableContacts.AddressColumn) = System.Convert.DBNull
End Sub
Public Function IsCityNull() As Boolean
Return Me.IsNull(Me.tableContacts.CityColumn)
End Function
Public Sub SetCityNull()
Me(Me.tableContacts.CityColumn) = System.Convert.DBNull
End Sub
Public Function IsNameNull() As Boolean
Return Me.IsNull(Me.tableContacts.NameColumn)
End Function
Public Sub SetNameNull()
Me(Me.tableContacts.NameColumn) = System.Convert.DBNull
End Sub
Public Function IsPhoneHomeNull() As Boolean
Return Me.IsNull(Me.tableContacts.PhoneHomeColumn)
End Function
Public Sub SetPhoneHomeNull()
Me(Me.tableContacts.PhoneHomeColumn) = System.Convert.DBNull
End Sub
Public Function IsPhoneWorkNull() As Boolean
Return Me.IsNull(Me.tableContacts.PhoneWorkColumn)
End Function
Public Sub SetPhoneWorkNull()
Me(Me.tableContacts.PhoneWorkColumn) = System.Convert.DBNull
End Sub
Public Function IsStateNull() As Boolean
Return Me.IsNull(Me.tableContacts.StateColumn)
End Function
Public Sub SetStateNull()
Me(Me.tableContacts.StateColumn) = System.Convert.DBNull
End Sub
Public Function IsZipNull() As Boolean
Return Me.IsNull(Me.tableContacts.ZipColumn)
End Function
Public Sub SetZipNull()
Me(Me.tableContacts.ZipColumn) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class ContactsRowChangeEvent
Inherits EventArgs
Private eventRow As ContactsRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As ContactsRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As ContactsRow
Get
Return Me.eventRow
End Get
End Property
Public ReadOnly Property Action As DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
