大家好，我是讯享网，很高兴认识大家。



设计部分

功能模块图

业务流程图

UC矩阵

数据流图

E-R图

逻辑结构

院系（系名称，系主任，办公电话）

课程（课程名称，教师号，课程人数，学期）

班级（班级名称，班主任，专业，班级人数）

教师（教师号，姓名，性别，职称，部门，联系方式，状态）

成绩（成绩ID，课程名称，学号，考试日期，分数，评分）

学生（学号，姓名，性别，照片，个人简历，班级，家庭电话，家庭地址，出生日期，身份证号，民族，备注）

专业（专业名称，所属院系）

程序流程图

院系（系名称，系主任，办公电话）

课程（课程名称，教师号，课程人数，学期）

班级（班级名称，班主任，专业，班级人数）

教师（教师号，姓名，性别，职称，部门，联系方式，状态）

成绩（成绩ID，课程名称，学号，考试日期，分数，评分）

学生（学号，姓名，性别，照片，个人简历，班级，家庭电话，家庭地址，出生日期，身份证号，民族，备注）

专业（专业名称，所属院系）

数据库部分

表

院系表

课程表

班级表

教师表

成绩表

学生表

专业表

表关系

查询

班级查询（多表选择查询）

班级添加查询（追加查询）

INSERT INTO 班级表 ( 班级名称, 班主任, 专业, 班级人数 )

SELECT [Forms]![班级添加查询]![班级名称] AS 班级名称, [Forms]![班级添加查询]![班主任] AS 班主任, [Forms]![班级添加查询]![专业] AS 专业, [Forms]![班级添加查询]![班级人数] AS 班级人数;

成绩查询（多表选择查询）

成绩添加查询（追加查询）

INSERT INTO 成绩表 ( 课程名称, 学号, 考试日期, 分数, 评分 )

SELECT [Forms]![成绩添加查询]![课程名称] AS 课程名称, [Forms]![成绩添加查询]![学号] AS 学号, [Forms]![成绩添加查询]![考试日期] AS 考试日期, [Forms]![成绩添加查询]![分数] AS 分数, [Forms]![成绩添加查询]![评分] AS 评分;

教师添加查询（追加查询）

INSERT INTO 教师表 ( 教师号, 姓名, 性别, 职称, 部门, 联系方式, 状态 )

SELECT [Forms]![教师添加查询]![教师号] AS 教师号, [Forms]![教师添加查询]![姓名] AS 姓名, [Forms]![教师添加查询]![性别] AS 性别, [Forms]![教师添加查询]![职称] AS 职称, [Forms]![教师添加查询]![部门] AS 部门, [Forms]![教师添加查询]![联系方式] AS 联系方式, [Forms]![教师添加查询]![状态] AS 状态;

课程查询（多表选择查询）

课程添加查询（追加查询）

讯享网

INSERT INTO 课程表 ( 课程名称, 教师号, 课程人数, 学期 )

SELECT [Forms]![课程添加查询]![课程名称] AS 课程名称, [Forms]![课程添加查询]![教师号] AS 教师号, [Forms]![课程添加查询]![课程人数] AS 课程人数, [Forms]![课程添加查询]![学期] AS 学期;

学生查询（多表选择查询）

学生添加查询（追加查询）

INSERT INTO 学生表 ( 学号, 姓名, 性别, 个人简历, 班级, 家庭电话, 家庭地址, 出生日期, 身份证号, 民族, 备注 )

SELECT [Forms]![学生添加查询]![学号] AS 学号, [Forms]![学生添加查询]![姓名] AS 姓名, [Forms]![学生添加查询]![性别] AS 性别, [Forms]![学生添加查询]![个人简历] AS 个人简历, [Forms]![学生添加查询]![班级] AS 班级, [Forms]![学生添加查询]![家庭电话] AS 家庭电话, [Forms]![学生添加查询]![家庭地址] AS 家庭地址, [Forms]![学生添加查询]![出生日期] AS 出生日期, [Forms]![学生添加查询]![身份证号] AS 身份证号, [Forms]![学生添加查询]![民族] AS 民族, [Forms]![学生添加查询]![备注] AS 备注;

院系删除查询（删除查询）

DELETE 院系表., 院系表.系名称

FROM 院系表

WHERE (((院系表.系名称)=[Forms]![院系管理]![系名称]));

专业删除查询（删除查询）

DELETE 专业表., 专业表.专业名称

FROM 专业表

WHERE (((专业表.专业名称)=[Forms]![专业管理]![专业名称]));

窗体（学生管理）

学生查询数据库

数据表形式窗体

Private Sub 学号_DblClick(Cancel As Integer)

DoCmd.OpenForm "学生更新删除", acNormal, , "学号='" & 学号 & "'"

End Sub

学生成绩数据表

数据表形式窗体

学生更新删除

绑定记录窗体，组合框，文本框，按钮

Private Sub Command保存_Click()

If 学号.Value <> "" And 姓名.Value <> "" And 班级.Value <> "" Then

On Error Resume Next

DoCmd.RunCommand acCmdSaveRecord

Else

MsgBox "学号，姓名和班级不能为空"

On Error Resume Next

DoCmd.RunCommand acCmdUndo

Exit Sub

End If

If Error.Number <> 0 Then

MsgBox Error.Description

End If

End Sub

Private Sub Command删除_Click()

On Error Resume Next

DoCmd.SetWarnings (False)

If MsgBox("是否删除该记录", vbYesNo) = vbYes Then

DoCmd.RunCommand acCmdDeleteRecord

MsgBox "删除成功"

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 <> "" 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 Form_Close()

On Error Resume Next

Forms("学生添加查询").Form.数据表子窗体.Requery

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()

If Me.查询类型 <> "" And Me.查询内容 <> "" Then

Me.数据表子窗体.Form.Filter = Me.查询类型 & " like '" & Me.查询内容 & "'"

Me.数据表子窗体.Form.FilterOn = True

Else

Me.数据表子窗体.Form.FilterOn = False

End If

End Sub

Private Sub Command清空_Click()

学号.Value = ""

姓名.Value = ""

性别.Value = ""

个人简历.Value = ""

班级.Value = ""

家庭电话.Value = ""

家庭地址.Value = ""

出生日期.Value = ""

身份证号.Value = ""

民族.Value = ""

备注.Value = ""

End Sub

Private Sub Command全部_Click()

Me.数据表子窗体.Form.FilterOn = False

End Sub

Private Sub Command添加_Click()

If 学号.Value <> "" And 姓名.Value <> "" And 班级.Value <> "" Then

If Nz(DCount("学号", "学生表", "学号='" & Me.学号 & "'"), 0) > 0 Then

MsgBox "该学号已存在，不能重复添加"

Exit Sub

End If

DoCmd.SetWarnings (False)

DoCmd.OpenQuery "学生添加查询", acViewNormal

MsgBox "添加完成"

Me.数据表子窗体.Requery

Else

MsgBox "学号，姓名和班级不能为空"

Exit Sub

End If

End Sub

报表

学生报表

Private Sub Label20_DblClick(Cancel As Integer)

On Error GoTo 打印对象_Err

DoCmd.RunCommand acCmdPrint

打印对象_Exit:

Exit Sub

打印对象_Err:

Resume 打印对象_Exit

End Sub

如需该系统原文件和设计报告资料可访问同名↓