module1.bas

来自「储蓄管理演示系统.rar 用Visual Basic语言为某储蓄所建立一个“储」· BAS 代码 · 共 43 行

Attribute VB_Name = "ModMain"
Option Explicit
Public fMain As frmMain
Public fSplash As frmSplash
Public gblQx As Boolean
Public gstrBH As String
Public gstrQX As String
Public db As Connection

Sub Main()
    '主过程，用于启动系统
    On Error Resume Next
    
    Set fSplash = New frmSplash
    fSplash.Show vbModal
    
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\CXGL.mdb;"
    
    '打开登录窗
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.gblnOK Then
        EndApp    '登录失败，退出应用程序
    End If
    
    Unload fLogin    '释放登录窗
    Set fLogin = Nothing
    
    '设置联机帮助
    fMain.dlgCommonDialog.HelpFile = App.Path & "\Cxgl.HLP"
End Sub

Public Sub EndApp()
    On Error Resume Next
    '关闭连接
    db.Close
    '释放的数据环境对象
    Set db = Nothing
    End      '结束程序
End Sub