dataset1.vb

vb.net+SQL开发工具 是一个很好的管理系统的源码

'------------------------------------------------------------------------------
' <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
    
    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
            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
    
    <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
        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
        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本期汇总账簿)
        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 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