行业应用

开发平台：
VFP

CHART.PRG：源码内容
							*********************************************************
*
* Name: Chart
*       此程序演示SDK的各种图表
*
**********************************************************
set talk off
set path to ..
set esca off
do LoadSDK                    && 装入SDK
P_WinColor='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W,+'
=defiwind("WT",2,2,20,76,"colo (P_WinColor) titl '演示窗口1'")
=actiwind("WT")
use PROFIT
@1,18 say "公司1992-1995年各月份利润(单位:万元)"
=SetChartColor(7,15,0,0,1)
=SetChartType(_LINE,1)
=chart(2,1,12,72,"Month,p1992,p1993,p1994,p1995")
@14,15 say "统计图类型：折线图1  SetChartType(_LINE,1)   "
=inke(5,"HM")
if last()#27
   =SetChartType(_LINE,2)
   =chart(2,1,12,72,"Month,p1992,p1993,p1994,p1995")
   @14,15 say "统计图类型：折线图2  SetChartType(_LINE,2)     "
   =inke(5,"HM")
endi
if last()#27
  =SetChartType(_BAR,1)
  =chart(2,1,12,72,"Month,p1992,p1993,p1994,p1995")
  @14,15 say "统计图类型：直方图1  SetChartType(_Bar,1)      "
  =inke(5,"HM")
endi
if last()#27
   =SetChartType(_Bar3d,1)
   =chart(2,1,12,72,"Month,p1992,p1993,p1994,p1995")
   @14,15 say "统计图类型：三维直方图1  SetChartType(_Bar3D,1)"
   =inke(5,"HM")
endi
if last()#27
   =SetChartType(_Bar3d,2)
   =chart(2,1,12,72,"Month,p1992,p1993,p1994,p1995")
   @14,15 say "统计图类型：三维直方图2  SetChartType(_Bar3D,2)"
   =inke(5,"HM")
endi
if last()#27
   =SetChartColor(7,3,0,15,1)
   @1,18 say "      公司1995年各月份利润情况       "
   =SetChartType(_PIE,1)
   =chart(2,1,12,72,"month,p1995")
   @14,15 say "统计图类型：饼图1  SetChartType(_Pie,1)        "
   =inke(5,"HM")
endi
if last()#27
   =SetChartColor(7,3,0,15,1)
   @1,18 say "      公司1995年各月份利润情况       "
   =SetChartType(_PIE3d,1)
   =chart(2,1,12,72,"month,p1995")
   @14,15 say "统计图类型：三维饼图1  SetChartType(_Pie3D,1)  "
   =inke(5,"HM")
endi
if last()#27
   =SetChartColor(7,15,0,0,1)
   =SetChartType(_Bar3d,2)
   =SetChartStyle(0,0)
   =chart(2,1,12,72,"Month,p1992,p1993,p1994,p1995")
   @14,15 say "统计图风格：无坐标网线                         "
   =inke(5,"HM")
endi
if last()#27
   =SetChartType(_Bar3d,2)
   =SetChartStyle(1,0)
   =chart(2,1,12,72,"Month,p1992,p1993,p1994,p1995")
   @14,15 say "统计图风格：有坐标网线                         "
   =inke(5,"HM")
endi
if last()#27
   =SetChartColor(7,3,0,15,1)
   @1,18 say "      公司1995年各月份利润情况       "
   =SetChartType(_PIE3d,1)
   =SetChartStyle(1,0)
   =chart(2,1,12,72,"month,p1995")
   @14,15 say "统计图风格：按颜色区分                         "
   =inke(5,"HM")
endi
if last()#27
   @1,18 say "      公司1995年各月份利润情况       "
   =SetChartType(_PIE3d,1)
   =SetChartStyle(1,1)
   =chart(2,1,12,72,"month,p1995")
   @14,15 say "统计图风格：按填充模式区分                     "
   =inke(5,"HM")
endi
if last()#27
   @1,18 say "      公司1995年各月份利润情况       "
   =SetChartType(_PIE3d,1)
   =SetChartStyle(1,2)
   =chart(2,1,12,72,"month,p1995")
   @14,15 say "统计图风格：按颜色和填充模式区分                     "
   =inke(5,"HM")
endi
use
=relewind("WT")
rele libr fs
retu

						