module1.bas

图书馆管理系统的详细设计 功能齐全

Attribute VB_Name = "Module1"
'定义全局常量
Public Const ConnectString As String = "DSN=Lib;UID=sa;PWD=sa"
'初始化系统登录界面
Sub Main()
    '系统开始，首先进入登录界面
    Dim fLogin As New FrmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        'Login Failed so exit app
        End
    End If
    Unload fLogin
    '用户身份验证成功后，进入主界面
    FrmMain.Show
End Sub