dataset1.designer.vb

使用的人力资源管理系统

        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
        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
        
        <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(),  _
         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) 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