VFP统计图在成绩管理系统中应用.docVIP

VFP统计图在成绩管理系统中应用 　　摘 要:在学生成绩管理系统中,用图表来说明数据信息,比表格更为形象、直观。本文阐述了在VFP中,运用Microsoft Graph图表制作动态统计图的方法。 　　关键词:VFP 统计图 成绩管理 　　中图分类号:TP39文献标识码:A 文章编号:1007-3973 (2010) 05-058-01 　　 　　成绩查询是学生成绩管理系统中的重要组成部分,将查询结果用统计图显示出来,简明、形象、直观,让查询者一目了然。本文结合工作实际,谈谈VFP统计图在成绩管理系统中的动态实现。 　　1实现原理 　　Microsoft Graph是微软的一个通用软件,图表类型丰富、功能强大,可以绘制出各种类型的直观图,如柱形图、折线图、条形图等,并可以为VFP、WORD、EXCEL等多种软件提供图形支持,由它生成的图形对象可嵌入到文档中。在VFP中使用Microsoft Graph图表,其实现步骤为:(1)为统计图图表设置数据;(2)生成图表,图表存放在VFP数据表的通用型字段中;(3)设置图表的显示格式。 　　2实现过程 　　2.1建立表单文件,如图1所示 　　表单主要包括1个文本框、3个命令按钮、1个表格、1个选项按钮组和1个OLE绑定控件,其中文本框用于输入查询条件(即学生学号);3个命令按钮分别完成查询、图表查询和退出功能;表格用于显示查询结果;OLE绑定控件用于显示查询图表;选项按钮组用于改变统计图表类型。 　　2.2设置表单的初始化(init)事件代码 　　set safety off 设定当改写文件时,不显示对话框 　　thisform.grid1.recordsource= 指定表格数据源为空 　　thisform.grid1.readonly=.t. 表格设置为只读属性,确保数据安全性 　　thisform.grid1.deletemark=.f. 不显示表格的删除标记 　　2.3设置查询命令按钮(click)事件代码 　　首先判断查询生成文件mycx1.dbf是否打开,如果打开,则关闭。然后用VFP提供的select语句,查询输入学号的学生成绩。最后将表格数据源指定为查询的结果。代码为: 　　if used(mycx1) 　　 use in(mycx1) 　　endi 　　sele * from cjb where xh=thisform.text1.value into table mycx1cjb为学生成绩总表 　　thisform.grid1.recordsource=mycx1指定表格数据源 　　2.4设置图表命令按钮(click)事件代码 　　图表命令按钮主要是完成图表的生成,图表命令按钮代码如下: 　　#DEFINE CRLF CHR(13)+CHR(10)定义回车符 　　#DEFINE TAB1 CHR(9)定义制表符 　　if .not.used(mycx1)如果没有打开mycx1,则打开 　　use mycx1 in 0 　　endi 　　sele mycx1 　　go top 　　xm0=allt(xm) 　　data1= 获得图表数据,图表数据为数据表mycx1.dbf的记录 　　data2= 　　scan 　　data1=data1+TAB1+allt(kmmc) 　　data2=data2+TAB1+allt(str(cj)) 　　ends 　　data1=data1+CRLF 　　data2=成绩+data2+CRLF 　　data0=data1+data2 　　if .not.file(mygraph.dbf)建立数据表mygraph,用于存放图表 　　crea table mygraph(gen1 g) 　　appe blan 　　else 　　if .not.used(mygraph) 　　use mygraph in 0 　　endi 　　sele mygraph 　　zap 　　appe blan 　　endi 　　thisform.lockscreen=.t.锁住屏幕 　　sele mygraph 　　appe general gen1 class msgraph.chart data data0 　　thisform.oleboundcontrol1.controlsource=gen1 　　thisform.lockscreen=.t. 　　thisform.oleboundcontrol1.haslegend=.t.显示图例 　　thisform.oleboundcontrol1.hastitle=.t. 显示标题 　　th