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

《中考信息查询系统VF程序代码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、［摘要］每年秋季各高中招生时需要查询学生的分数等相关信息，以此作为是否录取及缴费的依据。如果用excel查询不能保证分数的公正性，因为在excel表中可以随意修改信息。而vf60数据库中的分数表放在数据库里，除管理员外任何人是无法更改的。另外，只通过报名号或者考试号查询，避免了按姓名查询带来的弊端（具有唯一性）o本系统扩展后还可以作为学籍管理系统使用。［关键词］交互式查询公正快速［软件］MicrosoftVisualFoxPro6.0一、密码表：（界面）输入密码可登录查询页i=i+l&&设置变量iifi

2、<=3ifthisform.text1.value=nxyq5zzjgHmessagebox（n你可以进入系统了！”）thisform.releaseelsemessagebox（n密码错，请重新输入，只口J输入三次！”）thisform.text!.value—'Hthisform.text1.setfocusendifelsemessagebox（nXt不起，你是非法用户！请向庄家国询问！”）thisform.releaseendifdoforminputbmh&&进入查询号码表单二、输入报名号或

3、者考试号查询姓名、分数等t=o&&以其值为判断条件bmhh=alltrim(thisform.textl.value)kshh=alltrim(thisform.text2.value)*变量获得用户输入值if!empty(bmhh)and!empty(kshh)t=3elseiflempty(bmhh)t=lelseif!empty(kshh)t=2elsemessagebox(信息不全，请填写完整！)thisform.textl.setfocusreturnendifendif*检查报名号和考试号是

4、否为空。当报名号不为空而考试号为空时,t=l;*当报名号为空而考试号不为空时，t=2;都不为空时，t=3docasecaset=llocaforbmh=bmhhcaset=2locaforksh=kshhcaset=3locaforbmh=bmhhandksh=kshhendcaseiffound()a=messagebox(ni#核对以上号码如果正确，查！T+48+0昇注意!")ifa=ldoformoutallelsethisform.textl.value=HHthisform.text2.val

5、ue=nnthisform.textl.setfocuselsemessagebox(n对不起，没有该记录，请重新输入！”)thisform.textl.value=nHthisform.text2.value=thisform.textl.setfocusendif三、查询传递表：Form的int程序iffound()ifbmh=bmhhthisform.textl.value二bmhthisform.text2.value=kshthisform.text3.value=xmthisform.tex

6、t4.value=zflthisform.text5.value=zf3thisform.text6.value=zxdmthisform.text7.value=jtzzelseifksh=kshhthisform.textl.value=bmhthisform.text2.value=kshthisform.text3.value=xmthisform.text4.value=zflthisform.text5.value=zf3thisform.text6.value=zxdmthisform.t

7、ext7.value=jtzzendifendifendif!1!打印表:查询正确后打印t=0&&以其值为判断条件bmhh=alltrim(thisform>textl>value)kshh=alltrim(thisform.text2.value)*变量获得用户输入值if!empty(bmhh)andlempty(kshh)t=3iflempty(bmhh)t=lif!empty(kshh)t=2elsemessagebox(信息不全，请填写完整！)thisform.textl.setfocusret

8、urnendifendifendif*检查报名号和考试号是否为空。当报名号不为空而考试号为空时,t=l;*当报名号为空而考试号不为空时，t=2;都不为空时，t=3docasecaset=llocaforbmh=bmhhcaset=2locaforksh=kshhcaset=3locaforbmh=bmhhandksh=kshhendcaseiffound()a=messagebox(n打印吗？ifa=ldoformdallistfields