VFP 愛用者社區

[zfgg]

《Visual Foxpro 6.0~9.0解决方案与范例大全》（ 张洪举编著）关于显示统计图表的方法主要有以下：
1.c_solutions类：文件位置在…\samples\solution\Ole\stock.scx，它用的类是solution.vcx，在…\samples\solution\下的c_solutions。根据419面10.11 在表单中刷新图表的介绍，书中图示是面积图，运行时，显示的是三维柱形图。没有发现设置nChartType属性类的地方。
2.Autograph类: 340面7.30.5使用Autograph类生成图表。文件位置在…\FFC目录下的AutGraph.vcx中。打开这个目录下的automate.scx，将“Graph图表”按钮click event 代码.nChartType = 1改为.nChartType = 4，运行时，为折线图。
3._GraphByRrecord类:242面。 文件位置在…\samples\solution\FFC\GraphRec.scx。打开这个目录下的GraphRec.scx，_GraphByRrecord类在…\FFC下的_utility.vcx中。打开这个类，打开 _GraphByRrecord，选中表单，在代码窗口中选择“setupgraph”，在_GraphByRrecord中Autograph类的属性设置是“.nChartType = THIS.nChartType”，将其改为 .nChartType = 4 。运行时为折线图了。

我需要在报表中输出折线图，按照stock.scx的程序，做好了，可以实现输出三维柱形图（系统自动的），而折线图无法实现。
我没有用系统的表，自己新建了二个表，这二个表与系统的表字段完全一样。一个用于存放图，一个用于存放数据。报表MarklineImage放Picture/OLE bound Control, 在Gerneral页框中选“Gerneral field name”选项,Control source属性中填写：SJGRAPH.MSGRAPH。新建一个表单，加入一个Autograph类，没有用stock.scx 中的c_solutions类。表单数据环境加入lineGraph表与sjGraph表。表单上的按钮程序如下：
#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
#DEFINE MAX_LOC "Graph supports a maximum of 255 items, please redefine criteria."
#DEFINE Error_loc "Error"
LOCAL lcData
IF _TALLY > 255
MESSAGEBOX( MAX_LOC,16, Error_loc)
RETURN
ENDIF
SELECT linegraph
GO TOP
lcData = "" + CRLF
SCAN
lcData = lcData + ALLTRIM(STR(m_rs))
lcData = lcData + TAB
lcData = lcData + ALLTRIM(STR(m_per))+ CRLF
ENDSCAN
SELECT sjGraph
APPEND GENERAL sjGraph.msgraph DATA lcData CLASS "msgraph.chart"
REPORT FORM marklineimage.frx PREVIEW &&新的报表
**将图象清空
APPEND GENERAL sjGraph.msgraph

事实上，这个报表中的统计图与Autograph类、c_solutions类无关。我试过，不要这些类，也可以运行，输出的是三维柱形图。在自己新建的表单中加入Autograph类后，在表单执行按钮click、表单的Init、load事件中加入下列代码，都不能改变图形。
WITH THISFORM.autograph1
.nChartType = 4 && Chart Type
.nChartSubType = 1 && Chart SubType
.lSeriesByRow = .F. && Series by Row (.T.), by Column (.F.)
.nAction = 0
ENDWITH
*!* dodefault()
另外APPEND GENERA 的参数CLASS "msgraph.chart" 是否与其有关，不清楚。
应怎样使.autograph1类与表单联系起来，发挥作用，也不清楚。如果想换成折线图，应如何设置？请教高手能给以指教。谢谢！

[ckp6250]

剛試了一下
Vfp9的自帶範例中的圖形示範程式有10種
也有和資料庫連結
其中也有折線圖,執行也沒問題
您是否再把該範例重新看一次?

[jurgen]

http://vfpx.codeplex.com/Release/ProjectReleases.aspx?ReleaseId=18515
可以試用這個啊，功能好像很強大 0.0

[zfgg]

请ckp6250就stock.scx的程序,生成折线图的代码如何写?谢谢!

[zfgg]

谢谢jurgen!我已经下载了,内容太多复杂了,还在研究,用哪个来改编.