為何出現兩個重複的圖表呢 |
|
尚未結案
|
|
jiannrong
一般會員   發表：58 回覆：36 積分：18 註冊：2002-05-09 發送簡訊給我 |
請教一下 我想要在報表內顯示出圖表出來
於是我在QuickRep1裡面放了QRBand3 Bandtype選擇
rbSummary
可是預覽畫面內 圖表內的項目 居然出現兩次
請看圖
http://home.pchome.com.tw/club/jiannrong/temp/b1.jpg
請教一下 我的語法哪裡有錯呢
附上部分語法 尚請指教 謝謝
procedure TPrtPerson.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
qtxt:string;
str1:string;
str2:string;
str3:string;
str4:string;
str5:string;
str6:string;
str7:string;
str8:string;
str9:string;
data1:integer;
data2:integer;
data3:integer;
data4:integer;
data5:integer;
data6:integer;
data7:integer;
data8:integer;
data9:integer;
data10:integer;
data11:integer;
data12:integer;
data13:integer;
data14:integer;
data15:integer;
data16:integer;
begin
//
Title1:='測量放樣';
Title2:='混凝土基座施工';
Title3:='鋼軌焊接及長焊軌連接--火花桿';
Title4:='鋼軌焊接--長桿軌連接';
Title5:='鋼軌焊接--IRJ安裝及鋁熱桿';
Title6:='扣件放樣';
Title7:='長焊軌運送';
Title8:='長焊軌舖設';
Title9:='鋼軌應力解除';
Title10:='長焊軌微調';
Title11:='安裝測量';
Title12:='導電軌安裝';
Title13:='道岔組裝--地下段';
Title14:='道岔組裝--機廠區';
Title15:='電氣測試';
Title16:='淨空檢核';
//第一筆
DM.Query1.close;
DM.Query1.SQL.Clear;
try
DM.Query1.SQL.ADD('select people from first where title =''' Title1 '''');
DM.Query1.Prepare;
DM.Query1.Open;
if not DM.Query1.FieldByName('people').IsNull then
data1 := DM.Query1.FieldByName('people').AsInteger;
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end; //第二筆
DM.Query1.close;
DM.Query1.SQL.Clear;
try
DM.Query1.SQL.ADD('select people from first where title =''' Title2 '''');
DM.Query1.Prepare;
DM.Query1.Open;
if not DM.Query1.FieldByName('people').IsNull then
data2 := DM.Query1.FieldByName('people').AsInteger;
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end; //以下為第三筆一直到第十六筆的設定 //將每筆紀錄的值加入Series內
Series1.AddBar (data1,title1, clRed);
Series1.AddBar(data2,title2, clyellow);
Series1.AddBar(data3,title3 , clGreen);
Series1.AddBar(data4,title4, clWhite);
Series1.AddBar(data5,title5, clblack);
Series1.AddBar(data6,title6, clyellow);
Series1.AddBar(data7,title7 , clRed);
Series1.AddBar(data8,title8 , clyellow);
Series1.AddBar(data9,title9, clRed);
Series1.AddBar(data10,title10, clyellow);
Series1.AddBar(data11,title11 , clGreen);
Series1.AddBar(data12,title12, clWhite);
Series1.AddBar(data13,title13, clblack);
Series1.AddBar(data14,title14, clyellow);
Series1.AddBar(data15,title15 , clRed);
Series1.AddBar(data16,title16 , clyellow);
end;
|
|
chih
版主  發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
發表時間：2002-11-22 01:33:03
IP:61.70.xxx.xxx 未訂閱
系統時間：2024-05-05 19:27:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |