dataset1.designer.vb

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

                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()>  _
        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()>  _
        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 String, ByVal 订购数量 As Integer, ByVal 订购单价 As Decimal, ByVal 订购日期 As Date, ByVal 订购者联系方式 As String, ByVal 操作员 As String, ByVal 是否验收 As Boolean, ByVal 验收日期 As Date) 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("订购者")
            Me.column订购数量 = MyBase.Columns("订购数量")
            Me.column订购单价 = MyBase.Columns("订购单价")
            Me.column订购日期 = MyBase.Columns("订购日期")
            Me.column订购者联系方式 = MyBase.Columns("订购者联系方式")
            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(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.column订购单价 = New System.Data.DataColumn("订购单价", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column订购单价)
            Me.column订购日期 = New System.Data.DataColumn("订购日期", GetType(Date), 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(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column操作员)
            Me.column是否验收 = New System.Data.DataColumn("是否验收", GetType(Boolean), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column是否验收)
            Me.column验收日期 = New System.Data.DataColumn("验收日期", GetType(Date), 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
            Me.column图书编号.AllowDBNull = false
        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 columnISBN 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