loginuser.vb

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

Option Strict Off
Option Explicit On
Friend Class LoginUser
	
	Private mvarUserName As String
	Private mvarLogTime As Date
	Private mvarUserPassword As String
	Private mvarUserType As MainModule.LogType
	Private mvarLogFail As Boolean
	'定义UserType属性的设置方法
	
	'定义UserType属性的读取方法
	Public Property UserType() As MainModule.LogType
		Get
			UserType = mvarUserType
		End Get
		Set(ByVal Value As MainModule.LogType)
			mvarUserType = Value
		End Set
	End Property
	'定义UserPassword属性的设置方法
	
	'定义UserPassword属性的读取方法
	Public Property UserPassword() As String
		Get
			UserPassword = mvarUserPassword
		End Get
		Set(ByVal Value As String)
			mvarUserPassword = Value
		End Set
	End Property
	'定义LogTime属性的设置方法
	'定义LogTime属性的读取方法
	Public Property LogTime() As Date
		Get
			LogTime = mvarLogTime
		End Get
		Set(ByVal Value As Date)
			mvarLogTime = Value
		End Set
	End Property
	'定义UserName属性的设置方法
	'定义UserName属性的读取方法
	Public Property UserName() As String
		Get
			UserName = mvarUserName
		End Get
		Set(ByVal Value As String)
			mvarUserName = Value
		End Set
	End Property
	'定义LogFail属性的设置方法
	'定义LogFail属性的读取方法
	Public Property LogFail() As Boolean
		Get
			LogFail = mvarLogFail
		End Get
		Set(ByVal Value As Boolean)
			mvarLogFail = Value
		End Set
	End Property
	
	Public Function Log(ByVal uName As String, ByVal uPass As String, ByVal uType As MainModule.LogType) As Boolean
		'Log方法的各参数分别是用户所输入的姓名、口令以及用户的类型
		Dim SQLstring As String
		If uName = "" Then '如果用户名为空则登录失败
			LogFail = True
			Log = LogFail
			Exit Function
		End If
		If uPass = "" Then '如果用户口令为空则登录失败
			LogFail = True
			Log = LogFail
			Exit Function
		End If
		If uType <> MainModule.LogType.student And uType <> MainModule.LogType.teacher And uType <> MainModule.LogType.administrator Then
			'如果用户类型不是枚举值中的一个，则登录失败。
			LogFail = True
			Log = LogFail
			Exit Function
		End If
		'根据不同的用户类型验证不同的数据集对象
		Select Case uType
			Case MainModule.LogType.student
				'用户类型为学生，验证由命令对象StuTable创建的数据集rsStuTable
				DataEnv.rsStuTable.Open()
				DataEnv.rsStuTable.Filter = "studentName = '" & uName & "' And studentPassword = '" & uPass & "'"
				If DataEnv.rsStuTable.RecordCount > 0 Then
					LogFail = False
				End If
				DataEnv.rsStuTable.Filter = ""
				DataEnv.rsStuTable.Close()
			Case MainModule.LogType.teacher
				'用户类型为教师，验证由命令对象TchTable创建的数据集rsTchTable
				DataEnv.rsTchTable.Open()
				DataEnv.rsTchTable.Filter = "TeacherName = '" & uName & "' And TeacherPassword = '" & uPass & "'"
				If DataEnv.rsTchTable.RecordCount > 0 Then
					LogFail = False
				End If
				DataEnv.rsTchTable.Filter = ""
				DataEnv.rsTchTable.Close()
			Case MainModule.LogType.administrator
				'用户类型为管理员，验证由命令对象AdmTable创建的数据集rsAdmTable
				DataEnv.rsAdmTable.Open()
				DataEnv.rsAdmTable.Filter = "AdministratorName = '" & uName & "' And AdministratorPassword = '" & uPass & "'"
				If DataEnv.rsAdmTable.RecordCount > 0 Then
					LogFail = False
				End If
				DataEnv.rsAdmTable.Filter = ""
				DataEnv.rsAdmTable.Close()
		End Select
		UserName = uName
		UserPassword = uPass
		UserType = uType
		
	End Function
End Class