VB课程设计.docx

1、VB课程设计沈 阳 航 空 航 天 大 学 课程设计学 号 _2009040601166_班 级 _94060105_ 姓 名 _丁 勇_指导教师 _徐 晗_2011年 3 月 21 日沈阳航空航天大学课程设计任务书学院： 机电工程学院 专业：机械设计制造及其自动化 班级：94060105学号：2009040601166 题目：教师上课随机点名一、课程设计时间2011年3月14日20日（第2周），共计1周。二、课程设计内容教师在每次上课时，需要对学生随机点名，学生信息保存到文本文件或access数据库中，学生信息至少包括：学号，姓名，点名次数（初始值为0）。所谓点名，是指将某位同学的姓名和学号

2、显示到屏幕上，则表示该同学被点名一次，并累加点名次数，注意点名的随机性（可使用随机函数）。用户界面中的菜单至少包括“编辑学生数据”，“开始点名”，“查询学生点名情况”，“退出”4项。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单至少应包括“编辑学生数据”、“开始点名”、“查询学生点名情况”、“退出” 4项。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成

3、绩六、教师评语目 录需求分析 4设计分析 4技术要点 6主要界面截图 9总结 10完整的源程序 11参考文献 13需求分析教师在每次上课时，需要对学生随机点名，学生信息保存到文本文件或access数据库中，学生信息至少包括：学号，姓名，点名次数（初始值为0）。1. 运用随机函数从而从数据库中提取学生的数据2. 对学生的信息进行查询，没有则显示错误3. 对学生的信息进行编辑设计分析（1）概述：通过使用ADO控件建立程序设计与数据库的联系，用SQL语句在数据库中查找，添加和更改数据，运用随机函数，随机的提取学生的数据，体现点名的随机性。对数据库的信息进行查询，有用信息框显示，没有则显示没有。（2）

4、总体设计：（3）详细设计：技术要点1 数据的写入将学生新的信息写入到文本文件或access数据库中，利用Addnew语句，代码如下：Private Sub BJ_Click()Adodc1.Recordset.AddNewEnd Sub2 数据的查询从数据库中查询学生的数据，运用Recordset.Find 语句，从而查询学生的姓名，学号，点名次数，代码如下：Private Sub CX_Click()Select Case IndexCase 0Adodc1.RefreshDim n As Stringn = InputBox(请输入查询姓名, 查找窗)Adodc1.Recordset.Fi

5、nd 姓名 = & n & If Adodc1.Recordset.EOF Then MsgBox 无此人！, , 提示End SelectEnd Sub3数据的同步修改运用Val函数将字符串转化成数字，并同步改变数据库中的相关信息，代码如下：Private Sub Command1_Click()Dim b%b = Val(Text3) + 1Text3 = bAdodc1.Recordset.Fields(被点次数) = Text3End Sub4 数据的随机提取运用随机函数Int的运用，随机的从数据库中提取一条学生的信息，代码如下：Private Sub KS_Click()Dim i

6、As Stringi = Int(Rnd * 7 + 32)Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = Select * From 点名表 Where 学号 = & i & Adodc1.RefreshEnd Sub5 程序的结束用End语句结束该程序，代码如下：Private Sub TU_Click()EndEnd Sub6 菜单编辑主要界面截图图一 点名系统主界面图二 查询窗体总结通过此次课设让我更加了解VB与数据库之间的联系，利用ADO使得VB与数据库之间产生联系，并且可以利用SQL语句查询和修改数据库中的信息，还到能进

7、行信息的添加。在此次课设中我遇到很多的困难，对程序语句的不熟悉等等，在程序的编辑的过程经常能遇到程序不能运行的错误，但是我慢慢的去书中查找各种语句，询问同学和老师，才有程序的正确运行。同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用。也使我懂得了一个道理，就是平时我们做事情需要细心，并且为之投入大量的心思和精力，以及坚持不懈的奋斗，这样任何看起来困难的事都会迎刃而解。 完整的源程序Private Sub BJ_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command1_Click()Dim b% b = Val

8、(Text3) + 1Text3 = bAdodc1.Recordset.Fields(被点次数) = Text3End SubPrivate Sub CX_Click()Select Case IndexCase 0Adodc1.RefreshDim n As Stringn = InputBox(请输入查询姓名, 查找窗)Adodc1.Recordset.Find 姓名 = & n & If Adodc1.Recordset.EOF Then MsgBox 无此人！, , 提示End SelectEnd SubPrivate Sub KS_Click()Dim i As Stringi = Int(Rnd * 7 + 32)Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = Select * From 点名表 Where 学号 = & i & Adodc1.RefreshEnd SubPrivate Sub TU_Click()EndEnd Sub参考文献1 刘瑞新Visual Basic程序设计教程北京：机械工业出版社，2003（等等）