?? dataset1.vb
字號(hào):
?'------------------------------------------------------------------------------
' <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 DataSet1
Inherits DataSet
Private table讀者信息 As 讀者信息DataTable
Private table圖書類型 As 圖書類型DataTable
Private table圖書征訂 As 圖書征訂DataTable
Private table圖書信息 As 圖書信息DataTable
Private table讀者類型 As 讀者類型DataTable
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
If (Not (ds.Tables("圖書類型")) Is Nothing) Then
Me.Tables.Add(New 圖書類型DataTable(ds.Tables("圖書類型")))
End If
If (Not (ds.Tables("圖書征訂")) Is Nothing) Then
Me.Tables.Add(New 圖書征訂DataTable(ds.Tables("圖書征訂")))
End If
If (Not (ds.Tables("圖書信息")) Is Nothing) Then
Me.Tables.Add(New 圖書信息DataTable(ds.Tables("圖書信息")))
End If
If (Not (ds.Tables("讀者類型")) Is Nothing) Then
Me.Tables.Add(New 讀者類型DataTable(ds.Tables("讀者類型")))
End If
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
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property 圖書類型 As 圖書類型DataTable
Get
Return Me.table圖書類型
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property 圖書征訂 As 圖書征訂DataTable
Get
Return Me.table圖書征訂
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property 圖書信息 As 圖書信息DataTable
Get
Return Me.table圖書信息
End Get
End Property
<System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property 讀者類型 As 讀者類型DataTable
Get
Return Me.table讀者類型
End Get
End Property
<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 DataSet1 = CType(MyBase.Clone,DataSet1)
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
If (Not (ds.Tables("圖書類型")) Is Nothing) Then
Me.Tables.Add(New 圖書類型DataTable(ds.Tables("圖書類型")))
End If
If (Not (ds.Tables("圖書征訂")) Is Nothing) Then
Me.Tables.Add(New 圖書征訂DataTable(ds.Tables("圖書征訂")))
End If
If (Not (ds.Tables("圖書信息")) Is Nothing) Then
Me.Tables.Add(New 圖書信息DataTable(ds.Tables("圖書信息")))
End If
If (Not (ds.Tables("讀者類型")) Is Nothing) Then
Me.Tables.Add(New 讀者類型DataTable(ds.Tables("讀者類型")))
End If
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
Me.table圖書類型 = CType(Me.Tables("圖書類型"),圖書類型DataTable)
If (Not (Me.table圖書類型) Is Nothing) Then
Me.table圖書類型.InitVars
End If
Me.table圖書征訂 = CType(Me.Tables("圖書征訂"),圖書征訂DataTable)
If (Not (Me.table圖書征訂) Is Nothing) Then
Me.table圖書征訂.InitVars
End If
Me.table圖書信息 = CType(Me.Tables("圖書信息"),圖書信息DataTable)
If (Not (Me.table圖書信息) Is Nothing) Then
Me.table圖書信息.InitVars
End If
Me.table讀者類型 = CType(Me.Tables("讀者類型"),讀者類型DataTable)
If (Not (Me.table讀者類型) Is Nothing) Then
Me.table讀者類型.InitVars
End If
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 = "DataSet1"
Me.Prefix = ""
Me.Namespace = "http://www.tempuri.org/DataSet1.xsd"
Me.Locale = New System.Globalization.CultureInfo("zh-CN")
Me.CaseSensitive = false
Me.EnforceConstraints = true
Me.table讀者信息 = New 讀者信息DataTable
Me.Tables.Add(Me.table讀者信息)
Me.table圖書類型 = New 圖書類型DataTable
Me.Tables.Add(Me.table圖書類型)
Me.table圖書征訂 = New 圖書征訂DataTable
Me.Tables.Add(Me.table圖書征訂)
Me.table圖書信息 = New 圖書信息DataTable
Me.Tables.Add(Me.table圖書信息)
Me.table讀者類型 = New 讀者類型DataTable
Me.Tables.Add(Me.table讀者類型)
Me.table圖書罰款 = New 圖書罰款DataTable
Me.Tables.Add(Me.table圖書罰款)
End Sub
Private Function ShouldSerialize讀者信息() As Boolean
Return false
End Function
Private Function ShouldSerialize圖書類型() As Boolean
Return false
End Function
Private Function ShouldSerialize圖書征訂() As Boolean
Return false
End Function
Private Function ShouldSerialize圖書信息() As Boolean
Return false
End Function
Private Function ShouldSerialize讀者類型() As Boolean
Return false
End Function
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)
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.Diagnostics.DebuggerStepThrough()> _
Public Class 讀者信息DataTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private column條形碼 As DataColumn
Private column編號(hào) As DataColumn
Private column姓名 As DataColumn
Private column性別 As DataColumn
Private column類型 As DataColumn
Private column有效證件 As DataColumn
Private column證件號(hào)碼 As DataColumn
Private column聯(lián)系方式 As DataColumn
Private column登記日期 As DataColumn
Private column有限期至 As DataColumn
Private column是否掛失 As DataColumn
Private column圖書借閱次數(shù) As DataColumn
Private column期刊借閱次數(shù) As DataColumn
Private column操作員 As DataColumn
Private column出生日期 As DataColumn
Private column備注 As DataColumn
Friend Sub New()
MyBase.New("讀者信息")
Me.InitClass
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -