《课程设计教师上课随机点名系统》由会员分享，可在线阅读，更多相关《课程设计教师上课随机点名系统（14页珍藏版）》请在金锄头文库上搜索。
1、沈阳航空航天大学课程设计学号 _2010040305004班级 _04030501姓名 张启键指导教师刘成2012年9月16日沈阳航空航天大学课程设计任务书学院：航空宇航工程学院专业：航空维修班级：04030501学号：2010040305004题目：教师上课随机点名一、课程设计时间2011年3月12日18日（第2周），共计1周。二、课程设计内容教师在每次上课时，需要对学生随机点名，学生信息保存到文本文件或access 数据库中，学生信息至少包括：学号，姓名，点名次数（初始值为0）。所谓点名，是指将某位同学的姓名和学号显示到屏幕上，则表示该同学被点名 一次，并累加点名次数，注意点名的随机性（可
2、使用随机函数）。用户界面中的菜单至少包括“编辑学生数据”，“开始点名”，“查询学生点名情 况”，“退出” 4项。三、课程设计要求程序质量：贯彻事件驱动的程序设计思想。用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。用户界面中的菜单至少应包括“编辑学生数据”、“开始点名”、“查询学生点 名情况”、“退出” 4项。代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提 供的模板。四、指导教师和学生签字指导教师： 学生签名：五、成绩六、教师评语目 录需求分析4设计分析4技术要点5主要界面截图9图（一）学生点名
3、系统主界面9总结10参考文献14需求分析教师在每次上课时，需要对学生随机点名，学生信 息保存到文木文件或access数据库中，学生信息至少 包括：学号，姓名，点名次数（初始值为0）。1. 运用随机函数从数据库中提取学生的数据。2. 对学生的点名情况进行查询，并在用户界面中显 示。3. 对学生的学号和姓名等信息进行编辑，并添加到 数据库中。设计分析（1）概述：通过使用ADO控件建立程序设计与数据库的联系， 用SQL语句在数据库中查找，添加和更改数据，运用 随机函数，随机地提取学生的数据，体现点名的随机性。对数据库的信息进行查询，并在用户界面中显示。（2）总体设计：(3) 详细设计:技术要点1数据
4、的写入将学生新的信息写入到access数据库中，利用Recordset语句，代码如下：Private Sub new_Click（）Textl.SetFocusEnd SubPrivate Sub Command2_Click（）Adodc1.Recordset.AddNewIf Text1.Text ThenAdodc1.Recordset（学号）=Text1.TextElseAdodc1.Recordset（学号）=未命名End IfIf Text2.Text ThenAdodc1.Recordset（姓名）=Text2.TextElseAdodc1.Recordset（姓名）=未命名En
5、d IfAdodc1.Recordset（点名次数）=0Adodc1.Recordset.Update2数据的查询从数据库中查询学生的数据，运用Recordset语句，查询 学生的姓名，学号，和点名次数，代码如下：Private Sub search_Click（）Textl.Text = Adodc1.Recordset（学号）Text2.Text = Adodc1.Recordset（姓名）Text3.Text = Adodc1.Recordset（点名次数）End Sub3数据的随机提取运用随机函数，随机地从数据库中提取某一个学生的信息（即教师对学生进行点名），代码如下：Private
6、Sub Command1_Click（）Randomize保证每次运行时产生不同序列的随机数Adodc1.Recordset.MoveFirstAdodc1.Recordset.MoveInt（Rnd*Adodc1.Record.set.RecordCount + 0）If Adodc1.Recordset.EOF Then EndText1.Text = Adodc1.Recordset（学号）Text2.Text = Adodc1.Recordset（姓名）Text3.Text = Adodc1.Recordset（,点名次数）+ 1Adodc1.Recordset（点名次数）=Adodc
7、1.Recordset（点名次数”）+ 1End Sub4程序的结束用End语句结束该程序，代码如下：Private Sub exit_Click（）ask = MsgBox（确认退出& ? , vbYesNo）If ask = 6 Then EndEnd Sub沈阳航空航天大学设计用纸主要界面截图图（一）学生点名系统主界面图（二）学生信息添加窗体主界面总结通过此次课设的训练，让我更加了解了 VB课程中数 据库的重要性，利用ADO控件可以实现对数据库的访问， 并且还可以利用SQL语句查询和修改数据库中的信息，还 能进行信息的添加和删除。在此次课设的学习中我也遇到了许多的困难，例如对 程序的不了
8、解，对语句的不熟悉等。在程序的编辑的过程 中也出现了很多的差错，例如语句错误使程序无法运行。 但是令我欣慰的是，在老师的悉心指导下，在同学们的帮 助下，和在参考各种教辅资料后，程序可以正常运行了！ 这让我对能圆满完成此次课设充满信心！在这一周的课设学习中我也憧得了许多道理，这不仅 仅是为了让我们更深层次地理解vb，也是为了锻炼我们 的实践能力，考验我们的意志。当我们陷入困难的时候， 不要灰心，不要轻言放弃，要敢于面对困难，学会利用身 边的资源，坚持不懈，逐步去攻克困难，坚信所有的困难 都可以解决。vb在我们的平时的学习和工作中都可以用 到，我们可以自己设计一个小程序帮助我们解决一些困 难。所以
9、，这次课设让我获益匪浅，在以后的学习中我会 加倍努力，争取把所学的知识运用到以后的学习和工作 中！完整的源程序Private Sub Command1_Click（）Randomize保证每次运行时产生不同序列的随机数Adodc1.Recordset.MoveFirstAdodc1.Recordset.MoveInt（Rnd*Adodc1.Recordset.Rec ordCount + 0）If Adodc1.Recordset.EOF Then EndText1.Text = Adodc1.Recordset（学号）Text2.Text = Adodc1.Recordset（姓名）Text
10、3.Text = Adodc1.Recordset（点名次数）+ 1Adodc1.Recordset（点名次数）=Adodc1.Recordset（点名次数）+ 1 在表中点名次数后累加End SubPrivate Sub Command2_Click（）Adodcl.Recordset.AddNewIf Text1.Text ThenAdodc1.Recordset（学号）=Text1.TextElseAdodc1.Recordset（学号）=未命名End IfIf Text2.Text ThenAdodc1.Recordset（姓名）=Text2.TextElseAdodc1.Record
11、set（姓名）=未命名End IfAdodc1.Recordset（点名次数）=0Adodc1.Recordset.UpdateEnd SubPrivate Sub Command3_Click()Textl.Text =Text2.Text =Text3.Text =End SubPrivate Sub exit_Click()ask = MsgBox(确认退出& ? , vbYesNo)If ask = 6 Then EndEnd SubPrivate Sub new_Click()Text1.SetFocusEnd SubPrivate Sub search_Click()Text1.T
12、ext = Adodc1.Recordset(学号”)Text2.Text = Adodc1.Recordset(姓名”)Text3.Text = Adodc1.Recordset(点名次数”)End SubPrivate Sub select_Click()ask = MsgBox(确认删除学号为&Adodc1.Recordset (“学 号)&姓名& Adodc1.Recordset(姓名)& ?, vbYesNo)If ask = 6 Then选择了是按钮Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNext 移动记录指针刷新显示屏End IfIf Adodc1.Recordset. EOF ThenAdodc1.Recordset.MoveLastEnd sub参考文献1iVB程序设计教程，高等教育出版社
