dspayrollitem.vb

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

        
        Public Default ReadOnly Property Item(ByVal index As Integer) As payroll_itemRow
            Get
                Return CType(Me.Rows(index),payroll_itemRow)
            End Get
        End Property
        
        Public Event payroll_itemRowChanged As payroll_itemRowChangeEventHandler
        
        Public Event payroll_itemRowChanging As payroll_itemRowChangeEventHandler
        
        Public Event payroll_itemRowDeleted As payroll_itemRowChangeEventHandler
        
        Public Event payroll_itemRowDeleting As payroll_itemRowChangeEventHandler
        
        Public Overloads Sub Addpayroll_itemRow(ByVal row As payroll_itemRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Addpayroll_itemRow(ByVal name As String, ByVal field As String, ByVal expression As String) As payroll_itemRow
            Dim rowpayroll_itemRow As payroll_itemRow = CType(Me.NewRow,payroll_itemRow)
            rowpayroll_itemRow.ItemArray = New Object() {Nothing, name, field, expression}
            Me.Rows.Add(rowpayroll_itemRow)
            Return rowpayroll_itemRow
        End Function
        
        Public Function FindByid(ByVal id As Integer) As payroll_itemRow
            Return CType(Me.Rows.Find(New Object() {id}),payroll_itemRow)
        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_itemDataTable = CType(MyBase.Clone,payroll_itemDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New payroll_itemDataTable
        End Function
        
        Friend Sub InitVars()
            Me.columnid = Me.Columns("id")
            Me.columnname = Me.Columns("name")
            Me.columnfield = Me.Columns("field")
            Me.columnexpression = Me.Columns("expression")
        End Sub
        
        Private Sub InitClass()
            Me.columnid = New DataColumn("id", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnid)
            Me.columnname = New DataColumn("name", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnname)
            Me.columnfield = New DataColumn("field", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnfield)
            Me.columnexpression = New DataColumn("expression", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnexpression)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnid}, true))
            Me.columnid.AutoIncrement = true
            Me.columnid.AllowDBNull = false
            Me.columnid.ReadOnly = true
            Me.columnid.Unique = true
            Me.columnname.AllowDBNull = false
            Me.columnfield.AllowDBNull = false
        End Sub
        
        Public Function Newpayroll_itemRow() As payroll_itemRow
            Return CType(Me.NewRow,payroll_itemRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New payroll_itemRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(payroll_itemRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.payroll_itemRowChangedEvent) Is Nothing) Then
                RaiseEvent payroll_itemRowChanged(Me, New payroll_itemRowChangeEvent(CType(e.Row,payroll_itemRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.payroll_itemRowChangingEvent) Is Nothing) Then
                RaiseEvent payroll_itemRowChanging(Me, New payroll_itemRowChangeEvent(CType(e.Row,payroll_itemRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.payroll_itemRowDeletedEvent) Is Nothing) Then
                RaiseEvent payroll_itemRowDeleted(Me, New payroll_itemRowChangeEvent(CType(e.Row,payroll_itemRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.payroll_itemRowDeletingEvent) Is Nothing) Then
                RaiseEvent payroll_itemRowDeleting(Me, New payroll_itemRowChangeEvent(CType(e.Row,payroll_itemRow), e.Action))
            End If
        End Sub
        
        Public Sub Removepayroll_itemRow(ByVal row As payroll_itemRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class payroll_itemRow
        Inherits DataRow
        
        Private tablepayroll_item As payroll_itemDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tablepayroll_item = CType(Me.Table,payroll_itemDataTable)
        End Sub
        
        Public Property id As Integer
            Get
                Return CType(Me(Me.tablepayroll_item.idColumn),Integer)
            End Get
            Set
                Me(Me.tablepayroll_item.idColumn) = value
            End Set
        End Property
        
        Public Property name As String
            Get
                Return CType(Me(Me.tablepayroll_item.nameColumn),String)
            End Get
            Set
                Me(Me.tablepayroll_item.nameColumn) = value
            End Set
        End Property
        
        Public Property field As String
            Get
                Return CType(Me(Me.tablepayroll_item.fieldColumn),String)
            End Get
            Set
                Me(Me.tablepayroll_item.fieldColumn) = value
            End Set
        End Property
        
        Public Property expression As String
            Get
                Try 
                    Return CType(Me(Me.tablepayroll_item.expressionColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablepayroll_item.expressionColumn) = value
            End Set
        End Property
        
        Public Function IsexpressionNull() As Boolean
            Return Me.IsNull(Me.tablepayroll_item.expressionColumn)
        End Function
        
        Public Sub SetexpressionNull()
            Me(Me.tablepayroll_item.expressionColumn) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class payroll_itemRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As payroll_itemRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As payroll_itemRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As payroll_itemRow
            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