main.bas

Visual Basic管理信息系统开发 学生考试系统(源代码)

Attribute VB_Name = "MainModule"
Public Enum LogType
    '定义本系统的用户为学生、教师和管理人员3类
    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