main.bas

考试系统:通过学生,教师,管理员三个身份可以登陆系统,教师和管理员有修改试卷的权限.

Attribute VB_Name = "MainModule"
Public Enum LogType
    student
    teacher
    administrator
End Enum

Public Enum QuestionType
    OnErr = -1
    Blacks = 1
    RightOrWrong = 2
    SingleSel = 3
    MultiSel = 4
    EssayQuestion = 5
End Enum

Public TestUser As New LoginUser
Public QPaper As New QestionPaper

Sub Main()
  TestUser.LogFail = True
  QPaper.Answered = False
  QPaper.Created = False
  TestUser.UserName = ""
  TestUser.UserPassword = ""
  TestUser.LogFail = True
  frmSplash.Show vbModal
  MDIfrmMain.Show
End Sub