健身跑学分管理系统Word格式文档下载.docx
《健身跑学分管理系统Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《健身跑学分管理系统Word格式文档下载.docx（12页珍藏版）》请在冰豆网上搜索。
学号、姓名、签到次数、学分等，后两项的初始值为0。
学分计算方法：
在本学期内累计次数达到10次，可得到0.5学分，否则没有学分，新学期开始累计次数从0开始累计，每签到一次，累计签到次数加1。
程序能实现对学生数据进行维护、跑步签到、按学号或学分查询等功能。
用户界面中的菜单至少应包括“编辑学生数据”、“跑步签到”、“查询”、“退出”4项。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；
可以增加其它功能或修饰。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课设结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
一、需求分析4
二、设计分析4
三、关键技术6
四、总结12
五、完整的源程序13
六、参考文献15
一、需求分析
模拟健身跑学分管理系统，主要包括“编辑学生数据”`“跑步签到”`“查询”几项功能。
由于签到次数和学分有一定的联系，所以系统能够按照学号或学分查询学生的健身跑签到情况。
要求：
①在Access中创建学生基本状况表，主要包括跑步签到”和“实际学分”2方面信息。
此表的结构应如下定义：
学号，姓名，签到次数，学分。
②能够随时显示学生签到次数和学分情况。
③能够随时编辑学生的信息，包括添加，删除和修改学生信息。
④能够随时的按学号或学分查询学生的健身跑签到情况。
二、设计分析
（1）基本原理：
学生信息存储到Access数据库的一个表中，建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。
（2）总体设计：
图1总体设计
（3）详细设计：
图1详细设计
（4）数据库设计：
数据库设计是总体设计阶段非常重要的环节，数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。
本系统的数据库包括1个表，即学生基本状况表。
1）学生基本状况表（rsb.dbf）
学生基本状况表（rsb.dbf）用于记录学号、姓名、签到次数、学分等信息，其逻辑结构如表1所示。
表1学生基本状况表
字段名称
数据类型
字段大小
小数位数
必填字段
学号
数字
长整型
自动
否
姓名
文本
50
签到次数
学分
单精度
三、关键技术
（1）建立与数据库的连接代码如下。
PrivateSubForm_Load（）
Dimmpath$,mlink$
mpath=App.Path'
获取程序所在的路径
IfRight（mpath,1）<
>
"
\"
Thenmpath=mpath+"
'
判断是否为子目录
以下两行代码可合成一句，mlink存放ConnectionString属性的设置值
mlink="
Provider=Microsoft.Jet.OLEDB.4.0;
"
指定提供者
mlink=mlink+"
DataSource="
+mpath+"
student.mdb"
'
在数据库文件名前插入路径
Adodc1.ConnectionString=mlink'
设置连接属性
Adodc1.CommandType=adCmdUnknown'
指定记录集命令类型（可在设计时指定）
Adodc1.RecordSource="
Select*from基本状况"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndSub
（2）查询经营情况是SQL语句在数据库中查找学生健身跑基本状况
Recordset.Find搜索条件<
<
位移>
搜索方向>
起始位置>
Select<
字段名表>
From<
表名>
Where<
条件>
程序段如下：
按学号查询：
PrivateSubCommand2_Click（）
DimnAsString
n=InputBox（"
请输入学号"
"
查找窗"
）
Adodc1.Recordset.Find"
学号='
&
n&
'
,,1
IfAdodc1.Recordset.EOFThenMsgBox"
无此学号！
,"
提示"
EndSub
按学分查询：
PrivateSubCommand5_Click（）
Dimn!
请输入学分"
select*from基本状况where学分="
窗体-查询：
图2窗体-按学号查询
图3窗体-按学分查询
（3）跑步签到会更改数据库中签到次数和学分信息。
PrivateSubCommand4_Click（）
IfOption1.Value=TrueThen
Text3=Text3+1
Adodc1.Recordset.Fields（"
签到次数"
）=Text3
EndIf
IfText3.Text>
=10Then
学分"
）=0.5
Else
）=0
EndIf
窗体-跑步签到
图4窗体-跑步签到
（4）编辑学生信息是向数据库中添加，删除和修改学生的基本状况信息。
PrivateSubCommand1_Click（indexAsInteger）
DimaskAsInteger
SelectCaseindex
Case0
Adodc1.Recordset.AddNew'
添加
Case1
ask=MsgBox（"
删除否？
vbYesNo）
Ifask=6Then
Adodc1.Recordset.Delete'
删除
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
Case2
Adodc1.Recordset.Update'
修改
EndSelect
窗体-编辑学生信息：
图5窗体-添加学生信息
四、总结
这次课设我的题目是健身跑学分管理系统，当然理论知识是用来指导实践的，亲身体验才能领悟编写程序的妙用，在课设中我被分到了健身跑学分管理系统，同时我们在平时生活中这个我们接触比较多，对于它的流程还是比较清晰的，但是我还是花了很长的时间去完成它，通过这次课设让我了解了用VB+Access组合，编写“健身跑学分管理”软件。
将学生信息存储到Access数据库的一个表中，VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的信息，并能向其中添加新的信息。
让我们的理论知识在实践中得以巩固。
在课设过程中，我遇到了重重困难，例如：
VB与数据库的连接技术，通过老师的指点和自己查阅资料，我克服了困难，顺利的完成了任务。
同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。
五、完整的源程序
OptionExplicit
PrivateSubCommand3_Click（）
End
EndSubPrivateSubCommand4_Click（）
Text3=Text3+1
Adodc1.Recordset.Fields（"
IfText3.Text>
Else
IfRight（mpath,1）<
mlink="
mlink=mlink+"
Adodc1.ConnectionString=mlink'
Adodc1.CommandType=adCmdUnknown'
文献
[1]龚沛曾杨志强陆慰民．《VisualBasic程序设计教程》．北京：
高等教育出版社，2001
[2]郑海春谢维成．《visualbasic6.0精彩编程150例》．西安：
西北工业大学出版社，2004
[3]夏邦贵刘凡馨．《Visualbasic数据库开发经典实例精解》．北京：
北京机械工业出版社，2005
升级会员 