- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PAGE 1
目录
TOC \o 1-3 \h \z \u 课程设计目的 2
数据库设计 2
1. 需求分析 2
2. 概念结构设计 3
3. 逻辑结构设计 4
4. 设计窗体、查询和报表 5
1)窗体 5
2)创建查询 11
3)创建报表 12
5.创建宏 14
设计总结 15
1.设计不足 15
2.分工 15
课程设计目的
学生成绩管理系统是提供给学校管理学生成绩信息和教师信息,包括添加。删除、查询。用户是学校管理人员,教师。本系统主要实现了以下几个功能
对学生成绩管理,包括成绩的录入、删除与查询
教师信息的管理,记录教师信息的变更,因为教师工作的调动,所以要对教师信息进行添加或者查询、删除。
因为学校每学期所开课程的不同,因此还添加了课程信息的管理,主要目的是方便对学校所开课程进行统一的管理。
对学生信息进行修改、查询、添加
数据库设计
需求分析
随着电脑信息技术的发展,我们越来越多地应用数据库对数据进行管理。尤其是拥有很多数据,同时需要处理的客户。学校拥有很多的学生、教师,每个教师、学生的基本信息都不同。
因此用户的需求主要集中在对学生成绩的添加、删除与查询,还有对教师信息的管理,课程信息的管理。在查询学生信息时可以查询到专业、电话等信息。成绩录入时包括分数,任课教师、课程名称。教师信息包括教师编号、学院、职称、联系方式。
通过分析,我们得出系统各个模块之间的关系图如下:
学生成绩管理系统
学生成绩管理系统
登录界面
教师信息管理
学生信息管理
成绩信息编辑
课程信息管理
概念结构设计
数据库的E-R图如下
学院
学院
教师
学生
成绩
拥有
管理
拥有
拥有
专业
课程
拥有
1
n
1
1
1
1
n
n
n
n
逻辑结构设计
经过分析,数据库由七个表组成,记录学生和教师,课程信息。
= 1 \* GB3 ①成绩信息表:学号、姓名、课程名称、教师姓名、分数、学年、学期
= 2 \* GB3 ②教师信息表:教师编号、姓名、性别、学院名称、联系方式、邮箱、职称
= 3 \* GB3 ③课程信息表:课程编码、课程名称、教师姓名、学分、课程类别
= 4 \* GB3 ④学生信息表:学号、姓名、性别、学院、专业、内外招、联系方式、生源地
= 5 \* GB3 ⑤用户表:用户名、密码、purview
= 6 \* GB3 ⑥专业表:专业名称、专业编号
= 7 \* GB3 ⑦学院表:学院编码、学院名称
各个模块之间的关系如下图
设计窗体、查询和报表
1)窗体
通过以上分析结合E-R图,系统由教师信息管理、课程信息管理、学生成绩信息管理和成绩信息编辑。所以设计了登陆窗体、主窗体、成绩信息、学生信息、教师信息、课程信息等几个窗体。
= 1 \* GB3 ①登陆窗体设计如下
只有当用户输入正确的密码方可进入系统,当密码输入错误时,系统会自动提示
此部分的代码如下:
Public Function login() As Boolean
Dim RS As New ADODB.Recordset
Dim StrSql As String
StrSql = select * from 用户表 where 用户名= Me.CblUser
RS.Open StrSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
If RS.RecordCount 0 Then
If RS!密码 = Me.Txtpwd Then
login = True
End If
End If
RS.Clone
Set RS = Nothing
End Function
Private Sub CblUser_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
End Sub
Private Sub CmdCancel_Click()
DoCmd.Quit acQuitSaveNone
End Sub
Private Sub CmdOk_Click()
If IsNull(Me.CblUser) Then
MsgBox 请输入您的用户名!, vbCritical
Exit Sub
Else
Me.CblUser.SetFocus
P_username = Me.CblUser.Text
End If
If login = True Then
username = Me.CblUser.Text
DoCmd.Close
DoCmd.Op
文档评论(0)