dataset1.designer.vb

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

        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 String,  _
                    ByVal 类型 As String,  _
                    ByVal 有效证件 As String,  _
                    ByVal 证件号码 As String,  _
                    ByVal 联系方式 As String,  _
                    ByVal 登记日期 As Date,  _
                    ByVal 有限期至 As Date,  _
                    ByVal 是否挂失 As Boolean,  _
                    ByVal 图书借阅次数 As Integer,  _
                    ByVal 期刊借阅次数 As Integer,  _
                    ByVal 操作员 As String,  _
                    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
        
        <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("有限期至")
            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(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(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(Date), 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(Boolean), 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(Integer), 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(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.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
            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
        
        <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