通用心理测试系统的设计和开发.ppt

附录通用心理测试系统的设计和开发,1、系统需求分析,意义：人的心理特性是不能被直接观察到的，而且还存在着明显的个体差异，但是任何一种心理特性总会以一定的行为表现出来。心理测验就是让人们在测验时产生某些行为，即个体对测验题目的反应，并根据这些行为反应来推论其相应的心理特性。在一定程度上有助于我们了解人类的心理活动，并从中得到帮助。例如在现实生活领域，心理测验可以帮助评价个人的智力水平和了解个性特征；可以用于对各种智能缺陷、精神疾病和脑功能障碍的临床诊断；可以为特殊人才的选拔提供参考；心理测验结合心理咨询有助于消除情绪困扰和人格障碍，提高生活品质。,1、系统需求分析,现状分析：传统的纸笔测试方法操作烦琐，人工结果统计费时费力，还可能存在计算错误的可能性，而且不利于对测试情况做到汇总分析。因此需要开发一套科学、灵活、易用的通用心理测试系统，能够进行多种类型的心理测试，界面友好，操作简单，能够自动计算分数，实现数据存档和查询功能。,1、系统需求分析,通用心理测试系统设计的具体要求包括：1.高效地录入和保存信息。例如测试者的姓名、性别、籍贯、学历数据等。2.方便地完成测试过程，并保证测试的客观性.如自动计时、自动汇总统计结果等。3.实现多次测试结果的汇总。4.实现基于数据库的电子化信息管理。5.具有较强的扩充性，能够适应新的测试内容变化要求等。,2、系统流程图,通用心理测试系统的使用者包括两类，测试者和管理员。对于每个新的测试者而言，需要录入其姓名、性别、文化程度等基本信息，然后开始测试，完成所有题目或测试时间到后，显示其测试结果，并把测试结果自动保存到数据库中。对于管理员而言，需要通过口令进行登录，然后可以从数据库中汇总测试结果等操作。,3、系统设计思路,界面设计通用心理测试系统的应用程序界面,即MVC模型中的View。包括主窗体、关于窗体、新测试者基本信息录入窗体、显示测试题目并作答窗体、显示测试结果窗体、管理员登录窗体和测试结果汇总窗体等界面。,3、系统设计思路,代码设计程序代码设计采用面向对象的事件驱动机制，针对用户界面上的对象的相应事件（主要是Click事件和定时器事件）来激发对象执行所需的操作,即MVC模型中的Controller部分。,开始新的测试显示V2：新测试者信息窗口显示V3：测试窗口查看测试记录显示V5：测试结果窗口退出结束系统帮助显示V1：关于窗口,3、系统设计思路,数据库设计本系统使用ACCESS数据库作为后台数据库，即MVC模型中的Model部分。在名为test的MDB数据库文件中建立5张表。,4、系统实现方法数据库设计,用户表用途：存放具有查询测试结果权限的用户姓名和口令。,用于存放具有查询测试结果权限的用户姓名和口令。管理员登录时输入用户名称和登录口令后，系统将到用户表中查询是否存在输入的用户名称，如果存在则进一步判断输入的登录口令和数据库中的口令是否相同。如果正确，则显示测试结果汇总窗口，否则予以错误提示。,4、系统实现方法数据库设计,试卷表用途：保存试卷的名称、测试时间、测试结果的判定标准和相应结论内容。,为实现通用，对现有纸笔类型的心理测试进行分析，归纳出心理测试试题一般规律是通过若干选择题的测试，根据得分所在范围给出测试结论。一般的，一套试题的结论不超过8个。所以试卷表定义了8组结论，分别包括标准和内容两部分。同时考虑到某些测试对时间有所要求，因此定义了每套试卷的测试时间。,4、系统实现方法数据库设计,试卷表用途：保存试卷的名称、测试时间、测试结果的判定标准和相应结论内容。,试卷表中的试卷编号字段为主键，通过该主键与试题表连接。执行主窗口中的“系统”“开始新的测试”命令，系统显示新测试者信息对话框。其中选择试卷下拉列表的项目是通过读取试卷表的各条记录的试卷名称字段逐一添加。选择试卷后，将记录其对应的试卷编号，以便在测试窗口中显示该试卷对应的试题。,4、系统实现方法数据库设计,试题表用途：试题表与试卷表间为一对多的关系。即试卷表中的一条记录，通过试卷编号与试题表中的多条记录对应，从而形成一份试卷中的多道测试题。,每道测试题提供8个选择项。（本案例中考虑的是单选测试题的形式）使用者选择试卷后，记录其对应的试卷编号，通过该试卷编号到试题表中查询相应的记录，并在测试窗口中显示该试题的内容和对应的选择项目。,4、系统实现方法数据库设计,测试者表用途：记录测试者的信息。,执行主窗口中的“系统”“开始新的测试”命令，完成所有试题的测试后系统将测试信息保存到测试者表中，并自动为每个新测试者分配一个ID。,4、系统实现方法数据库设计,测试结果表用途：保存每个测试者所进行的测试的试卷编号和成绩。,测试结果表通过“测试者ID”字段与测试者表连接。通过“试卷编号”字段与试卷表连接。执行主窗口中的“系统”“查看测试记录”命令，系统登录对话框，成功登录后显示测试结果汇总窗口，窗口中的数据来自测试结果表的记录。,4、系统实现方法数据库设计,测试结果表用途：保存每个测试者所进行的测试的试卷编号和成绩。,测试结果表通过“测试者ID”字段与测试者表连接。通过“试卷编号”字段与试卷表连接。执行主窗口中的“系统”“查看测试记录”命令，系统登录对话框，成功登录后显示测试结果汇总窗口，窗口中的数据来自测试结果表的记录。,4、系统实现方法窗体设计,建立应用程序启动VisualBasic程序，建立“标准.EXE”项目。,4、系统实现方法窗体设计,主窗体修改窗体属性。拖动窗体右下角，调整窗体大小符合背景图像的大小。编辑主窗体菜单。,4、系统实现方法窗体设计,新测试者、测试、用户登录、显示测试记录和关于窗体添加新窗体执行“工程”菜单中的“添加窗体”命令，显示“添加窗体”对话框，选择“新建”选项卡中的“窗体”图标，单击“打开”按钮，在工程中添加一个新的窗体。修改窗体属性（参见教材）添加控件，设置控件属性、调整控件位置（参见教材）,4、系统实现方法代码编程,主窗体菜单代码,系统菜单-开始新的测试命令PrivateSubmnuStartTest_Click()以模态窗口方式显示新测试者信息窗口frmTesterInfo.Show1EndSub说明：show方法的参数1表示显示的窗体模式为模态窗体，即关闭显示窗体前对调用它的父窗体不做响应。系统菜单-查看测试记录命令PrivateSubmnuDisplayResult_Click()以模态窗口方式显示登录窗口frmLogin.Show1EndSub系统菜单-退出命令PrivateSubmnuExit_Click()结束系统EndEndSub帮助菜单-关于命令PrivateSubmnuAbout_Click()以模态窗口方式显示关于窗口frmAbout.Show1EndSub,4、系统实现方法代码编程,新测试者窗体代码通用模块,定义窗体级变量保存测试者姓名的变量PublictesterNameAsString保存测试者性别的变量PublictesterSexAsString保存测试者教育程度的变量PublictesterEduLevelAsString保存测试者籍贯的变量PublictesterBirthPlaceAsString注：本例中没有对测试者的信息做检验和保存，只是展现了复选按钮的使用方法。定义数据库连接所需要的变量。DimsConnectAsStringDimsSQLAsStringDimdfwConnAsADODB.ConnectionDimrsAsADODB.Recordset保存用户选择的试卷对应的试卷编号。PublicpaperIDAsString,4、系统实现方法代码编程,新测试者窗体代码Load事件用于初始化窗体控件的内容,PrivateSubForm_Load()AddItem用于向列表框/组合框中添加一项Me.cmbBirthPlace.AddItem北京市Me.cmbBirthPlace.AddItem天津市“定义后台数据库路径和名称DatabasePath=App.Path定义SQL查询语言sSQL=select*from试卷orderby试卷编号根据SQL查询语言,从数据库中检索相应记录,并在记录集中打开rs.OpensSQL,dfwConn,1,3,4、系统实现方法代码编程,新测试者窗体代码Load事件用于初始化窗体控件的内容,遍历记录集Fori=0Tors.RecordCount-1将记录集中的试卷名称内容添加到cmbPaper控件中Me.cmbPaper.AddItemrs.Fields(试卷名称)将记录集中的试卷编号内容添加到cmbPaperID控件中Me.cmbPaperID.AddItemrs.Fields(试卷编号)移动记录集指针,指向下一条记录rs.MoveNextNext关闭记录集rs.Close关闭连接dfwConn.CloseEndSub,4、系统实现方法代码编程,新测试者窗体代码取消按钮的Click事件从内存中卸载当前窗体,PrivateSubcmdCancel_Click()卸载本窗口UnloadMeEndSub,4、系统实现方法代码编程,新测试者窗体代码确定按钮的Click事件检验用户信息是否完整,PrivateSubcmdOK_Click()检验是否填写了测试者姓名IfMe.txtName.Text=ThenMsgBox请填写姓名,vbInformationMe.txtName.SetFocusExitSubEndIf检验是否选择了测试者性别，单选按钮的Value属性为True，表示选择，False表示未选择。IfMe.optSexFemal.Value=FalseAndMe.optSexMale.Value=FalseThenMsgBox请选择性别,vbInformationMe.optSexMale.SetFocusExitSubEndIf检验是否选择了测试者文化程度，列表框控件的ListIndex属性未-1表示未选择。IfMe.lstEduLevel.ListIndex=-1ThenMsgBox请选择文化程度,vbInformationMe.lstEduLevel.SetFocusExitSubEndIf,4、系统实现方法代码编程,新测试者窗体代码确定按钮的Click事件保存相关信息到全局变量,如果所有信息均填写或选择，则保存到相应的全局变量中。testerName=Me.txtName.TextIfMe.optSexMale.Value=TrueThentesterSex=男ElsetesterSex=女EndIf列表框中选择的项目内容保存在Text属性中，将该属性的内容保存在testerEduLevel变量中。testerEduLevel=Me.lstEduLevel.Text组合框中选择的项目内容保存在Text属性中，将该属性的内容保存在testerBirthPlace变量中。testerBirthPlace=Me.cmbBirthPlace.Text用户选择的试卷名称，可通过cmbPaper的ListIndex获得。通过读取cmbPaperID的list数组的相应项目得到用户选择的试卷名称所对应的试卷编号。保存该试卷标号到paperID变量中，以便在测试窗体中显示该试卷所包含的试题。paperID=Me.cmbPaperID.List(Me.cmbPaper.ListIndex),4、系统实现方法代码编程,新测试者窗体代码确定按钮的Click事件执行窗体切换,从内存中卸载当前窗体，注：VB中用关键字me代表当前窗体。UnloadMe从内存中卸载frmMain窗体。UnloadfrmMain加载并显示测试窗体frmTestfrmTest.ShowEndSub,4、系统实现方法代码编程,测试窗体代码通用模块定义窗体级变量,定义数据库连接所需要的变量。DimsConnectAsStringDimsSQLAsStringDimdfwConnAsADODB.ConnectionDimrsAsADODB.Recordset用于保存测试总分DimtotalScoreAsInteger用于保存每道题的8个选择项目对应的分值Dimscores(1To8)AsInteger用于保存该试卷规定的测试时间DimtestTimeAsInteger用于保存已用的测试时间DimusedTimeAsLong用于判断测试是否结束DimtestOverAsBoolean,4、系统实现方法代码编程,测试窗体代码Load事件初始化控件与变量,PrivateSubForm_Load()使用frmTesterInfo窗体的窗体级变量为当前窗体的控件赋初值Me.lblName=姓名：Password=;UserID=Admin;DataSource=定义数据库连接对象,并建立数据库连接SetdfwConn=NewConnectiondfwConn.OpensConnect定义记录集对象Setrs=NewRecordsetrs.CursorLocation=adUseClient创建SQL查询字符串,根据测试者选择的试卷编号,到试卷表中查询对应的试卷信息sSQL=select*from试卷where试卷编号=&frmTesterInfo.paperID&根据SQL查询字符串,打开记录集,返回查询结果rs.OpensSQL,dfwConn,1,3,4、系统实现方法代码编程,测试窗体代码Load事件设置控件内容,将记录集中对应的试卷名称内容显示到当前窗体的标题栏上Me.Caption=Me.Caption&-&rs.Fields(试卷名称)将记录集中测试时间字段的值赋给变量testTimetestTime=rs.Fields(测试时间)设置窗体上显示剩余时间的控件Me.lbl剩余时间.Caption=testTime&分钟设置窗体上显示已用时间的控件Me.lbl已用时间.Caption=0分钟关闭记录集rs.Close构建新的SQL查询字符串,根据试卷编号在试题表中查询对应的试题信息sSQL=select*from试题where试卷编号=&frmTesterInfo.paperID&orderby试题编号根据SQL字符串打开记录集,发挥查询结果rs.OpensSQL,dfwConn,1,3调用showQuestion自定义函数,显示试题内容showQuestionEndSub,4、系统实现方法代码编程,测试窗体代码showQuestion过程显示题目及选项,PrivateSubshowQuestion()利用lbl试题控件显示试题内容Me.lbl试题.Caption=rs.Fields(试题编号)&、&rs.Fields(试题内容)如果该题的选项A字段不为空，则利用控件Option1显示选项A，并使Option1可见，并将选项A对应的分值保存在scores数组的对应元素中。如果该选项为空，则隐藏对应控件选项B到选项H都按此方法判断和设置。Ifrs.Fields(选项A)ThenMe.Option1.Caption=rs.Fields(选项A)scores(1)=rs.Fields(选项A分值)Me.Option1.Visible=TrueElseMe.Option1.Visible=FalseEndIf设置默认选择为选项AMe.Option1.Value=TrueEndSub,4、系统实现方法代码编程,测试窗体代码开始测试按钮的Click事件设置控件状态启动计时器,PrivateSubcmdStartTest_Click()显示包含题目和选项的Frame3控件Me.Frame3.Visible=True使下一题按钮可用Me.cmdNext.Enabled=True使开始测试按钮不可用Me.cmdStartTest.Enabled=False初始化已用测试时间变量usedTime=0激活定时器,定时执行Timer1的Timer事件,显示测试时间信息Me.Timer1.Enabled=TrueEndSub,4、系统实现方法代码编程,测试窗体代码定时器Timer1的Timer事件设置控件状态启动计时器,PrivateSubTimer1_Timer()Timer1的Interval属性为1000,相对于1秒钟,因此每次执行Timer事件时将已用时间加1usedTime=usedTime+1将已用时间转换成分钟并显示,同时计算剩余时间并显示Me.lbl已用时间.Caption=Format(usedTime/60,0)&分钟Me.lbl剩余时间.Caption=Format(testTime-usedTime/60,0)&分钟如果剩余时间小于5分钟,则通过变换Frame2的背景颜色和时间信息控件的前景颜色提示测试者IftestTime-usedTime/60=rs.Fields(结论1标准)ThenMe.txtResult.Text=rs.Fields(结论1内容)EndIfIftotalScore=rs.Fields(结论2标准)ThenMe.txtResult.Text=-测试结论-&vbCrLf&vbCrLf&Me.txtResult.TextMe.txtResult.Text=Me.txtResult.Text&vbCrLf&vbCrLf&vbCrLf&-测试结论仅作参考-隐藏题目和选项所在的Frame3控件Me.Frame3.Visible=False显示测试结论所在的txtResult控件Me.txtResult.Visible=True停止测试时间计时Me.Timer1.Enabled=FalseEndSub,4、系统实现方法代码编程,测试窗体代码关闭按钮的Click事件保存测试者信息,PrivateSubcmdClose_Click()如果测试者完成了全部试题的测试，则保存测试者信息和测试结果。如果测试者没有完成全部试题的测试，由于测试时间已到结束，则为不完整测试，不保存相关信息。IftestOver=TrueThen关闭当前记录集rs.Close打开测试者表sSQL=select*from测试者rs.OpensSQL,dfwConn,1,3在测试者表中新建一条记录rs.AddNew为新记录的各个字段赋值ID字段为自动产生，其内容是当前的记录数DimtesterIDtesterID=rs.RecordCountrs.Fields(ID)=testerID姓名字段等用frmTesterInfo的窗体级变量赋值rs.Fields(姓名)=frmTesterInfo.testerNamers.Fields(性别)=frmTesterInfo.testerSexrs.Fields(文化程度)=frmTesterInfo.testerEduLevelrs.Fields(籍贯)=frmTesterInfo.testerBirthPlace更新记录集，实现新记录的保存rs.Updaters.Close,4、系统实现方法代码编程,测试窗体代码关闭按钮的Click事件保存测试结果,使用类似方法，在测试结果中建立新记录，并保存测试者ID、试卷编号和成绩。sSQL=select*from测试结果rs.OpensSQL,dfwConn,1,3rs.AddNewrs.Fields(测试者ID)=testerIDrs.Fields(试卷编号)=frmTesterInfo.paperIDrs.Fields(成绩)=totalScorers.Updaters.CloseEndIf卸载本窗体UnloadMe显示主窗体frmMain.ShowEndSub,4、系统实现方法代码编程,测试窗体代码窗体的Unload事件关闭数据库连接,PrivateSubForm_Unload(CancelAsInteger)卸载窗体时关闭后台数据库连接dfwConn.CloseEndSub,4、系统实现方法代码编程,用户登录窗体代码确定按钮的Click事件验证数据库中是否存在相应的用户名称,PrivateSubcmdOK_Click()定义变量用于保存用户输入的名称DimstrUserNameAsStringstrUserName=Me.txtUserName定义后台数据库路径和名称DatabasePath=App.Path建立SQL查询语句,，从用户表中查询姓名等于输入内容的记录sSQL=SELECT*FROM用户where姓名=&strUserName&rs.OpensSQL,dfwConn,1,3如果记录集的记录数量为0，表示没有该用户，显示提示信息。Ifrs.RecordCount=0ThenMsgBox无此用户，请重新输入！Me.txtUserName.SetFocusExitSubEndIf,4、系统实现方法代码编程,用户登录窗体代码确定按钮的Click事件验证口令是否正确,定义变量保存用户输入的口令DimstrPasswordAsStringstrPassword=txtUserPassword.Text如果输入的口令和记录集中的口令相等，则显示测试记录窗体，否则显示错误信息IfstrPassword=rs.Fields(口令)ThenUn