mdlstandard.bas

来自「对成绩的管理,很方便,也很实用,适合各种学校的管理」· BAS 代码 · 共 15 行

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