module1.bas

家财管理系统实例

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 & "\JCGL.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