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
    
    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拼音编码 As DataColumn
        
        Private column单位地址 As DataColumn
        
        Private column单位电话号码 As DataColumn
        
        Private column开户银行 As DataColumn
        
        Private column帐号 As DataColumn
        
        Private column开户全称 As DataColumn
        
        Private column单位编号 As DataColumn
        
        Friend Sub New()
            MyBase.New("组织机构编码表")