VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsPlan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'歡迎你下載使用本代碼，本份代碼由程序太平洋提供下載學(xué)習(xí)之用
'聲明:
'1.本站所有代碼的版權(quán)歸原作者所有，如果你使用了在本站下載的源代碼
'  引起的一切糾紛(后果)與本站無(wú)關(guān),請(qǐng)您尊重原作者的勞動(dòng)成果！
'2.若本站在代碼上有侵權(quán)之處請(qǐng)您與站長(zhǎng)聯(lián)系，站長(zhǎng)會(huì)及時(shí)更正。
'網(wǎng)站：http://www.daima.com.cn
'程序太平洋：http://www.5ivb.net
'Email:dapha@etang.com
'CopyRight 2001-2005 By WangFeng
'整理時(shí)間：2004-12-14 23:41:45

''*************************************************************************
''**模 塊 名：clsPlan
''**說(shuō)    明：多易工作室
''**創(chuàng) 建 人：鄔浩杰
''**日    期：2004-12-14
''**修 改 人：
''**日    期：
''**描    述：
''**版    本：V1.0.0
''*************************************************************************
'******************************************************************************
'工作計(jì)劃類(lèi)
'******************************************************************************

Option Explicit

Dim mPlanArryStr(INT_PLAN_TITLE_COUNT_NUMBER - 1) As String
Dim mbIsChangedDate As Boolean

'===========================================================
'以下是屬性
Public Property Get IsChangedDate() As Boolean
    IsChangedDate = mbIsChangedDate
End Property
Public Property Let IsChangedDate(bValue As Boolean)
    mbIsChangedDate = bValue
End Property

Public Property Get ID() As String
    ID = mPlanArryStr(INT_PLAN_TITLE_ID)
End Property
Public Property Let ID(strID As String)
    mPlanArryStr(INT_PLAN_TITLE_ID) = strID
End Property

Public Property Get Client() As String
    Client = mPlanArryStr(INT_PLAN_TITLE_CLIENT)
End Property
Public Property Let Client(strClient As String)
    mPlanArryStr(INT_PLAN_TITLE_CLIENT) = strClient
End Property

Public Property Get Item() As String
    Item = mPlanArryStr(INT_PLAN_TITLE_ITEM)
End Property
Public Property Let Item(strItem As String)
    mPlanArryStr(INT_PLAN_TITLE_ITEM) = strItem
End Property

Public Property Get StartDate() As String
    StartDate = mPlanArryStr(INT_PLAN_TITLE_START_DATE)
End Property
Public Property Let StartDate(strStartDate As String)
    mPlanArryStr(INT_PLAN_TITLE_START_DATE) = strStartDate
End Property

Public Property Get FinishDate() As String
    FinishDate = mPlanArryStr(INT_PLAN_TITLE_FINISH_DATE)
End Property
Public Property Let FinishDate(strFinishDate As String)
    mPlanArryStr(INT_PLAN_TITLE_FINISH_DATE) = strFinishDate
End Property

Public Property Get RemindMe() As String
    RemindMe = mPlanArryStr(INT_PLAN_TITLE_REMIND_ME)
End Property
Public Property Let RemindMe(strRemindMe As String)
    mPlanArryStr(INT_PLAN_TITLE_REMIND_ME) = strRemindMe
End Property

Public Property Get StartRemind() As String
    StartRemind = mPlanArryStr(INT_PLAN_TITLE_START_REMIND)
End Property
Public Property Let StartRemind(strStartRemind As String)
    mPlanArryStr(INT_PLAN_TITLE_START_REMIND) = strStartRemind
End Property

Public Property Get EndRemind() As String
    EndRemind = mPlanArryStr(INT_PLAN_TITLE_END_REMIND)
End Property
Public Property Let EndRemind(strEndRemind As String)
    mPlanArryStr(INT_PLAN_TITLE_END_REMIND) = strEndRemind
End Property

Public Property Get OperatePerson() As String
    OperatePerson = mPlanArryStr(INT_PLAN_TITLE_OPERATE_PERSON)
End Property
Public Property Let OperatePerson(strOperatePerson As String)
    mPlanArryStr(INT_PLAN_TITLE_OPERATE_PERSON) = strOperatePerson
End Property

Public Property Get Project() As String
    Project = mPlanArryStr(INT_PLAN_TITLE_PROJECT)
End Property
Public Property Let Project(strProject As String)
    mPlanArryStr(INT_PLAN_TITLE_PROJECT) = strProject
End Property

Public Property Get Important() As String
    Important = mPlanArryStr(INT_PLAN_TITLE_IMPORTANT)
End Property
Public Property Let Important(strImportant As String)
    mPlanArryStr(INT_PLAN_TITLE_IMPORTANT) = strImportant
End Property

Public Property Get Remark() As String
    Remark = mPlanArryStr(INT_PLAN_TITLE_REMARK)
End Property
Public Property Let Remark(strRemark As String)
    mPlanArryStr(INT_PLAN_TITLE_REMARK) = strRemark
End Property

Public Property Get Auditing() As String
    Auditing = mPlanArryStr(INT_PLAN_TITLE_AUDITING)
End Property
Public Property Let Auditing(strAuditing As String)
    mPlanArryStr(INT_PLAN_TITLE_AUDITING) = strAuditing
End Property

Public Property Get FinishSign() As String
    FinishSign = mPlanArryStr(INT_PLAN_TITLE_FINISH_SIGN)
End Property
Public Property Let FinishSign(strFINISH_SIGN As String)
    mPlanArryStr(INT_PLAN_TITLE_FINISH_SIGN) = strFINISH_SIGN
End Property

Public Property Get DutyPerson() As String
    DutyPerson = mPlanArryStr(INT_PLAN_TITLE_DUTY_PERSON)
End Property
Public Property Let DutyPerson(strDutyPerson As String)
    mPlanArryStr(INT_PLAN_TITLE_DUTY_PERSON) = strDutyPerson
End Property

Public Property Get RegisterDate() As String
    RegisterDate = mPlanArryStr(INT_PLAN_TITLE_REGISTER_DATE)
End Property
Public Property Let RegisterDate(strRegisterDate As String)
    mPlanArryStr(INT_PLAN_TITLE_REGISTER_DATE) = strRegisterDate
End Property

'取得由nIndex指定的相應(yīng)的屬性值
Public Property Get MyProperty(nIndex As Integer) As String
    If nIndex >= 0 And nIndex < INT_PLAN_TITLE_COUNT_NUMBER Then
        MyProperty = mPlanArryStr(nIndex)
    End If
End Property

'設(shè)置由 nIndex (屬性編號(hào),在mdlClient里定義) 指定的屬性的值為 strValue
Public Property Let MyProperty(nIndex As Integer, strValue As String)
    Select Case nIndex
        Case INT_PLAN_TITLE_REGISTER_DATE
            If CStr(strValue) = "" Then
                strValue = Date
            End If
            Me.RegisterDate = strValue                     '24 '"登記日期"

        Case INT_PLAN_TITLE_AUDITING
            If CStr(strValue) = "" Then
                strValue = "未審核"
            End If
            Me.Auditing = strValue                         '"審核標(biāo)志"
        Case Else
            If nIndex >= 0 And nIndex < INT_PLAN_TITLE_COUNT_NUMBER Then
                mPlanArryStr(nIndex) = strValue
            End If
    End Select
End Property
'=================================================================