统计图表插件，免费开源, 自己改改就能使用，感觉VFP能干的活真多， 无私的大师也很多！感谢VFP

收到的鲜花

• tlliqi 于 2016-04-20 14:15 送鲜花  40朵   附言：很不错

回楼上：对对对

我很多图没贴出来，很眩的

就是类型excel里的图表啊，统计数据用的。

有的朋友pm说不会用，其实也不一定要全部看懂，有些东西你看不懂没关系，你要知道它怎么个基本工作原理就是了，比如说图上线条就来源几个数据，你把你的数据导入就行，自己找找数据源不是难事吧？ 一个表单就几页的代码？ 里面都是容器的，这个容器拷贝回来就行了就也不担心布局问题了。

同时拷贝system.drawing.h 和System.app到你自己的表单目录下就可以用了。

有些东西也不一定说读懂代码很重要，发现有很多人连电脑怎么一个工作原理都不太了解，其实“猜”很重要，多去“猜”多去证实自己的“猜”。

举个例子说明： 以最简单的 chartssample_beginner.scx 表单为例，运行效果是3D的，但只有把 Depth = 10参数改成0就可以得到平面的，整个表单就只有一个容器，容器就只有init一叶代码，非常简单，所以把这个容器拷贝到你自己的表单里面就可以了，布局都可以不用再管了，然后，如果打开表单初始化时如果你的表单数据还没准备好，可以加个条件限制，避免打开表单时执行容器的init。

备注：源文件，你可以理解为类似vfp的库文件，没有这些东西就无法运行你要的这些统计图表工具，所以要拷贝到你的项目的目录下，然后包含到项目文件里去。

3d


平面


代码


源文件

项目：


我的一个应用修改成的代码：


If Type('ca_len')='U'=.F.     && 大写“U”
    If ca_len>=1
* Create a new empty form
* Drom an instance of FoxCharts to it
* Put the following code in the Init() event of the form

* Make sure the form and foxcharts are big enough so that the chart
* will appear well

* Create main cursor
        Create Cursor chart_1 (shuju N(8,2), x轴坐标 c(15))

* Populate cursor with data each column with the sales amount for each x轴坐标
* this will have 12 rows, one for each x轴坐标

        For i=Min(ca_len,12) To 1 Step -1
            ic=Alltrim(Str(i))
            Insert Into chart_1 Values(ca&ic,Iif(i=1,"本周"+Iif(yxca&ic=0,Chr(13)+Chr(10)+"(月未卖)",''),Alltrim(Str(i-1))+"周前"+Iif(yxca&ic=0,Chr(13)+Chr(10)+"(月未卖)",'')))
        Endfor


* Next step is to Setup FoxCharts
* Supposing you already dropped an instance of FoxCharts to any form
        Local loChart
        loChart = This

        With loChart As FoxCharts Of FoxCharts.Vcx

            .ChartType = 5 && Line

* Then, we need to tell the class that it will receive 3 fields of data
* Each field will represent one line
* Later you can try changing the value of the property "ChartType" with values from 1 to 14
* Be careful because we don't have Charttype #3 available yet :-)

            .ChartsCount = 1

* Then we tell FoxCharts the name of the cursor that contains the data needed
            .SourceAlias = "chart_1"
            .FieldAxis2 = "x轴坐标"

* Next step is to populate the collection object that will receive the information from the cursor

* Start with the first column - shuju
            .Fields(1).FieldValue = "shuju" && This is the name of the 1st column of the cursor
            .Fields(1).Legend = ""
            .Fields(1).Color  = Rgb(255,0,0) && Red

* Setting the title and subtitle
            .Title.Caption = "“库存天数”走势图"
            .SubTitle.Caption = ""
            .FontName = "Tahoma"

* Setting the Chart Depth ( 3d effect )
            .Depth = 0

* Set the backColor
            .BackColor = Rgb(255,255,225)

* Set the captions for the axis
            .XAxis.Caption = ""
            .YAxis.Caption = ""

* Draw the chart

            .DrawChart()

        Endwith
    Endi
Endi

这个我不知道，但是，我不知道你为什么还在用8.0，下载9.0不是更好用吗？我用9.0 sp2  汉化 王苏 任明汉

你不用管自由表放什么位置，他会自动产生在默认位置


这是自己生成的表：
* Create main cursor
        Create Cursor chart_1 (shuju N(8,2), x轴坐标 c(15))

* Populate cursor with data each column with the sales amount for each x轴坐标
* this will have 12 rows, one for each x轴坐标


这是生成的表插入你想要插入的数据：
        For i=Min(ca_len,12) To 1 Step -1
            ic=Alltrim(Str(i))
            Insert Into chart_1 Values(ca&ic,Iif(i=1,"本周"+Iif(yxca&ic=0,Chr(13)+Chr(10)+"(月未卖)",''),Alltrim(Str(i-1))+"周前"+Iif(yxca&ic=0,Chr(13)+Chr(10)+"(月未卖)",'')))
        Endfor

我，我忘交代了，在表单的init代码里有一句：public ca_len


这里涉及到一个问题，如我上面那个实例，以下这句在容器init代码解决的就是你说的这个问题：
If Type('ca_len')='U'=.F.     && 大写“U”

因为我估计是容器的init（初始化）比表单init（初始化）发生的更早，虽然我在表单里public了，但实际已经晚了，所以Type('ca_len')='U'就不执行容器init绘图的内容。