系统介绍
•本系统包含主要功能有：学生管理，考试管理，考场管理，考试安排，考试成绩统计，生成报表。
•商品中包含简要的设计报告（功能模块图，业务流程图，UC矩阵，数据流图，数据字典，E-R图等）和制作截图文档。
•数据库系统包含：表，查询，窗体，报表，VBA代码
•系统为单机使用的access数据库系统，可作为课程学习实例使用。
设计部分
功能模块图
业务流程图
数据流图
E-R图
程序流程图
关系模型
考试（考试名称，科目，考试日期，考试时间）
考试安排（学号，考试，考场，座位，监考员，成绩，状态）
考场（考场名称，考场座位，状态）
学生（学号，姓名，性别，班级）
监考员（监考员，监考科目，联系电话）
系统部分
表关系
窗体
考试安排
考场管理
考试管理
学生管理
考试统计
报表
考试安排报表
考试统计报表
代码部分
系统主页
Private Sub Command监考管理_Click()
Me.显示界面子窗体.SourceObject = "监考员管理"
Me.显示界面子窗体.SetFocus
End Sub
Private Sub Command考场管理_Click()
Me.显示界面子窗体.SourceObject = "考场管理"
Me.显示界面子窗体.SetFocus
End Sub
Private Sub Command考试安排_Click()
Me.显示界面子窗体.SourceObject = "考试安排管理"
Me.显示界面子窗体.SetFocus
End Sub
Private Sub Command考试管理_Click()
Me.显示界面子窗体.SourceObject = "考试管理"
Me.显示界面子窗体.SetFocus
End Sub
Private Sub Command考试统计_Click()
Me.显示界面子窗体.SourceObject = "考试统计"
Me.显示界面子窗体.SetFocus
End Sub
Private Sub Command退出系统_Click()
If MsgBox("是否退出系统", vbYesNo) <> vbYes Then
Exit Sub
End If
Application.Quit acQuitSaveAll
End Sub
Private Sub Command系统后台_Click()
DoCmd.Close acForm, Me.Name
DoCmd.SelectObject acForm, , True
End Sub
Private Sub Command学生管理_Click()
Me.显示界面子窗体.SourceObject = "学生管理"
Me.显示界面子窗体.SetFocus
End Sub
监考员管理
Private Sub Command查询_Click()
On Error GoTo 结束查询
If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then
Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Me.数据表子窗体.Requery
Else
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End If
Me.数据表子窗体.SetFocus
Exit Sub
结束查询:
MsgBox Err.Description
End Sub
Private Sub Command清空_Click()
监考员.Value = ""
监考科目.Value = ""
联系电话.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End Sub
Private Sub Command添加_Click()
If 监考员 = "" Or IsNull(监考员) = True Then
MsgBox "监考员值为空！"
Exit Sub
End If
If 监考科目 = "" Or IsNull(监考科目) = True Then
MsgBox "监考科目值为空！"
Exit Sub
End If
If 联系电话 = "" Or IsNull(联系电话) = True Then
MsgBox "联系电话值为空！"
Exit Sub
End If
If Nz(DCount("监考员", "监考员表", "监考员='" & Me.监考员 & "'"), 0) > 0 Then
MsgBox "该监考员已存在！不能重复"
Exit Sub
End If
On Error Resume Next
DoCmd.SetWarnings (False)
Dim add_sql As String
add_sql = "Insert Into 监考员表 (监考员,监考科目,联系电话) Values ('" & 监考员 & "','" & 监考科目 & "','" & 联系电话 & "')"
DoCmd.RunSQL add_sql
MsgBox "添加完成"
Me.数据表子窗体.Form.Requery
End Sub
监考员数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 监考员.Value <> "" And 监考科目.Value <> "" And 联系电话.Value <> "" Then
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
Else
MsgBox "监考员，监考科目，联系电话都不能为空"
On Error Resume Next
DoCmd.RunCommand acCmdUndo
Exit Sub
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub 监考员_DblClick(Cancel As Integer)
If MsgBox("是否删除该记录：" & Me.监考员 & "?", vbYesNo) = vbYes Then
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 监考员表 Where 监考员 = '" & Me.监考员 & "'"
DoCmd.RunSQL del_sql
Me.Requery
End If
End Sub
考场管理
Private Sub Command查询_Click()
On Error GoTo 结束查询
If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then
Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Me.数据表子窗体.Requery
Else
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End If
Me.数据表子窗体.SetFocus
Exit Sub
结束查询:
MsgBox Err.Description
End Sub
Private Sub Command清空_Click()
考场名称.Value = ""
考场座位.Value = ""
状态.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End Sub
Private Sub Command添加_Click()
If 考场名称 = "" Or IsNull(考场名称) = True Then
MsgBox "考场名称值为空！"
Exit Sub
End If
If 考场座位 = "" Or IsNull(考场座位) = True Then
MsgBox "考场座位值为空！"
Exit Sub
End If
If 状态 = "" Or IsNull(状态) = True Then
MsgBox "状态值为空！"
Exit Sub
End If
If Nz(DCount("考场名称", "考场表", "考场名称='" & Me.考场名称 & "' and 考场座位='" & Me.考场座位 & "'"), 0) > 0 Then
MsgBox "该考场名称座位已存在！不能重复"
Exit Sub
End If
On Error Resume Next
DoCmd.SetWarnings (False)
Dim add_sql As String
add_sql = "Insert Into 考场表 (考场名称,考场座位,状态) Values ('" & 考场名称 & "','" & 考场座位 & "','" & 状态 & "')"
DoCmd.RunSQL add_sql
MsgBox "添加完成"
Me.数据表子窗体.Form.Requery
End Sub
考场数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 考场名称.Value <> "" And 考场座位.Value <> "" And 状态.Value <> "" Then
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
Else
MsgBox "考场名称，考场座位，状态都不能为空"
On Error Resume Next
DoCmd.RunCommand acCmdUndo
Exit Sub
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub 考场名称_DblClick(Cancel As Integer)
If MsgBox("是否删除该记录：" & Me.考场名称 & "?", vbYesNo) = vbYes Then
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 考场表 Where 考场名称 = '" & Me.考场名称 & "'"
DoCmd.RunSQL del_sql
Me.Requery
End If
End Sub
考试安排管理
Private Sub Command报表_Click()
If Me.数据表子窗体.Form.FilterOn = True Then
DoCmd.OpenReport "考试安排报表", acViewReport, , Me.数据表子窗体.Form.Filter
Else
DoCmd.OpenReport "考试安排报表", acViewReport
End If
End Sub
Private Sub Command查询_Click()
On Error GoTo 结束查询
If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then
Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Me.数据表子窗体.Requery
Else
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End If
Me.数据表子窗体.SetFocus
Exit Sub
结束查询:
MsgBox Err.Description
End Sub
Private Sub Command清空_Click()
学号.Value = ""
考试.Value = ""
考场.Value = ""
座位.Value = ""
监考员.Value = ""
成绩.Value = ""
状态.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End Sub
Private Sub Command添加_Click()
If 学号 = "" Or IsNull(学号) = True Then
MsgBox "学号值为空！"
Exit Sub
End If
If 考试 = "" Or IsNull(考试) = True Then
MsgBox "考试值为空！"
Exit Sub
End If
If 考场 = "" Or IsNull(考场) = True Then
MsgBox "考场值为空！"
Exit Sub
End If
If 座位 = "" Or IsNull(座位) = True Then
MsgBox "座位值为空！"
Exit Sub
End If
On Error Resume Next
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("考试安排表", dbOpenTable)
With add_rs
.AddNew
!学号.Value = 学号.Value
!考试.Value = 考试.Value
!考场.Value = 考场.Value
!座位.Value = 座位.Value
!监考员.Value = 监考员.Value
!成绩.Value = 成绩.Value
!状态.Value = 状态.Value
.Update
.Close
End With
Set add_rs = Nothing
MsgBox "添加完成"
Me.数据表子窗体.Form.Requery
End Sub
Private Sub 考场_AfterUpdate()
If Me.考场 <> "" Then
Me.座位.RowSource = "Select 考场座位,状态 From 考场表 where 考场名称='" & Me.考场 & "'"
Me.座位 = ""
Me.座位.Requery
Else
Me.座位.RowSource = "Select 考场座位,状态 From 考场表"
Me.座位 = ""
Me.座位.Requery
End If
End Sub
Private Sub 考场_Change()
If Me.考场 <> "" Then
Me.座位.RowSource = "Select 考场座位,状态 From 考场表 where 考场名称='" & Me.考场 & "'"
Me.座位 = ""
Me.座位.Requery
Else
Me.座位.RowSource = "Select 考场座位,状态 From 考场表"
Me.座位 = ""
Me.座位.Requery
End If
End Sub
考试管理
Private Sub Command查询_Click()
On Error GoTo 结束查询
If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then
Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Me.数据表子窗体.Requery
Else
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End If
Me.数据表子窗体.SetFocus
Exit Sub
结束查询:
MsgBox Err.Description
End Sub
Private Sub Command清空_Click()
考试名称.Value = ""
科目.Value = ""
考试日期.Value = ""
考试时间.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End Sub
Private Sub Command添加_Click()
If 考试名称 = "" Or IsNull(考试名称) = True Then
MsgBox "考试名称值为空！"
Exit Sub
End If
If 科目 = "" Or IsNull(科目) = True Then
MsgBox "科目值为空！"
Exit Sub
End If
If 考试日期 = "" Or IsNull(考试日期) = True Then
MsgBox "考试日期值为空！"
Exit Sub
End If
If 考试时间 = "" Or IsNull(考试时间) = True Then
MsgBox "考试时间值为空！"
Exit Sub
End If
If Nz(DCount("考试名称", "考试表", "考试名称='" & Me.考试名称 & "'"), 0) > 0 Then
MsgBox "该考试名称已存在！不能重复"
Exit Sub
End If
On Error Resume Next
DoCmd.SetWarnings (False)
Dim add_sql As String
add_sql = "Insert Into 考试表 (考试名称,科目,考试日期,考试时间) Values ('" & 考试名称 & "','" & 科目 & "',#" & 考试日期 & "#,'" & 考试时间 & "')"
DoCmd.RunSQL add_sql
MsgBox "添加完成"
Me.数据表子窗体.Form.Requery
End Sub
考试数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 考试名称.Value <> "" And 科目.Value <> "" And 考试日期.Value <> "" And 考试时间.Value <> "" Then
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
Else
MsgBox "考试名称，科目，考试日期，考试时间都不能为空"
On Error Resume Next
DoCmd.RunCommand acCmdUndo
Exit Sub
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub 考试名称_DblClick(Cancel As Integer)
DoCmd.OpenForm "考试信息管理", acNormal, , "考试名称='" & 考试名称 & "'"
End Sub
考试统计
Private Sub Command报表_Click()
If Me.数据表子窗体.Form.FilterOn = True Then
DoCmd.OpenReport "考试统计报表", acViewReport, , Me.数据表子窗体.Form.Filter
Else
DoCmd.OpenReport "考试统计报表", acViewReport
End If
End Sub
Private Sub Command查询_Click()
On Error GoTo 结束查询
If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then
Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Me.数据表子窗体.Requery
Else
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End If
Me.数据表子窗体.SetFocus
Exit Sub
结束查询:
MsgBox Err.Description
End Sub
Private Sub Command清空_Click()
考场名称.Value = ""
考场座位.Value = ""
状态.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End Sub
Private Sub Command添加_Click()
If 考场名称 = "" Or IsNull(考场名称) = True Then
MsgBox "考场名称值为空！"
Exit Sub
End If
If 考场座位 = "" Or IsNull(考场座位) = True Then
MsgBox "考场座位值为空！"
Exit Sub
End If
If 状态 = "" Or IsNull(状态) = True Then
MsgBox "状态值为空！"
Exit Sub
End If
If Nz(DCount("考场名称", "考场表", "考场名称='" & Me.考场名称 & "' and 考场座位='" & Me.考场座位 & "'"), 0) > 0 Then
MsgBox "该考场名称座位已存在！不能重复"
Exit Sub
End If
On Error Resume Next
DoCmd.SetWarnings (False)
Dim add_sql As String
add_sql = "Insert Into 考场表 (考场名称,考场座位,状态) Values ('" & 考场名称 & "','" & 考场座位 & "','" & 状态 & "')"
DoCmd.RunSQL add_sql
MsgBox "添加完成"
Me.数据表子窗体.Form.Requery
End Sub
考试信息管理
Private Sub Command更新_Click()
If 考试名称.Value <> "" And 科目.Value <> "" And 考试日期.Value <> "" And 考试时间.Value <> "" Then
On Error GoTo 数据更新前提醒_Err
DoCmd.RunCommand acCmdSaveRecord
Else
MsgBox "考试名称，科目，考试日期，考试时间都不能为空"
On Error Resume Next
DoCmd.RunCommand acCmdUndo
Exit Sub
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub Command删除_Click()
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings (False)
If MsgBox("是否删除该记录：" & Me.考试名称, vbYesNo) = vbYes Then
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 考试表 Where 考试名称 = '" & Me.考试名称 & "'"
DoCmd.RunSQL del_sql
MsgBox "删除成功"
Forms("系统主页").显示界面子窗体.Form.数据表子窗体.Form.Requery
DoCmd.Close acForm, Me.Name
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 考试名称.Value <> "" And 科目.Value <> "" And 考试日期.Value <> "" And 考试时间.Value <> "" Then
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
Else
MsgBox "考试名称，科目，考试日期，考试时间都不能为空"
On Error Resume Next
DoCmd.RunCommand acCmdUndo
Exit Sub
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
学生管理
Private Sub Command报表_Click()
If Me.数据表子窗体.Form.FilterOn = True Then
DoCmd.OpenReport "学生报表", acViewReport, , Me.数据表子窗体.Form.Filter
Else
DoCmd.OpenReport "学生报表", acViewReport
End If
End Sub
Private Sub Command查询_Click()
On Error GoTo 结束查询
If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then
Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Me.数据表子窗体.Requery
Else
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End If
Me.数据表子窗体.SetFocus
Exit Sub
结束查询:
MsgBox Err.Description
End Sub
Private Sub Command清空_Click()
学号.Value = ""
姓名.Value = ""
性别.Value = ""
班级.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
Me.数据表子窗体.Requery
End Sub
Private Sub Command添加_Click()
If 学号 = "" Or IsNull(学号) = True Then
MsgBox "学号值为空！"
Exit Sub
End If
If 姓名 = "" Or IsNull(姓名) = True Then
MsgBox "姓名值为空！"
Exit Sub
End If
If 性别 = "" Or IsNull(性别) = True Then
MsgBox "性别值为空！"
Exit Sub
End If
If 班级 = "" Or IsNull(班级) = True Then
MsgBox "班级值为空！"
Exit Sub
End If
If Nz(DCount("学号", "学生表", "学号='" & Me.学号 & "'"), 0) > 0 Then
MsgBox "该学号已存在！不能重复"
Exit Sub
End If
On Error Resume Next
DoCmd.SetWarnings (False)
Dim add_sql As String
add_sql = "Insert Into 学生表 (学号,姓名,性别,班级) Values ('" & 学号 & "','" & 姓名 & "','" & 性别 & "','" & 班级 & "')"
DoCmd.RunSQL add_sql
MsgBox "添加完成"
Me.数据表子窗体.Form.Requery
End Sub
学生数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 学号.Value <> "" And 姓名.Value <> "" And 性别.Value <> "" And 班级.Value <> "" Then
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
Else
MsgBox "学号，姓名，性别，班级都不能为空"
On Error Resume Next
DoCmd.RunCommand acCmdUndo
Exit Sub
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub 学号_DblClick(Cancel As Integer)
DoCmd.OpenForm "学生信息管理", acNormal, , "学号='" & 学号 & "'"
End Sub
学生信息管理
Private Sub Command更新_Click()
If 学号.Value <> "" And 姓名.Value <> "" And 性别.Value <> "" And 班级.Value <> "" Then
On Error GoTo 数据更新前提醒_Err
DoCmd.RunCommand acCmdSaveRecord
Else
MsgBox "学号，姓名，性别，班级都不能为空"
On Error Resume Next
DoCmd.RunCommand acCmdUndo
Exit Sub
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub Command删除_Click()
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings (False)
If MsgBox("是否删除该记录：" & Me.学号, vbYesNo) = vbYes Then
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 学生表 Where 学号 = '" & Me.学号 & "'"
DoCmd.RunSQL del_sql
MsgBox "删除成功"
Forms("系统主页").显示界面子窗体.Form.数据表子窗体.Form.Requery
DoCmd.Close acForm, Me.Name
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 学号.Value <> "" And 姓名.Value <> "" And 性别.Value <> "" And 班级.Value <> "" Then
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
Else
MsgBox "学号，姓名，性别，班级都不能为空"
On Error Resume Next
DoCmd.RunCommand acCmdUndo
Exit Sub
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
如果需要做好的数据库系统文件和全部设计资料，可访问同名↓获取
