module1.bas

VB类实现学生信息管理系统

Attribute VB_Name = "main_modele"
Option Explicit
Public fMainForm As frmMain
Public login_user As user ' 整个系统运行user变量
Public db As database '全局数据库连接





Sub main()
    Dim fLogin As New frmLogin
    
    If App.PrevInstance Then '一次只能运行一个实例
    MsgBox ("程序已经运行，不能再次装载。"), vbExclamation
    End
    End If
    
    
    Set db = New database
    Set login_user = New user
    
    
    
    fLogin.Show vbModal
    If Not fLogin.OK Then
     'Login Failed so exit app
        End
    End If
    Unload fLogin
 

    Set fMainForm = New frmMain
    fMainForm.Show
    
    
End Sub