数据图表DBChart的使用

一、显示数据柱


数据图表DBChart对象用于在报表中插入图表。双击数据图表对象,可以调出图表编辑器:

Chart选项:

(1)Series类型页

可以选择十一种类型的图表以及下列选项,按Add就可以选择图表的类型(3D :显示3维图表);按Title..就可以修改图表的名称。

(2)General页(图表的普通设置)

其中'Print Preview'按钮是用于打印图表。'Zoom'为缩放设置。'Margins(%)'是设置整个图表的位置。

(3)Axis页(轴的相关设置)
'Title'页用于设置竖轴的相关属性,Title设置要显示的竖轴的名称
'Labels'页中的'Font'按钮用于设置左边刻度的字体大小,Size用于设置各轴的距离,Angle用于设置刻度的宽度,Min.Separation%用于设置刻度的比例。Valuse Format用于设置格式(一般不用改)
'Position'页用于位置的设置,Position%是设置刻度位置,Start是设置刻度高度,

(4)Titles页(图表标题的设置)

'Font'按钮用于设置字体大小,Back Color设置颜色,Alignment用于设置标题的位置。

(5)Legend页(右上角说明的设置)

Visible选项是否显示说明;Back Color设置说明背景的颜色;Font设置说明的字体大小;Frame设置说明的边线;Resize Chart选项用于设置是否让图表覆盖说明;Inverted选项用于设置从左或从右显示字段颜色;Position选项用于设置说明在图表组件中的显示的位置;Margin设置图表的大小;Legend Style设置说明的风格;Text Style设置说明的内容(Plain字段内容、Left Value值+字段、Right Value字段+值、Left Percent百分率+字段、Right Percent字段+百分率、X Value从0开始);Dividing Lines设置说明中是否显示分格线;Shadow设置说明的背景属性;

(6)Panel页(面板的设置)

Bevel Inner、Bevel Outer设置图表边框属性;Width设置高度;Back Image设置是否在图表组件上显示图像;Panel Color设置面板的颜色;Gradiend用于设置在面板中显示特效颜色(Direction用于设置特效位置);

(7)Walls页(设置刻度的其它属性)

(8)3D页(3D效果的设置)

Series选项:

(1)Format页(数据柱的风格)

在Color Each中打勾,就可使用多种颜色显示,color按钮用于设置颜色,Style用于设置图表的风格(Rectangle长方体,Pyramid三角体,Invert.PyramId倒三角体,Cylinder圆柱体,Ellipse圆形,Arrow箭头,Rect.Gradient立体长方体[推荐],Cone不显示),Border按钮设置数据柱的边线属性,Pattern按钮设置数据柱的显示类型,Bar Width设置数据柱间的距离,Bar Offset设置数据柱与纵刻度的距离,

(2)General页(数据柱的一般设置)

Show in Legend选项是否显示右上角的数据说明,Horizontal Axis设置横刻度的位置,Vertical Axis设置纵刻度的位置,Formats设置数据柱的格式,

(3)Marks页(标记,数据内容显示设置)

数据内容显示设置:在Style中选相关的选项,标记的类型:Value值、Percent百分率、Label字段内容、Label and Percet字段内容+百分率、Label and Value字段内容+值、Legend与右上角的数据说明一样、Percent Total百分率+值、Label&Percent Total字段内容+百分率+值。
Visible选项是否显示标记;Transparent选项是否显示标记的颜色;Clipped选项是否让标记超过刻度;Arrows用于设置标记下垂线的属性。
Back Color设置标记的颜色;Font设置标记的字体大小;Border设置标记的边线;

(4)Data Source页:(数据连接)

要连接图表到数据字段,通过SQL语句查询,取得两个字段的数据(如:品种名,吨数(各品种的合计数))。
例:{ADOQuery1组件的SQL语句}
select a.kindName,sum((0.01*0.001)*(b.MZ-b.PZ)) as KZ form KindInfo a inner join Weighinfo b on a.kindName=b.kName1 Group by a.kindName

