健身跑学分管理系统

沈 阳 航 空 航 天 大 学 课程设计 学 号：2009040302072 班 级：94030203 姓 名：王大凤指导教师：王晓岩 2011年3 月 15日沈阳航空工业学院课程设计任务书学院：航空宇航工程 专业：飞行器制造工程 班级：94030203学号：2009040302072题目：健身跑学分管理系统一、课程设计时间2011年3月711日（第1周），共计1周，20学时。二、课程设计内容用VB+Access组合，编写“健身跑学分管理”软件。学生的信息要存储到Access数据库的student表中，此表要根据实际需要设计其结构（字段）。学分计算方法：在本学期内累计次数达到20次，可得到0.5学分，否则没有学分，新学期开始累计次数从0开始累计。该系统具有如下功能：(1) 学生记录输入。(2) 跑步签到(每签到一次，累计次数加1，可进行学分计算)。(3) 查询(可按学号、学分等进行查询)。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单至少应包括“学生记录输入”、“跑步签到”、“查询”、“退出”4项。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析4设计分析4技术要点6主要界面截图7总结9完整的源程序10参考文献12需求分析用VB+Access组合，编写“健身跑学分管理”软件。学生的信息要存储到Access数据库的student表中，此表要根据实际需要设计其结构（字段）。学分计算方法：在本学期内累计次数达到20次，可得到0.5学分，否则没有学分，新学期开始累计次数从0开始累计。该系统具有如下功能：(1) 学生记录输入。(2) 跑步签到(每签到一次，累计次数加1，可进行学分计算)。(3) 查询(可按学号、学分等进行查询)。设计分析（1）概述：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。（2）总体设计：SQL语言处理数据库ADO技术连接图1 总体设计（3）详细设计：开始连接数据库查询数据添加数据更改数据显示学生情况学生记录输入学生跑步签到图2 详细设计技术要点 1关于数据库的连接 先在窗体上设置出Adodc1与DataGrid1，然后设置它们各自的属性，设DataGride1的DateSource = Adodc1，再设Adodc1的属性，将它们绑定，测试连接。 2 SQL语句的应用Adodc1.Recordset.AddNew 向表中加入一条新的记录。Adodc1.Recordset.Update 数据的改变使表保存更新新纪录。Adodc1.Recordset.MoveFirst 记录指针移至第一条记录。Adodc1.Recordset.MoveNext 记录指针移至下一条记录。 Adodc1.Recordset.EOF 记录指针在末记录之后 主要界面截图图3 跑步签到界面图4 按照学号查询界面总结这次课设我的题目是“健身跑学分管理系统”，一开始我拿到这个任务书时，我脑袋里一头雾水，什么也不知道。毕竟我们好久没有学VB了，大多数内容都忘记了。经过我的认真分析以及咨询老师，我渐渐的对这个任务有了大体了解，于是我就把这个任务分成了好几个小步骤。通过翻阅书籍和同学的帮助，一个一个的小问题就迎刃而解。通过这一周的课设，我对VB有了更深的认识，它可以变成一个软件来解决很多生活上和工作上的问题。并且让我再次复习了VB，让我更加巩固了它的知识。这次课设还让我产生了一种强烈的想法：我以后一定要学好VB，因为以后它的用处会很多！我还体会到了同学和老师之间的团结与帮助是必不可少的，只要有团结与帮助，任何事情都能解决，它们的力量是无比强大的。虽然这次课设经历了重重困难，但是最后完成的心情是无比喜悦的，因为是自己亲力亲为的，所以再怎么辛苦也是值得的！ 完整的源程序Private Sub a_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub b_Click()Text3.Text = Val(Text3) + 1If Text3.Text = 20 ThenText4.Text = Val(Text4) + 0.5Else: Text4.Text = Text4.TextEnd IfAdodc1.Recordset.UpdateEnd SubPrivate Sub c_Click()DataGrid1.Visible = TrueDim r As String r = InputBox(请输入学号)Adodc1.Recordset.MoveFirstDo While r Text2.TextAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then MsgBox 没有此学号 Exit Do End IfLoopEnd SubPrivate Sub d_Click()i = MsgBox(是否确定退出？, vbQuestion + vbYesNo, 提示)If