modmain.bas

物流管理系统实例程序

Attribute VB_Name = "modMain"
Option Explicit
Public fMain As frmMain
Public gbytZyQX As String
Public gstrZyID As String
Public mCdt As Object

Sub Main()
    '主过程，用于启动系统
    On Error Resume Next
    
    Set mCdt = CreateObject("CkwlglData.clData")
    mCdt.OpenDbCon App.Path '打开连接
    '打开凳录窗
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.gblnOK Then
        EndApp  '登录失败,退出应用程序
    End If
    
    Unload fLogin  '释放凳录窗
    Set fLogin = Nothing
    
    Set fMain = New frmMain
    Load fMain
    fMain.Show '打开主窗体
    
    '设置联机帮助
    fMain.dlgCommonDialog.HelpFile = App.Path & "\JCGL.HLP"
End Sub

Public Sub EndApp()
    On Error Resume Next
    mCdt.CloseDbCon  '关闭连接
    Set mCdt = Nothing   '释放数据源对象
    End  '结束程序
End Sub