健身跑学分管理系统

《健身跑学分管理系统》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、沈阳航空航天大学课程设计学号2009040301005班级94030101姓名王望指导教师刘学平2011年3月18日沈阳航空设计用纸沈阳航空航天大学课程设计任务书学院：航宇专业：飞行器制造班级：94030101学号：2009040301005题目：健身跑学分管理系统一、课程设计时间2011年3月7日~11日（第1周），共计1周。二、课程设计内容用VB+Access组合，编写“健身跑学分管理”软件。学生信息存储到Access数据库的一个表中，学生信息至少包括：学号、姓名、签到次数、学分等，后两项的初始值为0。学分计算方法：在本学期内累计次数达到10次，可得到

2、0.5学分，否则没有学分，新学期开始累计次数从0开始累计，每签到一次，累计签到次数加1。程序能实现对学生数据进行维护、跑步签到、按学号或学分查询等功能。用户界面中的菜单至少应包括“编辑学生数据”、“跑步签到”、“查询”、“退出”4项。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：________学生签名：__

3、______五、成绩六、教师评语第15页，共15页沈阳航空设计用纸目录一、需求分析4二、设计分析4三、关键技术6四、总结12五、完整的源程序13六、参考文献15第15页，共15页沈阳航空设计用纸一、需求分析模拟健身跑学分管理系统，主要包括“编辑学生数据”`“跑步签到”`“查询”几项功能。由于签到次数和学分有一定的联系，所以系统能够按照学号或学分查询学生的健身跑签到情况。要求：①在Access中创建学生基本状况表，主要包括跑步签到”和“实际学分”2方面信息。此表的结构应如下定义：学号，姓名，签到次数，学分。②能够随时显示学生签到次数和学分情况。③能够随时编辑

4、学生的信息，包括添加，删除和修改学生信息。④能够随时的按学号或学分查询学生的健身跑签到情况。二、设计分析（1）基本原理：用VB+Access组合，编写“健身跑学分管理”第15页，共15页沈阳航空设计用纸软件。学生信息存储到Access数据库的一个表中，建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。（1）总体设计：SQL语言处理数据库ADO技术连接图1总体设计（3）详细设计：开始连接数据库查询学生数据编辑学生数据跑步签到显示签到和学分情况添加，删除和修改学生信息数据学生跑步签到第15页，共15页沈阳航空设计用纸图1详细设计（4）数据

5、库设计：数据库设计是总体设计阶段非常重要的环节，数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。本系统的数据库包括1个表，即学生基本状况表。1)学生基本状况表(rsb.dbf)学生基本状况表(rsb.dbf)用于记录学号、姓名、签到次数、学分等信息，其逻辑结构如表1所示。表1学生基本状况表字段名称数据类型字段大小小数位数必填字段学号数字长整型自动否姓名文本50否签到次数数字长整型自动否学分数字单精度自动否三、关键技术（1）建立与数据库的连接代码如下。PrivateSubForm_Load()Dimmpath

6、$,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第15页，共15页沈阳航空设计用纸'设置连接属性

7、Adodc1.CommandType=adCmdUnknown'指定记录集命令类型（可在设计时指定）Adodc1.RecordSource="Select*from基本状况"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSub（2）查询经营情况是SQL语句在数据库中查找学生健身跑基本状况Recordset.Find搜索条件<,<位移>,<搜索方向>,<起始位置>>Select<字段名表>From<表名>Where<条件>程序段如下：按学号查询：PrivateSubCommand2_Click()DimnAsS

8、tringn=InputBox("请输入学号","查找窗")Ado