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

請教前輩DBChart1 圖形殘留要如何清除?

缺席
K1086
初階會員


發表:61
回覆:142
積分:40
註冊:2007-04-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2017-05-17 22:07:29 IP:61.223.xxx.xxx 未訂閱

[code delphi]
procedure TT539_Picks_NumFm1.HemisphereButton2Click(Sender: TObject);
var Series1,Series2:TBarSeries;
i:integer;
TestArr: array of TBarSeries;
TestBrr: array of TBarSeries;
begin
Query4.Active :=TRUE;
SetLength(TestArr, Query4.FieldCount);
DBChart1.FreeAllSeries;
for i :=0 to Query4.FieldCount-1 do
begin
if i< Query4.FieldCount-1 then
begin
TestArr[i]:= TBarSeries.Create(nil);
TestArr[i].ParentChart:=self.DBChart1;
TestArr[i].Marks.Visible:=False;
TestArr[i].DataSource:=Query4;
TestArr[i].YValues.ValueSource:=Query4.Fields[1].FieldName;
TestArr[i].XLabelsSource:=Query4.Fields[0].FieldName;
TestArr[i].Title :=Query4.Fields[i].FieldName;
end;
end;
DBChart1.Repaint;

Query5.Active :=TRUE;
SetLength(TestBrr, Query5.FieldCount);
DBChart2.FreeAllSeries;
for i :=0 to Query5.FieldCount-1 do
begin
if i< Query5.FieldCount-1 then
begin
TestBrr[i]:= TBarSeries.Create(nil);
TestBrr[i].ParentChart:=self.DBChart2;
TestBrr[i].Marks.Visible:=False;
TestBrr[i].DataSource:=Query5;
TestBrr[i].YValues.ValueSource:=Query5.Fields[1].FieldName;
TestBrr[i].XLabelsSource:=Query5.Fields[0].FieldName;
TestBrr[i].Title :=Query5.Fields[i].FieldName;
end;
end;
DBChart2.Repaint;
end;
[/code]
Query5 SQL (TStrings):SELECT NUMS, COUNT(NUMS) COUNTS FROM KG539_NUM
GROUP BY NUMS ORDER BY COUNTS DESC, NUMS
Query4 SQL (TStrings):SELECT NUMS, COUNT(NUMS) COUNTS FROM KG539_2NUM
GROUP BY NUMS ORDER BY COUNTS DESC, NUMS
※問題是 Query5 載入圖形一直都會殘留 (Query4 載入圖形就可以一直更新) 請教各位前輩們指導 是否語法上或是那裡要更正 謝謝!!!

編輯記錄
K1086 重新編輯於 2017-05-17 22:09:06, 註解 無‧
K1086
初階會員


發表:61
回覆:142
積分:40
註冊:2007-04-09

發送簡訊給我
#2 引用回覆 回覆 發表時間:2017-05-18 21:53:44 IP:114.46.xxx.xxx 未訂閱

===================引 用 K1086 文 章===================

[code delphi]
procedure TT539_Picks_NumFm1.HemisphereButton2Click(Sender: TObject);
var Series1,Series2:TBarSeries;
i:integer;
TestArr: array of TBarSeries;
TestBrr: array of TBarSeries;
begin
Query4.Active :=TRUE;
SetLength(TestArr, Query4.FieldCount);
DBChart1.FreeAllSeries;
for i :=0 to Query4.FieldCount-1 do
begin
if i< Query4.FieldCount-1 then
begin
TestArr[i]:= TBarSeries.Create(nil);
TestArr[i].ParentChart:=self.DBChart1;
TestArr[i].Marks.Visible:=False;
TestArr[i].DataSource:=Query4;
TestArr[i].YValues.ValueSource:=Query4.Fields[1].FieldName;
TestArr[i].XLabelsSource:=Query4.Fields[0].FieldName;
TestArr[i].Title :=Query4.Fields[i].FieldName;
end;
end;
DBChart1.Repaint;

Query5.Active :=TRUE;
SetLength(TestBrr, Query5.FieldCount);
DBChart2.FreeAllSeries;
for i :=0 to Query5.FieldCount-1 do
begin
if i< Query5.FieldCount-1 then
begin
TestBrr[i]:= TBarSeries.Create(nil);
TestBrr[i].ParentChart:=self.DBChart2;
TestBrr[i].Marks.Visible:=False;
TestBrr[i].DataSource:=Query5;
TestBrr[i].YValues.ValueSource:=Query5.Fields[1].FieldName;
TestBrr[i].XLabelsSource:=Query5.Fields[0].FieldName;
TestBrr[i].Title :=Query5.Fields[i].FieldName;
end;
end;
DBChart2.Repaint;
end;
[/code]
Query5 SQL (TStrings):SELECT NUMS, COUNT(NUMS) COUNTS FROM KG539_NUM
GROUP BY NUMS ORDER BY COUNTS DESC, NUMS
Query4 SQL (TStrings):SELECT NUMS, COUNT(NUMS) COUNTS FROM KG539_2NUM
GROUP BY NUMS ORDER BY COUNTS DESC, NUMS
※問題是 Query5 載入圖形一直都會殘留 (Query4 載入圖形就可以一直更新) 請教各位前輩們指導 是否語法上或是那裡要更正 謝謝!!!

※ 小弟一直再追蹤原來好像是 Query5 SQL 與 Query4 SQL SELECT的值沒有變動 所以才不會改變圖形 請教前輩指導要如何清掉 SELECT的值 謝謝!!!
K1086
初階會員


發表:61
回覆:142
積分:40
註冊:2007-04-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2017-05-26 21:45:51 IP:36.232.xxx.xxx 未訂閱
小弟已經抓到問題出現在  Query5  FROM KG539_NUM 的資料沒有更新所致,資料更新就 OK了
系統時間:2017-09-25 3:32:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!