健身跑学分管理系统.docx

上传人:b****8 文档编号:9374845 上传时间:2023-02-04 格式:DOCX 页数:12 大小:98.05KB
下载 相关 举报
健身跑学分管理系统.docx_第1页
第1页 / 共12页
健身跑学分管理系统.docx_第2页
第2页 / 共12页
健身跑学分管理系统.docx_第3页
第3页 / 共12页
健身跑学分管理系统.docx_第4页
第4页 / 共12页
健身跑学分管理系统.docx_第5页
第5页 / 共12页
点击查看更多>>
下载资源
资源描述

健身跑学分管理系统.docx

《健身跑学分管理系统.docx》由会员分享,可在线阅读,更多相关《健身跑学分管理系统.docx(12页珍藏版)》请在冰豆网上搜索。

健身跑学分管理系统.docx

健身跑学分管理系统

沈阳航空航天大学

课程设计

学号2009040301005

班级94030101

姓名王望

指导教师刘学平

 

2011年3月18日

沈阳航空航天大学

课程设计任务书

学院:

航宇专业:

飞行器制造班级:

94030101

学号:

2009040301005题目:

健身跑学分管理系统

一、课程设计时间

2011年3月7日~11日(第1周),共计1周。

二、课程设计内容

用VB+Access组合,编写“健身跑学分管理”软件。

学生信息存储到Access数据库的一个表中,学生信息至少包括:

学号、姓名、签到次数、学分等,后两项的初始值为0。

学分计算方法:

在本学期内累计次数达到10次,可得到0.5学分,否则没有学分,新学期开始累计次数从0开始累计,每签到一次,累计签到次数加1。

程序能实现对学生数据进行维护、跑步签到、按学号或学分查询等功能。

用户界面中的菜单至少应包括“编辑学生数据”、“跑步签到”、“查询”、“退出”4项。

三、课程设计要求

程序质量:

✧贯彻事件驱动的程序设计思想。

✧用户界面友好,功能明确,操作方便;可以增加其它功能或修饰。

✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。

课程设计说明书:

✧课设结束后,上交课程设计说明书和源程序。

课程设计说明书的内容参见提供的模板。

四、指导教师和学生签字

指导教师:

________学生签名:

________

五、成绩

六、教师评语

目录

一、需求分析4

二、设计分析4

三、关键技术6

四、总结12

五、完整的源程序13

六、参考文献15

一、需求分析

模拟健身跑学分管理系统,主要包括“编辑学生数据”`“跑步签到”`“查询”几项功能。

由于签到次数和学分有一定的联系,所以系统能够按照学号或学分查询学生的健身跑签到情况。

要求:

①在Access中创建学生基本状况表,主要包括跑步签到”和“实际学分”2方面信息。

此表的结构应如下定义:

学号,姓名,签到次数,学分。

②能够随时显示学生签到次数和学分情况。

③能够随时编辑学生的信息,包括添加,删除和修改学生信息。

④能够随时的按学号或学分查询学生的健身跑签到情况。

二、设计分析

(1)基本原理:

用VB+Access组合,编写“健身跑学分管理”软件。

学生信息存储到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!

n=InputBox("请输入学分","查找窗")

Adodc1.RecordSource="select*from基本状况where学分="&n&""

Adodc1.Refresh

EndSub

窗体-查询:

图2窗体-按学号查询

图3窗体-按学分查询

(3)跑步签到会更改数据库中签到次数和学分信息。

程序段如下:

PrivateSubCommand4_Click()

IfOption1.Value=TrueThen

Text3=Text3+1

Adodc1.Recordset.Fields("签到次数")=Text3

EndIf

IfText3.Text>=10Then

Adodc1.Recordset.Fields("学分")=0.5

Else

Adodc1.Recordset.Fields("学分")=0

EndIf

EndSub

窗体-跑步签到

图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

EndSub

 

窗体-编辑学生信息:

图5窗体-添加学生信息

四、总结

这次课设我的题目是健身跑学分管理系统,当然理论知识是用来指导实践的,亲身体验才能领悟编写程序的妙用,在课设中我被分到了健身跑学分管理系统,同时我们在平时生活中这个我们接触比较多,对于它的流程还是比较清晰的,但是我还是花了很长的时间去完成它,通过这次课设让我了解了用VB+Access组合,编写“健身跑学分管理”软件。

将学生信息存储到Access数据库的一个表中,VB与数据库之间的联系,可以应用ADO技术使VB与数据库进行联系,还可以应用SQL语言查询和更改数据库中的信息,并能向其中添加新的信息。

让我们的理论知识在实践中得以巩固。

在课设过程中,我遇到了重重困难,例如:

VB与数据库的连接技术,通过老师的指点和自己查阅资料,我克服了困难,顺利的完成了任务。

同时我也了解了VB的出现是一场技术革命,它在生活中各个方面都能发挥巨大的作用,所以,学好VB是社会发展的需要。

五、完整的源程序

OptionExplicit

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

EndSub

PrivateSubCommand2_Click()

DimnAsString

n=InputBox("请输入学号","查找窗")

Adodc1.Recordset.Find"学号='"&n&"'",,,1

IfAdodc1.Recordset.EOFThenMsgBox"无此学号!

",,"提示"

EndSub

PrivateSubCommand3_Click()

End

EndSubPrivateSubCommand4_Click()

IfOption1.Value=TrueThen

Text3=Text3+1

Adodc1.Recordset.Fields("签到次数")=Text3

EndIf

IfText3.Text>=10Then

Adodc1.Recordset.Fields("学分")=0.5

Else

Adodc1.Recordset.Fields("学分")=0

EndIf

EndSub

PrivateSubCommand5_Click()

Dimn!

n=InputBox("请输入学分","查找窗")

Adodc1.RecordSource="select*from基本状况where学分="&n&""

Adodc1.Refresh

EndSub

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

文献

[1]龚沛曾杨志强陆慰民.《VisualBasic程序设计教程》.北京:

高等教育出版社,2001

[2]郑海春谢维成.《visualbasic6.0精彩编程150例》.西安:

西北工业大学出版社,2004

[3]夏邦贵刘凡馨.《Visualbasic数据库开发经典实例精解》.北京:

北京机械工业出版社,2005

 

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 解决方案 > 学习计划

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1