dataset2.vb

用.net写的,不知道怎么样,各位看看再说吧.

'------------------------------------------------------------------------------
' <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 DataSet2
    Inherits DataSet
    
    Private table入住单 As 入住单DataTable
    
    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("入住单")) Is Nothing) Then
                Me.Tables.Add(New 入住单DataTable(ds.Tables("入住单")))
            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 入住单 As 入住单DataTable
        Get
            Return Me.table入住单
        End Get
    End Property
    
    Public Overrides Function Clone() As DataSet
        Dim cln As DataSet2 = CType(MyBase.Clone,DataSet2)
        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("入住单")) Is Nothing) Then
            Me.Tables.Add(New 入住单DataTable(ds.Tables("入住单")))
        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.table入住单 = CType(Me.Tables("入住单"),入住单DataTable)
        If (Not (Me.table入住单) Is Nothing) Then
            Me.table入住单.InitVars
        End If
    End Sub
    
    Private Sub InitClass()
        Me.DataSetName = "DataSet2"
        Me.Prefix = ""
        Me.Namespace = "http://www.tempuri.org/DataSet2.xsd"
        Me.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.CaseSensitive = false
        Me.EnforceConstraints = true
        Me.table入住单 = New 入住单DataTable
        Me.Tables.Add(Me.table入住单)
    End Sub
    
    Private Function ShouldSerialize入住单() 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 入住单RowChangeEventHandler(ByVal sender As Object, ByVal e As 入住单RowChangeEvent)
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 入住单DataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private column入住单号 As DataColumn
        
        Private column客房类型 As DataColumn
        
        Private column客房编号 As DataColumn
        
        Private column抵店时间 As DataColumn
        
        Private column离店时间 As DataColumn
        
        Private column入住价格 As DataColumn
        
        Private column加床价格 As DataColumn
        
        Private column预收款 As DataColumn
        
        Private column应收帐款 As DataColumn
        
        Private column结帐金额 As DataColumn
        
        Private column是否结帐 As DataColumn
        
        Private column结帐日期 As DataColumn
        
        Private column付款方式 As DataColumn
        
        Friend Sub New()
            MyBase.New("入住单")
            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 入住单号Column As DataColumn
            Get
                Return Me.column入住单号
            End Get
        End Property
        
        Friend ReadOnly Property 客房类型Column As DataColumn
            Get
                Return Me.column客房类型
            End Get
        End Property
        
        Friend ReadOnly Property 客房编号Column As DataColumn
            Get
                Return Me.column客房编号
            End Get
        End Property
        
        Friend ReadOnly Property 抵店时间Column As DataColumn
            Get
                Return Me.column抵店时间
            End Get
        End Property
        
        Friend ReadOnly Property 离店时间Column As DataColumn
            Get
                Return Me.column离店时间
            End Get
        End Property
        
        Friend ReadOnly Property 入住价格Column As DataColumn
            Get
                Return Me.column入住价格
            End Get
        End Property
        
        Friend ReadOnly Property 加床价格Column As DataColumn
            Get
                Return Me.column加床价格
            End Get
        End Property
        
        Friend ReadOnly Property 预收款Column As DataColumn
            Get
                Return Me.column预收款
            End Get
        End Property
        
        Friend ReadOnly Property 应收帐款Column As DataColumn
            Get
                Return Me.column应收帐款
            End Get
        End Property
        
        Friend ReadOnly Property 结帐金额Column As DataColumn
            Get
                Return Me.column结帐金额
            End Get
        End Property
        
        Friend ReadOnly Property 是否结帐Column As DataColumn
            Get
                Return Me.column是否结帐
            End Get
        End Property
        
        Friend ReadOnly Property 结帐日期Column As DataColumn
            Get
                Return Me.column结帐日期
            End Get
        End Property
        
        Friend ReadOnly Property 付款方式Column As DataColumn
            Get
                Return Me.column付款方式
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As 入住单Row
            Get
                Return CType(Me.Rows(index),入住单Row)
            End Get
        End Property
        
        Public Event 入住单RowChanged As 入住单RowChangeEventHandler
        
        Public Event 入住单RowChanging As 入住单RowChangeEventHandler
        
        Public Event 入住单RowDeleted As 入住单RowChangeEventHandler
        
        Public Event 入住单RowDeleting As 入住单RowChangeEventHandler
        
        Public Overloads Sub Add入住单Row(ByVal row As 入住单Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add入住单Row(ByVal 入住单号 As String, ByVal 客房类型 As String, ByVal 客房编号 As String, ByVal 抵店时间 As Date, ByVal 离店时间 As Date, ByVal 入住价格 As Decimal, ByVal 加床价格 As Decimal, ByVal 预收款 As Decimal, ByVal 应收帐款 As Decimal, ByVal 结帐金额 As Decimal, ByVal 是否结帐 As Boolean, ByVal 结帐日期 As Date, ByVal 付款方式 As String) As 入住单Row
            Dim row入住单Row As 入住单Row = CType(Me.NewRow,入住单Row)
            row入住单Row.ItemArray = New Object() {入住单号, 客房类型, 客房编号, 抵店时间, 离店时间, 入住价格, 加床价格, 预收款, 应收帐款, 结帐金额, 是否结帐, 结帐日期, 付款方式}
            Me.Rows.Add(row入住单Row)
            Return row入住单Row
        End Function
        
        Public Function FindBy入住单号(ByVal 入住单号 As String) As 入住单Row
            Return CType(Me.Rows.Find(New Object() {入住单号}),入住单Row)
        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 入住单DataTable = CType(MyBase.Clone,入住单DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 入住单DataTable
        End Function
        
        Friend Sub InitVars()
            Me.column入住单号 = Me.Columns("入住单号")
            Me.column客房类型 = Me.Columns("客房类型")
            Me.column客房编号 = Me.Columns("客房编号")
            Me.column抵店时间 = Me.Columns("抵店时间")
            Me.column离店时间 = Me.Columns("离店时间")
            Me.column入住价格 = Me.Columns("入住价格")
            Me.column加床价格 = Me.Columns("加床价格")
            Me.column预收款 = Me.Columns("预收款")
            Me.column应收帐款 = Me.Columns("应收帐款")
            Me.column结帐金额 = Me.Columns("结帐金额")
            Me.column是否结帐 = Me.Columns("是否结帐")
            Me.column结帐日期 = Me.Columns("结帐日期")
            Me.column付款方式 = Me.Columns("付款方式")
        End Sub
        
        Private Sub InitClass()
            Me.column入住单号 = New DataColumn("入住单号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column入住单号)
            Me.column客房类型 = New DataColumn("客房类型", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column客房类型)
            Me.column客房编号 = New DataColumn("客房编号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column客房编号)
            Me.column抵店时间 = New DataColumn("抵店时间", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column抵店时间)
            Me.column离店时间 = New DataColumn("离店时间", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column离店时间)
            Me.column入住价格 = New DataColumn("入住价格", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column入住价格)
            Me.column加床价格 = New DataColumn("加床价格", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column加床价格)
            Me.column预收款 = New DataColumn("预收款", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column预收款)
            Me.column应收帐款 = New DataColumn("应收帐款", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column应收帐款)
            Me.column结帐金额 = New DataColumn("结帐金额", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column结帐金额)
            Me.column是否结帐 = New DataColumn("是否结帐", GetType(System.Boolean), Nothing, System.Data.MappingType.Element)