DbChart的series数据源是adoquery1,它的labels数据源怎么写? 我知道series1.YValues.ValueSource:='字段名' 是它的Y轴数据源。还有,series1..style设置它为labels型,怎么设? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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; Excel导入SQL Server 如何修改文件的备注信息?参与给分! 下载Web服务器上的文件? 请问ADOCONNECTIONG怎么开始事件、提交事件和取消事件? 请问:钩子安装函数SetWindowsHookEx到底应该怎么安装键盘钩子? 问一个如何安装组件的问题 读写网络中其它计算机的注册表,这样为何不行? 关于日期格式和货币格式问题 dbgrid数据刷新问题 机器老“卡卡”响怎么办?刚装了系统也不好使?大家帮帮忙啊! 关于水晶报表的问题。 想换个活法!!(求出路,各位进来说说!!)
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;