- 1、本文档共42页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
word
word专业资料
学生成绩管理系统
课程设计的目的
进一步培养学生综合应用Visual Basic的各种编程知识和技巧进行程序设计的能力。通 过课程设计,学生能达到具备设计功能较为复杂的 Windows应用程序的能力。同时,通过 课程设计,培养学生自主学习和独立创新的精神,是人才培养体系中极为重要的一环。
从大的方面来讲,现在我国的部分高中及其以下级别的大部分中学, 学生成绩的管理水
平还停留在纸介质的基础上,这样的机制已经不能适应时代的发展, 因为它浪费了许多人力 和物力,在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。 我选择这
个题目,希望可以在信息管理方面有所提高。改革的总设计师邓小平同志说过“科学技术是 第一生产力”,我希望能用我一年的所学编制出一个实用的程序来帮助学校进行更有效的信 息管理。
从小的方面来说,我感觉这个题目和我的学校生活密切相关,我也比较熟悉该系统, 更
容易学到对于我vb语言学习有用的知识。
功能描述
系统开发的总任务是实现学生信息关系的系统化、规化和自动化。
系统主要由五部分组成:系统用户的管理、学生成绩的管理、学生学籍信息的管理、信
息的查询,其中还包括登录界面以及成绩的统计模块。
各模块的主要功能如下:
?系统用户的管理:实现用户的添加、删除和密码的修改
?学生学籍信息的管理:实现学生学籍信息的添加、删除和修改。
?学生成绩的管理:实现学生成绩的录入,删除和修改。
?学生信息的查询:实现学生学籍的查询、成绩的查询。
? 学生成绩信息的统计:实现学生男女生人数以及不及格人数的统计。
3?概要设计
3.1系统模块结构图
图1?系统结构图
3.2数据库设计
数据库在本成绩管理系统中占有非常重要的地位,数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。 合理的数据库及结构设计可以提高数据存储的效率, 保证
数据的完整和一致。同时合理的数据库结构也将有利于程序的实现。 设计本系统的数据库应 该充分满足用户的需求。
针对一般学生管理系统的需求,通过对学生学习过程的容的分析, 设计如下面所示的数 据项和数据结构
基本信息表:包括的字段有:学号,姓名,性别,年龄,联系,家庭住址。
成绩表: 包括的字段有: 学号,姓名,性别,年龄,高数成绩,英语成绩,计
算机成绩,平均成绩。
密码表:包括的字段有: 用户名,密码。
教师密码表:包括的字段有:用户名,密码。
得到上面的数据项就可以设计出能够满足用户需求的各种实体以及他们之间的关系。由 上面的设计规划出的实体有:用户实体、信息实体、成绩实体。
按照以上实体进行设计:(1)打开可视化数据管理器程序(2)建立数据库(3)创建 数据库表(4)添加字段(5)生成表⑹添加容
字段名称
数据类型
字段大小
学号
文本
10
姓名
文本
10
性别
文本
2
年龄
数字
2
联系
数字
50
班级
文本
50
家庭住址
文本
50
表1.基本信息表
4详细设计
4.1.1登入界面实现
第一个登陆界面选择用户类型,分为教师和学生。具体图形及相关代码如下所示:
核心代码:
Private Sub Comma nd1_Click()
dl.Hide
xsdl.Show
End Sub
Private Sub Comma nd2_Click()
dl.Hide
jsdl.Show
End Sub
Private Sub Form_Load()
Label1.Width = dl.ScaleWidth
Label1 .Left = dl.ScaleWidth
End Sub
Private Sub Timer1_Timer()
If Label1. Left + Label1.Width = 0 Then
Label1 .Left = Label1 .L eft - 50
Else
Label1 .Left = dl.ScaleWidth
End If
End Sub
4.1.2学生登陆界面
核心代码如下:
Private Sub Comma nd1_Click()
UserName =
If Trim(Text1.T ext) = Then
MsgBox 用户名不能为空,请重新输入! , vbOKOnly + vbExclamation,
Textl.SetFocus
密码=
密码=
Datal.RecordSource = select * from 密码表 where 用户名= Textl.Text and
Text2.T ext ”’
Data1.Refresh
If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True The n
MsgBox 用户名或密码输入
文档评论(0)