VisualFoxPro考试模拟系统编写.docxVIP

Visual Fox Pro考试系统制作 ?/VFP^试丟S-S录 欢迎使用本系统! 輪入学号: OCl OCl 马上登录 一、 表的设计 本系统共有5个表组成，分别为学生表、判断题、单选题、多选题和填空题。 1、学生表（两个字段：学号、姓名），其中有5个考生的学号和姓名。 表的结构： 表的内容: 怎诚廿器学生.dbf C 爭段1乗引1 S 1 宇段名 类a 趣小劉4數素引 皿 请定 t 1学弓 1序苻型 * IIO ：1 1 ^l J - 姓名 宇般 10 1 1 車洞I 插入怕I 删除迦I 2、判断题 表的结构： （三个字段：题目、考生答案、标准答案） ，其中有 [:/去邀计耳- ^ef^.dbf Ml 学生 匸 口r □ 1 学号 n ■ 001 ■漏玉燕 002 !錢旌 003 isjisa 004 !林榆 005 i张山 L J 厂 10道判断题。 乎段I勰11襄I tJ|Si| I I留庄型 子哥型字符型 宽度小数te数弄引 I -I I 确定 題目I考生ggq标唯答案I M^mo I 怖 血 zJnJjd \\r jT -!□! xj :晟心文g J jj I I I ，i” T [ 上厂 3、 单选题 4、 多选题 表的结构: （三个字段：详情参考判断题），其中有10道单选题。 （九个字段：题目、考生 1、考生2、考生 表的内容： 3、考生4、 标准1标准2、标准3、标准4）, 10题。 F表谡廿藩鸟1 素引 MVU, 諷1索引 宇段名 ］表1 类毘 觅厘小数虚数 t 呻1 1备注型 1 -1 J - 老生1 卿型 — 君生E 考生3 卿型 考生4 逹掘型 — 翻型 口回冈 口回冈 m Memo; 7 \Y \7 If It Memo E :F Jf :F :F JF :T Hemo F [f \T :F [T ■ Memo F :F :F It :F ；F ■： F Memo F .：F. jF :T [f ；T .It. Hemo F ;F It ;T It ■ ]F Memo F If :T :T ■ Memo F ；T ；F 汀 \ ■ Hemo F If iF iT iF iF Memo F :F :F Jf :T ■： F 宰选题 5、填空题（三个字段：详情参考判断题），10题。 二、表单的设计 ”如两次1、登录界面：主要功能是核对学号输入是否正确，如学号不属于表中的内容，则显示“你无权使用该系统! 输入的学号不同，则显示“学号输入不符。 ” ”如两次 迎使用本系统H Tajttl 马上登录■八* 马上登录 ■八* 退出 ［十丁一*■尹彎腳㈱ caption、 caption、borderstyle、picture、autosize、backstyle 事件代码： 1)timer的timer事件(为实现文字的闪动) thisform.Label4.left=thisform. Label4.Left + 3 If thisform. Label4.Left = thisform. Width thisform Label4.Left = -thisform.Label4.Width EndIf If thisform.Label4.ForeColor = rgb(105,55,250) Then thisform 丄 abel4.ForeColor = rgb(0,255,0) Else thisform Label4.ForeColor = rgb(105,55,250) Endif 2)text2的valide事件(实现输入不同学号时的不同效果 ) if alltnm(thisform.text1.value)==alltnm(thisform.text2.value) locate for alltrim(thisform.text1.value)=alltrim( 学生.学号) ”)if !fou nd() messagebox(你无权使用该系统! thisform.text1.value= thisform.text2.value= ”) thisform.text3.value= ma nd1.e nabled=.f. else thisform.text3.e nabled=.t. thisform.text3.value=alltrim(学生.姓名) ma nd1.e nabled=.t. en dif else messagebox(学号输入不符) thisform.text1.value= thisform.text2.value= thisform.text3.value= ma nd1.e nabled=.f. en dif 3） command1中的click事件（