main.bas

教学管理系统

Attribute VB_Name = "MainStart"
Sub Main()
    '连接数据库
    Dim DBstatus As Boolean
    DBstatus = cn.OpenDB
    If Not DBstatus Then
        MsgBox "数据库连接失败,请先正确配置数据库."
        Exit Sub
    End If
    
    '打开登陆对话框
    Dim Login As New frmLogin
    Login.Show
    
End Sub