dataset1.designer.vb

使用的人力资源管理系统

        
        <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 Integer, ByVal 级数 As String, ByVal 不计税工资 As Decimal, ByVal 工资下限 As Decimal, ByVal 工资上限 As Decimal, ByVal 个人所得税率 As Decimal, ByVal 速算扣除数 As Decimal, 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 Integer) As 个人所得税表Row
            Return CType(Me.Rows.Find(New Object() {编号}),个人所得税表Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overrides Function Clone() As System.Data.DataTable
            Dim cln As 个人所得税表DataTable = CType(MyBase.Clone,个人所得税表DataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New 个人所得税表DataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.column编号 = MyBase.Columns("编号")
            Me.column级数 = MyBase.Columns("级数")
            Me.column不计税工资 = MyBase.Columns("不计税工资")
            Me.column工资下限 = MyBase.Columns("工资下限")
            Me.column工资上限 = MyBase.Columns("工资上限")
            Me.column个人所得税率 = MyBase.Columns("个人所得税率")
            Me.column速算扣除数 = MyBase.Columns("速算扣除数")
            Me.column备注 = MyBase.Columns("备注")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.column编号 = New System.Data.DataColumn("编号", GetType(Integer), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column编号)
            Me.column级数 = New System.Data.DataColumn("级数", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column级数)
            Me.column不计税工资 = New System.Data.DataColumn("不计税工资", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column不计税工资)
            Me.column工资下限 = New System.Data.DataColumn("工资下限", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column工资下限)
            Me.column工资上限 = New System.Data.DataColumn("工资上限", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column工资上限)
            Me.column个人所得税率 = New System.Data.DataColumn("个人所得税率", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column个人所得税率)
            Me.column速算扣除数 = New System.Data.DataColumn("速算扣除数", GetType(Decimal), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column速算扣除数)
            Me.column备注 = New System.Data.DataColumn("备注", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column备注)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.column编号}, true))
            Me.column编号.AllowDBNull = false
            Me.column编号.Unique = true
            Me.column级数.AllowDBNull = false
            Me.column不计税工资.AllowDBNull = false
            Me.column工资下限.AllowDBNull = false
            Me.column工资上限.AllowDBNull = false
            Me.column个人所得税率.AllowDBNull = false
            Me.column速算扣除数.AllowDBNull = false
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function New个人所得税表Row() As 个人所得税表Row
            Return CType(Me.NewRow,个人所得税表Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New 个人所得税表Row(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(个人所得税表Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.个人所得税表RowChangedEvent) Is Nothing) Then
                RaiseEvent 个人所得税表RowChanged(Me, New 个人所得税表RowChangeEvent(CType(e.Row,个人所得税表Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.个人所得税表RowChangingEvent) Is Nothing) Then
                RaiseEvent 个人所得税表RowChanging(Me, New 个人所得税表RowChangeEvent(CType(e.Row,个人所得税表Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.个人所得税表RowDeletedEvent) Is Nothing) Then
                RaiseEvent 个人所得税表RowDeleted(Me, New 个人所得税表RowChangeEvent(CType(e.Row,个人所得税表Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.个人所得税表RowDeletingEvent) Is Nothing) Then
                RaiseEvent 个人所得税表RowDeleting(Me, New 个人所得税表RowChangeEvent(CType(e.Row,个人所得税表Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Remove个人所得税表Row(ByVal row As 个人所得税表Row)
            Me.Rows.Remove(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
            Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
            Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
            Dim ds As DataSet1 = New DataSet1
            xs.Add(ds.GetSchemaSerializable)
            Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "个人所得税表DataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Return type
        End Function
    End Class
    
    <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
        
        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粮副补