請教一下 為什麼報表上無法顯示chartsk |
|
答題得分者是：chih
|
|
jiannrong
一般會員   發表：58 回覆：36 積分：18 註冊：2002-05-09 發送簡訊給我 |
請教一下 我在報表這裡新增了一個QRChart元件
希望他能夠顯示圖表內容提供列印
可是 為什麼我的圖表無法出現在預覽列印的畫面裡面呢
我把程式碼放在
http://home.pchome.com.tw/club/jiannrong/quick_new.exe 我在呼叫QuickRep1的地方寫上這樣的程式語法 我想這樣應該
沒有問題吧 文字部分 都能夠正常顯示 procedure TTimeReportForm.Button1Click(Sender: TObject);
var
qtxt:string;
begin
qtxt:='select * from first' ;
try
Application.CreateForm(TPrtProject, PrtProject);
with PrtProject.Query1 do begin
Close;
SQL.Clear;
SQL.Add(qtxt);
Open;
if IsEmpty then
MessageDlg('查無資料列印!',mtInformation,[mbOK],0)
else begin
PrtProject.QuickRep1.Prepare;
PrtProject.TotalPage:=PrtProject.QuickRep1.PageNumber;
if CheckBox11.Checked= True then PrtProject.QuickRep1.Preview
else PrtProject.QuickRep1.Print;
end;
end;
finally
PrtProject.Query1.Close;
PrtProject.Free;
end;
end; 那在包含QuickRep1的表單內 我是在包含者圖表的band與chart兩個地方
都加上程式碼 同時 也在chart的Data Source內改為DataSet 可是
為什麼我的Chart無法出現呢 procedure TPrtProject.QRBand3BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
data1:integer;
str1:string;
begin
str1:='施工測量放樣'; Query1.close;
Query1.SQL.Clear;
try
Query1.SQL.ADD('select people from first where title ='' str1 ''');
Query1.Prepare;
Query1.Open;
if not Query1.FieldByName('people').IsNull then
data1 := Query1.FieldByName('people').AsInteger;
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
Series1.AddBar (data1, str1, clRed);
end; procedure TPrtProject.QRChart1Print(Sender: TQRChart; var PaperRect,
ChartRect: TRect);
var
data1:integer;
str1:string;
begin
str1:='施工測量放樣'; Query1.close;
Query1.SQL.Clear;
try
Query1.SQL.ADD('select people from first where title ='' str1 ''');
Query1.Prepare;
Query1.Open;
if not Query1.FieldByName('people').IsNull then
data1 := Query1.FieldByName('people').AsInteger;
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
Series1.AddBar (data1, str1, clRed);
end; 不好意思 若您方便 可否幫我檢查看看 是哪裡出了問題
或是 告訴我哪裡有相關的資料可以找尋 我自己到該網頁上查看 中英文網頁都可以
也是可以的 謝謝
|
|
jiannrong
一般會員 發表：58 回覆：36 積分：18 註冊：2002-05-09 發送簡訊給我 |
|
|
chih
版主  發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
發表時間：2002-09-07 13:12:23
IP:61.70.xxx.xxx 未訂閱
系統時間：2024-04-20 15:29:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |