module1.bas

来自「一个VB开发的很好的图书信息管理系统,在学校的毕业论文中得到了很高的分数」· BAS 代码 · 共 19 行

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