那位朋友有关于Tdbchart 的详资料。帮帮忙!!!

解决方案 »

  1.   

    只能告诉你,看Delphi下的Demo和帮助文件吧。很难找
      

  2.   

    给你点我的例子吧
    procedure  tchartform.getbar(x,y:string);
    var series1:tbarseries;
    begin
      series1:=tbarseries.Create(self);
      series1.ParentChart:=dbchart1;
      series1.DataSource:=dbset;
      series1.XLabelsSource:=x;
      series1.yValues.ValueSource:=y;
      series1.Title:=x;
     // series1.XLabelsSource:
      series1.Active:=true;
      dbchart1.BottomAxis.Title.caption:=x;
      dbchart1.leftAxis.Title.caption:=y;
      dbchart1.leftAxis.Title.Angle:=0;
    end;procedure  tchartform.getpie(x,y:string);
    var series1:tpieseries;
        i:integer;
    begin
      series1:=tpieseries.Create(self);
      series1.ParentChart:=dbchart1;
      series1.DataSource:=dbset;
      series1.PieValues.ValueSource:=x;
      series1.XLabelsSource:=y;
      
     // for i:=1 to series1.Labels.Count do
       //  series1.Labels.Items[i]:=
      // series1.PieValues.Sort;
    //  series1.yValues.ValueSource:=y;  dbchart1.Title.Text.Text:=datfm.caption;
      series1.Active:=true;
    end;
    其中有的变量你猜都猜得出来是什么,比如dbset就是一个tdataset