payrollitem.vb

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

Imports CommonSystem

' 工资项目表，用于设置组成工资的子项目。
Public Class PayrollItem
#Region "Members"
    Private m_iItemId As Integer
    Private m_sItemName As String
    Private m_sItemField As String
    Private m_sItemExpression As String
    Public Sum As Single
#End Region

#Region "Properties"
    Public ReadOnly Property Id() As String
        Get
            Return m_iItemId
        End Get
    End Property

    Public ReadOnly Property Name() As String
        Get
            Return m_sItemName
        End Get
    End Property

    Public ReadOnly Property Field() As String
        Get
            Return m_sItemField
        End Get
    End Property

    Public Property Expression() As String
        Get
            Return m_sItemExpression
        End Get
        Set(ByVal Value As String)
            m_sItemExpression = Value
        End Set
    End Property
#End Region

#Region "Constructions"
    Public Sub New(ByVal iId As Integer, ByVal sName As String, ByVal sField As String, ByVal sExpression As String, Optional ByVal fSum As Single = 0.0)
        m_iItemId = iId
        m_sItemName = sName
        m_sItemField = sField
        m_sItemExpression = sExpression
        Sum = fSum
    End Sub
#End Region

End Class ' END CLASS DEFINITION PayrollItem

Public Class PayrollItemCollection

#Region "Members"
    Private m_oItems As ArrayList
#End Region

#Region "Properties"
    Default Public Property Item(ByVal iItemId As Integer) As PayrollItem
        Get
            For Each oAI As PayrollItem In m_oItems
                If oAI.Id = iItemId Then
                    Return oAI
                    Exit Property
                End If
            Next
            Return Nothing
        End Get
        Set(ByVal Value As PayrollItem)
            For Each oAI As PayrollItem In m_oItems
                If oAI.Id = iItemId Then
                    oAI = Value
                    Exit Property
                End If
            Next
            m_oItems.Add(Value)
        End Set
    End Property

    Public ReadOnly Property Items() As ArrayList
        Get
            Return m_oItems
        End Get
    End Property
#End Region

#Region "Construcions"
    Public Sub New()
        m_oItems = New ArrayList
    End Sub
#End Region

#Region "Operations"
    Public Sub Add(ByVal iItemId As Integer, ByVal oItem As PayrollItem)
        For Each oAI As PayrollItem In m_oItems
            If oAI.Id = iItemId Then
                oAI = oItem
                Exit Sub
            End If
        Next
        m_oItems.Add(oItem)
    End Sub

    Public Sub Remove(ByVal iItemId As Integer)
        For Each oAI As PayrollItem In m_oItems
            If oAI.Id = iItemId Then
                m_oItems.Remove(oAI)
                Exit Sub
            End If
        Next
    End Sub

    Public Sub Clear()
        m_oItems.Clear()
    End Sub
#End Region
End Class