健身跑学分签到系统

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

1、.沈阳航空航天大学课程设计学号2011040603067班级14060302姓名指导教师徐晗2013年6月25日...沈阳航空航天大学课程设计任务书学院：专业：班级：学号：2011040603067题目：健身跑学分管理系统一、课程设计时间2012~2013第2学期第17周，共计1周，20学时二、课程设计内容用VB+Access组合，编写“健身跑学分管理”软件。学生信息存储到Access数据库的一个表中，学生信息至少包括：学号、姓名、签到次数、学分等，后两项的初始值为0。学分计算方法：在本学期内累计次数达到10次，可得到0.5学分，否则没

2、有学分，每个学生学分最高为2，超过2学分，签到后将不再增加学分；新学期开始累计次数从0开始累计，每签到一次，累计签到次数加1。程序能实现对学生数据进行维护、跑步签到、按学号或学分查询等功能。用户界面中的菜单至少应包括“编辑学生数据”、“新学期初始化”、“跑步签到”、“查询”、“退出”5项。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参

3、见提供的模板。四、指导教师和学生签字指导教师：______________学生签名：___________五、成绩六、教师评语...目录需求分析4设计分析4技术要点6主要界面截图8总结10完整的源程序10参考文献13...需求分析生活中晨跑签到如果有一个软件能够实现那么将大大提高签到效率，节约学生的时间，同时对签到情况的了解将非常便利，同时维护数据也将非常方便。如果要用软件实现晨跑签到的目的，软件要有基本的签到功能，还要有查询和维护编辑数据库的功能。设计分析（1）概述：首先是用户界面设计，包括常用控件的布局及设定，菜单设计。本软件主要是

4、以数据库应用基础为知识基础，涉及了SQL查询数据库，ADO数据库控件的使用。（2）总体设计：SQL语言处理数据库ADO技术连接（3）详细设计：程序需要做到以下几点：1：数据库的连接2：签到数据的处理程序3：数据库的维护4：签到重复的防范5：界面的美观...开始连接数据库查询学生数据编辑学生数据跑步签到显示签到和学分情况添加，删除和修改学生信息数据学生跑步签到新学期初始化清理原有数据技术要点首先应用了用户界面的设计。其中有简单的控件的设计及布局。另外界面添加了菜单，通过菜单编辑器制作。本次程序特别应用了ADO控件和DataGrid控件。通

5、过这两个控件完成了记录集。1关于数据库的连接⑴．选择数据源连接方式。鼠标右键单击ADO数据控件，在属性中将使用方式调为“使用连接字符串”。⑵．选择数据库类型。单击“生成”按钮，选择MicrosoftJet4.0OLEDBProvider.⑶．指定数据库文件名。单击“下一步”按钮或选择“选择”按钮，指定数据库文件名为“student.mdb.⑷．指定记录源。...在“记录源“选项卡，在列表中选择”2-adCmdTable”.“表或存储过程名称”框中选择“student”表。⑸．利用DataGrid来显示数据。选定DataGrid控件，将D

6、ataSource的属性设置为Adodc1控件。运行该程序即可对数据库student.mdb下的学生信息表进行浏览。同时将4个text的DataSource属性设置设置为Adodc1，text1的DataField属性设置为学号，text2的DataField属性设置为姓名，text3的DataField属性设置为签到次数，text4的DataField属性设置为学分。2关键技术程序中的录入、删除、修改采用的是记录集的编辑。主要是Adodc1.Recordset.AddNew录入，Adodc1.Recordset.Update修改，Ad

7、odc1.Recordset.Delete删除。（1）学生签到查找信息，同时实现通过学号查询某学生的数据的目的：使用Find方法进行查询，还用到了MsgBox控件PrivateSubCommand3_Click()DimmAsStringm=InputBox("请输入学号","查找窗")Adodc1.Recordset.Find"学号='"&m&"'",,,1IfAdodc1.Recordset.EOFThenMsgBox"无此学号，请重新输入！",,"提示"EndSub（2）学生签到：PrivateSubCommand2_Click(

8、)Adodc1.Recordset.Find"学号="&"'"&Text1&"'",,,1'查找IfText1.Text<>""AndIsNumeric(Text1.Text)=TrueThen'判断是否是