dataset1.designer.vb

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

        End If
        Me.table图书征订 = CType(MyBase.Tables("图书征订"),图书征订DataTable)
        If (initTable = true) Then
            If (Not (Me.table图书征订) Is Nothing) Then
                Me.table图书征订.InitVars
            End If
        End If
        Me.table图书信息 = CType(MyBase.Tables("图书信息"),图书信息DataTable)
        If (initTable = true) Then
            If (Not (Me.table图书信息) Is Nothing) Then
                Me.table图书信息.InitVars
            End If
        End If
        Me.table读者类型 = CType(MyBase.Tables("读者类型"),读者类型DataTable)
        If (initTable = true) Then
            If (Not (Me.table读者类型) Is Nothing) Then
                Me.table读者类型.InitVars
            End If
        End If
        Me.table图书罚款 = CType(MyBase.Tables("图书罚款"),图书罚款DataTable)
        If (initTable = true) Then
            If (Not (Me.table图书罚款) Is Nothing) Then
                Me.table图书罚款.InitVars
            End If
        End If
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Sub InitClass()
        Me.DataSetName = "DataSet1"
        Me.Prefix = ""
        Me.Namespace = "http://www.tempuri.org/DataSet1.xsd"
        Me.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.EnforceConstraints = true
        Me.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        Me.table读者信息 = New 读者信息DataTable
        MyBase.Tables.Add(Me.table读者信息)
        Me.table图书类型 = New 图书类型DataTable
        MyBase.Tables.Add(Me.table图书类型)
        Me.table图书征订 = New 图书征订DataTable
        MyBase.Tables.Add(Me.table图书征订)
        Me.table图书信息 = New 图书信息DataTable
        MyBase.Tables.Add(Me.table图书信息)
        Me.table读者类型 = New 读者类型DataTable
        MyBase.Tables.Add(Me.table读者类型)
        Me.table图书罚款 = New 图书罚款DataTable
        MyBase.Tables.Add(Me.table图书罚款)
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize读者信息() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize图书类型() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize图书征订() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize图书信息() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize读者类型() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerialize图书罚款() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    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
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
        Dim ds As DataSet1 = New DataSet1
        Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
        Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
        xs.Add(ds.GetSchemaSerializable)
        Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
        any.Namespace = ds.Namespace
        sequence.Items.Add(any)
        type.Particle = sequence
        Return type
    End Function
    
    Public Delegate Sub 读者信息RowChangeEventHandler(ByVal sender As Object, ByVal e As 读者信息RowChangeEvent)
    
    Public Delegate Sub 图书类型RowChangeEventHandler(ByVal sender As Object, ByVal e As 图书类型RowChangeEvent)
    
    Public Delegate Sub 图书征订RowChangeEventHandler(ByVal sender As Object, ByVal e As 图书征订RowChangeEvent)
    
    Public Delegate Sub 图书信息RowChangeEventHandler(ByVal sender As Object, ByVal e As 图书信息RowChangeEvent)
    
    Public Delegate Sub 读者类型RowChangeEventHandler(ByVal sender As Object, ByVal e As 读者类型RowChangeEvent)
    
    Public Delegate Sub 图书罚款RowChangeEventHandler(ByVal sender As Object, ByVal e As 图书罚款RowChangeEvent)
    
    <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
        
        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
                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()>  _
        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