VFP设计学生成绩管理系统

6.3查询功能模块查询功能可以按学校、姓名和考号中的任何一种方式，对考生的成绩进行查询。考生信息导入后，打开的表单,如图6.8所示，在“按学校”的下拉列表框中所列的学校是系统自动将不同的参赛学校列进去的。用户只要选择一个学校，单击“确定”按钮，即可在表格中列出该学校考生的成绩信息。同时，单击“导出EXCEL”按钮，可保存该学校考生的成绩单，还可利用本系统提拱的发送电子邮件功能，将该学校考生的成绩单发送给该学校。另外，只要将光标移到“按考号”或“按姓名”的文本框中，输入考号或姓名，单击“确定”按钮，表格即显示该学生的考试成绩[4]。图6.8查询表单实现系统自动将不同的参赛学校列进下拉列表框功能，需要在表单Form1的Activate事件中加入如下代码：counttonum

&&判断记录数gotopifnum==0

&&无记录

messagebox("请先录入考生信息",64,"提示")

thisform.releaseelse

&&有记录

setorderto1

&&打开索引,按学校升序排

gotop

a=学校

bo1.additem(a)

&&将首记录的学校名加进去

skip

dowhilenoteof()

&&以下代码完成移动指针的作用,将不同的学校名加入组合框

if学校==a

skip

else

bo1.additem(学校)

skip

a=学校

endif

enddo

setorderto

&&关闭索引endif6.4排序功能模块排序功能包括按团体排序和按个人排序，实现对考生成绩的统计、排序等功能。6.4.1按团体排序功能考生信息导入后，打开的表单，如图6.9所示，这里所说的团体是指学校，一个学校代表一个团体，本系统自动将考生人数十人以上（包括十人）的学校放在一个列表框中，不满足十人的学校放在另一个列表框中，单击学校即可显示该学校的考生人数和总分。单击“确定”按钮，即可在表格中列出考生人数十人以上（包括十人）的学校总分前十名考生的总分累加作为该团体的分数，并将每个团体按分数递减排列，如图6.10所示。

图6.9按团体排序的表单

图6.10排序后的表单表单中“确定”按钮的Click事件代码如下：setorderto1

&&打开索引，按学校升序排copytozffields学校,总分

&&选择部分字段复制成新表zf.dbfusezf****以下代码实现的是如果考生人数小于十人将删除该学校****dowhilerecno()==1

&&如果首记录的学校考生人数小于十人将删除该学校

a=学校

countfor

学校==a

toi

&&i存放的学校的记录个数

ifi<10

delefor学校==a

&&记录个数不足十个删除

pack

i=0

endifenddo

gotop

a=学校

&&将首记录的学校名赋给变量adowhilerecn()<>recc()

skip

&&指向下一记录

ifa<>学校

&&判断下一记录是否与原记录相同，如不同，赋给变量a

a=学校

endif

countfor

学校==a

toi

&&i存放的学校的记录个数

ifi<10

delefor学校==a

&&记录个数不足十个删除

pack

i=0

endif

b=b+i

gob

&&gob始终指向的是不同学校分界处上一学校（包含十个记录）的末记录enddo

totalon学校to

xffields总分&&按学校汇总总分，写入新表xf.dbfusexfindexon总分tagzfdescending

&&建立索引，按总分降序排thisformset.form1.hidethisformset.form2.show

6.4.2按个人排序功能该功能分别实现了对所有的考生按第一试、第二试和总分成绩降序的排序。如图6.11所示的按第一试成绩降序的排序。图6.11按第一试成绩降序的排序的表单6.5打印功能模块打印部分提供学校成绩单和个人总分名次打印功能，对需要打印的相关信息可及时进行打印。6.5.1打印学校成绩单功能考生信息导入后，打开的表单，如图6.12所示，在“选择学校”的下拉列表框中的学校是系统自动将不同的参赛学校列进去的。用户只要选择一个学校，单击“确定”按钮，即可打印所选的学校的成绩单。另外，用户也可单击“预览”按钮，浏览所选学校的成绩单，如图6.13所示。图6.12学校成绩单的表单图6.13预览所选学校的成绩单6.5.2打印个人总分名次功能该功能实现的是按名次打印个人总分，用户可以选择打印前几名的考生的成绩。另外，如选择打印考生前0名考生，将打印所有考生的成绩。该表单也提拱了预览的功能，同时也可单击“确定”按钮，直接打印,如图6.14所示。图6.14打印个人总分的表单表单中“预览”按钮的Click事件中代码如下：ifthisform.spinner1.value==0

&&判断打印所有考生

reportformksxxenvironmentpreview

ifmessagebox('确实要打印所有考生吗？',1+3+256,'提示')=6

reportformksxxenvironmenttoprinter&&打印符合条件的报表

messagebox("所有考生成绩单已打印",64,"提示")

endifelse

reportformksxxenvironmentnext(thisform.spinner1.value)preview&&预览符合条件的报表

ifmessagebox('确实要打印吗？',1+3+256,'提示')=6

reportformksxxenvironmentnext(thisform.spinner1.value)toprinter&&打印符合条件的报表

messagebox("考生前"+allt(str(thisform.spinner1.value))+"名成绩单已打印",64,"提示")

endife