clscilent.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 = "clsClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'******************************************************************************
'客户类
'******************************************************************************
Option Explicit
Dim mClientArryStr(INT_CLIENT_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 = mClientArryStr(INT_CLIENT_TITLE_ID)
End Property
Public Property Let ID(strID As String)
    mClientArryStr(INT_CLIENT_TITLE_ID) = strID
End Property


Public Property Get NAME() As String
    NAME = mClientArryStr(INT_CLIENT_TITLE_NAME)
End Property
Public Property Let NAME(strName As String)
    mClientArryStr(INT_CLIENT_TITLE_NAME) = strName
End Property


Public Property Let CORPORATION(strCorporation As String)
    mClientArryStr(INT_CLIENT_TITLE_CORPORATION) = strCorporation
End Property
Public Property Get CORPORATION() As String
    CORPORATION = mClientArryStr(INT_CLIENT_TITLE_CORPORATION)
End Property

Public Property Let PROPERTY(strProperty As String)
    mClientArryStr(INT_CLIENT_TITLE_PROPERTY) = strProperty
End Property
Public Property Get PROPERTY() As String
    PROPERTY = mClientArryStr(INT_CLIENT_TITLE_PROPERTY)
End Property


Public Property Get KIND() As String
    KIND = mClientArryStr(INT_CLIENT_TITLE_KIND)
End Property
Public Property Let KIND(strKind As String)
    mClientArryStr(INT_CLIENT_TITLE_KIND) = strKind
End Property
Public Property Get SOURCE() As String
    SOURCE = mClientArryStr(INT_CLIENT_TITLE_SOURCE)
End Property
Public Property Let SOURCE(strSource As String)
    mClientArryStr(INT_CLIENT_TITLE_SOURCE) = strSource
End Property
Public Property Get PHONE() As String
    PHONE = mClientArryStr(INT_CLIENT_TITLE_PHONE)
End Property
Public Property Let PHONE(strPhone As String)
    mClientArryStr(INT_CLIENT_TITLE_PHONE) = strPhone
End Property
Public Property Get FAX() As String
    FAX = mClientArryStr(INT_CLIENT_TITLE_FAX)
End Property
Public Property Let FAX(strFax As String)
    mClientArryStr(INT_CLIENT_TITLE_FAX) = strFax
End Property
Public Property Get MAIL() As String
    MAIL = mClientArryStr(INT_CLIENT_TITLE_MAIL)
End Property
Public Property Let MAIL(strMail As String)
    mClientArryStr(INT_CLIENT_TITLE_MAIL) = strMail
End Property
Public Property Get URL() As String
    URL = mClientArryStr(INT_CLIENT_TITLE_URL)
End Property
Public Property Let URL(strURL As String)
    mClientArryStr(INT_CLIENT_TITLE_URL) = strURL
End Property
Public Property Get INDUSTRY() As String
    INDUSTRY = mClientArryStr(INT_CLIENT_TITLE_INDUSTRY)
End Property
Public Property Let INDUSTRY(strIndustry As String)
    mClientArryStr(INT_CLIENT_TITLE_INDUSTRY) = strIndustry
End Property
Public Property Get CREDIT() As String
    CREDIT = mClientArryStr(INT_CLIENT_TITLE_CREDIT)
End Property
Public Property Let CREDIT(strCredit As String)
    mClientArryStr(INT_CLIENT_TITLE_CREDIT) = strCredit
End Property
Public Property Get BANK() As String
    BANK = mClientArryStr(INT_CLIENT_TITLE_BANK)
End Property
Public Property Let BANK(strBank As String)
    mClientArryStr(INT_CLIENT_TITLE_BANK) = strBank
End Property
Public Property Get ACCOUNT() As String
    ACCOUNT = mClientArryStr(INT_CLIENT_TITLE_ACCOUNT)
End Property
Public Property Let ACCOUNT(strAccount As String)
    mClientArryStr(INT_CLIENT_TITLE_ACCOUNT) = strAccount
End Property
Public Property Get TaxNumber() As String
    TaxNumber = mClientArryStr(INT_CLIENT_TITLE_TAX_NUMBER)
End Property
Public Property Let TaxNumber(strTaxNumber As String)
    mClientArryStr(INT_CLIENT_TITLE_TAX_NUMBER) = strTaxNumber
End Property
Public Property Get Important() As String
    Important = mClientArryStr(INT_CLIENT_TITLE_IMPORTANT)
End Property
Public Property Let Important(strImportant As String)
    mClientArryStr(INT_CLIENT_TITLE_IMPORTANT) = strImportant
End Property
Public Property Get AREA() As String
    AREA = mClientArryStr(INT_CLIENT_TITLE_AREA)
End Property
Public Property Let AREA(strArea As String)
    mClientArryStr(INT_CLIENT_TITLE_AREA) = strArea
End Property
Public Property Get COUNTRY() As String
    COUNTRY = mClientArryStr(INT_CLIENT_TITLE_COUNTRY)
End Property
Public Property Let COUNTRY(strCountry As String)
    mClientArryStr(INT_CLIENT_TITLE_COUNTRY) = strCountry
End Property
Public Property Get PROVINCE() As String
    PROVINCE = mClientArryStr(INT_CLIENT_TITLE_PROVINCE)
End Property
Public Property Let PROVINCE(strProvince As String)
    mClientArryStr(INT_CLIENT_TITLE_PROVINCE) = strProvince
End Property
Public Property Get CITY() As String
    CITY = mClientArryStr(INT_CLIENT_TITLE_CITY)
End Property
Public Property Let CITY(strCity As String)
    mClientArryStr(INT_CLIENT_TITLE_CITY) = strCity
End Property
Public Property Get ADDRESS() As String
    ADDRESS = mClientArryStr(INT_CLIENT_TITLE_ADDRESS)
End Property
Public Property Let ADDRESS(strAddress As String)
    mClientArryStr(INT_CLIENT_TITLE_ADDRESS) = strAddress
End Property
Public Property Get POSTALCODE() As String
    POSTALCODE = mClientArryStr(INT_CLIENT_TITLE_POSTALCODE)
End Property
Public Property Let POSTALCODE(strPostalcode As String)
    mClientArryStr(INT_CLIENT_TITLE_POSTALCODE) = strPostalcode
End Property
Public Property Get SURVEY() As String
    SURVEY = mClientArryStr(INT_CLIENT_TITLE_SURVEY)
End Property
Public Property Let SURVEY(strSurvey As String)
    mClientArryStr(INT_CLIENT_TITLE_SURVEY) = strSurvey
End Property
Public Property Get DutyPerson() As String
    DutyPerson = mClientArryStr(INT_CLIENT_TITLE_DUTY_PERSON)
End Property
Public Property Let DutyPerson(strDutyPerson As String)
    mClientArryStr(INT_CLIENT_TITLE_DUTY_PERSON) = strDutyPerson
End Property
Public Property Get Remark() As String
    Remark = mClientArryStr(INT_CLIENT_TITLE_REMARK)
End Property
Public Property Let Remark(strRemark As String)
    mClientArryStr(INT_CLIENT_TITLE_REMARK) = strRemark
End Property

Public Property Get Auditing() As Boolean
    Auditing = mClientArryStr(INT_CLIENT_TITLE_AUDITING)
End Property
Public Property Let Auditing(boolAuditing As Boolean)
    mClientArryStr(INT_CLIENT_TITLE_AUDITING) = boolAuditing
End Property

Public Property Get RegisterDate() As Date
    RegisterDate = mClientArryStr(INT_CLIENT_TITLE_REGISTER_DATE)
End Property
Public Property Let RegisterDate(dtRegisterDate As Date)
    mClientArryStr(INT_CLIENT_TITLE_REGISTER_DATE) = dtRegisterDate
End Property

'取得由nIndex指定的相应的属性值
Public Property Get MyProperty(nIndex As Integer) As String
    If nIndex >= 0 And nIndex < INT_CLIENT_TITLE_COUNT_NUMBER Then
        MyProperty = mClientArryStr(nIndex)
    End If
End Property

'设置由 nIndex (属性编号,在mdlClient里定义) 指定的属性的值为 strValue
Public Property Let MyProperty(nIndex As Integer, strValue As String)
    Select Case nIndex
        Case INT_CLIENT_TITLE_REGISTER_DATE
            If CStr(strValue) = "" Then
                strValue = Date
            End If
            Me.RegisterDate = strValue                     '24 '"登记日期"

        Case INT_CLIENT_TITLE_AUDITING
            If CStr(strValue) = "" Then
                strValue = "False"
            End If
            Me.Auditing = strValue                         '"审核标志"
        Case Else
            If nIndex >= 0 And nIndex < INT_CLIENT_TITLE_COUNT_NUMBER Then
                mClientArryStr(nIndex) = strValue
            End If
    End Select
End Property
'=================================================================