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

1、VB课堂点名回答问题系统的设计与实现VB课堂点名回答问题系统的设计与实现中文摘要 英文摘要 第一章 标题 1第一节 标题 1一、 2二、 3第二节 标题 一、 二、 第二章 标题 第一节 标题 一、 二、 第二节 标题 一、 二、 参考文献 附录（可选） 致谢 第一章 前言第一节 研究背景及目的意义近些年来，我国大学生的整体素质不断下降，一方面是由于政策上的放松，另外一个不可忽视的原因便是大学课堂越来越低的到课率。然而传统的课堂点名提问的方法不仅浪费时间，更是难以避免学生代答等问题，我们可以利用电脑通过课堂点名提问系统做到规管理、科学统计、高效工作，从而做到完善课堂状况，进而提高学生的素质水平

2、。这时，课堂点名回答问题系统的存在便显得尤为重要了。本系统的主要设计目的是提高大学课堂中的学生到课率及课堂教学质量，主要包括了班级管理、课堂签到、点名答题及作业布置等。其主要功能包括：1、教师相关信息，包括个人基本信息、所在学院、教授课程、教课班级等的录入、修改、查询。2、班级管理，包括班级信息录入、修改、查询3、学生管理，包括学生信息录入、修改、查询4、课堂签到5、点名提问6、作业布置（1）。第二节 开发工具介绍本系统采用Windows 7作为操作系统，用Microsoft office access2003来进行数据库的设计，并使用visual basic6.0进行数据处理，以visual

3、 basic6.0为平台进行前端程序的设计。 Microsoft office access2003是在计算机上应用比较广泛的数据库软件，主要用于开发小型数据库系统，并且其拥有简单易用、功能完备等优点，所以，基于本系统的设计背景及目的，我选用Microsoft office access2003来创建数据库，利用它来实现数据的添加、修改、删除并与vb进行实现数据的同步。 Microsoft Visual Basic 6.0是一种结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RA

4、D）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。第二章 本论第一节 系统总体结构设计 首先，要对本系统进行结构设计分析，根据对本系统的设计要求及功能运用，得到总体架构。一、 系统结构分析 本系统的主要开发目的是为了实现课堂基本教学操作的自动化、系统化，提高课堂教学的效率和质量，并引导教师更加高效、统一地完成课堂管理工作。 本系统的主要功能有： 教师用户的基本信息录入、修改及注销。 教师个人课表的查询 教课班级的查询及班级信息的录入、修改。 学生信息的录入、修改及注销。 学生课堂状态的查询。 课堂

5、签到，包括班级选择及学生签到 点名提问，包括新增题目、题目选择、随机点名及查看答案。 作业布置，包括从题库中选择题目、自行编辑题目及作业上交时间的提示。二、 模块的设计 个人中心VB课堂点名回答问题系统教师课表班级管理学员录入学生查询课堂签到点名提问班级录入修改班级信息修改个人信息修改密码照片上传作业布置录入学生信息修改学生信息课堂选择学生签到题目选择随机点名增加题目查看答案加载作业编辑作业图2-1 VB课堂点名回答问题系统模块设计第二节 数据库设计 数据库设计是本系统在开发中的一大重点和难点，在此之前，我们需要了解用户对软件的需求，用户群的操作习惯，基本的操作规，然后再进行数据库的规划设计，

6、由于数据库中表与表之间是相互联系相互影响的，所以在建表之前一定要慎重，不要等到发现不适合之后再对表进行修改。 一、 数据库设计需求 一个完整统一的数据库对系统运行的效率和系统多功能的实现起着非常大的作用，因此，在设计数据库的时候，我们需要做好以下几点： 能满足用户的使用需求 数据要统一、完整 用户能对相关数据进行相应的操作处理 数据要能及时、准确地实现前端程序与后台数据库间的同步 要避免数据冗余 对数据库的维护要简单高效二、 创建数据注册信息表，如表2-2所示字段名称数据类型字段大小是否为空教师编号数字型长整型否密码文本型20否教师文本型8否教学科目文本型20否学院名称文本型20否表2-1 注

