其他行业

开发平台：

Visual Basic

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

						