如何在VFP中实现动态统计图形[5]

    以下为GetRecVAl 方法的具体内容:
　　
　　*-- 转换字段值
　　LPARAMETER lcFieldname,lcFval,lcFtype
　　lcFieldname=&lcFieldname
　　lcFtype=TYPE("lcFieldname")
　　DO CASE
　　CASE lcFtype="D"
　　lcFval=DTOC(lcFieldname)
　　CASE lcFtype="C"
　　lcFval=ALLT(lcFieldname)
　　CASE lcFtype="T"
　　lcFval=TTOC(lcFieldname)
　　OTHERWISE
　　lcFval=ALLT(STR(lcFieldname))
　　ENDCASE
　　RETU lcFval
　　
　　二、应用指南

　　你可以将本类加入到你的表单上（比如对象名为LHGENGRAPH1），再加入一个按钮用以触发LHGENGRAPH的LHGENGRAPH方法。当然你需要给LHGENGRAPH1提供至少两个参数，那就是WorkTable和SaveTAble，即工作表和图形生成回存表。要得到这两个 表其实很简单，只需用SELE语句选定你需要进行统计分析的数据列和用CREATE TABLE命令创建一个含有GEN类型字段的表即可。 将SaveTable的GEN字段拖放到表单形成OLEBOUNDCONTROL对象（该对象即为生成的统计图形）。调整该对象大小及属性至满意。在此，提供一个技巧；运行表单，双击OLEBOUNDCONTROL对象进入编辑状态，调整该图形的背景等属性，比如背景填充为“大理 石”面等，退出编辑状态后，将LHGENGRAPH1的AUTOREFRESH属性设为.F.，以后再刷新该图形时将采用你调整好的格式。这样，你就可以得到一个十分优美的统计图形了。更让人兴奋的是本功能即使脱离VFP开发环境仍然是运转自如。你完全可以将她 集成到你的EXE文件中发行给你的用户。注意在生成“安装”时，应该选中MSGRAPH选项。

[1]  [2]  [3]  [4]  [5]