dataset1.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 745 行 · 第 1/2 页

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Mono Runtime Version: 1.1.4322.2032
'
'     Changes to this file may cause incorrect behavior and will be lost if 
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

Option Explicit On
Option Strict On

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Runtime.Serialization
Imports System.Xml

'
'This source code was auto-generated by MonoXSD
'

Public Class DataSet1
    Inherits System.Data.DataSet
    Implements System.Xml.Serialization.IXmlSerializable
    
    Public Delegate Sub authorsRowChangedEventHandler(ByVal o As Object, ByVal e As authorsRowChangedEventArgs)
    
    Public Delegate Sub statesRowChangedEventHandler(ByVal o As Object, ByVal e As statesRowChangedEventArgs)
    
    Private __tableauthors As authorsDataTable
    
    Private __tablestates As statesDataTable
    
    Public Sub New()
        MyBase.New
        Me.InitializeClass()
        Dim handler As System.ComponentModel.CollectionChangeEventHandler = New System.ComponentModel.CollectionChangeEventHandler(AddressOf Me.SchemaChanged)
        AddHandler Me.Tables.CollectionChanged, handler
        AddHandler Me.Relations.CollectionChanged, handler
    End Sub
    
    Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal ctx As System.Runtime.Serialization.StreamingContext)
        MyBase.New
        'TODO: implement
        Throw New System.NotImplementedException()
    End Sub
    
    Public Overridable ReadOnly Property authors As authorsDataTable
        Get
            Return Me.__tableauthors
        End Get
    End Property
    
    Public Overridable ReadOnly Property states As statesDataTable
        Get
            Return Me.__tablestates
        End Get
    End Property
    
    Public Overrides Function Clone() As System.Data.DataSet
        Dim [set] As DataSet1 = CType(MyBase.Clone(), DataSet1)
        [set].InitializeFields()
        Return [set]
    End Function
    
    Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
        Dim sw As System.IO.StringWriter = New System.IO.StringWriter()
        Me.WriteXmlSchema(sw)
        Return System.Xml.Schema.XmlSchema.Read(New System.Xml.XmlTextReader(New System.IO.StringReader(sw.ToString())), Nothing)
    End Function
    
    Function System_Xml_Serialization_IXmlSerializable_GetSchema() As System.Xml.Schema.XmlSchema 'Implements System.Xml.Serialization.IXmlSerializable.GetSchema
        Return Me.GetSchemaSerializable()
    End Function
    
    Friend Sub InitializeClass()
        Me.DataSetName = "DataSet1"
        Me.Prefix = ""
        Me.Namespace = "http://tempuri.org/DataSet1.xsd"
        Me.Locale = New System.Globalization.CultureInfo("en-US")
        Me.CaseSensitive = false
        Me.EnforceConstraints = true
        Me.__tableauthors = New authorsDataTable()
        Me.Tables.Add(Me.__tableauthors)
        Me.__tablestates = New statesDataTable()
        Me.Tables.Add(Me.__tablestates)
        Dim uc As System.Data.UniqueConstraint
        uc = New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.__tableauthors.Columns("au_id")}, true)
        Me.__tableauthors.Constraints.Add(uc)
    End Sub
    
    Friend Sub InitializeFields()
        Me.__tableauthors.InitializeFields()
        Me.__tablestates.InitializeFields()
    End Sub
    
    Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
        If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
            Me.InitializeFields()
        End If
    End Sub
    
    Public Class authorsDataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private __columnau_id As System.Data.DataColumn
        
        Private __columnau_lname As System.Data.DataColumn
        
        Private __columnau_fname As System.Data.DataColumn
        
        Private __columnphone As System.Data.DataColumn
        
        Private __columnaddress As System.Data.DataColumn
        
        Private __columncity As System.Data.DataColumn
        
        Private __columnstate As System.Data.DataColumn
        
        Private __columnzip As System.Data.DataColumn
        
        Private __columncontract As System.Data.DataColumn
        
        Friend Sub New()
            MyBase.New("authors")
            Me.InitializeClass()
            Me.InitializeFields()
        End Sub
        
        Friend Sub New(ByVal tableauthors As System.Data.DataTable)
            MyBase.New(tableauthors.TableName)
            'TODO: implement
            Throw New System.NotImplementedException()
        End Sub
        
        Public Overridable ReadOnly Property Count As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        Public Overridable Default ReadOnly Property Item(ByVal i As Integer) As authorsRow
            Get
                Return CType(Me.Rows(i), authorsRow)
            End Get
        End Property
        
        Friend ReadOnly Property au_idColumn As System.Data.DataColumn
            Get
                Return Me.__columnau_id
            End Get
        End Property
        
        Friend ReadOnly Property au_lnameColumn As System.Data.DataColumn
            Get
                Return Me.__columnau_lname
            End Get
        End Property
        
        Friend ReadOnly Property au_fnameColumn As System.Data.DataColumn
            Get
                Return Me.__columnau_fname
            End Get
        End Property
        
        Friend ReadOnly Property phoneColumn As System.Data.DataColumn
            Get
                Return Me.__columnphone
            End Get
        End Property
        
        Friend ReadOnly Property addressColumn As System.Data.DataColumn
            Get
                Return Me.__columnaddress
            End Get
        End Property
        
        Friend ReadOnly Property cityColumn As System.Data.DataColumn
            Get
                Return Me.__columncity
            End Get
        End Property
        
        Friend ReadOnly Property stateColumn As System.Data.DataColumn
            Get
                Return Me.__columnstate
            End Get
        End Property
        
        Friend ReadOnly Property zipColumn As System.Data.DataColumn
            Get
                Return Me.__columnzip
            End Get
        End Property
        
        Friend ReadOnly Property contractColumn As System.Data.DataColumn
            Get
                Return Me.__columncontract
            End Get
        End Property
        
        Public Event authorsRowChanging As authorsRowChangedEventHandler
        
        Public Event authorsRowChanged As authorsRowChangedEventHandler
        
        Public Event authorsRowDeleting As authorsRowChangedEventHandler
        
        Public Event authorsRowDeleted As authorsRowChangedEventHandler
        
        Private Sub InitializeClass()
            Me.Columns.Add(New System.Data.DataColumn("au_id", GetType(String)))
            Me.Columns.Add(New System.Data.DataColumn("au_lname", GetType(String)))
            Me.Columns.Add(New System.Data.DataColumn("au_fname", GetType(String)))
            Me.Columns.Add(New System.Data.DataColumn("phone", GetType(String)))
            Me.Columns.Add(New System.Data.DataColumn("address", GetType(String)))
            Me.Columns.Add(New System.Data.DataColumn("city", GetType(String)))
            Me.Columns.Add(New System.Data.DataColumn("state", GetType(String)))
            Me.Columns.Add(New System.Data.DataColumn("zip", GetType(String)))
            Me.Columns.Add(New System.Data.DataColumn("contract", GetType(Boolean)))
        End Sub
        
        Friend Sub InitializeFields()
            Me.__columnau_id = Me.Columns("au_id")
            Me.__columnau_id.AllowDBNull = false
            Me.__columnau_lname = Me.Columns("au_lname")
            Me.__columnau_lname.AllowDBNull = false
            Me.__columnau_fname = Me.Columns("au_fname")
            Me.__columnau_fname.AllowDBNull = false
            Me.__columnphone = Me.Columns("phone")
            Me.__columnphone.AllowDBNull = false
            Me.__columnaddress = Me.Columns("address")
            Me.__columncity = Me.Columns("city")
            Me.__columnstate = Me.Columns("state")
            Me.__columnzip = Me.Columns("zip")
            Me.__columncontract = Me.Columns("contract")
            Me.__columncontract.AllowDBNull = false
        End Sub
        
        Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator()
        End Function
        
        Public Overrides Function Clone() As System.Data.DataTable
            Dim t As authorsDataTable = CType(MyBase.Clone(), authorsDataTable)
            t.InitializeFields()
            Return t
        End Function
        
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New authorsDataTable()
        End Function
        
        Public Overloads Overridable Sub AddauthorsRow(ByVal row As authorsRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Overridable Function AddauthorsRow(ByVal au_id As String, ByVal au_lname As String, ByVal au_fname As String, ByVal phone As String, ByVal address As String, ByVal city As String, ByVal state As String, ByVal zip As String, ByVal contract As Boolean) As authorsRow
            Dim row As authorsRow = Me.NewauthorsRow()
            row("au_id") = au_id
            row("au_lname") = au_lname
            row("au_fname") = au_fname
            row("phone") = phone
            row("address") = address
            row("city") = city
            row("state") = state
            row("zip") = zip
            row("contract") = contract
            Me.Rows.Add(row)
            Return row
        End Function
        
        Public Overridable Function NewauthorsRow() As authorsRow
            Return CType(Me.NewRow(), authorsRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New authorsRow(builder)
        End Function
        
        Public Overridable Sub RemoveauthorsRow(ByVal row As authorsRow)
            Me.Rows.Remove(row)
        End Sub
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(authorsRow)
        End Function
        
        Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.authorsRowChangingEvent) Is Nothing) Then
                RaiseEvent authorsRowChanging(Me, New authorsRowChangedEventArgs(CType(e.Row, authorsRow), e.Action))
                
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.authorsRowChangedEvent) Is Nothing) Then
                RaiseEvent authorsRowChanged(Me, New authorsRowChangedEventArgs(CType(e.Row, authorsRow), e.Action))
                
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.authorsRowDeletingEvent) Is Nothing) Then
                RaiseEvent authorsRowDeleting(Me, New authorsRowChangedEventArgs(CType(e.Row, authorsRow), e.Action))
                
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.authorsRowDeletedEvent) Is Nothing) Then
                RaiseEvent authorsRowDeleted(Me, New authorsRowChangedEventArgs(CType(e.Row, authorsRow), e.Action))
                
            End If
        End Sub
    End Class
    
    Public Class authorsRow
        Inherits System.Data.DataRow
        
        Private tableauthors As authorsDataTable
        
        Friend Sub New(ByVal builder As System.Data.DataRowBuilder)
            MyBase.New(builder)
            Me.tableauthors = CType(Me.Table, authorsDataTable)
        End Sub
        
        Public Overridable Property au_id As String
            Get
                Dim ret As Object = Me(Me.tableauthors.au_idColumn)
                If (ret Is System.DBNull.Value) Then
                    Throw New System.Data.StrongTypingException("Cannot get strong typed value since it is DB null.", Nothing)
                Else
                    Return CType(ret, String)
                End If
            End Get
            Set
                Me(Me.tableauthors.au_idColumn) = Value
            End Set
        End Property
        
        Public Overridable Property au_lname As String
            Get
                Dim ret As Object = Me(Me.tableauthors.au_lnameColumn)
                If (ret Is System.DBNull.Value) Then
                    Throw New System.Data.StrongTypingException("Cannot get strong typed value since it is DB null.", Nothing)
                Else
                    Return CType(ret, String)
                End If
            End Get
            Set
                Me(Me.tableauthors.au_lnameColumn) = Value
            End Set
        End Property
        
        Public Overridable Property au_fname As String
            Get
                Dim ret As Object = Me(Me.tableauthors.au_fnameColumn)
                If (ret Is System.DBNull.Value) Then
                    Throw New System.Data.StrongTypingException("Cannot get strong typed value since it is DB null.", Nothing)
                Else
                    Return CType(ret, String)
                End If
            End Get
            Set
                Me(Me.tableauthors.au_fnameColumn) = Value