VB课堂点名回答问题系统的设计与实现

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 Sub
Private Sub Form1_Resize()
If isiconic(Me.hWnd) <> 0 And minflag = False Then
minflag = True
iccardmain.Visible = False
Call icon_add(Me.hWnd, Me.Caption, iccardmain.Icon, 0) End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Label1_Click()
Form2.Show
Unload Me
End Sub
Private Sub Label2_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "教师编号或密码不可为空！", , "提示"
Exit Sub
Else
Adodc1.RecordSource = "select * from 注册信息表 where 教
师编号=" & Trim(Text1.Text) & ""
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then '查找
存在该用户
If Adodc1.Recordset.Fields("密码") <> Text2.Text Then '核对用户密码
MsgBox "密码错误,请重新输入！", vbOKOnly + vbExclamation, "提示："
Text2.Text = ""
Else
'密码正确
Form3.Show
Me.Hide
End If
Else
MsgBox "教师编号错误或不存在！", , "提示" End If
End If
End Sub
Private Sub Label3_Click()
Form1.Visible = False
End Sub
Private Sub Label4_Click()
Form4.Show
Unload Me
End Sub
Private Sub Text1_GotFocus()
If Text1.Text = "教师编号" Then Text1.Text = ""
End Sub
Private Sub Text1_LostFocus()
If Text1.Text = "" Then Text1.Text = "教师编号"
End Sub
Private Sub Text2_GotFocus()
If Text2.Text = "密码" Then Text2.Text = "" Text2.PasswordChar = "*"
End Sub
Private 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 Sub
Private Sub Label1_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then MsgBox "信息填写不完整，请检查！", , "提示"
Else
If Text3.Text <> Text2.Text Then
MsgBox "您两次输入的密码不一致，请重新输入", , "提示"
Text3.Text = ""
Exit Sub
End If
Adodc1.RecordSource = "select * from 注册信息表 where 教师编号=" & Trim(Text1.Text) & ""
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then '如果账号已经存在
MsgBox "账号已经存在", , "提示"
Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "": Text5.Text = "": Text6.Text = ""
Exit Sub
Else
Adodc1.Recordset.AddNew
Adodc1.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.Update
MsgBox "恭喜您，您的信息已注册成功", , "提示："
Form1.Show
Unload Me
End If
End If
End Sub
Private Sub Label2_Click()
Form14.Show
Unload Me
End Sub
Private Sub Text1_GotFocus()
If Text1.Text = "请输入教师编号" Then Text1.Text = "" End Sub
Private Sub Text1_LostFocus()
If Text1.Text = "" Then Text1.Text = "请输入教师编号"
End Sub
Private Sub Text2_GotFocus()
If Text2.Text = "请输入密码" Then Text2.Text = "" Text2.PasswordChar = "*"
End Sub
Private Sub Text2_LostFocus()
If Text2.Text = "" Then Text2.Text = "请输入密码" End Sub
Private Sub Text3_GotFocus()
If Text3.Text = "请确认密码" Then Text3.Text = "" Text3.PasswordChar = "*"
End Sub
Private Sub Text3_LostFocus()
If Text3.Text = "" Then Text3.Text = "请确认密码" End Sub
Private Sub Text4_GotFocus()
If Text4.Text = "请输入教师" Then Text4.Text = "" End Sub
Private Sub Text4_LostFocus()
If Text4.Text = "" Then Text4.Text = "请输入教师" End Sub
Private Sub Text5_GotFocus()
If Text5.Text = "请输入教学科目" Then Text5.Text = "" End Sub
Private Sub Text5_LostFocus()
If Text5.Text = "" Then Text5.Text = "请输入教学科目" End Sub
Private Sub Text6_GotFocus()
If Text6.Text = "请输入学院名称" Then Text6.Text = "" End Sub
Private 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 = True
Else
性别女 = True
End If
End Sub
Private Sub 班级管理_Click(Index As Integer) Form6.Show
Unload Me
End Sub
Private Sub 点名提问_Click(Index As Integer) Form19.Show
Unload Me
End Sub
Private Sub 个人中心_Click(Index As Integer) Form3.Show
Unload Me
End Sub
Private Sub 关闭_Click()
Form14.Show
Unload Me
End Sub
Private Sub 教师课表_Click(Index As Integer) form5.Show
Unload Me
End Sub
Private Sub 课堂签到_Click(Index As Integer) Form16.Show
Unload Me
End Sub
Private Sub 密码修改_Click()
Form13.Show
Unload Me
End Sub
Private Sub 修改个人信息_Click()
Form4.Show
Unload Me
End Sub
Private Sub 学生查询_Click(Index As Integer)
Form11.Show
Unload Me
End Sub
Private Sub 学员录入_Click(Index As Integer) Form9.Show
Unload Me
End Sub
Private Sub 作业布置_Click(Index As Integer) Form21.Show
Unload Me
End Sub
4.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
附录
致谢。