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

QuickReport建立的問題.....急

尚未結案
her5405
一般會員


發表:6
回覆:1
積分:1
註冊:2004-12-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-09-27 16:26:47 IP:211.75.xxx.xxx 未訂閱
各位先進:   請問我如想在報表列印時再CREATE QuickReport元件,不要在專案建立時就先 建立不知可不可行,要怎麼作,懇請各位先進賜教。因我自己試過會產生記憶體 有問題或QuickReport元件己存在等問題.......目前我的作法是在專案建立時就把所有報表建立,這樣作吃記憶體空間愈來愈大,因報表數愈來愈多...... 我建立的專寀架構如下
scotthsiao
高階會員


發表:13
回覆:324
積分:147
註冊:2005-02-01

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-09-27 17:02:13 IP:210.66.xxx.xxx 未訂閱
可以建立共用的報表檔,再依需求修改欄位即可。 雖然報表檔很多,如果不用時也不開啟,應該不會佔記憶體,頂多佔硬碟空間而已。所以可以把報表檔移到 Available forms ,不用自動開啟。 發表人 - scotthsiao 於 2005/09/27 17:10:34
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-09-28 08:55:39 IP:202.62.xxx.xxx 未訂閱
您好﹗    QuickRep元件也是以Form為基礎進行建立的﹐所以只需要同普通的Form建立方法一下﹐將此包含QuickRep元件的Form建立為手動Create(即Available Form)即可﹐無需去考量QuickRep元件本身的問題﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================
------
忻晟
her5405
一般會員


發表:6
回覆:1
積分:1
註冊:2004-12-19

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-09-28 08:58:19 IP:211.75.xxx.xxx 未訂閱
scotthsiao: 請問若我把報表移至Available forms 那請問我需要開啟報表時該如何下達報表建立的程式碼???那何時需要把報表元件釋放???可以提供範例以供參改嗎??? 謝謝...
scotthsiao
高階會員


發表:13
回覆:324
積分:147
註冊:2005-02-01

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-09-28 09:31:13 IP:211.74.xxx.xxx 未訂閱
以下是某段報表的例子,從別的 form 上執行:  
   FmPickOutPt:= TFmPickOutPt.Create(Application);
   FmPickOutPt.LbPickNo.Caption := '';
   FmPickOutPt.LbSche1.Visible  := true;
   FmPickOutPt.LbSche1.Caption  := '單  號  :';
   FmPickOutPt.LbSche2.Visible  := true;
   FmPickOutPt.LbSche2.Caption  := sOrdNo;
   FmPickOutPt.LbType.Caption   := sTitle;
   FmPickOutPt.LbUser.Caption   := sUserName; 
   FmPickOutPt.QRLabel2.Caption := '';
   FmPickOutPt.QRLabel6.Caption := '出庫日期';
   FmPickOutPt.QRLabel7.Caption := '料號';
   FmPickOutPt.QRLabel9.Caption := '品名';
   FmPickOutPt.QRLabeL8.Caption := '系列';
   FmPickOutPt.QRLabel11.Caption:= '出庫單號';
   FmPickOutPt.QRLabel16.Caption:= '';       FmPickOutPt.QrOut.Close;
   FmPickOutPt.QrOut.SQL.Clear;
   FmPickOutPt.QrOut.SQL.Add(sSOutPt);
   FmPickOutPt.QrOut.Open;
   FmPickOutPt.QuickRep1.Preview;
   FmPickOutPt.Free;
 
系統時間:2024-06-16 11:51:07
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!