dspayrolllevel.vb

人事管理系统（VB.NET2005+SQL Server2005）

            Get
                Return CType(Me.Rows(index),payroll_levelRow)
            End Get
        End Property
        
        Public Event payroll_levelRowChanged As payroll_levelRowChangeEventHandler
        
        Public Event payroll_levelRowChanging As payroll_levelRowChangeEventHandler
        
        Public Event payroll_levelRowDeleted As payroll_levelRowChangeEventHandler
        
        Public Event payroll_levelRowDeleting As payroll_levelRowChangeEventHandler
        
        Public Overloads Sub Addpayroll_levelRow(ByVal row As payroll_levelRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Addpayroll_levelRow(ByVal 员工级别 As Integer, ByVal 系数 As Double, ByVal 角色 As String) As payroll_levelRow
            Dim rowpayroll_levelRow As payroll_levelRow = CType(Me.NewRow,payroll_levelRow)
            rowpayroll_levelRow.ItemArray = New Object() {员工级别, 系数, 角色}
            Me.Rows.Add(rowpayroll_levelRow)
            Return rowpayroll_levelRow
        End Function
        
        Public Function FindBy员工级别(ByVal 员工级别 As Integer) As payroll_levelRow
            Return CType(Me.Rows.Find(New Object() {员工级别}),payroll_levelRow)
        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 payroll_levelDataTable = CType(MyBase.Clone,payroll_levelDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New payroll_levelDataTable
        End Function
        
        Friend Sub InitVars()
            Me.column员工级别 = Me.Columns("员工级别")
            Me.column系数 = Me.Columns("系数")
            Me.column角色 = Me.Columns("角色")
        End Sub
        
        Private Sub InitClass()
            Me.column员工级别 = New DataColumn("员工级别", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column员工级别)
            Me.column系数 = New DataColumn("系数", GetType(System.Double), 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 Newpayroll_levelRow() As payroll_levelRow
            Return CType(Me.NewRow,payroll_levelRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New payroll_levelRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(payroll_levelRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.payroll_levelRowChangedEvent) Is Nothing) Then
                RaiseEvent payroll_levelRowChanged(Me, New payroll_levelRowChangeEvent(CType(e.Row,payroll_levelRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.payroll_levelRowChangingEvent) Is Nothing) Then
                RaiseEvent payroll_levelRowChanging(Me, New payroll_levelRowChangeEvent(CType(e.Row,payroll_levelRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.payroll_levelRowDeletedEvent) Is Nothing) Then
                RaiseEvent payroll_levelRowDeleted(Me, New payroll_levelRowChangeEvent(CType(e.Row,payroll_levelRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.payroll_levelRowDeletingEvent) Is Nothing) Then
                RaiseEvent payroll_levelRowDeleting(Me, New payroll_levelRowChangeEvent(CType(e.Row,payroll_levelRow), e.Action))
            End If
        End Sub
        
        Public Sub Removepayroll_levelRow(ByVal row As payroll_levelRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class payroll_levelRow
        Inherits DataRow
        
        Private tablepayroll_level As payroll_levelDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tablepayroll_level = CType(Me.Table,payroll_levelDataTable)
        End Sub
        
        Public Property 员工级别 As Integer
            Get
                Return CType(Me(Me.tablepayroll_level.员工级别Column),Integer)
            End Get
            Set
                Me(Me.tablepayroll_level.员工级别Column) = value
            End Set
        End Property
        
        Public Property 系数 As Double
            Get
                Try 
                    Return CType(Me(Me.tablepayroll_level.系数Column),Double)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablepayroll_level.系数Column) = value
            End Set
        End Property
        
        Public Property 角色 As String
            Get
                Try 
                    Return CType(Me(Me.tablepayroll_level.角色Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablepayroll_level.角色Column) = value
            End Set
        End Property
        
        Public Function Is系数Null() As Boolean
            Return Me.IsNull(Me.tablepayroll_level.系数Column)
        End Function
        
        Public Sub Set系数Null()
            Me(Me.tablepayroll_level.系数Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is角色Null() As Boolean
            Return Me.IsNull(Me.tablepayroll_level.角色Column)
        End Function
        
        Public Sub Set角色Null()
            Me(Me.tablepayroll_level.角色Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class payroll_levelRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As payroll_levelRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As payroll_levelRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As payroll_levelRow
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class