TChart和TDBChart的用法与区别 -

xinzheng_wang

浏览: 138651 次
性别:

最近访客更多访客>>

yepeng2014

jgr8224

nj_first

FangXu04

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

TChart和TDBChart的用法与区别

在网上转了转,找了一些资料抄下来.

数据图表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;

TChart使用问答

最近开发要使 用图表，Delphi里提供了图表开发的控件TChart，可惜帮助里没有DEMO代码，上网搜索了一下，竟然发现文章也少的可怜。没办法，自己丰衣足 食，写代码试用，看帮助，读代码，搞了半天大概弄明白了TChart的使用方式，下面写一下几个常见问题的解决。

1.如何写一个TChart的Hello World？放一个控件到窗体上，然后写代码加入一个折线数据序列：var
Series: TLineSeries;
begin
Series := TLineSeries.Create(Chart1);
Series.Add(100, 'aaa', clRed);
Series.Add(200, 'AAA', clGreen);
Chart1.AddSeries(Series);
end;
这样就会生成一个简单的折线图表，要生成其它类型的数据图表，可以添加不同的数据序列（各种图表的序列类型可以参考帮助文档）。
2.如何设置图表的标题？TChart组件提供了Title属性可以这是图表的标题，包括标题的内容、字体、对齐方式等都可以通过Title属性设置。
最简单的设置方式：Chart1.Title.Text.Text := '图表的标题';
3.如何修改图表的背景颜色和整个图表的颜色？TChart是一个窗体控件，可以通过修改Color属性设置图表颜色，这是一种最简单的方式：Chart1.Color := clWhite;
修改图表部分的背景色可以通过BackColor属性来实现：Chart1.BackColor := clGreen;此外，TChart还提供了渐变的背景支持，通过Gradient控制：Chart1.Gradient.Visible := True;
Chart1.Gradient.Direction := gdFromTopLeft;
Chart1.Gradient.StartColor := clGreen;
Chart1.Gradient.EndColor := clYellow;4.TChart的3D效果如何控制？TChart提供了View3D属性，控制是否使用3D效果，View3dWalls属性控制是否显示左侧的3D墙效果5.如何不显示图表控件生成图表？很遗憾，TChart是一个Windows窗体控件，必须依附一个窗体或Windows控件才能使用。如果要不显示TChart的话，可以将TChart的Visible属性设为False来使用。下面的例子创建了一个隐藏的TChart来生成图表：var
Chart: TChart;
S: TChartSeries;
Tmpfile&: string;
begin
Chart := TChart.Create(nil);
try
   Chart.Parent := Application.MainForm;
   Chart.Visible := False;   Chart.Title.Text.Text := '测试图表';   S := TBarSeries.Create(Chart);   Chart.AddSeries(S);   S.Title := '嘿嘿';
   S.AddXY(1, 56, '一月', clGreen);
   S.AddXY(2, 67, '二月', clYellow);
   S.AddXY(3, 34, '三月', clBlue);
   S.AddXY(4, 78, '四月', clRed);   Chart.View3D := False;
   Chart.BackColor := clWhite;
   Chart.Gradient.StartColor := clWhite;
   Chart.Gradient.EndColor := clWhite;
   Chart.Gradient.Visible := True;   TmpFile := Application.ExeName + '.bmp';   Chart.SaveToBitmapFile(TmpFile);   Image1.Picture.LoadFromFile(TmpFile);
finally
   Chart.Free;
end;
end;
Tchart简单教程delphi用

1.1  [概述]
  TChart是delphi里面一个标准的图形显示控件。它可以静态设计（at design time）也可以动态生成。
1.2  [继承关系]

　　  
TObject
TPersistent
TComponent
TControl
TCustomControl
TWedgetControl
TChart
TCustomPanel
1.3  [tips]
1.3.1  Pro Version支持Bezier , Contour , Radar 和  point3D 曲线
1.3.2  支持jpeg文件的导出
1.3.3  Chart中的Series 可以连接到Table , Query , RemoteDataset(其他数据集)
1.3.4  TChart里的series的active属性可以实现对已绘制图形的显示或者隐藏
1.3.5  在TChart中, tchartSeries是所有具体series的父类,没有画出什么来的,用一个具体的series类来创建就可以了,比如用TLineSeries、 TPieSeries、 TPointSeries、 TPointSeries等等都行
1.3.6  TTeeFunction Component可以实现在同一个TChart里面，一个Serries对另一个Serries的统计
 
1.4  [问题极其使用技巧]
1.4.1  TChart中如何实现只有Y轴的放大与缩小功能？
设置BottomAxis或者LeftAxis的Automatic:=false并同时设置Minimum,Maximum属性
1.4.2  如何固定TChart中的坐标，不使TChart中的坐标跟随Series的变化而变化？
//设置底座标
  with myChart.BottomAxis do
  begin
  Automatic:=false;
  Minimum:=0;
  LabelStyle := talText;
  end;
  //设置左坐标
  with myChart.LeftAxis do
  begin
  Automatic:=false;
  Minimum:=0;
  Title.Angle:=270;
  Title.Font:=Self.Font;
  Title.Font.Charset:=ANSI_CHARSET;
  Title.Font.Name:='@宋体';
  Grid.Visible := False;
  end;
  //设置右坐标
  with myChart.RightAxis do
  begin
  Automatic:=false;
  Title.Font:=Self.Font;
  Title.Font.Charset:=ANSI_CHARSET;
  Title.Font.Name:='@宋体';
  Title.Caption:='累计百分比（%）';
  Maximum:=100;
  Minimum:=0;
  end;
