数据库课程程序报告.docx

  1. 1、本文档共15页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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)

qwd513620855 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档