mdlclient.bas

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

Attribute VB_Name = "mdlClient"


'///////////////////////////////////////////////////////////////////////////////////////
'//        有关客户模块的一些函数,变量,常量(只有一个全局变量,一个公共函数)            //
'///////////////////////////////////////////////////////////////////////////////////////

Option Explicit

'==================================数据库各字段的常量====================================
Public Const DB_TABLE_CLIENT As String = "客户"

Public Const DB_FIELD_CLIENT_ID As String = "编号"
Public Const DB_FIELD_CLIENT_NAME As String = "客户名称"
Public Const DB_FIELD_CLIENT_CORPORATION As String = "法人代表"
Public Const DB_FIELD_CLIENT_PROPERTY As String = "性质"
Public Const DB_FIELD_CLIENT_KIND As String = "类型"
Public Const DB_FIELD_CLIENT_SOURCE As String = "来源"
Public Const DB_FIELD_CLIENT_PHONE As String = "电话"
Public Const DB_FIELD_CLIENT_FAX As String = "传真"
Public Const DB_FIELD_CLIENT_MAIL As String = "邮件"
Public Const DB_FIELD_CLIENT_URL As String = "网址"
Public Const DB_FIELD_CLIENT_INDUSTRY As String = "行业"
Public Const DB_FIELD_CLIENT_CREDIT As String = "信誉等级"
Public Const DB_FIELD_CLIENT_BANK As String = "开户银行"
Public Const DB_FIELD_CLIENT_ACCOUNT As String = "帐号"
Public Const DB_FIELD_CLIENT_TAX_NUMBER As String = "税号"
Public Const DB_FIELD_CLIENT_IMPORTANT As String = "重要程度"
Public Const DB_FIELD_CLIENT_AREA As String = "地区"
Public Const DB_FIELD_CLIENT_COUNTRY As String = "国家"
Public Const DB_FIELD_CLIENT_PROVINCE As String = "省份"
Public Const DB_FIELD_CLIENT_CITY As String = "城市"
Public Const DB_FIELD_CLIENT_ADDRESS As String = "地址"
Public Const DB_FIELD_CLIENT_POSTALCODE As String = "邮编"
Public Const DB_FIELD_CLIENT_SURVEY As String = "概况"
Public Const DB_FIELD_CLIENT_DUTY_PERSON As String = "责任人"
Public Const DB_FIELD_CLIENT_REGISTER_DATE As String = "登记日期"
Public Const DB_FIELD_CLIENT_REMARK As String = "备注"
Public Const DB_FIELD_CLIENT_AUDITING As String = "审核标志"


Public Const INT_DB_FIELD_CLIENT_COUNT_NUMBER As Integer = 27    '数据库字段的个数
'========================================================================================

'==========================客户的各属性的常量(基本与数据库的字段名相同)==================
Public Const CLIENT_TITLE_ID As String = "编号"
Public Const CLIENT_TITLE_NAME As String = "客户名称"
Public Const CLIENT_TITLE_CORPORATION As String = "法人代表"
Public Const CLIENT_TITLE_PROPERTY As String = "性质"
Public Const CLIENT_TITLE_KIND As String = "类型"
Public Const CLIENT_TITLE_SOURCE As String = "来源"
Public Const CLIENT_TITLE_PHONE As String = "电话"
Public Const CLIENT_TITLE_FAX As String = "传真"
Public Const CLIENT_TITLE_MAIL As String = "邮件"
Public Const CLIENT_TITLE_URL As String = "网址"
Public Const CLIENT_TITLE_INDUSTRY As String = "行业"
Public Const CLIENT_TITLE_CREDIT As String = "信誉等级"
Public Const CLIENT_TITLE_BANK As String = "开户银行"
Public Const CLIENT_TITLE_ACCOUNT As String = "帐号"
Public Const CLIENT_TITLE_TAX_NUMBER As String = "税号"
Public Const CLIENT_TITLE_IMPORTANT As String = "重要程度"
Public Const CLIENT_TITLE_AREA As String = "地区"
Public Const CLIENT_TITLE_COUNTRY As String = "国家"
Public Const CLIENT_TITLE_PROVINCE As String = "省份"
Public Const CLIENT_TITLE_CITY As String = "城市"
Public Const CLIENT_TITLE_ADDRESS As String = "地址"
Public Const CLIENT_TITLE_POSTALCODE As String = "邮编"
Public Const CLIENT_TITLE_SURVEY As String = "概况"
Public Const CLIENT_TITLE_DUTY_PERSON As String = "责任人"
Public Const CLIENT_TITLE_REGISTER_DATE As String = "登记日期"
Public Const CLIENT_TITLE_REMARK As String = "备注"
Public Const CLIENT_TITLE_AUDITING As String = "审核标志"

