1、VFP 在学籍管理中的应用摘 要学籍管理是学校教务工作的重要环节，结合实际工作，以 VFP为开发工具，通过与 Excel 的交互编程，开发一系列适应工作的软件，来提高学籍管理的质量与水平。 【关键词】学籍管理 VFPEXCEL 学籍管理是高等学校教务管理系统中的重要组成部分，主要包括学生基本情况（姓名、所在班级，所学专业，所在系等） 、各系学籍情况（所含专业、所含班级、所含学生） 、各专业学生情况、毕业审核等的管理。学籍管理的各个组成部分环环相扣，其中一个环节的变更，会引起其它环节相应的调整，例如学生退学转专业等情况的发生会导致学生学籍信息的变更。所以，要求学籍管理方式必须有良好的适应能力，才
2、能为教学安排和学生的管理工作打下良好的基础。 传统的学籍管理工作很多环节一直采用手工方式进行，尤其是随着各个学校办学规模的扩大，带来的问题越来越多。为了适应新时代的发展，采用现代化技术，提高管理手段势在必行。虽然目前绝大部分高校都已购买综合教务系统，但是由于系统不是定制开发，部分功能与学校要求存在差异，而修改程序花费较大。本文利用 VFP（Visual FoxPro）编程技术开发了一系列适应实际工作的软件，来提高学籍管理的质量与水平，下文对软件中的一个程序进行了详细说明。 学生的学籍库是保存在 DBF 数据表中，而 VFP 是一种面向对象的关系型数据库管理系统，其提供了功能强大的 DBF 数据
3、处理能力，虽然目前微软已经停止对其进行开发，但是 VFP 在学籍管理中地位不可替代，基于这些，本程序的开发工具采用 VFP。 1 功能分析 在学籍管理的日常工作中，经常需要给任课教师或辅导员提供班级名单。传统的工作方法是通过前期将班级的学生信息拷贝到一个单独的Excel 表格中进行保存，需要时进行打印，但是这种传统的方式存在着很多缺点，例如某个班级中有休学、退学或者转专业的同学，则该班级的名单需要进行手工调整，有时可能不单单需要调整一个班级的名单，而在实际工作中有可能就忘记了修改班级名单，这样就对任课教师造成了极大的不便。为了解决这种不便，同时为了提供工作效率，笔者决定开发一个简单但又实用的名
4、单打印程序。 2 系统架构 本着实用的原则，本程序力求将日常工作中需要的表格都集中在一起。本程序包括“打印学生成绩登记表” 、 “打印所有成绩登记表” 、 “打印两列学生名单” 、 “打印所有两列学生名单” 、 “打印教学记录表” 、 “打印所有教学记录表” 、 “导出 excel 表格” 、 “导出所有 excel 表格”8 个模块，如图 1 所示。可以根据班级进行筛选打印单独某个班级名单，也可以进行年级、层级筛选一次打印多个班级的名单。 3 系统设计 3.1 报表设计 根据烟台大学文经学院学生成绩登记表及教学记录表的格式进行报表文件的设计，力求做到与原表格式一致。在设计报表文件时将表格标题
5、部分放置在报表设计器的页标头部分，而需要显示的数据部分放置在细节区中，如图 2 所示。 3.2 Excel 模板设计 因需要将班级名单导出为 Excel 表格，所以需要事先设计好固定的格式，如图 3 所示。根据实际工作需要设计好 Excel 表格，并保存到软件目录下。在导出数据时根据相应的数据库字段分别将数据写入到不同的 Excel 单元格中。 4 系统实现 4.1 开发难点 在本程序实现过程中最大的难点就是 VFP 与 Excel 的交互编程技术。其交互编程技术的核心问题就是要在 VFP 中创建一个 Excel 对象，通过对其创建的对象进行 VFP 字段的写入，通过循环语句将不同字段分别写入
6、不同的位置，当表格序号达到模板 44 行即最下一行时，切换到 Excel模块第 6 列的序号列继续写入直至循环结束，后将该文件保存在当前目录下，最后将创建的 Excel 对象释放，以防止内存泄露问题。主要代码如下： ef=CREATEOBJECT（“Excel.Application“） *新建一 Excel 对象 ef.visible=.F.*让 Excel 对象不可见，能够让 VFP 后台运行Excel，借此可以保持界的一致性。 lj=SYS（5） + CURDIR（）*获取当前程序所在路径 ef.workbooks.open（lj+“result.xlt“）*打开模板文件 SELECT
7、tempmd*选择筛选出来的班级名单 UPDATE tempmd SET xuh =recno（） *设置序号数字 SELECT xuh，xh，xm，bjh，xb FROM tempmd INTO cursor print_sql SELECT print_sql i=4 j=0 tempbj=ALLTRIM（print_sql.bjh） SCAN ef.cells（i，j+1）.value=ALLTRIM（print_sql.xuh） ef.cells（i，j+2）.value=ALLTRIM（print_sql.xh） ef.cells（i，j+3）.value=ALLTRIM（print
8、_sql.xm） ef.cells（i，j+4）.value=ALLTRIM（print_sql.xb） i=i+1 IFi44*如果行标号大于 44 则转到第 6 列继续写入数据 i=4 j=5 ENDIF ENDSCAN ef.ActiveWorkbook.SaveAs（SYS（5） + CURDIR（） + tempbj） *保存到当前目录下 ef.QUIT RELEASE ef *释放 excel 对象 4.2 系统封装 本程序设计到数据表、表单、报表、类代码、Excel 模板等大量文件，程序在能独立运行前必须进行封装。封装的具体步骤是将数据表及表单添加到项目文件中，然后经过“联编”
9、、 “编译成可执行文件”生成“名单打印.exe”文件。 5 结束语 本程序自投入使用来，大大减轻了工作的劳动强度，提供了工作效率，减少了工作中出错的次数。如果出现学籍异动情况，只需要将学籍表进行修改就可以完全解决以前出现的问题，使学籍管理工作的执行更加规范化。 参考文献 1魏建斌.高等学校学籍管理工作中 VFP 的实践探究J.资治文摘（管理版） ，2009（05）. 2刘洪华.浅谈 VFP 在高校学生学籍注册中的几点应用J.学术问题研究，2012（01）. 3何文全.用 VFP 控制 ExcelJ.电脑学习，2009（01）. 4李正华.用 VFP 与 Excel 结合进行数据处理J.科技信息，2007（09）. 作者单位 1.烟台大学文经学院 山东省烟台市 264005 2.烟台大学计算机与控制工程学院 山东省烟台市 264005
