線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1730
推到 Plurk!
推到 Facebook!

請教非 db chart 的x 軸或y軸 如何設定(如何連結某個table的欄位 )?

尚未結案
seedbcc
高階會員


發表:232
回覆:272
積分:105
註冊:2003-12-10

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-01 20:40:22 IP:211.76.xxx.xxx 未訂閱
請教非 db chart 的x 軸或y軸 如何設定(如何連結某個table的欄位 )?    我用的是一般的chart(Tchart) Series是用 TQCSeries    小弟先用同事的一個函數取得 drawvalues用的Tvec (如CtDataU) SPC_XBarR_Chart(DataMtx,CtDataU,CtDataD,Tmp_SampleSize);    再自己傳入相關參數到我寫的procedure內 Qc_Draw(Series_Up,ctdataU,Value[11],Value[10],Value[12]);    Procedure如下:
procedure TFrm_Chart.Qc_Draw
(xbar_R_Series: TQcSeries;CtData:Tvec;var CL, UCL, LCL : TSample);
begin
  xbar_R_Series.CL  := CL;
  xbar_R_Series.LCL := LCL;
  xbar_R_Series.UCL := UCL;
  DrawValues(CtData,xbar_R_Series);
  xbar_R_Series.ColorEachLine:=False;
end;
請教我這一個series的 X軸及Y軸 想要帶入一個TABLE的二個欄位值 直接顯示 在X軸及 Y軸 不知道可行嗎 PS:再次強調我用的不是DBCHART 那 X軸 或 Y軸 可以 連結 我select出來的資料,的其中二個欄位嗎? 不知要如何設定,請教各位大大
StrongLemon
高階會員


發表:10
回覆:166
積分:105
註冊:2004-04-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-11 22:41:43 IP:211.74.xxx.xxx 未訂閱
範例如下    
procedure TForm1.Button2Click(Sender: TObject);
var
  I:Integer;
begin
  Series1.Clear;
  I:=0;
  Chart1.BottomAxis.LabelsAngle:=90;
  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    if ADOQuery1.FieldByName('Y').IsNull=True then //判斷要不要畫點
    begin
      Series1.AddNullXY(ADOQuery1.FieldByName('X').AsFloat,ADOQuery1.FieldByName('Y').AsFloat,'')
    end
    else
    begin
      Series1.AddXY(ADOQuery1.FieldByName('X').AsFloat,ADOQuery1.FieldByName('Y').AsFloat,'')
    end;
    Series1.XLabel[I]:=DateTimeToStr(Trunc(ADOQuery1.FieldByName('DateTime').AsFloat)); //X軸用日期
    Inc(I);
    ADOQuery1.Next;
  end;
end;
 
系統時間:2024-05-06 19:53:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!