1.4.3  如何删除一个图形中的一个点？
使用Series的delete 方法
1.4.4  如何修改一个点的X或者Y 值？
LineSeries1.YValue[3] := 27.1 ;
{In Bubble Series}
BubbleSeries1.RadiusValues.Value[ 8 ] := 8.1 ;
{In Pie Series}
PieSeries1.PieValues.Value[ 3 ] := 111 ;
1.4.5  如果横坐标是时间（日期），如何进行设置？
{First, you need to set the DateTime property to True in the desired X and/or Y values list.}
LineSeries1.XValues.DateTime := True ;
{Second, use the same above described methods, but give the values as Date, Time or DateTime values}
LineSeries1.AddXY( EncodeDate( 1996 , 1 , 23 ) , 25.4 , 'Barcelona' , clGreen );
1.4.6  如何在chart中画出的曲线某个点上标记出该点的值？
Series.Marks.Visible:=true;
Series.Marks.Style:=smsValue;
1.4.7  如何设置横轴或者纵轴的增长率？
Chart.BottomAxis.Increment := DataTimeStep[ dtOneHour ] ;
Chart.RightAxis.Increment := 1000;
1.4.8  如何对图象进行缩放？
TChart的ZoomRect或者ZoomPercent方法 （Pie图可能不支持缩放）
 
 
1.5  [TChart可以绘制的图形]
1.5.1  Line ( TLineSeries)
1.5.2  FastLine (TFastLineSeries) 相对Line来说，它损耗了某些属性从而来实现快速绘制
1.5.3  Bar (TBarSeries)
1.5.4  Horizontal bar (THorizBarSeries)
1.5.5  Area (TAreaSeries)
1.5.6  Point (TPointSeries)
1.5.7  Pie (TPieSeries)
1.5.8  Arrow (TArrowSeries)
1.5.9  Bubble (TBubbleSeries)
1.5.10  Gantt (TGanttSeries)
1.5.11  Sharp (TChartShape)
1.6  [TChart的实时绘制]
  实时绘制对机器性能要求比较高，因此我们在编程的时候要注意下面几个方面：
ü  使用2D图形
ü  是Chart尽可能包含少的点
ü  如果需要，可以移除（remove）chart的legend(?????)和Title
ü  使用默认的字体和字体大小
ü  使用FastLineSeries
ü  使用实体（solid）画笔和画刷格式
ü  尽量避免使用圆形和环行bar样式
ü  不要使用背景图片和渐变效果样式
ü  把Chart的BevelInner和BevelOUter属性设置为bcNone
ü  如果需要，把TChart的AxisVisible属性设置为False
ü  把BufferedDisplay设置为false可以加速chart的重绘
 
1.7  [Scrolling]
  TChart有4中scroll选择(AllowPanning属性)，分别是 不允许Scroll ( pmNone) ; 水平Scroll (pmHorizontal) ; 垂直Scroll (pmVertical)  ;  水平和垂直Scroll (pmBoth)
Procedure Scroll(Const Offset:Double; CheckLimits:Boolean);
例子如下：
 Chart1.BottomAxis.Scroll(  1000, True );这段代码也等同于
With Chart1.BottomAxis do
Begin
 Automatic:=false;
 SetMinMax( Minimum+1000, Maximum+1000 );
  End;
 
 
1.8  [TChart中的全局变量]
ü  TeeScrollMouseButton := mbRight;设置鼠标右键为TChart滚动键（默认）
ü  TeeScrollKeyShift  := [ ssCtrl ]; 要按住Control键才可以使Scroll滚动
 
1.9  [TChartSerries使用技巧]
1.9.1  运行时候创建一个Serries, 三种方法：
1．Var MySeries : TBarSeries ;
MySeries := TBarSeries.Create( Self );
MySeries.ParentChart := Chart1 ;
  2．Chart1.AddSeries( TBarSeries.Create( Self ) );
  3．Var MyClass : TChartSeriesClass;
MyClass := TBarSeries ;
Chart1.AddSeries( MyClass.Create( Self ) );
1.9.2  获得TChart中的Serries数组，也有三种方法
1．MySeries := Chart1.SeriesList [ 0 ]
2．MySeries := Chart1.Series [ 0 ]
3．MySeries := Chart1 [ 0 ]
1.9.3  SerriesCount属性获得SeriesList中Series的个数
1.9.4  隐藏TChart中的Series有三种方法，但是效果不等价
1．  Series1.Active:=False; 仅仅隐藏，当设置为true的时候还可以显示出来
2．  Series1.ParentChart:=nil ； 隐藏，重新设置ParentChart为TChart时候可以显示
3．  Series1.Free; 删除了Series. 不可以恢复
1.9.5  TChart中的数据排序
  With Series1 do
begin
  YValues.Order:=loAscending;
  YValues.Sort;
  Repaint;
end;
Ø  定位一个点(Loacate a point)
Series1.XValues.Locate(123);
Ø  XValue和YValue都拥有的属性Total , TotalABS , MaxValue , MinValue