dataset1.vb

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

        
        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
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As 月工资统计表Row
            Get
                Return CType(Me.Rows(index),月工资统计表Row)
            End Get
        End Property
        
        Public Event 月工资统计表RowChanged As 月工资统计表RowChangeEventHandler
        
        Public Event 月工资统计表RowChanging As 月工资统计表RowChangeEventHandler
        
        Public Event 月工资统计表RowDeleted As 月工资统计表RowChangeEventHandler
        
        Public Event 月工资统计表RowDeleting As 月工资统计表RowChangeEventHandler
        
        Public Overloads Sub Add月工资统计表Row(ByVal row As 月工资统计表Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add月工资统计表Row( _
                    ByVal 基本工资 As Double,  _
                    ByVal 浮动工资 As Decimal,  _
                    ByVal 合同补 As Decimal,  _
                    ByVal 粮副补 As Decimal,  _
                    ByVal 房补 As Decimal,  _
                    ByVal 临时补 As Decimal,  _
                    ByVal 职务工资 As Decimal,  _
                    ByVal 工龄工资 As Decimal,  _
                    ByVal 考核工资 As Decimal,  _
                    ByVal 奖金 As Decimal,  _
                    ByVal 房租 As Decimal,  _
                    ByVal 水电费 As Decimal,  _
                    ByVal 请假扣除 As Decimal,  _
                    ByVal 考勤扣除 As Decimal,  _
                    ByVal 罚款 As Decimal,  _
                    ByVal 住房公积金 As Decimal,  _
                    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
        
        Public Function FindBy职员编号(ByVal 职员编号 As String) As 月工资统计表Row
            Return CType(Me.Rows.Find(New Object() {职员编号}),月工资统计表Row)
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As 月工资统计表DataTable = CType(MyBase.Clone,月工资统计表DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 月工资统计表DataTable
        End Function
        
        Friend Sub InitVars()
            Me.column基本工资 = Me.Columns("基本工资")
            Me.column浮动工资 = Me.Columns("浮动工资")
            Me.column合同补 = Me.Columns("合同补")
            Me.column粮副补 = Me.Columns("粮副补")
            Me.column房补 = Me.Columns("房补")
            Me.column临时补 = Me.Columns("临时补")
            Me.column职务工资 = Me.Columns("职务工资")
            Me.column工龄工资 = Me.Columns("工龄工资")
            Me.column考核工资 = Me.Columns("考核工资")
            Me.column奖金 = Me.Columns("奖金")
            Me.column房租 = Me.Columns("房租")
            Me.column水电费 = Me.Columns("水电费")
            Me.column请假扣除 = Me.Columns("请假扣除")
            Me.column考勤扣除 = Me.Columns("考勤扣除")
            Me.column罚款 = Me.Columns("罚款")
            Me.column住房公积金 = Me.Columns("住房公积金")
            Me.column医疗保险 = Me.Columns("医疗保险")
            Me.column养老保险 = Me.Columns("养老保险")
            Me.column失业保险 = Me.Columns("失业保险")
            Me.column生育保险 = Me.Columns("生育保险")
            Me.column工伤保险 = Me.Columns("工伤保险")
            Me.column职员编号 = Me.Columns("职员编号")
        End Sub
        
        Private Sub InitClass()
            Me.column基本工资 = New DataColumn("基本工资", GetType(System.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column基本工资)
            Me.column浮动工资 = New DataColumn("浮动工资", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column浮动工资)
            Me.column合同补 = New DataColumn("合同补", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column合同补)
            Me.column粮副补 = New DataColumn("粮副补", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column粮副补)
            Me.column房补 = New DataColumn("房补", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column房补)
            Me.column临时补 = New DataColumn("临时补", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column临时补)
            Me.column职务工资 = New DataColumn("职务工资", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column职务工资)
            Me.column工龄工资 = New DataColumn("工龄工资", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column工龄工资)
            Me.column考核工资 = New DataColumn("考核工资", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column考核工资)
            Me.column奖金 = New DataColumn("奖金", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column奖金)
            Me.column房租 = New DataColumn("房租", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column房租)
            Me.column水电费 = New DataColumn("水电费", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column水电费)
            Me.column请假扣除 = New DataColumn("请假扣除", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column请假扣除)
            Me.column考勤扣除 = New DataColumn("考勤扣除", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column考勤扣除)
            Me.column罚款 = New DataColumn("罚款", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column罚款)
            Me.column住房公积金 = New DataColumn("住房公积金", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column住房公积金)
            Me.column医疗保险 = New DataColumn("医疗保险", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column医疗保险)
            Me.column养老保险 = New DataColumn("养老保险", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column养老保险)
            Me.column失业保险 = New DataColumn("失业保险", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column失业保险)
            Me.column生育保险 = New DataColumn("生育保险", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column生育保险)
            Me.column工伤保险 = New DataColumn("工伤保险", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column工伤保险)
            Me.column职员编号 = New DataColumn("职员编号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column职员编号)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column职员编号}, true))
            Me.column职员编号.AllowDBNull = false
            Me.column职员编号.Unique = true
        End Sub
        
        Public Function New月工资统计表Row() As 月工资统计表Row
            Return CType(Me.NewRow,月工资统计表Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 月工资统计表Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(月工资统计表Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As 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
        
        Protected Overrides Sub OnRowChanging(ByVal e As 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
        
        Protected Overrides Sub OnRowDeleted(ByVal e As 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
        
        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 Double
            Get
                Try 
                    Return CType(Me(Me.table月工资统计表.基本工资Column),Double)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table月工资统计表.基本工资Column) = value
            End Set
        End Property
        
        Public Property 浮动工资 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table月工资统计表.浮动工资Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table月工资统计表.浮动工资Column) = value
            End Set
        End Property
        
        Public Property 合同补 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table月工资统计表.合同补Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table月工资统计表.合同补Column) = value
            End Set
        End Property
        
        Public Property 粮副补 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table月工资统计表.粮副补Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table月工资统计表.粮副补Column) = value
            End Set
        End Property
        
        Public Property 房补 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table月工资统计表.房补Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                M