'=========================客户的各属性的编号==============================================
Public Const INT_CLIENT_TITLE_ID As Integer = 0            '"编号"
Public Const INT_CLIENT_TITLE_NAME As Integer = 1          '"客户名称"
Public Const INT_CLIENT_TITLE_CORPORATION As Integer = 2   '"法人代表"
Public Const INT_CLIENT_TITLE_PROPERTY As Integer = 3      '"性质"
Public Const INT_CLIENT_TITLE_KIND As Integer = 4          '"类型"
Public Const INT_CLIENT_TITLE_SOURCE As Integer = 5        '"来源"
Public Const INT_CLIENT_TITLE_PHONE As Integer = 6         '"电话"
Public Const INT_CLIENT_TITLE_FAX As Integer = 7           '"传真"
Public Const INT_CLIENT_TITLE_MAIL As Integer = 8          '"邮件"
Public Const INT_CLIENT_TITLE_URL As Integer = 9           '"网址"
Public Const INT_CLIENT_TITLE_INDUSTRY As Integer = 10     '"行业"
Public Const INT_CLIENT_TITLE_CREDIT As Integer = 11       '"信誉等级"
Public Const INT_CLIENT_TITLE_BANK As Integer = 12         '"开户银行"
Public Const INT_CLIENT_TITLE_ACCOUNT As Integer = 13      '"帐号"
Public Const INT_CLIENT_TITLE_TAX_NUMBER As Integer = 14   '"税号"
Public Const INT_CLIENT_TITLE_IMPORTANT As Integer = 15    '"重要程度"
Public Const INT_CLIENT_TITLE_AREA As Integer = 16         '"地区"
Public Const INT_CLIENT_TITLE_COUNTRY As Integer = 17      '"国家"
Public Const INT_CLIENT_TITLE_PROVINCE As Integer = 18     '"省份"
Public Const INT_CLIENT_TITLE_CITY As Integer = 19         '"城市"
Public Const INT_CLIENT_TITLE_ADDRESS As Integer = 20      '"地址"
Public Const INT_CLIENT_TITLE_POSTALCODE As Integer = 21   '"邮编"
Public Const INT_CLIENT_TITLE_SURVEY As Integer = 22       '"概况"
Public Const INT_CLIENT_TITLE_DUTY_PERSON As Integer = 23  '"责任人"
Public Const INT_CLIENT_TITLE_REGISTER_DATE As Integer = 24 '"登记日期"
Public Const INT_CLIENT_TITLE_REMARK As Integer = 25       '"备注"
Public Const INT_CLIENT_TITLE_AUDITING As Integer = 26     '"审核标志"
'=========================================================================================

Public Const INT_CLIENT_TITLE_COUNT_NUMBER As Integer = 27 '客户的属性个数

'所有客户属性名称 保存在gClientTitleArryStr变量里，所以如果你想根据
'客户属性编号找到相应的客户属性名称的话用此变量
Global gClientTitleArryStr(INT_CLIENT_TITLE_COUNT_NUMBER - 1) As String

