中考信息查询系统VF程序代码.docx

中考信息查询系统VF程序代码

第一篇：中考信息查询系统VF程序代码中考信息查询系统中考信息查询系统VF程序代码程序设计：襄阳区五中庄家国[摘要]每年秋季各高中招生时需要查询学生的分数等相关信息，以此作为是否录取及缴费的依据。如果用excel查询不能保证分数的公正性，因为在excel表中可以随意修改信息。而vf60数据库中的分数表放在数据库里，除管理员外任何人是无法更改的。另外，只通过报名号或者考试号查询，避免了按姓名查询带来的弊端（具有唯一性）。本系统扩展后还可以作为学籍管理系统使用。[关键词]交互式查询公正快速［软件］MicrosoftVisualFoxPro6.0一、密码表：（界面）输入密码可登录查询页i=i+1&&设置变量iifiifthisform.text1.value=“xyq5zzjg”messagebox(“你可以进入系统了！”)thisform.releaseelsemessagebox(“密码错，请重新输入，只可输入三次！”)thisform.text1.value=“"thisform.text1.setfocusendif中考信息查询系统elsemessagebox(”对不起，你是非法用户！请向庄家国询问！“)thisform.releaseendifdoforminputbmh&&进入查询号码表单二、输入报名号或者考试号查询姓名、分数等t=0&&以其值为判断条件bmhh=alltrim(thisform.text1.value)kshh=alltrim(thisform.text2.value)*变量获得用户输入值if!empty(bmhh)and!empty(kshh)t=3elseif!empty(bmhh)t=1elseif!empty(kshh)t=2elsemessagebox(信息不全，请填写完整！)thisform.text1.setfocusreturn中考信息查询系统endifendifendif*检查报名号和考试号是否为空。当报名号不为空而考试号为空时，t=1;*当报名号为空而考试号不为空时，t=2;都不为空时，t=3docasecaset=1locaforbmh=bmhhcaset=2locaforksh=kshhcaset=3locaforbmh=bmhhandksh=kshhendcaseiffound()a=messagebox(”请核对以上号码，如果正确，查！“,1+48+0,”注意!“)ifa=1doformoutallelsethisform.text1.value=”“thisform.text2.value=”“thisform.text1.setfocus中考信息查询系统endifelsemessagebox(”对不起，没有该记录，请重新输入！“)thisform.text1.value=”“thisform.text2.value=”“thisform.text1.setfocusendif三、查询传递表：Form的int程序iffound()ifbmh=bmhhthisform.text1.value=bmhthisform.text2.value=kshthisform.text3.value=xmthisform.text4.value=zf1thisform.text5.value=zf3thisform.text6.value=zxdmthisform.text7.value=jtzzelseifksh=kshhthisform.text1.value=bmhthisform.text2.value=ksh中考信息查询系统thisform.text3.value=xmthisform.text4.value=zf1thisform.text5.value=zf3thisform.text6.value=zxdmthisform.text7.value=jtzzendifendifendif四、打印表：查询正确后打印t=0&&以其值为判断条件bmhh=alltrim(thisform.text1.value)kshh=alltrim(thisform.text2.value)*变量获得用户输入值if!empty(bmhh)and!empty(kshh)t=3elseif!empty(bmhh)t=1elseif!empty(kshh)t=2中考信息查询系统elsemessagebox(信息不全，请填写完整！)thisform.text1.setfocusreturnendifendifendif*检查报名号和考试号是否为空。当报名号不为空而考试号为空时，t=1;*当报名号为空而考试号不为空时，t=2;都不为空时，t=3docasecaset=1loc