mdifrmmain.vb

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

		Me.mtBar.Index = 2
		Me.mtBar.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mtExit.Index = 3
		Me.mtExit.MergeType = System.Windows.Forms.MenuMerge.Remove
		mTest.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.mtLogin, Me.mtLogout, Me.mtBar, Me.mtExit})
		Me.mTest.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.msBeginTest.Index = 0
		Me.msBeginTest.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.msQuery.Index = 1
		Me.msQuery.MergeType = System.Windows.Forms.MenuMerge.Remove
		mStudent.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.msBeginTest, Me.msQuery})
		Me.mStudent.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mcPaper.Index = 0
		Me.mcPaper.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mcLookThrough.Index = 1
		Me.mcLookThrough.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mcModify.Index = 2
		Me.mcModify.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mcBar1.Index = 3
		Me.mcBar1.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mcRefresh.Index = 4
		Me.mcRefresh.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mcBar2.Index = 5
		Me.mcBar2.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mcCheck.Index = 6
		Me.mcCheck.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mcQuery.Index = 7
		Me.mcQuery.MergeType = System.Windows.Forms.MenuMerge.Remove
		mTeacher.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.mcPaper, Me.mcLookThrough, Me.mcModify, Me.mcBar1, Me.mcRefresh, Me.mcBar2, Me.mcCheck, Me.mcQuery})
		Me.mTeacher.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.MAMng.Index = 0
		Me.MAMng.MergeType = System.Windows.Forms.MenuMerge.Remove
		MAdmin.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.MAMng})
		Me.MAdmin.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mhReadme.Index = 0
		Me.mhReadme.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.mhAbout.Index = 1
		Me.mhAbout.MergeType = System.Windows.Forms.MenuMerge.Remove
		mHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.mhReadme, Me.mhAbout})
		Me.mHelp.MergeType = System.Windows.Forms.MenuMerge.Remove
		Me.Menu = MainMenu1
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As MDIfrmMain
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As MDIfrmMain
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New MDIfrmMain()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Public Sub MAMng_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MAMng.Popup
		MAMng_Click(eventSender, eventArgs)
	End Sub
	Public Sub MAMng_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MAMng.Click
		frmAdmin.DefInstance.ShowDialog()
	End Sub
	
	Public Sub mcCheck_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcCheck.Popup
		mcCheck_Click(eventSender, eventArgs)
	End Sub
	Public Sub mcCheck_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcCheck.Click '单击评判试卷菜单
		If QPaper.Answered Then '如果试卷已经回答，则弹出frmCheck窗体
			frmCheck.DefInstance.ShowDialog()
		Else
			MsgBox("考试尚未进行", MsgBoxStyle.Critical, "操作失败")
		End If
	End Sub
	
	Public Sub mcLookThrough_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcLookThrough.Popup
		mcLookThrough_Click(eventSender, eventArgs)
	End Sub
	Public Sub mcLookThrough_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcLookThrough.Click '单击浏览试卷菜单
		If QPaper.Created Then
			QPaper.ReportToFile("varFile.tmp") '将试卷输出到文件
			frmReport.DefInstance.FileName = "varFile.tmp" '将文件在frmReport窗体中显示
			frmReport.DefInstance.ShowDialog()
			Kill("varFile.tmp")
		Else
			MsgBox("试卷还未创建", MsgBoxStyle.Critical, "错误")
		End If
	End Sub
	
	Public Sub mcModify_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcModify.Popup
		mcModify_Click(eventSender, eventArgs)
	End Sub
	Public Sub mcModify_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcModify.Click '单击修改试卷菜单
		If Not QPaper.Created Then
			MsgBox("试卷还没有创建", MsgBoxStyle.Critical, "错误")
			Exit Sub
		End If
		frmModifyPaper.DefInstance.ShowDialog() '弹出窗体frmModifyPaper
	End Sub
	
	Public Sub mcPaper_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcPaper.Popup
		mcPaper_Click(eventSender, eventArgs)
	End Sub
	Public Sub mcPaper_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcPaper.Click '单击生成试卷菜单
		If QPaper.Created Then
			MsgBox("试卷已经创建,请选择修改试卷", MsgBoxStyle.Exclamation, "警告")
			Exit Sub
		End If
		frmCreatePaper.DefInstance.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Width) / 2 - VB6.PixelsToTwipsX(frmCreatePaper.DefInstance.Width) / 2)
		frmCreatePaper.DefInstance.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Me.Height) / 2 - VB6.PixelsToTwipsY(frmCreatePaper.DefInstance.Height) / 2)
		frmCreatePaper.DefInstance.Show() '显示frmCreatePaper窗体
	End Sub
	
	Public Sub mcQuery_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcQuery.Popup
		mcQuery_Click(eventSender, eventArgs)
	End Sub
	Public Sub mcQuery_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcQuery.Click '单击信息查询菜单
		If Not QPaper.Checked Then
			MsgBox("试卷还未评阅", MsgBoxStyle.Critical, "操作失败")
		Else
			frmResult.DefInstance.ShowDialog() '显示frmResult窗体
		End If
	End Sub
	
	Public Sub mcRefresh_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcRefresh.Popup
		mcRefresh_Click(eventSender, eventArgs)
	End Sub
	Public Sub mcRefresh_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mcRefresh.Click '单击题库管理菜单
		frmTestLib.DefInstance.ShowDialog() '显示frmTestLib窗体
	End Sub
	
	Public Sub mhAbout_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mhAbout.Popup
		mhAbout_Click(eventSender, eventArgs)
	End Sub
	Public Sub mhAbout_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mhAbout.Click '单击关于菜单
		frmSplash.DefInstance.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Width) / 2 - VB6.PixelsToTwipsX(frmSplash.DefInstance.Width) / 2)
		frmSplash.DefInstance.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Me.Height) / 2 - VB6.PixelsToTwipsY(frmSplash.DefInstance.Height) / 2)
		frmSplash.DefInstance.ShowDialog() '显示frmSplash
	End Sub
	
	Public Sub mhReadme_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mhReadme.Popup
		mhReadme_Click(eventSender, eventArgs)
	End Sub
	Public Sub mhReadme_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mhReadme.Click '单击帮助手册菜单
		frmReport.DefInstance.CmdPrint.Visible = False '显示frmReport窗体
		frmReport.DefInstance.FileName = "Readme.txt"
		frmReport.DefInstance.ShowDialog()
	End Sub
	
	Public Sub msBeginTest_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles msBeginTest.Popup
		msBeginTest_Click(eventSender, eventArgs)
	End Sub
	Public Sub msBeginTest_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles msBeginTest.Click '单击开始测试菜单
		If Not QPaper.Created Then '如果试卷已经创建，则显示frmAnswer窗体
			MsgBox("试卷还没有创建", MsgBoxStyle.Exclamation, "操作无法完成")
			Exit Sub
		End If
		If QPaper.Answered Then
			MsgBox("试卷已经提交，请选择查询成绩", MsgBoxStyle.Exclamation, "操作无法完成")
			Exit Sub
		End If
		frmAnswer.DefInstance.Show()
	End Sub
	
	Public Sub msQuery_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles msQuery.Popup
		msQuery_Click(eventSender, eventArgs)
	End Sub
	Public Sub msQuery_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles msQuery.Click '单击查询结果菜单
		If Not QPaper.Checked Then
			MsgBox("试卷还未评阅", MsgBoxStyle.Critical, "操作失败")
		Else
			frmResult.DefInstance.ShowDialog() '显示frmResult窗体
		End If
	End Sub
	
	Public Sub mtExit_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mtExit.Popup
		mtExit_Click(eventSender, eventArgs)
	End Sub
	Public Sub mtExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mtExit.Click '单击退出菜单
		End
	End Sub
	
	Public Sub mtLogin_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mtLogin.Popup
		mtLogin_Click(eventSender, eventArgs)
	End Sub
	Public Sub mtLogin_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mtLogin.Click '单击用户登录菜单
		frmLogin.DefInstance.ShowDialog() '显示frmLogin登录窗体
		If Not TestUser.LogFail Then
			Me.Text = "考试系统"
			Me.mtLogin.Enabled = False
			Me.mtLogout.Enabled = True
			If TestUser.UserType = MainModule.LogType.student Then '根据用户类型显示不同的菜单
				Me.mStudent.Visible = True
			ElseIf TestUser.UserType = MainModule.LogType.teacher Then 
				Me.mTeacher.Visible = True
			ElseIf TestUser.UserType = MainModule.LogType.administrator Then 
				Me.MAdmin.Visible = True
			End If
		End If
	End Sub
	
	Public Sub mtLogout_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mtLogout.Popup
		mtLogout_Click(eventSender, eventArgs)
	End Sub
	Public Sub mtLogout_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mtLogout.Click '单击注销登录菜单
		Me.mtLogin.Enabled = True
		Me.mtLogout.Enabled = False
		Me.mStudent.Visible = False
		Me.mTeacher.Visible = False
		TestUser.LogFail = True
	End Sub
End Class