VB课堂点名回答问题系统的设计与实现目录中文摘要 (Ⅰ)英文摘要 (Ⅱ)第一章标题 (1)第一节标题 (1)一、 (2)二、 (3)第二节标题·······················一、··························二、··························第二章标题·························第一节标题·······················一、··························二、··························第二节标题·······················一、··························二、··························参考文献··························附录（可选）························致谢····························第一章前言第一节研究背景及目的意义近些年来，我国大学生的整体素质不断下降，一方面是由于政策上的放松，另外一个不可忽视的原因便是大学课堂越来越低的到课率。
然而传统的课堂点名提问的方法不仅浪费时间，更是难以避免学生代答等问题，我们可以利用电脑通过课堂点名提问系统做到规管理、科学统计、高效工作，从而做到完善课堂状况，进而提高学生的素质水平。
这时，课堂点名回答问题系统的存在便显得尤为重要了。
本系统的主要设计目的是提高大学课堂中的学生到课率及课堂教学质量，主要包括了班级管理、课堂签到、点名答题及作业布置等。
其主要功能包括：1、教师相关信息，包括个人基本信息、所在学院、教授课程、教课班级等的录入、修改、查询。
2、班级管理，包括班级信息录入、修改、查询3、学生管理，包括学生信息录入、修改、查询4、课堂签到5、点名提问6、作业布置（1）。
第二节开发工具介绍本系统采用Windows 7作为操作系统，用Microsoft office access2003来进行数据库的设计，并使用visual basic6.0进行数据处理，以visual basic6.0为平台进行前端程序的设计。
○1Microsoft office access2003是在计算机上应用比较广泛的数据库软件，主要用于开发小型数据库系统，并且其拥有简单易用、功能完备等优点，所以，基于本系统的设计背景及目的，我选用Microsoft office access2003来创建数据库，利用它来实现数据的添加、修改、删除并与vb进行实现数据的同步。
○2 Microsoft Visual Basic 6.0是一种结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
它源自于BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
（1）正文内容字体为四号仿宋。
整篇文档首行右缩进2字符，段前、断后0行，行距为1.5倍行距。
第二章本论第一节系统总体结构设计首先，要对本系统进行结构设计分析，根据对本系统的设计要求及功能运用，得到总体架构。
一、系统结构分析本系统的主要开发目的是为了实现课堂基本教学操作的自动化、系统化，提高课堂教学的效率和质量，并引导教师更加高效、统一地完成课堂管理工作。
本系统的主要功能有：○1教师用户的基本信息录入、修改及注销。
○2教师个人课表的查询○3教课班级的查询及班级信息的录入、修改。
○4学生信息的录入、修改及注销。
○5学生课堂状态的查询。
○6课堂签到，包括班级选择及学生签到○7点名提问，包括新增题目、题目选择、随机点名及查看答案。
○8作业布置，包括从题库中选择题目、自行编辑题目及作业上交时间的提示。
二、模块的设计图2-1 VB课堂点名回答问题系统模块设计第二节数据库设计数据库设计是本系统在开发中的一大重点和难点，在此之前，我们需要了解用户对软件的需求，用户群的操作习惯，基本的操作规，然后再进行数据库的规划设计，由于数据库中表与表之间是相互联系相互影响的，所以在建表之前一定要慎重，不要等到发现不适合之后再对表进行修改。
一、数据库设计需求一个完整统一的数据库对系统运行的效率和系统多功能的实现起着非常大的作用，因此，在设计数据库的时候，我们需要做好以下几点：○1能满足用户的使用需求○2数据要统一、完整○3用户能对相关数据进行相应的操作处理○4数据要能及时、准确地实现前端程序与后台数据库间的同步○5要避免数据冗余○6对数据库的维护要简单高效二、创建数据注册信息表，如表2-2所示表2-1 注册信息表第三节界面设计在完成了前面的基本分析和数据库建立工作以后，系统的初期开发基本建成，接下来便要进行人机交互界面的开发设计，为使用户有更好的交互体验，系统的用户界面必须要友好、简洁、功能完整。
所以，在设计过程中我们必须做好功能模块的规划以及整体界面的美化工作。
一、课堂点名回答问题系统的具体实现Microsoft Visual Basic 6.0 是一种可视化的程序设计语言，以下我将以图文的形式分别对各大功能界面的具体实现进行详细说明。
二、登陆界面的设计根据VB代码实现，创建系统登录界面如图2-3所示图2-2 登录界面在登陆界面中，出于界面的美观考虑，将label控件及text控件的背景样式设置为透明，并将边框样式设置为None，将Adodc设置为不可见，本界面的控件有：Label1：点击进入注册界面Label2：点击进行登录操作Label3：点击关闭登录界面Text1：点击进行用户名（教师编号）的输入Text2：点击进行密码输入Adodc1：与access数据库进行连接登陆界面的控件及属性设置如表2-2所示表2-2 登陆界面控件属性添加代码：Private Sub Form_Load()Text1.Text = "教师编号"Text2.Text = "密码"End SubPrivate Sub Form1_Resize()If isiconic(Me.hWnd) <> 0 And minflag = False Thenminflag = Trueiccardmain.Visible = FalseCall icon_add(Me.hWnd, Me.Caption, iccardmain.Icon, 0) End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd SubPrivate Sub Label1_Click()Form2.ShowUnload MeEnd SubPrivate Sub Label2_Click()If Text1.Text = "" Or Text2.Text = "" ThenMsgBox "教师编号或密码不可为空！", , "提示"Exit SubElseAdodc1.RecordSource = "select * from 注册信息表 where 教师编号=" & Trim(Text1.Text) & ""Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 Then '查找存在该用户If Adodc1.Recordset.Fields("密码") <> Text2.Text Then '核对用户密码MsgBox "密码错误,请重新输入！", vbOKOnly + vbExclamation, "提示："Text2.Text = ""Else'密码正确Form3.ShowMe.HideEnd IfElseMsgBox "教师编号错误或不存在！", , "提示" End IfEnd IfEnd SubPrivate Sub Label3_Click()Form1.Visible = FalseEnd SubPrivate Sub Label4_Click()Form4.ShowUnload MeEnd SubPrivate Sub Text1_GotFocus()If Text1.Text = "教师编号" Then Text1.Text = ""End SubPrivate Sub Text1_LostFocus()If Text1.Text = "" Then Text1.Text = "教师编号"End SubPrivate Sub Text2_GotFocus()If Text2.Text = "密码" Then Text2.Text = "" Text2.PasswordChar = "*"End SubPrivate Sub Text2_LostFocus()If Text2.Text = "" Then Text2.Text = "密码" Text2.PasswordChar = ""End Sub三、注册界面的设计创建系统注册界面如图2-3所示图2-3 注册界面在注册界面中，同样将label控件及text控件的背景样式设置为透明，并将边框样式设置为None，将Adodc设置为不可见，本界面的控件有：Label1：点击进行注册操作Label2：点击关闭注册界面Text1：点击进行用户名（教师编号）的输入Text2：点击进行密码输入Text3：点击进行密码确认Text4：点击进行教师的输入Text5：点击进行教学科目的输入Text6：点击进行学院名称的输入Adodc1：与access数据库进行连接注册界面的控件及属性设置如表2-3所示表2-3 登陆界面控件属性添加代码：Private Sub Form_Load()Text1.Text = "请输入教师编号"Text2.Text = "请输入密码"Text3.Text = "请确认密码"Text4.Text = "请输入教师"Text5.Text = "请输入教学科目"Text6.Text = "请输入学院名称"End SubPrivate Sub Label1_Click()If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then MsgBox "信息填写不完整，请检查！", , "提示"ElseIf Text3.Text <> Text2.Text ThenMsgBox "您两次输入的密码不一致，请重新输入", , "提示"Text3.Text = ""Exit SubEnd IfAdodc1.RecordSource = "select * from 注册信息表 where 教师编号=" & Trim(Text1.Text) & ""Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 Then '如果账号已经存在MsgBox "账号已经存在", , "提示"Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "": Text5.Text = "": Text6.Text = ""Exit SubElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("教师编号") = Trim(Text1.Text)Adodc1.Recordset.Fields("密码") = Trim(Text2.Text)Adodc1.Recordset.Fields("教师") = Trim(Text4.Text) Adodc1.Recordset.Fields("教学科目") = Trim(Text5.Text) Adodc1.Recordset.Fields("学院名称") = Trim(Text6.Text) Adodc1.Recordset.UpdateMsgBox "恭喜您，您的信息已注册成功", , "提示："Form1.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub Label2_Click()Form14.ShowUnload MeEnd SubPrivate Sub Text1_GotFocus()If Text1.Text = "请输入教师编号" Then Text1.Text = "" End SubPrivate Sub Text1_LostFocus()If Text1.Text = "" Then Text1.Text = "请输入教师编号"End SubPrivate Sub Text2_GotFocus()If Text2.Text = "请输入密码" Then Text2.Text = "" Text2.PasswordChar = "*"End SubPrivate Sub Text2_LostFocus()If Text2.Text = "" Then Text2.Text = "请输入密码" End SubPrivate Sub Text3_GotFocus()If Text3.Text = "请确认密码" Then Text3.Text = "" Text3.PasswordChar = "*"End SubPrivate Sub Text3_LostFocus()If Text3.Text = "" Then Text3.Text = "请确认密码" End SubPrivate Sub Text4_GotFocus()If Text4.Text = "请输入教师" Then Text4.Text = "" End SubPrivate Sub Text4_LostFocus()If Text4.Text = "" Then Text4.Text = "请输入教师" End SubPrivate Sub Text5_GotFocus()If Text5.Text = "请输入教学科目" Then Text5.Text = "" End SubPrivate Sub Text5_LostFocus()If Text5.Text = "" Then Text5.Text = "请输入教学科目" End SubPrivate Sub Text6_GotFocus()If Text6.Text = "请输入学院名称" Then Text6.Text = "" End SubPrivate Sub Text6_LostFocus()If Text6.Text = "" Then Text6.Text = "请输入学院名称" End Sub四、个人中心界面的设计创建个人中心界面如图2-4所示在个人中心界面中，同样将label控件的背景样式设置为透明，边框样式设置为None，将Adodc设置为不可见，本界面的控件有：教师编号（0）Label：显示登录用户的教师编号教师 Label：显示登录用户的教师年龄 Label：显示登录用户的年龄学院 Label：显示登录用户的学院信息课程 Label：显示登录用户的课程信息职称 Label：显示登录用户的职称教龄 Label：显示登录用户的教龄个人中心（1）Label：显示个人中心界面教师课表（2）Label：显示教师课表界面班级管理（3）Label：显示班级管理界面学员录入（4）Label：显示学员录入界面学生查询（5）Label：显示学生查询界面课堂签到（6）Label：显示课堂签到界面点名提问（7）Label：显示点名提问界面作业布置（8）Label：显示作业布置界面性别男optionbutton：判断当前用户是否为男性性别女optionbutton：判断当前用户性别是否为女性照片上传label：点击进行照片上传密码修改label：点击进行密码修改密码修改label：点击进行个人信息修改关闭label：点击关闭当前界面Adodc1：与access数据库进行连接注册界面的控件及属性设置如表2-3所示表2-3 个人中心界面控件属性添加代码：Private Sub Form_Load()SQL = "select 性别 from 教师信息表"If SQL = "男" Then性别男.Value = TrueElse性别女 = TrueEnd IfEnd SubPrivate Sub 班级管理_Click(Index As Integer) Form6.ShowUnload MeEnd SubPrivate Sub 点名提问_Click(Index As Integer) Form19.ShowUnload MeEnd SubPrivate Sub 个人中心_Click(Index As Integer) Form3.ShowUnload MeEnd SubPrivate Sub 关闭_Click()Form14.ShowUnload MeEnd SubPrivate Sub 教师课表_Click(Index As Integer) form5.ShowUnload MeEnd SubPrivate Sub 课堂签到_Click(Index As Integer) Form16.ShowUnload MeEnd SubPrivate Sub 密码修改_Click()Form13.ShowUnload MeEnd SubPrivate Sub 修改个人信息_Click()Form4.ShowUnload MeEnd SubPrivate Sub 学生查询_Click(Index As Integer)Form11.ShowUnload MeEnd SubPrivate Sub 学员录入_Click(Index As Integer) Form9.ShowUnload MeEnd SubPrivate Sub 作业布置_Click(Index As Integer) Form21.ShowUnload MeEnd Sub4.3 添加代码4.4 登陆界面的设计4.5………..4.n参考文献[1] 家广，长青．计算机图形学［M］．北京：清华大学，1995．26～28[2] 陶仁骥. 有限自动机的可逆性[M].北京：科学，1986.[3]Skolink M I．Radar Handbook[M]． New York： McGraw-Hill, 1990[4]旭东，宗光华，毕树生等．生物工程微操作机器人视觉系统的研究［Ｊ］．北京航空航天大学学报，2002，28(3)：249～252[5]王明亮．关于中国学术期刊标准化数据系统工程的进展［EB/OL］． http：//．cajcd．edu．/pub/wm1．txt/980810-2．html,1998-08-16/1998-10-04附录致谢。