全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1630
推到 Plurk!
推到 Facebook!

fastreport 动态图表

尚未結案
maoyunaa
一般會員


發表:2
回覆:1
積分:0
註冊:2010-12-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-12-20 21:20:50 IP:61.145.xxx.xxx 訂閱
大家好:
如何在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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-12-23 20:40:30 IP:61.145.xxx.xxx 訂閱
难道就没有高手能解决这个问题吗?
------
OK
系統時間:2024-04-19 21:30:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!