attendanceitem.vb

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

Imports CommonSystem

' 考勤项目记录类，每个考勤记录右若干该记录组成
Public Class AttendanceItem

#Region "Members"
    'Public m_iAttendanceId As Integer
    Private m_iItemId As Integer
    Private m_sItemName As String
    Private m_sUnit As String
    Public Amount As Single
    Public Field As String
#End Region

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

    Public Property Name() As String
        Get
            Return m_sItemName
        End Get
        Set(ByVal Value As String)
            m_sItemName = Value
        End Set
    End Property

    Public Property Unit() As String
        Get
            Return m_sUnit
        End Get
        Set(ByVal Value As String)
            m_sUnit = Value
        End Set
    End Property
#End Region

#Region "Constructions"
    Public Sub New(ByVal iId As Integer, ByVal sName As String, ByVal sUnit As String, ByVal sField As String, Optional ByVal fAmount As Single = 0.0)
        m_iItemId = iId
        m_sItemName = sName
        m_sUnit = sUnit
        Field = sField
        Amount = fAmount
    End Sub
#End Region

    Public Function Calculate() As Single

    End Function

End Class ' END CLASS DEFINITION AttendanceItem


Public Class AttendanceItemCollection

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

#Region "Properties"
    Default Public Property Item(ByVal iItemId As Integer) As AttendanceItem
        Get
            For Each oAI As AttendanceItem In m_oItems
                If oAI.Id = iItemId Then
                    Return oAI
                    Exit Property
                End If
            Next
            Return Nothing
        End Get
        Set(ByVal Value As AttendanceItem)
            For Each oAI As AttendanceItem 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 AttendanceItem)
        For Each oAI As AttendanceItem 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 AttendanceItem 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