- 1、本文档共23页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数据库应用技术课程设计报告
学 院:高职院
专 业:计算机应用
班 级:096192
姓 名:刘丰丰
学 号指导老师:魏老师
第一章 系统分析
本学生成绩管理系统可以说是一个综合性的学校学生管理系统,这它集成了学生信息管理、学生成绩管理、用户权限管理等多种功能,因而具有较强的实用性。目前计算机管理在日常生活中的地位变得越来越重要。它能够代替人做各种重复、繁琐的劳动,并且拥有操作简单、可信度好、不易出错等优点,大大减少了不必要的人力消耗,提高个人的工作效率。学生信息查询是每个学校必须面临的问题,所以,如何开发一个应用简单、界面友好、容易操作、数据安全性好的管理系统就成为非常重要的技术问题。
学生成绩管理系统的设计与实现,是在班级学生处数据库基础上,只对学生成绩信息进行管理的一个系统,是对学校教务管理系统的补充,主要是针对辅导员的需要,主要包括二个用户群:普通用户、高级用户。
普通用户,主要的需求有学生成绩查询、学生基本信息查询、普通用户密码修改。
高级用户,主要的需求有学生成绩管理、学生信息管理、普通用户和高级用户密码修改。
第二章 系统功能流程图
本系统在执行时,先根据不同的操作人员的需要来进行相应的模块,然后可以输入数据或者进行其它的查询或浏览等操作;总体来说,本系统属于一个权限型管理系统。
学生成绩管理系统用户查询用户删除用户修改用户添加普通用户管理高级用户管理超级用户管理登录用户管理系统查询删除修改添加学生信息管理系统用户注册帮助文件帮助学生成绩管理系统界面模式界面返回界面退出学生成绩管理系统用户登录
学生成绩管理系统
用户查询
用户删除
用户修改
用户添加
普通用户管理
高级用户管理
超级用户管理
登录用户管理系统
查询
删除
修改
添加
学生信息管理系统
用户注册
帮助文件
帮助
学生成绩管理系统
界面模式
界面返回
界面退出
学生成绩管理系统
用户登录
图2.1 系统功能流程
第三章 数据库设计
本系统的数据库是SQL server数据库,在SQL环境下创建数据库学生信息库.mdf文件。该数据库包括学生信息表、成绩信息表、用户登录信息表用于纪录学生的基本信息数据库表结构如下所示:
数据库链接代码
Option Explicit
Dim strGrade As String
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'Debug.Print "test"
If Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Exit Sub
End If
Text1.Text = Adodc1.Recordset("stud_id")
Text2.Text = Adodc1.Recordset("name")
Dim sql As String
sql = "select * from stud_grade where stud_id='" & Text1.Text & "'"
Adodc2.RecordSource = sql
Adodc2.Refresh
Combo2.Clear
With Adodc2.Recordset
Do Until .EOF
Combo2.AddItem .Fields("course_id").Value
.MoveNext
Loop
End With
End Sub
Private Sub Combo1_Click()
Dim sqlN As String
sqlN = "select distinct stud_grade.stud_id,name" _
& " from stud_grade,stud_info " _
& " where stud_info.stud_id=stud_grade.stud_id and class ='" _
& Combo1.Text & "' order by stud_grade.stud_id
文档评论(0)