QuickReport 一定要與資料庫結合使用嗎?? |
|
缺席
|
|
elvis114
一般會員   發表：37 回覆：53 積分：18 註冊：2003-06-17 發送簡訊給我 |
|
|
ko
資深會員  發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
|
|
elvis114
一般會員 發表：37 回覆：53 積分：18 註冊：2003-06-17 發送簡訊給我 |
不知是否QuickReport我設定有甚麼問題!!
1.沒有出現標題.
2.而且撈出字串只出現一行 =======================
謝謝各位大德不吝賜教!!
小弟感激不進
------
願 南無藥師琉璃光如來 保佑您 |
|
star
初階會員 發表：37 回覆：93 積分：36 註冊：2002-07-18 發送簡訊給我 |
改用TQRMemo,AutoStretch設為True procedure TForm1.DetailBand`BeforePrint(Sender:TQRCustomBand; var PrintBand: Boolean);
var
ff : textfile;
currline : string;
begin
AssignFile(ff,'c:\xxxx');
ReSet(ff);
QrMemo1.Lines.Clear;
while not Eof(ff) do
begin
ReadLn(ff,currline);
QrMemo1.Lines.Add(currline);
end;
end;
|
|
elvis114
一般會員 發表：37 回覆：53 積分：18 註冊：2003-06-17 發送簡訊給我 |
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
|
|
elvis114
一般會員 發表：37 回覆：53 積分：18 註冊：2003-06-17 發送簡訊給我 |
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
elvis114你好:
這樣吧!! 你開個新的專案,上面只放QuickReport跟QRLabel
然後在FormCreate設定
procedure TForm1.FormCreate(Sender: TObject);
begin
QRLabel1.Height:=screen.Height;
QRLabel1.Caption:='1' #13 '2' #13 '3' #13 '4' #13 '5';
end;
在run看結果
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
|
elvis114
一般會員 發表：37 回覆：53 積分：18 註冊：2003-06-17 發送簡訊給我 |
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
|
|
elvis114
一般會員 發表：37 回覆：53 積分：18 註冊：2003-06-17 發送簡訊給我 |
|
|
hahalin
版主  發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
既然不預覽報表只要存成檔案
那何必去報表繞一圈 直接用tstringlist去savetofile不好了 There is a raising fire in my heart tonight,growing higher and higher in my soul
I want to ride on the silver dove far into the night,till I make you take me on your mighty wing,take me on your mighty wing to cross the sky
|
|
elvis114
一般會員 發表：37 回覆：53 積分：18 註冊：2003-06-17 發送簡訊給我 |
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
sorry 這個問題因為你說要存成txt
所以我就這樣建議
如果這樣回答不妥 我閉嘴 There is a raising fire in my heart tonight,growing higher and higher in my soul
I want to ride on the silver dove far into the night,till I make you take me on your mighty wing,take me on your mighty wing to cross the sky
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
|
|
elvis114
一般會員 發表：37 回覆：53 積分：18 註冊：2003-06-17 發送簡訊給我 |
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
請大家掌聲鼓勵鼓勵 elvis114同學正是寫程式的一個典範 尋求解答與終於自學求得解的過程正是我們所需要學習的 有為者如是也 There is a raising fire in my heart tonight,growing higher and higher in my soul
I want to ride on the silver dove far into the night,till I make you take me on your mighty wing,take me on your mighty wing to cross the sky
|
發表時間：2003-07-31 10:17:17
IP:61.220.xxx.xxx 未訂閱
系統時間：2024-05-05 9:39:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |