關於DBchart |
缺席
|
BOSS
中階會員 發表:70 回覆:79 積分:64 註冊:2006-11-01 發送簡訊給我 |
請問各位前輩
為何我所畫出來的圖日期是從 2004/1/7 開始而不是從 2003/12/15開始
x:日期 y:數據
資料
1001 2004/1/7 -0.3018
1001 2004/2/3 0
1001 2004/4/5 -4.375
1002 2003/12/15 0
1002 2004/1/2 0
1002 2004/2/3 0
1002 2004/4/5 -5.5224 程式碼如下
var i,cnt:Integer; Series:TLineSeries; list:TStringList; spfno:string; begin cnt:=0; list:=TStringList.Create; try with ADOQuery1 do begin while not Eof do begin if spfno <> FieldByName('pfno').AsString then begin spfno:= FieldByName('pfno').AsString; cnt:=cnt 1; list.Add(FieldByName('pfno').AsString); end; Next; end; end; ADOQuery1.First; for i :=0 to cnt-1 do begin Series := TLineSeries.Create (DBChart1); Series.ParentChart := DBChart1; Ado:=TADOQuery.Create(nil); Ado.Name:='ADO' IntToStr(i 1); Ado.Recordset:=ADOQuery1.Recordset; Ado.Filtered:=False; Ado.Filter:='pfno = ' QuotedStr(Trim(list.Strings[i])); Ado.Filtered:=true; Series.DataSource := Ado; Series.Title:=list.Strings[i]; Series.XLabelsSource := 'dt'; Series.YValues.ValueSource:='frate'; // Series.Marks.Visible:=true; // Series.Marks.Style:=smsValue; DBChart1.AddSeries (Series); end; finally FreeAndNil(list); // FreeAndNil(Ado); end; |
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |