modmain.bas

很好的学习资料可供参考有实例从图书馆着的希望有帮祝

Attribute VB_Name = "modMain"
Option Explicit
Public fMain As frmMain
Public gbytAccredit As String
Public gstrAdminID As String
Public mCdt As Object
''Public mCdt As New LibraryData.clData

Sub Main()
    '主过程，用于启动系统
    On Error Resume Next
    Set mCdt = CreateObject("LibraryData.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 & "\Library.HLP"
End Sub

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