VB课设报告 3.docx
- 文档编号:14080549
- 上传时间:2023-06-20
- 格式:DOCX
- 页数:8
- 大小:382.05KB
VB课设报告 3.docx
《VB课设报告 3.docx》由会员分享,可在线阅读,更多相关《VB课设报告 3.docx(8页珍藏版)》请在冰点文库上搜索。
VB课设报告3
沈阳航空航天大学
课程设计
学号2009040601205
班级94060106
姓名崔松
指导教师徐晗
2011年03月18日
沈阳航空航天大学
课程设计任务书
学院:
机电工程学院专业:
机械设计制造及其自动化
班级:
94060106
学号:
2009040601205题目:
健身跑学分管理系统
一、课程设计时间
2011年3月14日~20日(第2周),共计1周。
二、课程设计内容
用VB+Access组合,编写“健身跑学分管理”软件。
学生信息存储到Access数据库的一个表中,学生信息至少包括:
学号、姓名、签到次数、学分等,后两项的初始值为0。
学分计算方法:
在本学期内累计次数达到10次,可得到0.5学分,否则没有学分,新学期开始累计次数从0开始累计,每签到一次,累计签到次数加1。
程序能实现对学生数据进行维护、跑步签到、按学号或学分查询等功能。
用户界面中的菜单至少应包括“编辑学生数据”、“跑步签到”、“查询”、“退出”4项。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;可以增加其它功能或修饰。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课设结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
______________学生签名:
___________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
主要界面截图7
总结9
完整的源程序10
需求分析
生活中晨跑签到如果有一个软件能够实现那么将大大提高签到效率,节约学生的时间,同时对签到情况的了解将非常便利,同时维护数据也将非常方便。
如果要用软件实现晨跑签到的目的,软件要有基本的签到功能,还要有查询和维护编辑数据库的功能
设计分析
程序需要做到以下几点:
1:
数据库的连接2:
签到数据的处理程序3:
数据库的维护4签到重复的防范5:
界面的美观
实现清空所有的text的目的(包括姓名学号班级签到次数学分院系)
实现通过学号查询某学生的数据的目的
通过控件数组实现对数据的刷新新增和退出程序的目的
实现当签到次数大于10时学分更新为0.5的目的
实现通过学号签到的目的并防止多次签到
实现按学号排序的目的
主要界面截图
图1进入系统主界面
图2签到系统界面
图3签到学号输入窗口
总结
虽然课程设计完成的很艰难,但看到自己的程序能够执行特定的命令,但我感到无比的欣慰。
我体会到了它的重要性,真的可以因为一个简单的程序就方便我们的生活。
还开始了自己的创新思考。
科学的力量真的是无穷大的,通过这次VB课程设计,我对VB知识的掌握又升高了一截,也对今后计算机的学习充满了信心。
我虽然不必成为一名科学家,但我也不能被急速发展的科技所淘汰,我应该尽自己最大的努力来适应并追赶他!
完整的源程序
Form1
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
EndSub
PrivateSubCommand4_Click()
DimaAsString
a=InputBox("请输入学号","查找窗")
Adodc1.Recordset.Find"学号="&a&"",,,1
Text3.Text=Val(Text3.Text)+1
Adodc1.Recordset.Fields("次数")=Text3.Text
Adodc1.Recordset.Update
EndSub
PrivateSubtext3_change()
DimatimeAsInteger
atime=Val(Text3.Text)
Ifatime>=10Then
Text4.Text=0.5
Else
Text4.Text=0
EndIf
EndSub
PrivateSubcommand2_click()
DimmnoAsString
mno=InputBox("请输入学号","查找窗")
Adodc1.Recordset.Find"学号="&mno&"",,,1
IfAdodc1.Recordset.EOFThenMsgBox"无此学号",,"提示"
EndSub
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Adodc1.Recordset.AddNew
Case1
Adodc1.Recordset.Update
Case3
End
EndSelect
EndSub
PrivateSubCommand3_Click()
Adodc1.CommandType=adCmdUnknown
Adodc1.RecordSource="SELECT*FROMstudent1orderBY学号ASC"
Adodc1.Refresh
EndSub
Form2
PrivateSubCommand1_Click()
Form2.Hide
Form1.Show
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB课设报告 VB 报告