dataset1.designer.vb

这是一个图书馆系统的代码,是用VB写的 功能还是不错的

            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
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 类型编号Column() As System.Data.DataColumn
            Get
                Return Me.column类型编号
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 类型名称Column() As System.Data.DataColumn
            Get
                Return Me.column类型名称
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 可借天数Column() As System.Data.DataColumn
            Get
                Return Me.column可借天数
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Default ReadOnly Property Item(ByVal index As Integer) As 图书类型Row
            Get
                Return CType(Me.Rows(index),图书类型Row)
            End Get
        End Property
        
        Public Event 图书类型RowChanging As 图书类型RowChangeEventHandler
        
        Public Event 图书类型RowChanged As 图书类型RowChangeEventHandler
        
        Public Event 图书类型RowDeleting As 图书类型RowChangeEventHandler
        
        Public Event 图书类型RowDeleted As 图书类型RowChangeEventHandler
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Sub Add图书类型Row(ByVal row As 图书类型Row)
            Me.Rows.Add(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Function Add图书类型Row(ByVal 类型编号 As String, ByVal 类型名称 As String, ByVal 可借天数 As Integer) 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
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindBy类型编号(ByVal 类型编号 As String) As 图书类型Row
            Return CType(Me.Rows.Find(New Object() {类型编号}),图书类型Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overrides Function Clone() As System.Data.DataTable
            Dim cln As 图书类型DataTable = CType(MyBase.Clone,图书类型DataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New 图书类型DataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.column类型编号 = MyBase.Columns("类型编号")
            Me.column类型名称 = MyBase.Columns("类型名称")
            Me.column可借天数 = MyBase.Columns("可借天数")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.column类型编号 = New System.Data.DataColumn("类型编号", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column类型编号)
            Me.column类型名称 = New System.Data.DataColumn("类型名称", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column类型名称)
            Me.column可借天数 = New System.Data.DataColumn("可借天数", GetType(Integer), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column可借天数)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.column类型编号}, true))
            Me.column类型编号.AllowDBNull = false
            Me.column类型编号.Unique = true
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function New图书类型Row() As 图书类型Row
            Return CType(Me.NewRow,图书类型Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New 图书类型Row(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(图书类型Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.图书类型RowChangedEvent) Is Nothing) Then
                RaiseEvent 图书类型RowChanged(Me, New 图书类型RowChangeEvent(CType(e.Row,图书类型Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.图书类型RowChangingEvent) Is Nothing) Then
                RaiseEvent 图书类型RowChanging(Me, New 图书类型RowChangeEvent(CType(e.Row,图书类型Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.图书类型RowDeletedEvent) Is Nothing) Then
                RaiseEvent 图书类型RowDeleted(Me, New 图书类型RowChangeEvent(CType(e.Row,图书类型Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.图书类型RowDeletingEvent) Is Nothing) Then
                RaiseEvent 图书类型RowDeleting(Me, New 图书类型RowChangeEvent(CType(e.Row,图书类型Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Remove图书类型Row(ByVal row As 图书类型Row)
            Me.Rows.Remove(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
            Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
            Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
            Dim ds As DataSet1 = New DataSet1
            xs.Add(ds.GetSchemaSerializable)
            Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "图书类型DataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Return type
        End Function
    End Class
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
     System.Serializable(),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    Partial Public Class 图书征订DataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private column征订编号 As System.Data.DataColumn
        
        Private column图书编号 As System.Data.DataColumn
        
        Private column订购者 As System.Data.DataColumn
        
        Private column订购数量 As System.Data.DataColumn
        
        Private column订购单价 As System.Data.DataColumn
        
        Private column订购日期 As System.Data.DataColumn
        
        Private column订购者联系方式 As System.Data.DataColumn
        
        Private column操作员 As System.Data.DataColumn
        
        Private column是否验收 As System.Data.DataColumn
        
        Private column验收日期 As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "图书征订"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal table As 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
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 征订编号Column() As System.Data.DataColumn
            Get
                Return Me.column征订编号
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 图书编号Column() As System.Data.DataColumn
            Get
                Return Me.column图书编号
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property 订购者Column() As System.Data.DataColumn
            Get