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

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,附录,通用心理测试系统的设计和开发,系统需求分析,1,系统流程图,2,系统设计思路,3,系统实现方法,4,1,、系统需求分析,意义：,人的心理特性是不能被直接观察到的，而且还存在着明显的个体差异，但是任何一种心理特性总会以一定的行为表现出来。,心理测验就是让人们在测验时产生某些行为，即个体对测验题目的反应，并根据这些行为反应来推论其相应的心理特性。在一定程度上有助于我们了解人类的心理活动，并从中得到帮助。,例如在现实生活领域，心理测验可以帮助评价个人的智力水平和了解个性特征；可以用于对各种智能缺陷、精神疾病和脑功能障碍的临床诊断；可以为特殊人才的选拔提供参考；心理测验结合心理咨询有助于消除情绪困扰和人格障碍，提高生活品质,。,1,、系统需求分析,现状分析：,传统的纸笔测试方法操作烦琐，人工结果统计费时费力，还可能存在计算错误的可能性，而且不利于对测试情况做到汇总分析。因此需要开发一套科学、灵活、易用的通用心理测试系统，能够进行多种类型的心理测试，界面友好，操作简单，能够自动计算分数，实现数据存档和查询功能。,1,、系统需求分析,通用心理测试系统设计的具体要求包括：,1.,高效地录入和保存信息。,例如测试者的姓名、性别、籍贯、学历数据等。,2.,方便地完成测试过程，并保证测试的客观性,.,如自动计时、自动汇总统计结果等。,3.,实现多次测试结果的汇总。,4.,实现基于数据库的电子化信息管理。,5.,具有较强的扩充性，能够适应新的测试内容变化要求等。,2,、系统流程图,通用心理测试系统的使用者包括两类，测试者和管理员。,对于每个新的测试者而言，需要录入其姓名、性别、文化程度等基本信息，然后开始测试，完成所有题目或测试时间到后，显示其测试结果，并把测试结果自动保存到数据库中。,对于管理员而言，需要通过口令进行登录，然后可以从数据库中汇总测试结果等操作。,测试者登录,开始测试,显示结果,存储结果,管理员登录,测试结果汇总,数据库,3,、系统设计思路,界面设计,通用心理测试系统的应用程序界面,即,MVC,模型中的,View,。,包括主窗体、关于窗体、新测试者基本信息录入窗体、显示测试题目并作答窗体、显示测试结果窗体、管理员登录窗体和测试结果汇总窗体等界面。,V,0,主窗口,V1,关于窗口,V2,新测试者信息窗口,V3,测试窗口,V4,显示测试结果窗口,主窗口菜单：,V5,登录窗口,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,、系统实现方法,窗体设计,建立应用程序,启动,Visual Basic,程序，建立“标准,.EXE,”项目。,4,、系统实现方法,窗体设计,主窗体,修改窗体属性。,拖动窗体右下角，调整窗体大小符合背景图像的大小。,编辑主窗体菜单。,4,、系统实现方法,窗体设计,新测试者、测试、用户登录、显示测试记录和关于窗体,添加新窗体,执行“工程”菜单中的“添加窗体”命令，显示“添加窗体”对话框，选择“新建”选项卡中的“窗体”图标，单击“打开”按钮，在工程中添加一个新的窗体。,修改窗体属性（参见教材）,添加控件，设置控件属性、调整控件位置（参见教材）,4,、系统实现方法,代码编程,主窗体菜单代码,系统菜单,-,开始新的测试命令,Private Sub mnuStartTest_Click(),以模态窗口方式显示新测试者信息窗口,frmTesterInfo.Show 1,End Sub,说明：,show,方法的参数,1,表示显示的窗体模式为模态窗体，即关闭显示窗体前对调用它的父窗体不做响应。,系统菜单,-,查看测试记录命令,Private Sub mnuDisplayResult_Click(),以模态窗口方式显示登录窗口,frmLogin.Show 1,End Sub,系统菜单,-,退出命令,Private Sub mnuExit_Click(),结束系统,End,End Sub,帮助菜单,-,关于命令,Private Sub mnuAbout_Click(),以模态窗口方式显示关于窗口,frmAbout.Show 1,End Sub,4,、系统实现方法,代码编程,新测试者窗体代码,通用模块,定义窗体级变量,保存测试者姓名的变量,Public testerName As String,保存测试者性别的变量,Public testerSex As String,保存测试者教育程度的变量,Public testerEduLevel As String,保存测试者籍贯的变量,Public testerBirthPlace As String,注：本例中没有对测试者的信息做检验和保存，只是展现了复选按钮的使用方法。,定义数据库连接所需要的变量。,Dim sConnect As String,Dim sSQL As String,Dim dfwConn As ADODB.Connection,Dim rs As ADODB.Recordset,保存用户选择的试卷对应的试卷编号。,Public paperID As String,4,、系统实现方法,代码编程,新测试者窗体代码,Load,事件,用于初始化窗体控件的内容,Private Sub Form_Load(),AddItem,用于向列表框,/,组合框中添加一项,Me.cmbBirthPlace.AddItem,北京市,Me.cmbBirthPlace.AddItem,天津市“,定义后台数据库路径和名称,DatabasePath=App.Path&,DatabaseName=test.mdb,建立与数据库的连接字符串,sConnect=Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=,定义,SQL,查询语言,sSQL=select*from,试卷,order by,试卷编号,根据,SQL,查询语言,从数据库中检索相应记录,并在记录集中打开,rs.Open sSQL,dfwConn,1,3,4,、系统实现方法,代码编程,新测试者窗体代码,Load,事件,用于初始化窗体控件的内容,遍历记录集,For i=0 To rs.RecordCount-1,将记录集中的试卷名称内容添加到,cmbPaper,控件中,Me.cmbPaper.AddItem rs.Fields(,试卷名称,),将记录集中的试卷编号内容添加到,cmbPaperID,控件中,Me.cmbPaperID.AddItem rs.Fields(,试卷编号,),移动记录集指针,指向下一条记录,rs.MoveNext,Next,关闭记录集,rs.Close,关闭连接,dfwConn.Close,End Sub,4,、系统实现方法,代码编程,新测试者窗体代码,取消按钮的,Click,事件,从内存中卸载当前窗体,Private Sub cmdCancel_Click(),卸载本窗口,Unload Me,End Sub,4,、系统实现方法,代码编程,新测试者窗体代码,确定按钮的,Click,事件,检验用户信息是否完整,Private Sub cmdOK_Click(),检验是否填写了测试者姓名,If Me.txtName.Text=Then,MsgBox,请填写姓名,vbInformation,Me.txtName.SetFocus,Exit Sub,End If,检验是否选择了测试者性别，单选按钮的,Value,属性为,True,，表示选择，,False,表示未选择。,If Me.optSexFemal.Value=False And Me.optSexMale.Value=False Then,MsgBox,请选择性别,vbInformation,Me.optSexMale.SetFocus,Exit Sub,End If,检验是否选择了测试者文化程度，列表框控件的,ListIndex,属性未,-1,表示未选择。,If Me.lstEduLevel.ListIndex=-1 Then,MsgBox,请选择文化程度,vbInformation,Me.lstEduLevel.SetFocus,Exit Sub,End If,4,、系统实现方法,代码编程,新测试者窗体代码,确定按钮的,Click,事件,保存相关信息到全局变量,如果所有信息均填写或选择，则保存到相应的全局变量中。,testerName=Me.txtName.Text,If Me.optSexMale.Value=True Then,testerSex=,男,Else,testerSex=,女,End If,列表框中选择的项目内容保存在,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,代表当前窗体。,Unload Me,从内存中卸载,frmMain,窗体。,Unload frmMain,加载并显示测试窗体,frmTest,f,rmTest.Show,End Sub,4,、系统实现方法,代码编程,测试窗体代码,通用模块,定义窗体级变量,定义数据库连接所需要的变量。,Dim sConnect As String,Dim sSQL As String,Dim dfwConn As ADODB.Connection,Dim rs As ADODB.Recordset,用于保存测试总分,Dim totalScore As Integer,用于保存每道题的,8,个选择项目对应的分值,Dim scores(1 To 8)As Integer,用于保存该试卷规定的测试时间,Dim testTime As Integer,用于保存已用的测试时间,Dim usedTime As Long,用于判断测试是否结束,Dim testOver As Boolean,4,、系统实现方法,代码编程,测试窗体代码,Load,事件,初始化控件与变量,Private Sub Form_Load(),使用,frmTesterInfo,窗体的窗体级变量为当前窗体的控件赋初值,Me.lblName=,姓名：,&frmTesterInfo.testerName,Me.lblSex=,性别：,&frmTesterInfo.testerSex,Me.lblEduLevel=,文化程度：,&frmTesterInfo.testerEduLevel,Me.lblBirthPlace=,籍贯：,&frmTesterInfo.testerBirthPlace,隐藏测试结论显示所用的文本框控件,Me.txtResult.Visible=False,隐藏显示试题的,Frame,控件,Me.Frame3.Visible=False,初始化总分变量,为,0,totalScore=0,定义后台数据库路径,DatabasePath=App.Path&,DatabaseName=test.mdb“,4,、系统实现方法,代码编程,测试窗体代码,Load,事件,连接数据库,定义数据库连接字符串,sConnect=Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=,定义数据库连接对象,并建立数据库连接,Set dfwConn=New Connection,dfwConn.Open sConnect,定义记录集对象,Set rs=New Recordset,rs.CursorLocation=adUseClient,创建,SQL,查询字符串,根据测试者选择的试卷编号,到试卷表中查询对应的试卷信息,sSQL=select*from,试卷,where,试卷编号,=&frmTesterInfo.paperID&,根据,SQL,查询字符串,打开记录集,返回查询结果,rs.Open sSQL,dfwConn,1,3,4,、系统实现方法,代码编程,测试窗体代码,Load,事件,设置控件内容,将记录集中对应的试卷名称内容显示到当前窗体的标题栏上,Me.Caption=Me.Caption&-&rs.Fields(,试卷名称,),将记录集中测试时间字段的值赋给变量,testTime,testTime=rs.Fields(,测试时间,),设置窗体上显示剩余时间的控件,Me.lbl,剩余时间,.Caption=testTime&,分钟,设置窗体上显示已用时间的控件,Me.lbl,已用时间,.Caption=0,分钟,关闭记录集,rs.Close,构建新的,SQL,查询字符串,根据试卷编号在试题表中查询对应的试题信息,sSQL=select*from,试题,where,试卷编号,=&frmTesterInfo.paperID&order by,试题编号,根据,SQL,字符串打开记录集,发挥查询结果,rs.Open sSQL,dfwConn,1,3,调用,showQuestion,自定义函数,显示试题内容,showQuestion,End Sub,4,、系统实现方法,代码编程,测试窗体代码,showQuestion,过程,显示题目及选项,Private Sub showQuestion(),利用,lbl,试题控件显示试题内容,Me.lbl,试题,.Caption=rs.Fields(,试题编号,)&,、,&rs.Fields(,试题内容,),如果该题的选项,A,字段不为空，则利用控件,Option1,显示选项,A,，并使,Option1,可见，并将选项,A,对应的分值保存在,scores,数组的对应元素中。,如果该选项为空，则隐藏对应控件,选项,B,到选项,H,都按此方法判断和设置。,If rs.Fields(,选项,A)Then,Me.Option1.Caption=rs.Fields(,选项,A),scores(1)=rs.Fields(,选项,A,分值,),Me.Option1.Visible=True,Else,Me.Option1.Visible=False,End If,设置默认选择为选项,A,Me.Option1.Value=True,End Sub,4,、系统实现方法,代码编程,测试窗体代码,开始测试按钮的,Click,事件,设置控件状态,启动计时器,Private Sub cmdStartTest_Click(),显示包含题目和选项的,Frame3,控件,Me.Frame3.Visible=True,使下一题按钮可用,Me.cmdNext.Enabled=True,使开始测试按钮不可用,Me.cmdStartTest.Enabled=False,初始化已用测试时间变量,usedTime=0,激活定时器,定时执行,Timer1,的,Timer,事件,显示测试时间信息,Me.Timer1.Enabled=True,End Sub,4,、系统实现方法,代码编程,测试窗体代码,定时器,Timer1,的,Timer,事件,设置控件状态,启动计时器,Private Sub Timer1_Timer(),Timer1,的,Interval,属性为,1000,相对于,1,秒钟,因此每次执行,Timer,事件时将已用时间加,1,usedTime=usedTime+1,将已用时间转换成分钟并显示,同时计算剩余时间并显示,Me.lbl,已用时间,.Caption=Format(usedTime/60,0)&,分钟,Me.lbl,剩余时间,.Caption=Format(testTime-usedTime/60,0)&,分钟,如果剩余时间小于,5,分钟,则通过变换,Frame2,的背景颜色和时间信息控件的前景颜色提示测试者,If testTime-usedTime/60 5 Then,Me.lbl,剩余时间,.ForeColor=vbRed,Me.Frame2.BackColor=QBColor(Int(Rnd()*15)+1),Me.lbl,已用时间,.ForeColor=RGB(0,255,0),Me.Label5.ForeColor=&HFF0000,End If,如果测试时间到，提示测试者,If testTime-usedTime/60 0 Then,已到记录集的最后,则返回最后一题,rs.MoveLast,禁用下一题按钮,Me.cmdNext.Enabled=False,使查看结果按钮可用,Me.cmdShowResult.Enabled=True,设置测试结束变量为,True,testOver=True,提示测试者查看结果,MsgBox,您已经完成了全部测试题，单击查看结果显示测试结论,vbInformation,退出子过程,Exit Sub,End If,如果没有到达记录集的最后,则调用,showQuestion,子过程,根据当前记录的内容显示新的题目及选项。,showQuestion,End Sub,4,、系统实现方法,代码编程,测试窗体代码,查看结果按钮的,Click,事件,根据得分显示结论,停止计时,Private Sub cmdShowResult_Click(),关闭当前显示题目的记录集,rs.Close,重新建立,SQL,查询字符串,用于从试卷库中查询相应试卷编号的记录,sSQL=select*from,试卷,where,试卷编号,=&frmTesterInfo.paperID&,rs.Open sSQL,dfwConn,1,3,根据测试总分所在的范围,显示对应的结论,If totalScore=rs.Fields(,结论,1,标准,)Then,Me.txtResult.Text=rs.Fields(,结论,1,内容,),End If,If totalScore=rs.Fields(,结论,2,标准,)Then,Me.txtResult.Text=-,测试结论,-&vbCrLf&vbCrLf&Me.txtResult.Text,Me.txtResult.Text=Me.txtResult.Text&vbCrLf&vbCrLf&vbCrLf&-,测试结论仅作参考,-,隐藏题目和选项所在的,Frame3,控件,Me.Frame3.Visible=False,显示测试结论所在的,txtResult,控件,Me.txtResult.Visible=True,停止测试时间计时,Me.Timer1.Enabled=False,End Sub,4,、系统实现方法,代码编程,测试窗体代码,关闭按钮的,Click,事件,保存测试者信息,Private Sub cmdClose_Click(),如果测试者完成了全部试题的测试，则保存测试者信息和测试结果。如果测试者没有完成全部试题的测试，由于测试时间已到结束，则为不完整测试，不保存相关信息。,If testOver=True Then,关闭当前记录集,rs.Close,打开测试者表,sSQL=select*from,测试者,rs.Open sSQL,dfwConn,1,3,在测试者表中新建一条记录,rs.AddNew,为新记录的各个字段赋值,ID,字段为自动产生，其内容是当前的记录数,Dim testerID,testerID=rs.RecordCount,rs.Fields(ID)=testerID,姓名字段等用,frmTesterInfo,的窗体级变量赋值,rs.Fields(,姓名,)=frmTesterInfo.testerName,rs.Fields(,性别,)=frmTesterInfo.testerSex,rs.Fields(,文化程度,)=frmTesterInfo.testerEduLevel,rs.Fields(,籍贯,)=frmTesterInfo.testerBirthPlace,更新记录集，实现新记录的保存,rs.Update,rs.Close,4,、系统实现方法,代码编程,测试窗体代码,关闭按钮的,Click,事件,保存测试结果,使用类似方法，在测试结果中建立新记录，并保存测试者,ID,、试卷编号和成绩。,sSQL=select*from,测试结果,rs.Open sSQL,dfwConn,1,3,rs.AddNew,rs.Fields(,测试者,ID)=testerID,rs.Fields(,试卷编号,)=frmTesterInfo.paperID,rs.Fields(,成绩,)=totalScore,rs.Update,rs.Close,End If,卸载本窗体,Unload Me,显示主窗体,frmMain.Show,End Sub,4,、系统实现方法,代码编程,测试窗体代码,窗体的,Unload,事件,关闭数据库连接,Private Sub Form_Unload(Cancel As Integer),卸载窗体时关闭后台数据库连接,dfwConn.Close,End Sub,4,、系统实现方法,代码编程,用户登录窗体代码,确定按钮的,Click,事件,验证数据库中是否存在相应的用户名称,Private Sub cmdOK_Click(),定义变量用于保存用户输入的名称,Dim strUserName As String,strUserName=Me.txtUserName,定义后台数据库路径和名称,DatabasePath=App.Path&,DatabaseName=test.mdb,sConnect=Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=,建立,SQL,查询语句,，从用户表中查询姓名等于输入内容的记录,sSQL=SELECT*FROM,用户,where,姓名,=&strUserName&,rs.Open sSQL,dfwConn,1,3,如果记录集的记录数量为,0,，表示没有该用户，显示提示信息。,If rs.RecordCount=0 Then,MsgBox,无此用户，请重新输入！,Me.txtUserName.SetFocus,Exit Sub,End If,4,、系统实现方法,代码编程,用户登录窗体代码,确定按钮的,Click,事件,验证口令是否正确,定义变量保存用户输入的口令,Dim strPassword As String,strPassword=txtUserPassword.Text,如果输入的口令和记录集中的口令相等，则显示测试记录窗体，否则显示错误信息,If strPassword=rs.Fields(,口令,)Then,Unload Me,frmDisplayResult.Show,Else,MsgBox,口令错误，请重新输入！,Me.txtUserPassword.SetFocus,End If,关闭记录集和数据库连接,rs.Close,dfwConn.Close,End Sub,4,、系统实现方法,代码编程,用户登录窗体代码,取消按钮的,Click,事件,卸载当前窗口,Private Sub cmdExit_Click(),卸载当前窗体,Unload Me,End Sub,4,、系统实现方法,代码编程,显示测试记录窗体代码,窗体的,Load,事件,用,MSHFlexGrid,显示记录集内容,Private Sub Form_Load(),DatabasePath=App.Path&,DatabaseName=test.mdb,sConnect=Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=,Set dfwConn=New Connection,dfwConn.Open sConnect,Set rs=New Recordset,rs.CursorLocation=adUseClient,sSQL=SELECT,测试结果,.,试卷编号,测试者,.,姓名,测试者,.,性别,测试者,.,文化程度,测试者,.,籍贯,测试结果,.,成绩,FROM,测试者,INNER JOIN,测试结果,ON,测试者,.ID=,测试结果,.,测试者,ID,rs.Open sSQL,dfwConn,1,3,绑定,MSHFlexGrid1,数据源为记录集,实现记录集内容的显示,Set Me.MSHFlexGrid1.DataSource=rs,End Sub,4,、系统实现方法,代码编程,关于窗体代码,窗体的,Load,事件,显示版权等信息,Private Sub Form_Load(),Me.Caption=,关于,&App.Title,lblVersion.Caption=,版本,&App.Major&.&App.Minor&.&App.Revision,lblTitle.Caption=App.Title,End Sub,代码中的,App,对象作为,VB,内置的对象，表示应用程序运行时的实例。,App.Title,表示应用程序的标题。,App,对象的属性设置可以通过“工程”菜单的“工程,1,属性”命令，打开“工程属性”对话框进行设置。,在该对话框中“通用”选项卡中，设置“工程名称”为“通用心理测试系统”,在“生成”选项卡中，设置“标题”为“通用心理测试系统”。,4,、系统实现方法,生成可执行文件,执行“文件”菜单中的“生成工程”命令，编译生成可脱离,VB,集成开发环境的,EXE,文件。,小 结,小 结,通用心理测试系统的设计和开发,系统需求分析,意义,现状,具体要求,系统流程图,系统设计思路,界面设计思路,代码设计思路,数据库设计思路,系统实现方法,数据库设计,窗体设计,代码编程,生成执行文件,测试者登录,开始测试,显示结果,存储结果,管理员登录,测试结果汇总,数据库,