健身跑学分管理系统 2.docx
- 文档编号:26399944
- 上传时间:2023-06-19
- 格式:DOCX
- 页数:13
- 大小:108.50KB
健身跑学分管理系统 2.docx
《健身跑学分管理系统 2.docx》由会员分享,可在线阅读,更多相关《健身跑学分管理系统 2.docx(13页珍藏版)》请在冰豆网上搜索。
健身跑学分管理系统2
沈阳航空航天大学
课程设计
学号_2009040302098________
班级___94030203_______
姓名__鄢胜辉________
指导教师_王晓岩_________
2011年03月16日
沈阳航空航天大学
课程设计任务书
学院:
航空宇航工程专业:
飞行器制造工程班级:
94030203
学号:
2009040302098题目:
健身跑学分管理系统
一、课程设计时间
2011年3月7~11日(第1周),共计1周,20学时。
二、课程设计内容
用VB+Access组合,编写“健身跑学分管理”软件。
学生的信息要存储到Access数据库的student表中,此表要根据实际需要设计其结构(字段)。
学分计算方法:
在本学期内累计次数达到20次,可得到0.5学分,否则没有学分,新学期开始累计次数从0开始累计。
该系统具有如下功能:
(1)学生记录输入。
(2)跑步签到(每签到一次,累计次数加1,可进行学分计算)。
(3)查询(可按学号、学分等进行查询)。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“学生记录输入”、“跑步签到”、“查询”、“退出”4项。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
_____学生签名:
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点5
主要界面截图7
总结11
完整的源程序12
参考文献13
一.需求分析
健身跑分数管理系统主要包含“记录学生信息”、“更新学生信息”和“查询学生信息”。
同时为了方便对学生成绩的管理,跑步情况必须要与学分相应挂钩,因此必须按照有关规定给予适宜学分。
需求:
1)在Access中创建books表,此表的结构应如下定义:
姓名,学号,性别,累积次数,学分
2)能够随时显示库存情况。
3)能够随时计算出学生对应学分。
4)能够随时输入学生信息和查询学生信息
二、设计分析
(1)基本原理:
建立程序设计与数据库的连接,用SQL语句在数据库中查找,添加和更改数据。
2)总体设计:
图1总体设计
(3)详细设计:
。
三、技术要点
(1)设计界面
(2)各文本框与是数据库的连接
Text1的Adodc1.DateField=“姓名”
Text2的Adodc1.DateField=“累计次数”
Text3的Adodc1.DateField=“学分”
Text4的Adodc1.DateField=“学号”
Text5的Adodc1.DateField=“性别”
(3)跑步次数与学分计算:
PrivateSubb_Click()
Text2.Text=Val(Text2)+1
Text3.Text=(0.5/20)*Val(Text2)
IfText3.Text<0.5ThenText3.Text=0'点击菜单b让签到次数加一,分数发生相应变化
EndSub
PrivateSubCommand1_Click()
Text2.Text=Val(Text2)+1
Text3.Text=(0.5/20)*Val(Text2)
IfText3.Text<0.5Then
Text3.Text=0
EndIf
IfText3.Text>0.5Then
Text3.Text=0.5
EndIf
Adodc1.Recordset.Update'与菜单b功能一致,增加该命令按钮使界面美观
EndSub
(4)学生信息查询:
PrivateSubc_Click()
DimrAsString
r=InputBox("请输入姓名或学号")
Adodc1.Recordset.MoveFirst
DoWhiler<>Text1.TextAndr<>Text4.Text
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.AbsolutePosition=adPosEOFThen
MsgBox"没有此人或此学号"
ExitDo
EndIf
Loop'设计查询,保证能够顺利读出数据库有关资料,没有的重新添加
EndSub
(5)增加新同学信息:
PrivateSuba_Click()
Adodc1.Recordset.AddNew'菜单a增加新纪录
EndSub
PrivateSubCommand2_Click()
Adodc1.Recordset.Update
EndSub'使纪录数据适时更新,保证数据鲜活
(6)增加命令按钮让数据库信息循环显示
PrivateSubCommand3_Click()
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveFirst
EndIf
EndSub'判定出数据库纪录是否在末记录之后,然后纪录读出下一行
PrivateSubCommand4_Click()
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThen
Adodc1.Recordset.MoveLast
IfText3.Text<0.5ThenText3=0
EndIf
EndSub'判断出数据库纪录是否在首纪录之前,然后纪录可以返回到开始
PrivateSubd_Click()
End
EndSub
(7)退出:
PrivateSubd_Click()
End
EndSub
四.主要界面截图
1.通过查询获取学生最近信息便于跑步签到
1.
(1)每签到一次累计次数加一
(2)累计次数达到20次,可得0.5学分
(3)保证0.5学分的前提下,签到次数显示出学生跑步积极性的截图
查询学生信息界面
输入新同学信息
五.总结
这次课设我的题目是健身跑学分管理系统,通过这次课设让我了解了VB与数据库之间的联系,可以应用ADO技术使VB与数据库进行联系,还可以应用SQL语言查询和更改数据库中的信息,并能向其中添加新的信息。
同时对程序的编写有了更深入的体验。
在课设过程中,我遇到了重重困难,例如:
VB与数据库的连接技术,通过老师的指点和自己查阅资料,我克服了困难,还有怎样编写出“让数据库里的信息循环显现”的程序费了很大的脑筋,最后在同学的帮助和自己的努力实践下终于把程序编写出来了,使系统的运行方便了许多。
同时我也了解了VB的出现是一场技术革命,它在生活中各个方面都能发挥巨大的作用,方便了我们的生活,有利于我们综合素质的提高。
所以,学好VB是社会发展的需要。
完整的源程序
PrivateSuba_Click()
Adodc1.Recordset.AddNew'菜单a增加新纪录
EndSub
PrivateSubb_Click()
Text2.Text=Val(Text2)+1
Text3.Text=(0.5/20)*Val(Text2)
IfText3.Text<0.5ThenText3.Text=0'点击菜单b让签到次数加一,分数发生相应变化
EndSub
PrivateSubc_Click()
DimrAsString
r=InputBox("请输入姓名或学号")
Adodc1.Recordset.MoveFirst
DoWhiler<>Text1.TextAndr<>Text4.Text
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.AbsolutePosition=adPosEOFThen
MsgBox"没有此人或此学号"
ExitDo
EndIf
Loop'设计查询,保证能够顺利读出数据库有关资料,没有的重新添加
EndSub
PrivateSubCommand1_Click()
Text2.Text=Val(Text2)+1
Text3.Text=(0.5/20)*Val(Text2)
IfText3.Text<0.5Then
Text3.Text=0
EndIf
IfText3.Text>0.5Then
Text3.Text=0.5
EndIf
Adodc1.Recordset.Update'与菜单b功能一致,增加该命令按钮使界面美观
EndSub
PrivateSubCommand2_Click()
Adodc1.Recordset.Update
EndSub'使纪录数据适时更新,保证数据鲜活
PrivateSubCommand3_Click()
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveFirst
EndIf
EndSub'判定出数据库纪录是否在末记录之后,然后纪录读出下一行
PrivateSubCommand4_Click()
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThen
Adodc1.Recordset.MoveLast
IfText3.Text<0.5ThenText3=0
EndIf
EndSub'判断出数据库纪录是否在首纪录之前,然后纪录可以返回到开始
PrivateSubd_Click()
End
EndSub
PrivateSubForm_Load()
Text3.Text=(0.5/20)*Val(Text2)
EndSub
PrivateSubText2_Change()
Text3.Text=(0.5/20)*Val(Text2)
EndSub
参考文献
[1]龚沛曾杨志强陆慰民.《VisualBasic程序设计教程》.北京:
高等教育出版社,2007.3
[2]刘之军。
《二级VB全国计算机等级考试上级题库》.电子科技大学出版社,2010.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 健身跑学分管理系统 健身 学分 管理 系统