mdlplan.bas

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

Attribute VB_Name = "mdlPlan"

'///////////////////////////////////////////////////////////////////////////////////////
'//        有关工作计划模块的一些函数,变量,常量(只有一个全局变量,一个公共函数)        //
'///////////////////////////////////////////////////////////////////////////////////////

Option Explicit

'==================================数据库各字段的常量====================================
Public Const DB_TABLE_PLAN As String = "工作计划"

Public Const DB_FIELD_PLAN_ITEM As String = "事项"
Public Const DB_FIELD_PLAN_ID As String = "编号"
Public Const DB_FIELD_PLAN_CLIENT As String = "客户编号"
Public Const DB_FIELD_PLAN_START_DATE As String = "开始时间"
Public Const DB_FIELD_PLAN_FINISH_DATE As String = "完成时间"
Public Const DB_FIELD_PLAN_REMIND_ME As String = "需要提醒"
Public Const DB_FIELD_PLAN_START_REMIND As String = "开始提醒"
Public Const DB_FIELD_PLAN_END_REMIND As String = "结束提醒"
Public Const DB_FIELD_PLAN_OPERATE_PERSON As String = "实施人员"
Public Const DB_FIELD_PLAN_PROJECT As String = "工作方案"
Public Const DB_FIELD_PLAN_FINISH_SIGN As String = "完成标志"
Public Const DB_FIELD_PLAN_IMPORTANT As String = "重要程度"
Public Const DB_FIELD_PLAN_DUTY_PERSON As String = "责任人"
Public Const DB_FIELD_PLAN_REGISTER_DATE As String = "登记日期"
Public Const DB_FIELD_PLAN_REMARK As String = "备注"
Public Const DB_FIELD_PLAN_AUDITING As String = "审核标志"


Public Const INT_DB_FIELD_PLAN_COUNT_NUMBER As Integer = 16
'========================================================================================

'==========================客户的各属性的常量(基本与数据库的字段名相同)==================

Public Const PLAN_TITLE_ITEM As String = "事项"
Public Const PLAN_TITLE_ID As String = "编号"
Public Const PLAN_TITLE_CLIENT As String = "客户编号"
Public Const PLAN_TITLE_START_DATE As String = "开始时间"
Public Const PLAN_TITLE_FINISH_DATE As String = "完成时间"
Public Const PLAN_TITLE_REMIND_ME As String = "需要提醒"
Public Const PLAN_TITLE_START_REMIND As String = "开始提醒"
Public Const PLAN_TITLE_END_REMIND As String = "结束提醒"
Public Const PLAN_TITLE_OPERATE_PERSON As String = "实施人员"
Public Const PLAN_TITLE_PROJECT As String = "工作方案"
Public Const PLAN_TITLE_FINISH_SIGN As String = "完成标志"
Public Const PLAN_TITLE_IMPORTANT As String = "重要程度"
Public Const PLAN_TITLE_DUTY_PERSON As String = "责任人"
Public Const PLAN_TITLE_REGISTER_DATE As String = "登记日期"
Public Const PLAN_TITLE_REMARK As String = "备注"
Public Const PLAN_TITLE_AUDITING As String = "审核标志"

'=========================客户的各属性的编号==============================================
Public Const INT_PLAN_TITLE_ITEM As Integer = 1            '"事项"
Public Const INT_PLAN_TITLE_ID As Integer = 0              '"编号"
Public Const INT_PLAN_TITLE_CLIENT As Integer = 2          '"客户编号"
Public Const INT_PLAN_TITLE_START_DATE As Integer = 3      '"开始时间"
Public Const INT_PLAN_TITLE_FINISH_DATE As Integer = 4     '"完成时间"
Public Const INT_PLAN_TITLE_REMIND_ME As Integer = 5       '"需要提醒"
Public Const INT_PLAN_TITLE_START_REMIND As Integer = 6    '"开始提醒"
Public Const INT_PLAN_TITLE_END_REMIND As Integer = 7      '"结束提醒"
Public Const INT_PLAN_TITLE_OPERATE_PERSON As Integer = 8  '"实施人员"
Public Const INT_PLAN_TITLE_PROJECT As Integer = 9         '"工作方案"
Public Const INT_PLAN_TITLE_FINISH_SIGN As Integer = 10    '"完成标志"
Public Const INT_PLAN_TITLE_IMPORTANT As Integer = 11      '"重要程度"
Public Const INT_PLAN_TITLE_DUTY_PERSON As Integer = 12    '"责任人"
Public Const INT_PLAN_TITLE_REGISTER_DATE As Integer = 13  '"登记日期"
Public Const INT_PLAN_TITLE_REMARK As Integer = 14         '"备注"
Public Const INT_PLAN_TITLE_AUDITING As Integer = 15       '"审核标志"
'=========================================================================================
Public Const INT_PLAN_TITLE_COUNT_NUMBER As Integer = 16   '工作计划的属性个数

Global gPlanTitleArryStr(INT_PLAN_TITLE_COUNT_NUMBER - 1) As String    '工作计划属性数组

'***********************************************************************************
'功能：初始化gPlanTitleArryStr变量，把所有工作计划属性名称 保存在gPlanTitleArryStr变量里
' 然后可以由 编号 可以找回该编号的 属性名称
'参数：无
'返回：无
'***********************************************************************************
Private Function initPlanTitleArry()
    gPlanTitleArryStr(INT_PLAN_TITLE_ID) = PLAN_TITLE_ID
    gPlanTitleArryStr(INT_PLAN_TITLE_CLIENT) = PLAN_TITLE_CLIENT
    gPlanTitleArryStr(INT_PLAN_TITLE_ITEM) = PLAN_TITLE_ITEM
    gPlanTitleArryStr(INT_PLAN_TITLE_START_DATE) = PLAN_TITLE_START_DATE
    gPlanTitleArryStr(INT_PLAN_TITLE_FINISH_DATE) = PLAN_TITLE_FINISH_DATE
    gPlanTitleArryStr(INT_PLAN_TITLE_REMIND_ME) = PLAN_TITLE_REMIND_ME
    gPlanTitleArryStr(INT_PLAN_TITLE_START_REMIND) = PLAN_TITLE_START_REMIND
    gPlanTitleArryStr(INT_PLAN_TITLE_END_REMIND) = PLAN_TITLE_END_REMIND
    gPlanTitleArryStr(INT_PLAN_TITLE_OPERATE_PERSON) = PLAN_TITLE_OPERATE_PERSON
    gPlanTitleArryStr(INT_PLAN_TITLE_PROJECT) = PLAN_TITLE_PROJECT
    gPlanTitleArryStr(INT_PLAN_TITLE_FINISH_SIGN) = PLAN_TITLE_FINISH_SIGN
    gPlanTitleArryStr(INT_PLAN_TITLE_IMPORTANT) = PLAN_TITLE_IMPORTANT
    gPlanTitleArryStr(INT_PLAN_TITLE_DUTY_PERSON) = PLAN_TITLE_DUTY_PERSON
    gPlanTitleArryStr(INT_PLAN_TITLE_REGISTER_DATE) = PLAN_TITLE_REGISTER_DATE
    gPlanTitleArryStr(INT_PLAN_TITLE_REMARK) = PLAN_TITLE_REMARK
    gPlanTitleArryStr(INT_PLAN_TITLE_AUDITING) = PLAN_TITLE_AUDITING
End Function

'初始化所有有关工作计划的数据
Public Function InitPlan()
    initPlanTitleArry
End Function