VFP设计学生成绩管理系统VIP免费

下载后可任意编辑6.3 查询功能模块查询功能可以按学校、姓名和考号中的任何一种方式，对考生的成绩进行查询。考生信息导入后， 打开的表单,如图 6.8 所示，在“按学校”的下拉列表框中所列的学校是系统自动将不同的参赛学校列进去的。用户只要选择一个学校，单击“确定”按钮，即可在表格中列出该学校考生的成绩信息。同时，单击“导出 EXCEL”按钮，可保存该学校考生的成绩单，还可利用本系统提拱的发送电子邮件功能，将该学校考生的成绩单发送给该学校。另外，只要将光标移到“按考号”或“按姓名”的文本框中，输入考号或姓名，单击“确定”按钮，表格即显示该学生的考试成绩[4]。图 6.8 查询表单实现系统自动将不同的参赛学校列进下拉列表框功能，需要在表单 Form1 的 Activate 事件中加入如下代码：count to num &&推断记录数go topif num==0 &&无记录 messagebox("请先录入考生信息",64,"提示") thisform.releaseelse &&有记录 set order to 1 &&打开索引,按学校升序排 go top a=学校 thisform.combo1.additem(a) &&将首记录的学校名加进去 skip do while not eof() &&以下代码完成移动指针的作用,将不同的学校名加入组合框 if 学校==a skip else thisform.combo1.additem(学校) skip a=学校 endif enddo set order to &&关闭索引endif6.4 排序功能模块排序功能包括按团体排序和按个人排序，实现对考生成绩的统计、排序等功能。6.4.1 按团体排序功能考生信息导入后， 打开的表单，如图 6.9 所示，这里所说的团体是指学校，一个学校代表一个团体，本系统自动将考生人数十人以上（包括十人）的学校放在一个列表框中，不满足十人的学校放在另一个列表框中，单击学校即可显示该学校的考生人数和总分。单击“确定”按钮，即可在表格中列出考生人数十人以上（包括十人）的学校总分前十名考生的总分累加作为该团体的分数，并将每个团体按分数递减排列，如图 6.10 所示。 图 6.9 按团体排序的表单 图 6.10 排序后的表单表单中“确定”按钮的 Click 事件代码如下：set order to 1 &&打开索引，按学校升序排copy to zf fields 学校,总分 &&选择部分字段复制成新表 zf.dbf下载后可任意编辑use zf****以下代码实现的是假如考生人数小于十人将删除该学校****do while recno()==1 &&假如首记录的学校考生人数小于十人将删除该学校 a=学校 count for 学校==a to i &&...