www.pudn.com > jq_transfile.ARJ > 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