字段名做为横轴时的代码

 

#DEFINE TAB CHR(9)
#DEFINE CRLF CHR(13)+CHR(10)
thisform.refresh
 
LOCAL CDATA
M.CDATA=""+tab
sele ba
fielname=field(1)
for i=2 to fcount("ba")
       m.cdata=m.cdata+field(i)+tab
endfor
m.cdata=m.cdata+crlf
 &&取得字段名字
 
m.zhi=""
fielval=""
scan
       for i=2 to fcount("ba")
              fielval=fielval+tab+allt(tran(eval（field(i))))
       endfor
       m.zhi=m.zhi+&fielname+fielval+crlf
       fielval=""
endscan
M.CDATA=m.cdata+m.zhi
 
sele bao &&
use
use bao &&刷新图表数据
APPEND GENERAL tb DATA M.CDATA CLASS "MSGRAPH.CHART" &&把序列加至通用字段中
thisform.oleboundcontrol1.CONTROLSOURCe="bao.tb" &&绑定数据源
ThisForm.oleboundcontrol1.Axes(1).HasTitle = .T. &&横轴有标题
 
WITH ThisForm.oleboundcontrol1.Axes(1) && 设置横轴
.AxisTitle.CAPTION=" "
WITH .AxisTitle.FONT
.Name = "隶书"
.FontStyle = "加粗"
.Size = 10
.colorindex=25
ENDWITH
WITH .TickLabels.FONT &&设置横轴刻度线标签字体
.Name = "宋体"
.FontStyle = "加粗"
.Size = 8
ENDWITH
ENDWITH
ThisForm.oleboundcontrol1.HasTitle =.T.   &&图表为有标题
WITH ThisForm.oleboundcontrol1.ChartTitle &&图表的标题
.CAPTION = 人力资源数据分析图表"
.FONT.Name = "隶书"
.FONT.FontStyle = "加粗"
.FONT.Size = 18
.FONT.ColorIndex = 3 &&标题字体的颜色
.Shadow = .T.
.Interior.ColorIndex =8 &&标题背景色
ENDWITH

以表的第一列记录数据为横轴

#DEFINE TAB CHR(9)
#DEFINE CRLF CHR(13)+CHR(10)
LOCAL CDATA
thisform.refresh
M.CDATA=""+tab
sele ba
scan
       m.cdata=m.cdata+allt(tran(eval（field(1))))+tab &&取得字段名字
endscan
M.CDATA=M.CDATA+crlf
*=messagebox(M.CDATA)
 
for i=2 to fcount('ba')
       fielname=""
              scan
                     fielname=fielname+allt(tran(eval（field(i))))+tab &&读某一字段的多个记录
              endscan
       M.CDATA=m.cdata+field(i)+tab+fielname+tab+crlf
endfor
*=messagebox(M.CDATA) &&通过此语句查看数据列的情况
 
sele bao &&本表只含有一个通用字段
use && 刷新数据
use bao
APPEND GENERAL tb DATA M.CDATA CLASS "MSGRAPH.CHART" &&将数据源串加入能通用字段中
thisform.oleboundcontrol1.CONTROLSOURCe="bao.tb" &&通用字段绑定在控件上
 
ThisForm.oleboundcontrol1.HasTitle =.T.   &&图表为有标题
WITH ThisForm.oleboundcontrol1.ChartTitle &&图表的标题
.CAPTION = "人力资源数据分析图表"
.FONT.Name = "宋体"
.FONT.FontStyle = "加粗"
.FONT.Size = 16
.FONT.ColorIndex = 4 &&标题字体的颜色
.Shadow = .T. &&标题有阴影
.Interior.ColorIndex = 2 &&标题背景色
ENDWITH
 
 
ThisForm.oleboundcontrol1.Axes(1).HasTitle = .T. &&横轴有标题
WITH ThisForm.oleboundcontrol1.Axes(1)
.AxisTitle.CAPTION=" "
WITH .AxisTitle.FONT
.Name = "宋体"
.FontStyle = "加粗"
.Size = 10
.colorindex=25
ENDWITH
WITH .TickLabels.FONT &&设置横轴刻度线标签字体
.Name = "宋体"
.FontStyle = "加粗"
.Size = 8
ENDWITH
ENDWITH
 
ThisForm.oleboundcontrol1.Axes(2).HasTitle = .T. &&纵轴有标题
WITH ThisForm.oleboundcontrol1.Axes(2)
.AxisTitle.CAPTION="数值"
.AxisTitle.Orientation = -4166 &&字的方向
WITH .AxisTitle.FONT
.Name = "隶书"
.FontStyle = "加粗"
.Size = 24
.colorindex=25
ENDWITH
WITH .TickLabels.FONT
.Name = "宋体"
.FontStyle = "加粗"
.Size = 10
ENDWITH
ENDWITH