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
（等等）
升级会员 