基于Visual FoxPro的学生信息管理系统

张世军

摘要：Visual FoxPro是一个可运行于Windows平台之上的32位数据库。由于它具有强大的数据处理功能，具有简单、方便的操作方法，具有美观的用户界面和直观、易用的编程工具。本文介绍了用Visual FoxPro开发学生信息管理系统的全过程，该系统可以对学生各类信息进行管理，包括信息编辑、查询、统计、打印等功能。

关键词：Visual FoxPro；学生；信息管理

中图分类号：TP315 文献标识码：A 文章编号：1009-3044（2018）10-0101-02

随着国家对职业教育的重视与大力支持，近年来，中等职业学校规模不断扩大，有关学生的各种信息量急剧增加，庞大学生信息的管理工作成了中等职业学校教学管理工作中的一项重要任务，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。本系统主要任务是对学生资料进行处理，包括增加、修改、删除、查询、统计、打印等。

1 系统结构

本系统只有一个文件，由五个基础表和若于查询、视图、表单和报表等组成。表中存放学生的基本信息，用户界面以表单形式显示。

2创建数据库和表

1）启动Visual FoxPro创建数据库“学生信息管理”。

2）创建表

①表的结构

学生信息表xsxx.dbf（学号、姓名、性别、民族、出生日期、家庭地址、班级、班主任、入学成绩、奖惩、照片）

课程表kc.dbf（学号，编号，课程名称）

成绩表cj.dbf（编号，成绩）

雨露计划表yljh.dbf（学号、第一学年、第二学年、合计）

助学金表zxj.dbf（学号、第一学期、第二学期、第三学期、第四学期、合计）

②创建表

使用表设计器创建xsxx.dbf、kc.dbf、cj.dbf 、yljh.dbf、zxj.dbf五个表。

③创建表间关系

建立学号对学号，编号对编号的关系。

3 创建报表

本部分主要建立系统结构中的“打印信息”部分。

①以xsxx.dbf为数据源创建报表xs.frx。

②以xsxx.dbf、kc.dbf、cj.dbf三个表为数据源创建报表xscjd.frx。

③以xsxx.dbf、yljh.dbf两个表为数据源创建报表xsyljh.frx。

④以xsxx.dbf、zxj.dbf两个表为数据源创建报表xszxj.frx。

4 创建表单

1）创建学生信息查询表单xsxxcx.scx。如图1。

①按学号查询按钮代码：

select xsda

set filter to alltrim（xsda.学号）==alltrim（thisform.text1.value）

count all to rs

go top

thisform.refresh

if rs=0

messagebox（'查无此人！'，0+64）

endif

②按姓名查询按钮代码：

select xsda

set filter to alltrim（xsda.姓名）==alltrim（thisform.text2.value）

count all to rs

go top

thisform.refresh

if rs=0

messagebox（'查无此人！'，0+64）

endif

③按班级查询按钮代码：

select xsda

set filter to alltrim（xsda.班级）==alltrim（thisform.text3.value）

count all to rs

go top

thisform.refresh

if rs=0

messagebox（'查无此班级！'，0+64）

endif

2）创建成绩查询表单cjcx.scx。如图2。

①按学号查询按钮代码：

select xsxx.学号，姓名，班级，课程名称，成绩 from xsgl！xsxx，xsgl！kc，xsgl！cj；

where xsxx.学号==alltrim（thisform.text1.value） and xsxx.学号=kc.学号 and kc.编号=cj.编号 into cursor xhcj

browse

②按姓名查詢按钮代码：

select distinct xsxx.学号，姓名，班级，课程名称，成绩 from xsgl！xsxx，xsgl！kc，xsgl！cj；

where xsxx.姓名==alltrim（thisform.text2.value） and xsxx.学号=kc.学号 and kc.编号=cj.编号 into cursor xmcj

③按班级查询按钮代码：

select distinct xsxx.学号，姓名，班级，课程名称，成绩 from xsgl！xsxx，xsgl！kc，xsgl！cj；

where xsxx.班级==alltrim（thisform.text3.value） and xsxx.学号=kc.学号 and kc.编号=cj.编号 into cursor bjcj

3）创建打印信息表单dyxx.scx。如图3。

①学生信息按钮代码

modify report xs.frx

report form xs.frx to printer

②学生成绩单按钮代码

modify report xscjd.frx

report form xscjd.frx to printer

③学生雨露计划按钮代码

modify report xsyljh.frx

report form xsyljh.frx to printer

④学生助学金按钮代码

modify report xszxj.frx

report form xszxj.frx to printer

⑤返回按钮代码

thisform.release

4）创建进入系统表单drxt.scx。如图4。

①学生信息查询按钮代码

do form xsxxcx.scx

②成绩查询按钮代码

do form cjcx.scx

③打印信息按钮代码

do form dyxx.scx

④录入新生按钮代码

use xsxx.dbf

append

⑤返回按钮代码

thisform.release

5）创建主界面表单ZJM.SCX。如图5。

①进入系统按钮代码

do form drxt.scx

②退出系统按钮代码

thisform.release

参考文献：

[1] 周察金.数据库应用基础—VisualFoxPro[M]. 3版.北京：高等教育出版社，2012.

[2] 周察金.VisualFoxPro 学习辅导与上机实习[M]. 3版.北京：高等教育出版社，2012.

[3] 劉建臣.Visual FoxPro程序设计教程[M]. 北京：清华大学出版社，2011.

[4] 刘瑞新.Visual FoxPro程序设计教程[M]. 北京：电子工业出版社，2010.

[5] 王娟.数据库基础及Visual FoxPro程序设计教程[M].沈阳：东北大学出版社，2011.