modmain.bas

来自「这是一个个人财务管理系统,它的界面简单朴素,容易操作,但功能强大,是个人财务管理」· BAS 代码 · 共 46 行

Attribute VB_Name = "modMain"
Option Explicit
Public fMain As frmmain
Public gblQx As Boolean
Public gstrName As String
Public DbeJcgl As DataEnvJcgl

Sub Main()
    '主过程，用于启动系统
    On Error Resume Next
    Set DbeJcgl = New DataEnvJcgl
    DbeJcgl.contJcgl.ConnectionString = _
     "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Persist Security Info=False;" & _
     "Data Source=" & App.Path & "\db1.MDB"
     
    DbeJcgl.contJcgl.Open '打开连接
    '打开凳录窗
    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
    '关闭连接
    DbeJcgl.contJcgl.Close
    '释放的数据环境对象
    Set DbeJcgl = Nothing
    End  '结束程序
End Sub