'***********************************************************************************
'功能：初始化gClientTitleArryStr变量，把所有客户属性名称 保存在gClientTitleArryStr变量里
'参数：无
'返回：无
'***********************************************************************************
Private Function initClientTitleArry()
    gClientTitleArryStr(INT_CLIENT_TITLE_ID) = CLIENT_TITLE_ID    ' "编号"
    gClientTitleArryStr(INT_CLIENT_TITLE_NAME) = CLIENT_TITLE_NAME    ' "客户名称"
    gClientTitleArryStr(INT_CLIENT_TITLE_CORPORATION) = CLIENT_TITLE_CORPORATION    ' "法人代表"
    gClientTitleArryStr(INT_CLIENT_TITLE_PROPERTY) = CLIENT_TITLE_PROPERTY    ' "性质"
    gClientTitleArryStr(INT_CLIENT_TITLE_KIND) = CLIENT_TITLE_KIND    ' "类型"
    gClientTitleArryStr(INT_CLIENT_TITLE_SOURCE) = CLIENT_TITLE_SOURCE    ' "来源"
    gClientTitleArryStr(INT_CLIENT_TITLE_PHONE) = CLIENT_TITLE_PHONE    ' "电话"
    gClientTitleArryStr(INT_CLIENT_TITLE_FAX) = CLIENT_TITLE_FAX    ' "传真"
    gClientTitleArryStr(INT_CLIENT_TITLE_MAIL) = CLIENT_TITLE_MAIL    ' "邮件"
    gClientTitleArryStr(INT_CLIENT_TITLE_URL) = CLIENT_TITLE_URL    ' "网址"
    gClientTitleArryStr(INT_CLIENT_TITLE_INDUSTRY) = CLIENT_TITLE_INDUSTRY    ' "行业"
    gClientTitleArryStr(INT_CLIENT_TITLE_CREDIT) = CLIENT_TITLE_CREDIT    ' "信誉等级"
    gClientTitleArryStr(INT_CLIENT_TITLE_BANK) = CLIENT_TITLE_BANK    ' "开户银行"
    gClientTitleArryStr(INT_CLIENT_TITLE_ACCOUNT) = CLIENT_TITLE_ACCOUNT    ' "帐号"
    gClientTitleArryStr(INT_CLIENT_TITLE_TAX_NUMBER) = CLIENT_TITLE_TAX_NUMBER    ' "税号"
    gClientTitleArryStr(INT_CLIENT_TITLE_IMPORTANT) = CLIENT_TITLE_IMPORTANT    ' "重要程度"
    gClientTitleArryStr(INT_CLIENT_TITLE_AREA) = CLIENT_TITLE_AREA    ' "地区"
    gClientTitleArryStr(INT_CLIENT_TITLE_COUNTRY) = CLIENT_TITLE_COUNTRY    ' "国家"
    gClientTitleArryStr(INT_CLIENT_TITLE_PROVINCE) = CLIENT_TITLE_PROVINCE    ' "省份"
    gClientTitleArryStr(INT_CLIENT_TITLE_CITY) = CLIENT_TITLE_CITY    ' "城市"
    gClientTitleArryStr(INT_CLIENT_TITLE_ADDRESS) = CLIENT_TITLE_ADDRESS    ' "地址"
    gClientTitleArryStr(INT_CLIENT_TITLE_POSTALCODE) = CLIENT_TITLE_POSTALCODE    ' "邮编"
    gClientTitleArryStr(INT_CLIENT_TITLE_SURVEY) = CLIENT_TITLE_SURVEY    ' "概况"
    gClientTitleArryStr(INT_CLIENT_TITLE_DUTY_PERSON) = CLIENT_TITLE_DUTY_PERSON    ' "责任人"
    gClientTitleArryStr(INT_CLIENT_TITLE_REGISTER_DATE) = CLIENT_TITLE_REGISTER_DATE    ' "登记日期"
    gClientTitleArryStr(INT_CLIENT_TITLE_REMARK) = CLIENT_TITLE_REMARK    ' "备注"
    gClientTitleArryStr(INT_CLIENT_TITLE_AUDITING) = CLIENT_TITLE_AUDITING    ' "审核标志"
End Function

'初始化有关客户模块的数据
Public Function InitClient()
    Call initClientTitleArry
End Function