7、册信息表第三节 界面设计 在完成了前面的基本分析和数据库建立工作以后，系统的初期开发基本建成，接下来便要进行人机交互界面的开发设计，为使用户有更好的交互体验，系统的用户界面必须要友好、简洁、功能完整。所以，在设计过程中我们必须做好功能模块的规划以及整体界面的美化工作。一、课堂点名回答问题系统的具体实现 Microsoft Visual Basic 6.0 是一种可视化的程序设计语言，以下我将以图文的形式分别对各大功能界面的具体实现进行详细说明。2、登陆界面的设计根据VB代码实现，创建系统登录界面如图2-3所示图2-2 登录界面在登陆界面中，出于界面的美观考虑，将label控件及text控件的背

8、景样式设置为透明，并将边框样式设置为None，将Adodc设置为不可见，本界面的控件有：Label1：点击进入注册界面Label2：点击进行登录操作Label3：点击关闭登录界面Text1：点击进行用户名（教师编号）的输入Text2：点击进行密码输入Adodc1：与access数据库进行连接 登陆界面的控件及属性设置如表2-2所示控件属性属性取值Form1Borderstyle0-NonePicture登录.jpgStartUpPosition2-屏幕中心Caption登录WindowState0-NormalMaxbuttonfalseLabel1caption空Borderstyle0-N

9、oneBackstyle0-TransparentLabel2caption空Borderstyle0-NoneBackstyle0-TransparentLabel3caption空Borderstyle0-NoneBackstyle0-TransparentText1text空Borderstyle0-NoneAppearance0-FlatText2text空Borderstyle0-NoneAppearance0-FlatAdodc1Commandtype1-adCmdTextRecordSource注册信息表visiblefalseconnectionstringPrivider=M

