fastreport 动态图表 |
尚未結案
|
maoyunaa
一般會員 發表:2 回覆:1 積分:0 註冊:2010-12-20 發送簡訊給我 |
大家好:
如何在fastreport 报表中动态生成Bar.假如在数据库中,有一张表A. 要在程序中动态生成曲线图。因为表A的字段不固定,可能还会有地理、化学、生物等字段. 请问大家有什么好的方法来实现: 详情见下图: 我现在可以用Delphi 自带的DBChart控件来实现。详细代码如下: procedure TForm1.FormShow(Sender: TObject); var Series1,Series2: TLineSeries; i:integer; TestArr: array of TLineSeries; begin ADOQUERY2.Active :=TRUE; SetLength(TestArr, ADOQuery2.FieldCount); DBChart1.FreeAllSeries; for i :=0 to ADOQuery2.FieldCount-1 do begin if i< ADOQuery2.FieldCount-1 then begin TestArr[i]:= TLineSeries.Create(nil); TestArr[i].ParentChart:=self.DBChart1; TestArr[i].Marks.Visible:=False; TestArr[i].DataSource:=ADOQUERY2; TestArr[i].YValues.ValueSource:=ADOQUERY2.Fields[i 1].FieldName; TestArr[i].XLabelsSource:=ADOQUERY2.Fields[0].FieldName; TestArr[i].Title :=ADOQUERY2.Fields[i 1].FieldName; end; end; DBChart1.Repaint; end; 但我想用Fastreport自带的控件TfrxChartView控件,但总不能实现动态增加Series功能。请高手指点如何动态生成曲线图表。 thanks
------
OK |
maoyunaa
一般會員 發表:2 回覆:1 積分:0 註冊:2010-12-20 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |