dataset1.vb

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

        Protected Overrides Sub OnRowDeleting(ByVal e As 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
        
        Public Sub Remove个人所得税表Row(ByVal row As 个人所得税表Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 个人所得税表Row
        Inherits DataRow
        
        Private table个人所得税表 As 个人所得税表DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table个人所得税表 = CType(Me.Table,个人所得税表DataTable)
        End Sub
        
        Public Property 编号 As Integer
            Get
                Return CType(Me(Me.table个人所得税表.编号Column),Integer)
            End Get
            Set
                Me(Me.table个人所得税表.编号Column) = value
            End Set
        End Property
        
        Public Property 级数 As String
            Get
                Return CType(Me(Me.table个人所得税表.级数Column),String)
            End Get
            Set
                Me(Me.table个人所得税表.级数Column) = value
            End Set
        End Property
        
        Public Property 不计税工资 As Decimal
            Get
                Return CType(Me(Me.table个人所得税表.不计税工资Column),Decimal)
            End Get
            Set
                Me(Me.table个人所得税表.不计税工资Column) = value
            End Set
        End Property
        
        Public Property 工资下限 As Decimal
            Get
                Return CType(Me(Me.table个人所得税表.工资下限Column),Decimal)
            End Get
            Set
                Me(Me.table个人所得税表.工资下限Column) = value
            End Set
        End Property
        
        Public Property 工资上限 As Decimal
            Get
                Return CType(Me(Me.table个人所得税表.工资上限Column),Decimal)
            End Get
            Set
                Me(Me.table个人所得税表.工资上限Column) = value
            End Set
        End Property
        
        Public Property 个人所得税率 As Decimal
            Get
                Return CType(Me(Me.table个人所得税表.个人所得税率Column),Decimal)
            End Get
            Set
                Me(Me.table个人所得税表.个人所得税率Column) = value
            End Set
        End Property
        
        Public Property 速算扣除数 As Decimal
            Get
                Return CType(Me(Me.table个人所得税表.速算扣除数Column),Decimal)
            End Get
            Set
                Me(Me.table个人所得税表.速算扣除数Column) = value
            End Set
        End Property
        
        Public Property 备注 As String
            Get
                Try 
                    Return CType(Me(Me.table个人所得税表.备注Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table个人所得税表.备注Column) = value
            End Set
        End Property
        
        Public Function Is备注Null() As Boolean
            Return Me.IsNull(Me.table个人所得税表.备注Column)
        End Function
        
        Public Sub Set备注Null()
            Me(Me.table个人所得税表.备注Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 个人所得税表RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 个人所得税表Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 个人所得税表Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 个人所得税表Row
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
    
    <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
        
        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
        
        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("月工资统计表")
            Me.InitClass
        End Sub
        
        Friend Sub New(ByVal table As DataTable)
            MyBase.New(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
            Me.DisplayExpression = table.DisplayExpression
        End Sub
        
        <System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        Friend ReadOnly Property 基本工资Column As DataColumn
            Get
                Return Me.column基本工资
            End Get
        End Property
        
        Friend ReadOnly Property 浮动工资Column As DataColumn
            Get
                Return Me.column浮动工资
            End Get
        End Property
        
        Friend ReadOnly Property 合同补Column As DataColumn
            Get
                Return Me.column合同补
            End Get
        End Property
        
        Friend ReadOnly Property 粮副补Column As DataColumn
            Get
                Return Me.column粮副补
            End Get
        End Property
        
        Friend ReadOnly Property 房补Column As DataColumn
            Get
                Return Me.column房补
            End Get
        End Property
        
        Friend ReadOnly Property 临时补Column As DataColumn
            Get
                Return Me.column临时补
            End Get
        End Property
        
        Friend ReadOnly Property 职务工资Column As DataColumn
            Get
                Return Me.column职务工资
            End Get
        End Property
        
        Friend ReadOnly Property 工龄工资Column As DataColumn
            Get
                Return Me.column工龄工资
            End Get
        End Property
        
        Friend ReadOnly Property 考核工资Column As DataColumn
            Get
                Return Me.column考核工资
            End Get
        End Property
        
        Friend ReadOnly Property 奖金Column As DataColumn
            Get
                Return Me.column奖金
            End Get
        End Property
        
        Friend ReadOnly Property 房租Column As DataColumn
            Get
                Return Me.column房租
            End Get
        End Property
        
        Friend ReadOnly Property 水电费Column As DataColumn
            Get
                Return Me.column水电费
            End Get
        End Property
        
        Friend ReadOnly Property 请假扣除Column As DataColumn
            Get
                Return Me.column请假扣除
            End Get
        End Property
        
        Friend ReadOnly Property 考勤扣除Column As DataColumn
            Get
                Return Me.column考勤扣除
            End Get
        End Property
        
        Friend ReadOnly Property 罚款Column As DataColumn
            Get
                Return Me.column罚款
            End Get
        End Property