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(等等)
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1