mdlmain.bas

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

Attribute VB_Name = "mdlMain"
Option Explicit
'=============================定义和声明===========================================
'frmClientInfo 的 显示模式
Public Const INT_CLIENT_STYLE_READ_ONLY As Integer = 0     '只读
Public Const INT_CLIENT_STYLE_EDIT As Integer = 1          '修改记录
Public Const INT_CLIENT_STYLE_NEW As Integer = 2           '新建记录

'frmPlanInfo 的 显示模式
Public Const INT_PLAN_STYLE_READ_ONLY As Integer = 0       '只读
Public Const INT_PLAN_STYLE_EDIT As Integer = 1            '修改记录
Public Const INT_PLAN_STYLE_NEW As Integer = 2             '新建记录

Public Const DATABASE_FILE_NAME As String = "Data\crm97.mdb"    '数据库文件的路径

Global gMainMDIForm As MDIFrmMain                          '主窗口的一个"指针"
Global gClientFrm As frmClient                             '客户窗口的一个"指针"
Global gPlanFrm As frmPlan                                 '工作计划窗口的一个"指针"

'===================================================================================

'***********************************************************************************
'功能：主函数
'参数：无
'返回：无
'***********************************************************************************

Sub Main()
    Dim boolRet As Boolean
    frmSplash.Show                                         '显示程序加载时的信息
    frmSplash.Refresh

    Call InitClient                                        '初始化客户的相关数据
    Call InitPlan                                          '初始化工作计划的相关数据
    boolRet = CheckAppFiles()                              '检查程序的文件是否完整
    If boolRet = False Then
        MsgBox "文件已经损坏,请您重新安装"
        End                                                '结束程序
    End If

    Set gMainMDIForm = New MDIFrmMain
    Load gMainMDIForm
    Unload frmSplash


    gMainMDIForm.Show
    Dim frmMyAlarm As New frmAlarm
    frmMyAlarm.Show vbModal, gMainMDIForm
End Sub

'***********************************************************************************
'功能：检查程序要用到的文件
'参数：无
'返回：boolean型,如果缺少文件返回false,否则返回true
'***********************************************************************************

Private Function CheckAppFiles() As Boolean
    '检查ini文件
    Dim strAppPath As String
    Dim boolRet As Boolean
    strAppPath = App.Path & "\"
    If Dir(strAppPath & DATABASE_FILE_NAME) <> "" Then
        'If Dir(strAppPath & SETTING_FILE_NAME) <> "" Then
        boolRet = True
        'Else
        '    boolRet = False
        'End If
    Else
        boolRet = False
    End If
    CheckAppFiles = boolRet
End Function