这些数据字段的内容将用于设置图表的变量和图例。图例通常显示在X轴上,变量在图表的Y轴上。当生成报表时,选择的Text对象的内容将保存到图表对象的备注中。双击DBChart对象,在Editing DBChart对话框下的'Series'页进行设置,在下拉列表框中选择Series对象,在Data Source页的下拉框中选择'DataSet',再在dataset中选对应的查询组件(ADOQuery1),在Labels中选择'品种'字段对应的字段名,再在Bar中选择'吨数'字段对应的字段名,注意X轴项不用写。

X轴不能选择字符型字段。冥思苦想不得其法。后来硬着头皮看英文帮助,终于有所收获。

dbchart1.Series[0].XLabelsSource:='mc';

-------------
Series[0]代表我的一个图表,mc代表我的一个字符型字段。在打开dbchart1.Series[0]所对应的AdoQuery后,用上面这个语句,就可以实现在Dbchart中显示字符型字段。
别看就一条语句。你要是不知道就是没办法。

例:在程序中设置:
begin
with DBChart1 do
begin
with Series[0} do
begin
DataSource:=ADOQuery1;
XValuse.ValueSource:='字段';
YValuse.ValueSource:='字段';
end;
end;
end;   

procedure    TForm10.Button1Click(Sender:    TObject);   
   begin   
       datam.SQ_WeiFaTongJi.SQL.Text:='select    R.PHOTO,count(R.PHOTO)    cross      from    table    R      group    by    R.PHOTO';   
       datam.SQ_WeiFaTongJi.Open;   
       dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;   
       dbchart1.Series[0].XLabelsSource:='photo';   
       dbchart1.Series[0].YValues.ValueSource    :=    'cross';   
       dbchart1.Series[0].Active:=true    ;     
   end;   
    
   procedure    TForm10.Button2Click(Sender:    TObject);   
   begin   
           datam.SQ_WeiFaTongJi.SQL.Text:='select    R.weizhang,count(R.weizhang)    yi      from    table    R      group    by    R.weizhang';   
           datam.SQ_WeiFaTongJi.Open;   
           dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;   
           dbchart1.Series[0].XLabelsSource:='weizhang';   
           dbchart1.Series[0].YValues.ValueSource    :=    'yi';   
           dbchart1.Series[0].Active:=true    ;         
   end;

======成功=============

procedure    TForm10.Button1Click(Sender:    TObject);   
   var   
       Series1:    TLineSeries;   
   begin   
    Series1    :=    TLineSeries.Create(Application)    ;   
      DbChart1.SeriesList.Clear    ;   
         DbChart1.AddSeries(Series1);   
       datam.SQ_WeiFaTongJi.close;       
       datam.SQ_WeiFaTongJi.SQL.Text:='select    R.PHOTO,count(R.PHOTO)    cross      from    table    R      group    by    R.PHOTO';   
       datam.SQ_WeiFaTongJi.Open;   
       dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;   
       dbchart1.Series[0].XLabelsSource:='photo';   
       dbchart1.Series[0].YValues.ValueSource    :=    'cross';   
       dbchart1.Series[0].Active:=true    ;     
   end;   
    
   procedure    TForm10.Button2Click(Sender:    TObject);   
   var   
       Series1:    TLineSeries;   
   begin   
     Series1    :=    TLineSeries.Create(Application)    ;   
       DbChart1.SeriesList.Clear    ;   
            DbChart1.AddSeries(Series1);          datam.SQ_WeiFaTongJi.close;             
           datam.SQ_WeiFaTongJi.SQL.Text:='select    R.weizhang,count(R.weizhang)    yi      from    table    R      group    by    R.weizhang';   
           datam.SQ_WeiFaTongJi.Open;   
           dbchart1.Series[0].DataSource:=datam.Data_WeiFaTongJi.DataSet;   
           dbchart1.Series[0].XLabelsSource:='weizhang';   
           dbchart1.Series[0].YValues.ValueSource    :=    'yi';   
           dbchart1.Series[0].Active:=true    ;         
   end;   

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值