www.pudn.com > stu_rag.rar > Main.bas, change:2003-04-03,size:572b


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