dataenv.vb

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

Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic.Compatibility

Module DataEnvironment_DataEnv_Module
	Friend DataEnv As DataEnvironment_DataEnv = New DataEnvironment_DataEnv()
End Module

Friend Class DataEnvironment_DataEnv
	Inherits VB6.BaseDataEnvironment
	Public WithEvents DataConn As ADODB.Connection
	Public WithEvents rsStuTable As ADODB.Recordset
	Private m_StuTable As ADODB.Command
	Public WithEvents rsAdmTable As ADODB.Recordset
	Private m_AdmTable As ADODB.Command
	Public WithEvents rsEssayQ As ADODB.Recordset
	Private m_EssayQ As ADODB.Command
	Public WithEvents rsFillingQ As ADODB.Recordset
	Private m_FillingQ As ADODB.Command
	Public WithEvents rsMultiSelQ As ADODB.Recordset
	Private m_MultiSelQ As ADODB.Command
	Public WithEvents rsQstPaper As ADODB.Recordset
	Private m_QstPaper As ADODB.Command
	Public WithEvents rsRorWQ As ADODB.Recordset
	Private m_RorWQ As ADODB.Command
	Public WithEvents rsSingleSelQ As ADODB.Recordset
	Private m_SingleSelQ As ADODB.Command
	Public WithEvents rsTchTable As ADODB.Recordset
	Private m_TchTable As ADODB.Command
	Private m_DelQuestion As ADODB.Command
	Public Sub New()
		MyBase.New()
		Dim par As ADODB.Parameter
		
		
		DataConn = New ADODB.Connection()
		DataConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False;"
		m_Connections.Add(DataConn, "DataConn")
		m_StuTable = New ADODB.Command()
		rsStuTable = New ADODB.Recordset()
		m_StuTable.Name = "StuTable"
		m_StuTable.CommandText = "`Student`"
		m_StuTable.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rsStuTable.LockType = ADODB.LockTypeEnum.adLockOptimistic
		rsStuTable.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsStuTable.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsStuTable.Source = m_StuTable
		m_Commands.Add(m_StuTable, "StuTable")
		m_Recordsets.Add(rsStuTable, "StuTable")
		m_AdmTable = New ADODB.Command()
		rsAdmTable = New ADODB.Recordset()
		m_AdmTable.Name = "AdmTable"
		m_AdmTable.CommandText = "`Admin`"
		m_AdmTable.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rsAdmTable.LockType = ADODB.LockTypeEnum.adLockOptimistic
		rsAdmTable.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsAdmTable.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsAdmTable.Source = m_AdmTable
		m_Commands.Add(m_AdmTable, "AdmTable")
		m_Recordsets.Add(rsAdmTable, "AdmTable")
		m_EssayQ = New ADODB.Command()
		rsEssayQ = New ADODB.Recordset()
		m_EssayQ.Name = "EssayQ"
		m_EssayQ.CommandText = "`EssayQuestion`"
		m_EssayQ.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rsEssayQ.LockType = ADODB.LockTypeEnum.adLockOptimistic
		rsEssayQ.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsEssayQ.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsEssayQ.Source = m_EssayQ
		m_Commands.Add(m_EssayQ, "EssayQ")
		m_Recordsets.Add(rsEssayQ, "EssayQ")
		m_FillingQ = New ADODB.Command()
		rsFillingQ = New ADODB.Recordset()
		m_FillingQ.Name = "FillingQ"
		m_FillingQ.CommandText = "`Filling`"
		m_FillingQ.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rsFillingQ.LockType = ADODB.LockTypeEnum.adLockOptimistic
		rsFillingQ.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsFillingQ.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsFillingQ.Source = m_FillingQ
		m_Commands.Add(m_FillingQ, "FillingQ")
		m_Recordsets.Add(rsFillingQ, "FillingQ")
		m_MultiSelQ = New ADODB.Command()
		rsMultiSelQ = New ADODB.Recordset()
		m_MultiSelQ.Name = "MultiSelQ"
		m_MultiSelQ.CommandText = "`MultiSel`"
		m_MultiSelQ.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rsMultiSelQ.LockType = ADODB.LockTypeEnum.adLockOptimistic
		rsMultiSelQ.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsMultiSelQ.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsMultiSelQ.Source = m_MultiSelQ
		m_Commands.Add(m_MultiSelQ, "MultiSelQ")
		m_Recordsets.Add(rsMultiSelQ, "MultiSelQ")
		m_QstPaper = New ADODB.Command()
		rsQstPaper = New ADODB.Recordset()
		m_QstPaper.Name = "QstPaper"
		m_QstPaper.CommandText = "`QuestionPaper`"
		m_QstPaper.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rsQstPaper.LockType = ADODB.LockTypeEnum.adLockOptimistic
		rsQstPaper.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsQstPaper.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsQstPaper.Source = m_QstPaper
		m_Commands.Add(m_QstPaper, "QstPaper")
		m_Recordsets.Add(rsQstPaper, "QstPaper")
		m_RorWQ = New ADODB.Command()
		rsRorWQ = New ADODB.Recordset()
		m_RorWQ.Name = "RorWQ"
		m_RorWQ.CommandText = "`RightOrWrong`"
		m_RorWQ.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rsRorWQ.LockType = ADODB.LockTypeEnum.adLockOptimistic
		rsRorWQ.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsRorWQ.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsRorWQ.Source = m_RorWQ
		m_Commands.Add(m_RorWQ, "RorWQ")
		m_Recordsets.Add(rsRorWQ, "RorWQ")
		m_SingleSelQ = New ADODB.Command()
		rsSingleSelQ = New ADODB.Recordset()
		m_SingleSelQ.Name = "SingleSelQ"
		m_SingleSelQ.CommandText = "`SingleSel`"
		m_SingleSelQ.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rsSingleSelQ.LockType = ADODB.LockTypeEnum.adLockOptimistic
		rsSingleSelQ.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsSingleSelQ.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsSingleSelQ.Source = m_SingleSelQ
		m_Commands.Add(m_SingleSelQ, "SingleSelQ")
		m_Recordsets.Add(rsSingleSelQ, "SingleSelQ")
		m_TchTable = New ADODB.Command()
		rsTchTable = New ADODB.Recordset()
		m_TchTable.Name = "TchTable"
		m_TchTable.CommandText = "`Teachers`"
		m_TchTable.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rsTchTable.LockType = ADODB.LockTypeEnum.adLockOptimistic
		rsTchTable.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsTchTable.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsTchTable.Source = m_TchTable
		m_Commands.Add(m_TchTable, "TchTable")
		m_Recordsets.Add(rsTchTable, "TchTable")
		m_DelQuestion = New ADODB.Command()
		m_DelQuestion.Name = "DelQuestion"
		m_DelQuestion.CommandText = "Delete * From QuestionPaper"
		m_DelQuestion.CommandType = ADODB.CommandTypeEnum.adCmdText
		m_Commands.Add(m_DelQuestion, "DelQuestion")
		m_NonRSReturningCommands.Add(m_DelQuestion, "DelQuestion")
	End Sub
	Public Sub StuTable()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		If rsStuTable.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsStuTable.Close()
		End If
		m_StuTable.ActiveConnection = DataConn
		rsStuTable.Open()
	End Sub
	Public Sub AdmTable()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		If rsAdmTable.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsAdmTable.Close()
		End If
		m_AdmTable.ActiveConnection = DataConn
		rsAdmTable.Open()
	End Sub
	Public Sub EssayQ()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		If rsEssayQ.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsEssayQ.Close()
		End If
		m_EssayQ.ActiveConnection = DataConn
		rsEssayQ.Open()
	End Sub
	Public Sub FillingQ()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		If rsFillingQ.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsFillingQ.Close()
		End If
		m_FillingQ.ActiveConnection = DataConn
		rsFillingQ.Open()
	End Sub
	Public Sub MultiSelQ()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		If rsMultiSelQ.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsMultiSelQ.Close()
		End If
		m_MultiSelQ.ActiveConnection = DataConn
		rsMultiSelQ.Open()
	End Sub
	Public Sub QstPaper()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		If rsQstPaper.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsQstPaper.Close()
		End If
		m_QstPaper.ActiveConnection = DataConn
		rsQstPaper.Open()
	End Sub
	Public Sub RorWQ()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		If rsRorWQ.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsRorWQ.Close()
		End If
		m_RorWQ.ActiveConnection = DataConn
		rsRorWQ.Open()
	End Sub
	Public Sub SingleSelQ()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		If rsSingleSelQ.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsSingleSelQ.Close()
		End If
		m_SingleSelQ.ActiveConnection = DataConn
		rsSingleSelQ.Open()
	End Sub
	Public Sub TchTable()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		If rsTchTable.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsTchTable.Close()
		End If
		m_TchTable.ActiveConnection = DataConn
		rsTchTable.Open()
	End Sub
	Public Sub DelQuestion()
		If DataConn.State = ADODB.ObjectStateEnum.adStateClosed Then
			DataConn.Open()
		End If
		m_DelQuestion.ActiveConnection = DataConn
		m_DelQuestion.Execute()
	End Sub
	Private Sub DataConn_InfoMessage(ByVal pError As ADODB.Error, ByRef adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection) Handles DataConn.InfoMessage
		
	End Sub
	
	Private Sub DataEnvironment_Initialize()
		Dim strConn As String
		strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source="
		' App对象表示应用程序，App.Path则表示应用程序运行路径名
		strConn = strConn & VB6.GetPath & "\Test.mdb" & ";Persist Security Info=True"
		DataConn.ConnectionString = strConn
	End Sub
End Class