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

4、系统实现方法——代码编程新测试者窗体代码通用模块定义窗体级变量保存测试者姓名的变量PublictesterNameAsString保存测试者性别的变量PublictesterSexAsString保存测试者教育程度的变量PublictesterEduLevelAsString保存测试者籍贯的变量PublictesterBirthPlaceAsString注：本例中没有对测试者的信息做检验和保存，只是展现了复选按钮的使用方法。定义数据库连接所需要的变量。DimsConnectAsStringDimsSQLAsStringDimdfwConnAsADODB.ConnectionDimrsAsADODB.Recordset保存用户选择的试卷对应的试卷编号。PublicpaperIDAsString4、系统实现方法——代码编程新测试者窗体代码Load事件用于初始化窗体控件的内容PrivateSubForm_Load()AddItem用于向列表框/组合框中添加一项北京市天津市“……定义后台数据库路径和名称DatabasePath=App.Path\DatabaseName=test.mdb?建立与数据库的连接字符串sConnect=Provider=Microsoft.Jet.OLEDB.4.0;Password=;UserID=Admin;DataSource=DatabasePathDatabaseName;……定义SQL查询语言sSQL=select*from试卷orderby试卷编号?根据SQL查询语言,从数据库中检索相应记录,并在记录集中打开rs.OpensSQL,dfwConn,1,3?……4、系统实现方法——代码编程新测试者窗体代码Load事件用于初始化窗体控件的内容……?遍历记录集Fori=0Tors.RecordCount-1将记录集中的试卷名称内容添加到cmbPaper控件中rs.Fields(试卷名称)将记录集中的试卷编号内容添加到cmbPaperID控件中rs.Fields(试卷编号)移动记录集指针,指向下一条记录rs.MoveNextNext?关闭记录集rs.Close?关闭连接dfwConn.Close?EndSub新测试者窗体代码取消按钮的Click事件从内存中卸载当前窗体PrivateSubcmdCancel_Click()卸载本窗口UnloadMeEndSub4、系统实现方法——代码编程4、系统实现方法——代码编程新测试者窗体代码确定按钮的Click事件检验用户信息是否完整PrivateSubcmdOK_Click()检验是否填写了测试者姓名If=ThenMsgBox请填写姓名,vbInformationExitSubEndIf?检验是否选择了测试者性别，单选按钮的Value属性为True，表示选择，False表示未选择。If=FalseAnd=FalseThenMsgBox请选择性别,vbInformationExitSubEndIf?检验是否选择了测试者文化程度，列表框控件的ListIndex属性未-1表示未选择。If=-1ThenMsgBox请选择文化程度,vbInformationExitSubEndIf?……4、系统实现方法——代码编程新测试者窗体代码确定按钮的Click事件保存相关信息到全局变量如果所有信息均填写或选择，则保存到相应的全局变量中。testerName=?If=TrueThentesterSex=男ElsetesterSex=女EndIf?列表框中选择的项目内容保存在Text属性中，将该属性的内容保存在testerEduLevel变量中。testerEduLevel=?组合框中选择的项目内容保存在Text属性中，将该属性的内容保存在testerBirthPlace变量中。testerBirthPlace=?用户选择的试卷名称，可通过cmbPaper的ListIndex获得。通过读取cmbPaperID的list数组的相应项目得到用户选择的试卷名称所对应的试