clsplan.cls

客户管理是CRM的基础核心部分

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
'******************************************************************************
'工作计划类
'******************************************************************************

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指定的相应的属性值
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

'设置由 nIndex (属性编号,在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                         '"审核标志"
        Case Else
            If nIndex >= 0 And nIndex < INT_PLAN_TITLE_COUNT_NUMBER Then
                mPlanArryStr(nIndex) = strValue
            End If
    End Select
End Property
'=================================================================