VB课程设计.docx
《VB课程设计.docx》由会员分享,可在线阅读,更多相关《VB课程设计.docx(9页珍藏版)》请在冰豆网上搜索。
VB课程设计
沈阳航空航天大学
课程设计
学号_2009040601166_________
班级__94060105________
姓名__丁勇________
指导教师___徐晗_______
2011年3月21日
沈阳航空航天大学
课程设计任务书
学院:
机电工程学院专业:
机械设计制造及其自动化班级:
94060105
学号:
2009040601166题目:
教师上课随机点名
一、课程设计时间
2011年3月14日~20日(第2周),共计1周。
二、课程设计内容
教师在每次上课时,需要对学生随机点名,学生信息保存到文本文件或access数据库中,学生信息至少包括:
学号,姓名,点名次数(初始值为0)。
所谓点名,是指将某位同学的姓名和学号显示到屏幕上,则表示该同学被点名一次,并累加点名次数,注意点名的随机性(可使用随机函数)。
用户界面中的菜单至少包括“编辑学生数据”,“开始点名”,“查询学生点名情况”,“退出”4项。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“编辑学生数据”、“开始点名”、“查询学生点名情况”、“退出”4项。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点6
主要界面截图9
总结10
完整的源程序11
参考文献13
需求分析
教师在每次上课时,需要对学生随机点名,学生信息保存到文本文件或access数据库中,学生信息至少包括:
学号,姓名,点名次数(初始值为0)。
1.运用随机函数从而从数据库中提取学生的数据
2.对学生的信息进行查询,没有则显示错误
3.对学生的信息进行编辑
设计分析
(1)概述:
通过使用ADO控件建立程序设计与数据库的联系,用SQL语句在数据库中查找,添加和更改数据,运用随机函数,随机的提取学生的数据,体现点名的随机性。
对数据库的信息进行查询,有用信息框显示,没有则显示没有。
(2)总体设计:
(3)详细设计:
技术要点
1数据的写入
将学生新的信息写入到文本文件或access数据库中,利用Addnew语句,代码如下:
PrivateSubBJ_Click()
Adodc1.Recordset.AddNew
EndSub
2数据的查询
从数据库中查询学生的数据,运用Recordset.Find语句,从而查询学生的姓名,学号,点名次数,代码如下:
PrivateSubCX_Click()
SelectCaseIndex
Case0
Adodc1.Refresh
DimnAsString
n=InputBox("请输入查询姓名","查找窗")
Adodc1.Recordset.Find"姓名='"&n&"'"
IfAdodc1.Recordset.EOFThenMsgBox"无此人!
",,"提示"
EndSelect
EndSub
3数据的同步修改
运用Val函数将字符串转化成数字,并同步改变数据库中的相关信息,代码如下:
PrivateSubCommand1_Click()
Dimb%
b=Val(Text3)+1
Text3=b
Adodc1.Recordset.Fields("被点次数")=Text3
EndSub
4数据的随机提取
运用随机函数Int的运用,随机的从数据库中提取一条学生的信息,代码如下:
PrivateSubKS_Click()
DimiAsString
i=Int(Rnd*7+32)
Adodc1.CommandType=adCmdUnknown
Adodc1.RecordSource="Select*From点名表Where学号='"&i&"'"
Adodc1.Refresh
EndSub
5程序的结束
用End语句结束该程序,代码如下:
PrivateSubTU_Click()
End
EndSub
6菜单编辑
主要界面截图
图一点名系统主界面
图二查询窗体
总结
通过此次课设让我更加了解VB与数据库之间的联系,利用ADO使得VB与数据库之间产生联系,并且可以利用SQL语句查询和修改数据库中的信息,还到能进行信息的添加。
在此次课设中我遇到很多的困难,对程序语句的不熟悉等等,在程序的编辑的过程经常能遇到程序不能运行的错误,但是我慢慢的去书中查找各种语句,询问同学和老师,才有程序的正确运行。
同时我也了解了VB的出现是一场技术革命,它在生活中各个方面都能发挥巨大的作用。
也使我懂得了一个道理,就是平时我们做事情需要细心,并且为之投入大量的心思和精力,以及坚持不懈的奋斗,这样任何看起来困难的事都会迎刃而解。
完整的源程序
PrivateSubBJ_Click()
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand1_Click()
Dimb%
b=Val(Text3)+1
Text3=b
Adodc1.Recordset.Fields("被点次数")=Text3
EndSub
PrivateSubCX_Click()
SelectCaseIndex
Case0
Adodc1.Refresh
DimnAsString
n=InputBox("请输入查询姓名","查找窗")
Adodc1.Recordset.Find"姓名='"&n&"'"
IfAdodc1.Recordset.EOFThenMsgBox"无此人!
",,"提示"
EndSelect
EndSub
PrivateSubKS_Click()
DimiAsString
i=Int(Rnd*7+32)
Adodc1.CommandType=adCmdUnknown
Adodc1.RecordSource="Select*From点名表Where学号='"&i&"'"
Adodc1.Refresh
EndSub
PrivateSubTU_Click()
End
EndSub
参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
(等等)