mdlstandard.bas

学生成绩管理系统 学生成绩管理系统

Attribute VB_Name = "mdlStandard"
Option Explicit

'0-表示教师身份；1-表示学生身份
Public gnUserType As Integer
Public gsUserName  As String

Sub Main()
    gnUserType = 0
    gsUserName = ""
    
    frmSplash.Show vbModal
    frmLogin.Show
End Sub