mdltitleconst.bas

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

Attribute VB_Name = "mdlTitleConst"
Option Explicit
Public Const TITLE_ID As String = "编号"
Public Const TITLE_NAME As String = "客户名称"
Public Const TITLE_CORPORATION As String = "法人代表"
Public Const TITLE_PROPERTY As String = "性质"
Public Const TITLE_KIND As String = "类型"
Public Const TITLE_SOURCE As String = "来源"
Public Const TITLE_PHONE As String = "电话"
Public Const TITLE_FAX As String = "传真"
Public Const TITLE_MAIL As String = "邮件"
Public Const TITLE_URL As String = "网址"
Public Const TITLE_INDUSTRY As String = "行业"
Public Const TITLE_CREDIT As String = "信誉等级"
Public Const TITLE_BANK As String = "开户银行"
Public Const TITLE_ACCOUNT As String = "帐号"
Public Const TITLE_TAX_NUMBER As String = "税号"
Public Const TITLE_IMPORTANT As String = "重要程度"
Public Const TITLE_AREA As String = "地区"
Public Const TITLE_COUNTRY As String = "国家"
Public Const TITLE_PROVINCE As String = "省份"
Public Const TITLE_CITY As String = "城市"
Public Const TITLE_ADDRESS As String = "地址"
Public Const TITLE_POSTALCODE As String = "邮编"
Public Const TITLE_SURVEY As String = "概况"
Public Const TITLE_DUTY_PERSON As String = "责任人"
Public Const TITLE_REGISTER_DATE As String = "登记日期"
Public Const TITLE_REMARK As String = "备注"
Public Const TITLE_AUDITING As String = "审核标志"

Public Const INT_TITLE_ID As Integer = 0 '"编号"
Public Const INT_TITLE_NAME As Integer = 1 '"客户名称"
Public Const INT_TITLE_CORPORATION As Integer = 2 '"法人代表"
Public Const INT_TITLE_PROPERTY As Integer = 3 '"性质"
Public Const INT_TITLE_KIND As Integer = 4 '"类型"
Public Const INT_TITLE_SOURCE As Integer = 5 '"来源"
Public Const INT_TITLE_PHONE As Integer = 6 '"电话"
Public Const INT_TITLE_FAX As Integer = 7 '"传真"
Public Const INT_TITLE_MAIL As Integer = 8 '"邮件"
Public Const INT_TITLE_URL As Integer = 9 '"网址"
Public Const INT_TITLE_INDUSTRY As Integer = 10 '"行业"
Public Const INT_TITLE_CREDIT As Integer = 11 '"信誉等级"
Public Const INT_TITLE_BANK As Integer = 12 '"开户银行"
Public Const INT_TITLE_ACCOUNT As Integer = 13 '"帐号"
Public Const INT_TITLE_TAX_NUMBER As Integer = 14 '"税号"
Public Const INT_TITLE_IMPORTANT As Integer = 15 '"重要程度"
Public Const INT_TITLE_AREA As Integer = 16 '"地区"
Public Const INT_TITLE_COUNTRY As Integer = 17 '"国家"
Public Const INT_TITLE_PROVINCE As Integer = 18 '"省份"
Public Const INT_TITLE_CITY As Integer = 19 '"城市"
Public Const INT_TITLE_ADDRESS As Integer = 20 '"地址"
Public Const INT_TITLE_POSTALCODE As Integer = 21 '"邮编"
Public Const INT_TITLE_SURVEY As Integer = 22 '"概况"
Public Const INT_TITLE_DUTY_PERSON As Integer = 23 '"责任人"
Public Const INT_TITLE_REGISTER_DATE As Integer = 24 '"登记日期"
Public Const INT_TITLE_REMARK As Integer = 25 '"备注"
Public Const INT_TITLE_AUDITING As Integer = 26 '"审核标志"

Public Const INT_TITLE_COUNT_NUMBER As Integer = 27

Global gTitleArryStr(INT_TITLE_COUNT_NUMBER - 1) As String

'***********************************************************************************
'功能：初始化mTitleArryStrr变量，把所有客户属性名称 保存在gTitleArryStr变量里
'参数：无
'返回：无
'***********************************************************************************
Public Function initTitleArry()
    gTitleArryStr(INT_TITLE_ID) = TITLE_ID ' "编号"
    gTitleArryStr(INT_TITLE_NAME) = TITLE_NAME ' "客户名称"
    gTitleArryStr(INT_TITLE_CORPORATION) = TITLE_CORPORATION ' "法人代表"
    gTitleArryStr(INT_TITLE_PROPERTY) = TITLE_PROPERTY ' "性质"
    gTitleArryStr(INT_TITLE_KIND) = TITLE_KIND ' "类型"
    gTitleArryStr(INT_TITLE_SOURCE) = TITLE_SOURCE ' "来源"
    gTitleArryStr(INT_TITLE_PHONE) = TITLE_PHONE ' "电话"
    gTitleArryStr(INT_TITLE_FAX) = TITLE_FAX ' "传真"
    gTitleArryStr(INT_TITLE_MAIL) = TITLE_MAIL ' "邮件"
    gTitleArryStr(INT_TITLE_URL) = TITLE_URL ' "网址"
    gTitleArryStr(INT_TITLE_INDUSTRY) = TITLE_INDUSTRY ' "行业"
    gTitleArryStr(INT_TITLE_CREDIT) = TITLE_CREDIT ' "信誉等级"
    gTitleArryStr(INT_TITLE_BANK) = TITLE_BANK ' "开户银行"
    gTitleArryStr(INT_TITLE_ACCOUNT) = TITLE_ACCOUNT ' "帐号"
    gTitleArryStr(INT_TITLE_TAX_NUMBER) = TITLE_TAX_NUMBER ' "税号"
    gTitleArryStr(INT_TITLE_IMPORTANT) = TITLE_IMPORTANT ' "重要程度"
    gTitleArryStr(INT_TITLE_AREA) = TITLE_AREA ' "地区"
    gTitleArryStr(INT_TITLE_COUNTRY) = TITLE_COUNTRY ' "国家"
    gTitleArryStr(INT_TITLE_PROVINCE) = TITLE_PROVINCE ' "省份"
    gTitleArryStr(INT_TITLE_CITY) = TITLE_CITY ' "城市"
    gTitleArryStr(INT_TITLE_ADDRESS) = TITLE_ADDRESS ' "地址"
    gTitleArryStr(INT_TITLE_POSTALCODE) = TITLE_POSTALCODE ' "邮编"
    gTitleArryStr(INT_TITLE_SURVEY) = TITLE_SURVEY ' "概况"
    gTitleArryStr(INT_TITLE_DUTY_PERSON) = TITLE_DUTY_PERSON ' "责任人"
    gTitleArryStr(INT_TITLE_REGISTER_DATE) = TITLE_REGISTER_DATE ' "登记日期"
    gTitleArryStr(INT_TITLE_REMARK) = TITLE_REMARK ' "备注"
    gTitleArryStr(INT_TITLE_AUDITING) = TITLE_AUDITING ' "审核标志"
End Function