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

如何动态制定DBCHART的数据

尚未結案
mayingjie313
一般會員


發表:7
回覆:11
積分:3
註冊:2008-09-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-11-20 16:06:16 IP:222.247.xxx.xxx 未訂閱
各位大大好,我的数据库名称是不断变化的,想通过DBCHART上seriers 上的dataset动态实现,但是我找不到方法
只知道
Series1.DataSource:=ADOTable2;
但是后面怎么指定X,Y对应表里面的时间和长度呢?
谢谢
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-11-21 09:22:47 IP:122.116.xxx.xxx 未訂閱
您好,

剛剛 google 到, 沒實測

series1.xvalues.valuesource := // fieldname
series1.yvalues.valuesource := // fieldname

========================================================
我剛剛實測一個例子, 和您的不太一樣, 仍請參考一下

拉一個 tdbchart, tbutton, tquery

procedure TForm1.Button1Click(Sender: TObject);
var series1, series2 : tfastlineseries;
begin
series1 := tfastlineseries.Create(nil);
dbchart1.AddSeries(series1);
with dbchart1.series[0] do begin
title :='test1';
DataSource := query1;
XLabelsSource := 'data_date';
YValues.valuesource := 'cpri1';
CheckDataSource;
end;
series2 := tfastlineseries.Create(nil);
dbchart1.AddSeries(series2);
with dbchart1.series[1] do begin
title :='test2';
DataSource := query1;
XLabelsSource := 'data_date';
YValues.valuesource := 'cpri2';
CheckDataSource;
end;
query1.open;
end;


===================引 用 mayingjie313 文 章===================
各位大大好,我的数据库名称是不断变化的,想通过DBCHART上seriers 上的dataset动态实现,但是我找不到方法
只知道
Series1.DataSource:=ADOTable2;
但是后面怎么指定X,Y对应表里面的时间和长度呢?
谢谢
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2008-11-21 10:08:01, 註解 無‧
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-11-21 10:49:36 IP:125.89.xxx.xxx 未訂閱
插个花
[code delphi]
Series1.DataSource:=DataSource1; //用DataSource1指定相应的数据表,比如说AdoTable1……
while not DataSource1.DataSet.Eof do
begin
Series1.AddXY(DataSource1.DataSet.FieldValues['时间'],DataSource1.DataSet.FieldValues['长度'],'',Clred);
DataSource1.DataSet.next;
end;
[/code]
編輯記錄
deity 重新編輯於 2008-11-21 10:53:09, 註解 無‧
mayingjie313
一般會員


發表:7
回覆:11
積分:3
註冊:2008-09-23

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-11-21 16:22:50 IP:222.247.xxx.xxx 未訂閱
谢谢
可以用,我现在想问一下,假如是adotable1
那么我 用
adotable1.close;
adotable1.open;
来更新TDBCHART 要是数据库的数据太多的话,会影响系统速度,而没ADDXY好 啊 ?
===================引 用 st33chen 文 章===================
您好,

剛剛 google 到, 沒實測

series1.xvalues.valuesource := // fieldname
series1.yvalues.valuesource := // fieldname
系統時間:2024-04-26 1:39:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!