10、icrosoft.jet.OLEDB.4.0;Data Source=数据库路径;persist security info=false表2-2 登陆界面控件属性添加代码：Private Sub Form_Load()Text1.Text = 教师编号Text2.Text = 密码End SubPrivate Sub Form1_Resize()If isiconic(Me.hWnd) 0 And minflag = False Then minflag = True iccardmain.Visible = False Call icon_add(Me.hWnd, Me.Caption, i

11、ccardmain.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 = Then MsgBox 教师编号或密码不可为空！, , 提示 Exit Sub Else Adodc1.RecordSource = select * from 注册信息表 where 教师编号= & Trim(T

12、ext1.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 IfEnd SubPrivate Sub Label3_Cl

13、ick()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 = Te

14、xt2.PasswordChar = *End SubPrivate Sub Text2_LostFocus()If Text2.Text = Then Text2.Text = 密码Text2.PasswordChar = End Sub3、注册界面的设计创建系统注册界面如图2-3所示图2-3 注册界面在注册界面中，同样将label控件及text控件的背景样式设置为透明，并将边框样式设置为None，将Adodc设置为不可见，本界面的控件有：Label1：点击进行注册操作Label2：点击关闭注册界面Text1：点击进行用户名（教师编号）的输入Text2：点击进行密码输入Text3：点击进行密

15、码确认Text4：点击进行教师的输入Text5：点击进行教学科目的输入Text6：点击进行学院名称的输入Adodc1：与access数据库进行连接 注册界面的控件及属性设置如表2-3所示控件属性属性取值Form2Borderstyle0-NonePicture注册.jpgStartUpPosition2-屏幕中心Caption注册WindowState0-NormalMaxbuttonfalseLabel1caption空Borderstyle0-NoneBackstyle0-TransparentLabel2caption空Borderstyle0-NoneBackstyle0-Transp

16、arentText1text空Borderstyle0-NoneAppearance0-FlatText2text空Borderstyle0-NoneAppearance0-Flat控件属性属性取值Text3text空Borderstyle0-NoneAppearance0-FlatTex4text空Borderstyle0-NoneAppearance0-FlatText5text空Borderstyle0-NoneAppearance0-FlatText6text空Borderstyle0-NoneAppearance0-FlatAdodc1Commandtype1-adCmdTextRe

17、cordSource注册信息表visiblefalseconnectionstringPrivider=Microsoft.jet.OLEDB.4.0;Data Source=数据库路径;persist security info=false表2-3 登陆界面控件属性添加代码：Private Sub Form_Load()Text1.Text = 请输入教师编号Text2.Text = 请输入密码Text3.Text = 请确认密码Text4.Text = 请输入教师Text5.Text = 请输入教学科目Text6.Text = 请输入学院名称End SubPrivate Sub Label

18、1_Click()If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = ThenMsgBox 信息填写不完整，请检查！, , 提示ElseIf Text3.Text Text2.Text ThenMsgBox 您两次输入的密码不一致，请重新输入, , 提示Text3.Text = Exit SubEnd IfAdodc1.RecordSource = select * from 注册信息表 where 教师编号= & Trim(Text1.Text) & A

19、dodc1.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)Ad

20、odc1.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_G

21、otFocus()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 = 请输入密码

22、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 = T

23、hen 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.Te

24、xt = Then Text6.Text = 请输入学院名称End Sub4、个人中心界面的设计 创建个人中心界面如图2-4所示在个人中心界面中，同样将label控件的背景样式设置为透明，边框样式设置为None，将Adodc设置为不可见，本界面的控件有：教师编号（0）Label：显示登录用户的教师编号教师 Label：显示登录用户的教师年龄 Label：显示登录用户的年龄学院 Label：显示登录用户的学院信息课程 Label：显示登录用户的课程信息职称 Label：显示登录用户的职称教龄 Label：显示登录用户的教龄个人中心（1）Label：显示个人中心界面教师课表（2）Label：显示教

25、师课表界面班级管理（3）Label：显示班级管理界面学员录入（4）Label：显示学员录入界面学生查询（5）Label：显示学生查询界面课堂签到（6）Label：显示课堂签到界面点名提问（7）Label：显示点名提问界面作业布置（8）Label：显示作业布置界面性别男optionbutton：判断当前用户是否为男性性别女optionbutton：判断当前用户性别是否为女性照片上传label：点击进行照片上传密码修改label：点击进行密码修改密码修改label：点击进行个人信息修改关闭label：点击关闭当前界面Adodc1：与access数据库进行连接 注册界面的控件及属性设置如表2-3所示

26、控件属性属性取值Form3Borderstyle0-NonePicture个人中心01.jpgStartUpPosition2-屏幕中心Caption个人中心WindowState0-NormalMaxbuttonfalse教师编号（0）Labelcaption空Borderstyle0-NoneBackstyle0-Transparent教师 Labelcaption空Borderstyle0-NoneBackstyle0-Transparent控件属性属性取值年龄 Labelcaption空Borderstyle0-NoneBackstyle0-Transparent学院 Labelcap

27、tion空Borderstyle0-NoneBackstyle0-Transparent课程 Labelcaption空Borderstyle0-NoneBackstyle0-Transparent职称 Labelcaption空Borderstyle0-NoneBackstyle0-Transparent教龄 Labelcaption空Borderstyle0-NoneBackstyle0-Transparent个人中心（1）Labelcaption空Borderstyle0-NoneBackstyle0-Transparent教师课表（2）Labelcaption空Borderstyle0

28、-NoneBackstyle0-Transparent班级管理（3）Labelcaption空Borderstyle0-NoneBackstyle0-Transparent学员录入（4）Labelcaption空Borderstyle0-NoneBackstyle0-Transparent学生查询（5）Labelcaption空Borderstyle0-NoneBackstyle0-Transparent课堂签到（6）Labelcaption空Borderstyle0-NoneBackstyle0-Transparent点名提问（7）Labelcaption空Borderstyle0-NoneBackstyle0-Transparent作业布置（8）Labelcaption空Borderstyle0-NoneBackstyle0-Transparent性别男optionbuttoncap