'------------------------------------------------------------------------------
' <autogenerated>
' This code was generated by a tool.
' Runtime Version: 1.1.4322.573
'
' 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 CRDataSet
Inherits DataSet
Private tableMainTable As MainTableDataTable
Private tableDetailTable As DetailTableDataTable
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("MainTable")) Is Nothing) Then
Me.Tables.Add(New MainTableDataTable(ds.Tables("MainTable")))
End If
If (Not (ds.Tables("DetailTable")) Is Nothing) Then
Me.Tables.Add(New DetailTableDataTable(ds.Tables("DetailTable")))
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 MainTable As MainTableDataTable
Get
Return Me.tableMainTable
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property DetailTable As DetailTableDataTable
Get
Return Me.tableDetailTable
End Get
End Property
Public Overrides Function Clone() As DataSet
Dim cln As CRDataSet = CType(MyBase.Clone,CRDataSet)
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("MainTable")) Is Nothing) Then
Me.Tables.Add(New MainTableDataTable(ds.Tables("MainTable")))
End If
If (Not (ds.Tables("DetailTable")) Is Nothing) Then
Me.Tables.Add(New DetailTableDataTable(ds.Tables("DetailTable")))
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.tableMainTable = CType(Me.Tables("MainTable"),MainTableDataTable)
If (Not (Me.tableMainTable) Is Nothing) Then
Me.tableMainTable.InitVars
End If
Me.tableDetailTable = CType(Me.Tables("DetailTable"),DetailTableDataTable)
If (Not (Me.tableDetailTable) Is Nothing) Then
Me.tableDetailTable.InitVars
End If
End Sub
Private Sub InitClass()
Me.DataSetName = "CRDataSet"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/CRDataSet.xsd"
Me.Locale = New System.Globalization.CultureInfo("en-US")
Me.CaseSensitive = false
Me.EnforceConstraints = true
Me.tableMainTable = New MainTableDataTable
Me.Tables.Add(Me.tableMainTable)
Me.tableDetailTable = New DetailTableDataTable
Me.Tables.Add(Me.tableDetailTable)
End Sub
Private Function ShouldSerializeMainTable() As Boolean
Return false
End Function
Private Function ShouldSerializeDetailTable() 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 MainTableRowChangeEventHandler(ByVal sender As Object, ByVal e As MainTableRowChangeEvent)
Public Delegate Sub DetailTableRowChangeEventHandler(ByVal sender As Object, ByVal e As DetailTableRowChangeEvent)
<System.Diagnostics.DebuggerStepThrough()> _
Public Class MainTableDataTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private columnField1 As DataColumn
Private columnField2 As DataColumn
Private columnField3 As DataColumn
Friend Sub New()
MyBase.New("MainTable")
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 Field1Column As DataColumn
Get
Return Me.columnField1
End Get
End Property
Friend ReadOnly Property Field2Column As DataColumn
Get
Return Me.columnField2
End Get
End Property
Friend ReadOnly Property Field3Column As DataColumn
Get
Return Me.columnField3
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As MainTableRow
Get
Return CType(Me.Rows(index),MainTableRow)
End Get
End Property
Public Event MainTableRowChanged As MainTableRowChangeEventHandler
Public Event MainTableRowChanging As MainTableRowChangeEventHandler
Public Event MainTableRowDeleted As MainTableRowChangeEventHandler
Public Event MainTableRowDeleting As MainTableRowChangeEventHandler
Public Overloads Sub AddMainTableRow(ByVal row As MainTableRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function AddMainTableRow(ByVal Field1 As String, ByVal Field2 As String, ByVal Field3 As String) As MainTableRow
Dim rowMainTableRow As MainTableRow = CType(Me.NewRow,MainTableRow)
rowMainTableRow.ItemArray = New Object() {Field1, Field2, Field3}
Me.Rows.Add(rowMainTableRow)
Return rowMainTableRow
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 MainTableDataTable = CType(MyBase.Clone,MainTableDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New MainTableDataTable
End Function
Friend Sub InitVars()
Me.columnField1 = Me.Columns("Field1")
Me.columnField2 = Me.Columns("Field2")
Me.columnField3 = Me.Columns("Field3")
End Sub
Private Sub InitClass()
Me.columnField1 = New DataColumn("Field1", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnField1)
Me.columnField2 = New DataColumn("Field2", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnField2)
Me.columnField3 = New DataColumn("Field3", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnField3)
End Sub
Public Function NewMainTableRow() As MainTableRow
Return CType(Me.NewRow,MainTableRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New MainTableRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(MainTableRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.MainTableRowChangedEvent) Is Nothing) Then
RaiseEvent MainTableRowChanged(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.MainTableRowChangingEvent) Is Nothing) Then
RaiseEvent MainTableRowChanging(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.MainTableRowDeletedEvent) Is Nothing) Then
RaiseEvent MainTableRowDeleted(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.MainTableRowDeletingEvent) Is Nothing) Then
RaiseEvent MainTableRowDeleting(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action))
End If
End Sub
Public Sub RemoveMainTableRow(ByVal row As MainTableRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class MainTableRow
Inherits DataRow
Private tableMainTable As MainTableDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tableMainTable = CType(Me.Table,MainTableDataTable)
End Sub
Public Property Field1 As String
Get
Try
Return CType(Me(Me.tableMainTable.Field1Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainTable.Field1Column) = value
End Set
End Property
Public Property Field2 As String
Get
Try
Return CType(Me(Me.tableMainTable.Field2Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainTable.Field2Column) = value
End Set
End Property
Public Property Field3 As String
Get
Try
Return CType(Me(Me.tableMainTable.Field3Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableMainTable.Field3Column) = value
End Set
End Property
Public Function IsField1Null() As Boolean
Return Me.IsNull(Me.tableMainTable.Field1Column)
End Function
Public Sub SetField1Null()
Me(Me.tableMainTable.Field1Column) = System.Convert.DBNull
End Sub
Public Function IsField2Null() As Boolean
Return Me.IsNull(Me.tableMainTable.Field2Column)
End Function
Public Sub SetField2Null()
Me(Me.tableMainTable.Field2Column) = System.Convert.DBNull
End Sub
Public Function IsField3Null() As Boolean
Return Me.IsNull(Me.tableMainTable.Field3Column)
End Function
Public Sub SetField3Null()
Me(Me.tableMainTable.Field3Column) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class MainTableRowChangeEvent
Inherits EventArgs
Private eventRow As MainTableRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As MainTableRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As MainTableRow
Get
Return Me.eventRow
End Get
End Property
Public ReadOnly Property Action As DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class DetailTableDataTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private columnField1 As DataColumn
Private columnField2 As DataColumn
Private columnField3 As DataColumn
Friend Sub New()
MyBase.New("DetailTable")
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 Field1Column As DataColumn
Get
Return Me.columnField1
End Get
End Property
Friend ReadOnly Property Field2Column As DataColumn
Get
Return Me.columnField2
End Get
End Property
Friend ReadOnly Property Field3Column As DataColumn
Get
Return Me.columnField3
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As DetailTableRow
Get
Return CType(Me.Rows(index),DetailTableRow)
End Get
End Property
Public Event DetailTableRowChanged As DetailTableRowChangeEventHandler
Public Event DetailTableRowChanging As DetailTableRowChangeEventHandler
Public Event DetailTableRowDeleted As DetailTableRowChangeEventHandler
Public Event DetailTableRowDeleting As DetailTableRowChangeEventHandler
Public Overloads Sub AddDetailTableRow(ByVal row As DetailTableRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function AddDetailTableRow(ByVal Field1 As String, ByVal Field2 As String, ByVal Field3 As String) As DetailTableRow
Dim rowDetailTableRow As DetailTableRow = CType(Me.NewRow,DetailTableRow)
rowDetailTableRow.ItemArray = New Object() {Field1, Field2, Field3}
Me.Rows.Add(rowDetailTableRow)
Return rowDetailTableRow
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 DetailTableDataTable = CType(MyBase.Clone,DetailTableDataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New DetailTableDataTable
End Function
Friend Sub InitVars()
Me.columnField1 = Me.Columns("Field1")
Me.columnField2 = Me.Columns("Field2")
Me.columnField3 = Me.Columns("Field3")
End Sub
Private Sub InitClass()
Me.columnField1 = New DataColumn("Field1", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnField1)
Me.columnField2 = New DataColumn("Field2", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnField2)
Me.columnField3 = New DataColumn("Field3", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnField3)
End Sub
Public Function NewDetailTableRow() As DetailTableRow
Return CType(Me.NewRow,DetailTableRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New DetailTableRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(DetailTableRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.DetailTableRowChangedEvent) Is Nothing) Then
RaiseEvent DetailTableRowChanged(Me, New DetailTableRowChangeEvent(CType(e.Row,DetailTableRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.DetailTableRowChangingEvent) Is Nothing) Then
RaiseEvent DetailTableRowChanging(Me, New DetailTableRowChangeEvent(CType(e.Row,DetailTableRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.DetailTableRowDeletedEvent) Is Nothing) Then
RaiseEvent DetailTableRowDeleted(Me, New DetailTableRowChangeEvent(CType(e.Row,DetailTableRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.DetailTableRowDeletingEvent) Is Nothing) Then
RaiseEvent DetailTableRowDeleting(Me, New DetailTableRowChangeEvent(CType(e.Row,DetailTableRow), e.Action))
End If
End Sub
Public Sub RemoveDetailTableRow(ByVal row As DetailTableRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class DetailTableRow
Inherits DataRow
Private tableDetailTable As DetailTableDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tableDetailTable = CType(Me.Table,DetailTableDataTable)
End Sub
Public Property Field1 As String
Get
Try
Return CType(Me(Me.tableDetailTable.Field1Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableDetailTable.Field1Column) = value
End Set
End Property
Public Property Field2 As String
Get
Try
Return CType(Me(Me.tableDetailTable.Field2Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableDetailTable.Field2Column) = value
End Set
End Property
Public Property Field3 As String
Get
Try
Return CType(Me(Me.tableDetailTable.Field3Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
End Try
End Get
Set
Me(Me.tableDetailTable.Field3Column) = value
End Set
End Property
Public Function IsField1Null() As Boolean
Return Me.IsNull(Me.tableDetailTable.Field1Column)
End Function
Public Sub SetField1Null()
Me(Me.tableDetailTable.Field1Column) = System.Convert.DBNull
End Sub
Public Function IsField2Null() As Boolean
Return Me.IsNull(Me.tableDetailTable.Field2Column)
End Function
Public Sub SetField2Null()
Me(Me.tableDetailTable.Field2Column) = System.Convert.DBNull
End Sub
Public Function IsField3Null() As Boolean
Return Me.IsNull(Me.tableDetailTable.Field3Column)
End Function
Public Sub SetField3Null()
Me(Me.tableDetailTable.Field3Column) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class DetailTableRowChangeEvent
Inherits EventArgs
Private eventRow As DetailTableRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As DetailTableRow, ByVal action As DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row As DetailTableRow
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