main.vb

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

Option Strict Off
Option Explicit On
Module 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
	
	'UPGRADE_WARNING: 应用程序将在 Sub Main() 结束时终止。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1047"”
	Public Sub Main()
		TestUser.LogFail = True
		QPaper.Answered = False
		QPaper.Created = False
		TestUser.UserName = ""
		TestUser.UserPassword = ""
		TestUser.LogFail = True
		frmSplash.DefInstance.ShowDialog()
		MDIfrmMain.DefInstance.Show()
	End Sub
End Module