Visual FoxPro考试模拟系统编写.doc

Visual FoxPro考试系统制作一、 表的设计本系统共有5个表组成，分别为学生表、判断题、单选题、多选题和填空题。1、学生表(两个字段:学号、姓名)，其中有5个考生的学号和姓名。表的结构： 表的内容：2、判断题（三个字段：题目、考生答案、标准答案），其中有10道判断题。表的结构： 表的内容：3、单选题（三个字段：详情参考判断题），其中有10道单选题。4、多选题（九个字段：题目、考生1、考生2、考生3、考生4、标准1、标准2、标准3、标准4），10题。表的结构：表的内容：5、填空题（三个字段：详情参考判断题），10题。二、表单的设计1、登录界面：主要功能是核对学号输入是否正确，如学号不属于表中的内容，则显示“你无权使用该系统！”如两次输入的学号不同，则显示“学号输入不符。”（1）涉及的主要属性为：caption、borderstyle、picture、autosize、backstyle（2）事件代码：1）timer的timer事件(为实现文字的闪动) thisform.Label4.left=thisform.Label4.Left + 3If thisform. Label4.Left = thisform. Width thisform.Label4.Left = -thisform.Label4.WidthEndIfIf thisform.Label4.ForeColor = rgb(105,55,250) Then thisform.Label4.ForeColor = rgb(0,255,0)Else thisform.Label4.ForeColor = rgb(105,55,250)EndIf2）text2的valide事件(实现输入不同学号时的不同效果)if alltrim(thisform.text1.value)=alltrim(thisform.text2.value)locate for alltrim(thisform.text1.value)=alltrim(学生.学号)if !found()messagebox(你无权使用该系统！)thisform.text1.value=thisform.text2.value= thisform.text3.value= mand1.enabled=.f.elsethisform.text3.enabled=.t.thisform.text3.value=alltrim(学生.姓名)mand1.enabled=.t.endifelsemessagebox(学号输入不符)thisform.text1.value=thisform.text2.value= thisform.text3.value= mand1.enabled=.f.endif3）command1中的click事件（实现登录）do form 5-过渡thisform.hide4）command2中的click事件（退出系统）Thisform.release2、欢迎登录界面：此界面共有4个命令按钮主成，考生可以选择“进入考试系统”进行答题，用户可以点“修改题库”进行题目的添加和删除，但首先会有一个密码验证，只有输入正确的密码才能进入题目修改页面。按“返回”按钮可以返回登录界面。点击“退出”则退出本系统。（1）涉及的主要属性为：caption、borderstyle、picture、autosize（2）事件代码：1）command1中的click事件（单击进入考试系统）thisform.hidedo form 2-考试系统2）command2中的click事件（进入密码验证）do form 3-密码验证thisform.hide3）command3中的click事件（返回登录界面）4）command4中的click事件（退出本界面）：Thisform.release3、考试系统界面：此界面是以页框为容器的，有4个pagecount，你可以自行选择题型进行答题，打完后单击得分便可知本大题的考试结果。其中单击第一个activepage上的返回按钮便可返回“欢迎登录界面”。（1）涉及的主要属性为：caption、borderstyle、picture、autosize、backstyle、controlsource（2）事件代码：1）commandgroup中的click事件select 判断题do casecase this.value=1go mand1.enabled=.f. mand2.enabled=.mand3.enabled=.mand4.enabled=.t.case this.value=2 and !bof()skip -1if bof()mand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.t.case this.value=3 and !eof()skipif eof()mand3.enabled=.mand4.enabled=.mand1.enabled=.mand2.enabled=.t.case this.value=4go mand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.f.case this.value=5 thisform.releasecase this.value=6s=0scanif 判断题.考生答案=判断题.标准答案 s=s+1endifendscanmessagebox(本大题共10小题，每小题1分，你的得分为：+alltrim(str(s)+分。)replace all 考生答案 with go topthisform.refreshendcasethisform.refresh2）command1的click事件thisform.hidedo form 5-过渡注意:要在此表单中添加数据环境，并对grid控件和optiongroup控件进行controlsource的属性设置，使之与表中的相关字段相连。4、密码验证界面：此表单的主要功能是进行密码验证，当用户输入正确密码12345时，即可进入修改题目的表单添加或删除题目。（1）涉及的主要属性为：caption、borderstyle、picture、autosize、backstyle、password（2）事件代码：1）command1的click事件（进入修改题目界面）if val(thisform.text1.value)=12345do form 4-修改题目thisform.hideelsemessagebox(你无权更改题目！,48+0,信息提示)endif2）command2的click事件(返回“欢迎登录界面”)thisform.hidedo form 5-过渡5、修改题目界面：表单中的grid控件是从数据环境直接拖过来的，与表直接关联，主要功能是可以让用户自行添加和删除题目以更新题库。（1）涉及的主要属性为：caption、borderstyle、picture、autosize、backstyle、controlsource（2）事件代码：1）command1的click事件：Append；2）command2的click事件：delete；3）command3的click事件：Thisform.release三、使用说明1.登录：两次输入相同的学号，在核实学号时敲回车，会自动显示相关姓名。例：输入001，显示漏玉燕。然后点击马上登陆进入“欢迎进入界面”。你也可以选择退出本系统。2.选择登录目的：单击“进入考