DbChart的series数据源是adoquery1，它的labels数据源怎么写？

Question

我知道series1.YValues.ValueSource:='字段名'  是它的Y轴数据源。还有，series1..style设置它为labels型，怎么设？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 vPie: TPieSeries;
 vBar: TBarSeries;
begin
 DBChart1.SeriesList.Clear;
 vBar := TBarSeries.Create(nil);
 DBChart1.AddSeries(vBar);
 vBar.ParentChart := DBChart1;
 vbar.BarStyle :=bsRectGradient;
 vbar.ColorEachPoint :=True;
 vbar.XValues.DateTime := False;
 vbar.AutoBarSize :=False;
 vbar.BarWidthPercent := 100;
 vbar.OffsetPercent :=0;
 vBar.Marks.Style := smsValue;
 vbar.DataSource:=adoquery1;
 vbar.XLabelsSource:=DBGrid1.Columns[1].FieldName ;
 vbar.YValues.ValueSource:=DBGrid1.Columns[4].FieldName;
 vbar.RefreshSeries;
 //vbar.YValues.ValueSource:='11';end;