DBCHART

KeyLife富翁笔记
作者: ralphzhong
标题: 动态数据DBChart
关键字: ----自己写的程序(通过DBGrid)
分类: 开发技巧
密级: 公开
(评分: , 回复: 0, 阅读: 168) »»

procedure TChartFrm.Button1Click(Sender: TObject);
var
  myseries:array of TBarSeries;
  i:integer;
begin
  setlength(myseries,Lanstart.DBGrid1.Columns.Count);
  DBChart1.View3D:=false;
  DBChart1.FreeAllSeries;
  For i:=0 to Lanstart.DBGrid1.Columns.Count-1  do
   begin
     myseries[i]:= TBarSeries.Create(self);
     With myseries[i] do
      begin
        ParentChart := DBChart1;
        marks.Style:= smsvalue;
        DataSource := dataset.ADOQuery2;
        if i=0 then
          XLabelsSource := Lanstart.DBGrid1.Columns[i].FieldName
        else
          begin
            XLabelsSource := Lanstart.DBGrid1.Columns[0].FieldName;
            YValues.ValueSource := Lanstart.DBGrid1.Columns[i].FieldName;
          end;
      end;
     //CheckDatasource;
   end;
end;

posted on 2005-11-17 18:25 青蛙學堂 阅读(1323) 评论(4)  编辑 收藏 引用 所属分类: 軟件布袋

评论

# re: DBCHART 2005-11-18 08:05 syp




xvalue

yvalue


mark-->style





  回复  更多评论   

# re: DBCHART 2005-11-26 18:06 chinason

good article  回复  更多评论   

# re: DBCHART 2006-03-24 16:29 gugu

有机会,和你学学啊,联系我!  回复  更多评论   

# re: DBCHART 2009-01-07 11:27 请教

请教,怎样把数据库中多个同类表格中的三种属性的量通过三个dbchart显示曲线呢?  回复  更多评论   

只有注册用户登录后才能发表评论。
<2014年12月>
30123456
78910111213
14151617181920
21222324252627
28293031123
45678910

导航

统计

常用链接

留言簿(7)

随笔分类

随笔档案

收藏夹

青蛙学堂

最新评论

阅读排行榜

评论排行榜