mdlmain.bas

新收集的客户管理软件

Attribute VB_Name = "mdlMain"
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
'  引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.daima.com.cn
'程序太平洋：http://www.5ivb.net
'Email:[e-mail]
'CopyRight 2001-2005 By WangFeng
'整理时间：2004-12-14 23:41:45

'*************************************************************************
'**模 块 名：mdlMian
'**说    明：多易工作室
'**创 建 人：邬浩杰
'**日    期：2004-12-14
'**修 改 人：
'**日    期：
'**描    述：
'**版    本：V1.0.0
'*************************************************************************
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