| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5200 人关注过本帖
标题:发现一个牛x的东西,不敢独享
只看楼主 加入收藏
琅拿度
Rank: 1
等 级:新手上路
帖 子:166
专家分:5
注 册:2016-4-7
收藏
得分:0 
有些东西也不一定说读懂代码很重要,发现有很多人连电脑怎么一个工作原理都不太了解,其实“猜”很重要,多去“猜”多去证实自己的“猜”。
2016-05-30 09:35
琅拿度
Rank: 1
等 级:新手上路
帖 子:166
专家分:5
注 册:2016-4-7
收藏
得分:0 
举个例子说明: 以最简单的 chartssample_beginner.scx 表单为例,运行效果是3D的,但只有把 Depth = 10参数改成0就可以得到平面的,整个表单就只有一个容器,容器就只有init一叶代码,非常简单,所以把这个容器拷贝到你自己的表单里面就可以了,布局都可以不用再管了,然后,如果打开表单初始化时如果你的表单数据还没准备好,可以加个条件限制,避免打开表单时执行容器的init。

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

3d
图片附件: 游客没有浏览图片的权限,请 登录注册


平面
图片附件: 游客没有浏览图片的权限,请 登录注册


代码
图片附件: 游客没有浏览图片的权限,请 登录注册


源文件
图片附件: 游客没有浏览图片的权限,请 登录注册
2016-05-30 10:06
琅拿度
Rank: 1
等 级:新手上路
帖 子:166
专家分:5
注 册:2016-4-7
收藏
得分:0 
项目:
图片附件: 游客没有浏览图片的权限,请 登录注册


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


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
2016-05-30 10:11
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
8.0打不开的

只求每天有一丁点儿的进步就可以了
2016-05-30 12:42
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
把自由表放到什么位置?如何操作示范一下,一下子还摸不到头
2016-05-30 14:14
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
以下是引用sylknb在2016-5-30 14:14:48的发言:

把自由表放到什么位置?如何操作示范一下,一下子还摸不到头


呵呵,我也在摸索。。。。。。

程序中没有用表

2016-05-30 15:27
琅拿度
Rank: 1
等 级:新手上路
帖 子:166
专家分:5
注 册:2016-4-7
收藏
得分:0 
以下是引用wengjl在2016-5-30 12:42:38的发言:

8.0打不开的


这个我不知道,但是,我不知道你为什么还在用8.0,下载9.0不是更好用吗?我用9.0 sp2  汉化 王苏 任明汉
2016-05-31 09:41
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:0 
记得 Ver 0.X 版支持 VFP 8 的,以后 Ver 1.X 版的必须是 VFP 9 SP2 版。

民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-05-31 09:44
琅拿度
Rank: 1
等 级:新手上路
帖 子:166
专家分:5
注 册:2016-4-7
收藏
得分:0 
你不用管自由表放什么位置,他会自动产生在默认位置


这是自己生成的表:
* 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
2016-05-31 09:45
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:0 
以下是引用琅拿度在2016-5-31 09:41:47的发言:



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



话分两头说,只从稳定性上说,在 VFP 各个版本中,V6 是最稳定的,V7 是过渡产品,V8 其次,V9 有不少问题的。
从功能性、兼容性上说,当然 V9 是最 Power 的

另外,V3 是 16位的,不讨论,V4 没有该版本,V5 汉化最彻底。

民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-05-31 10:01
快速回复:发现一个牛x的东西,不敢独享
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.057485 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved