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

如何使QReport報表關閉後回復設定值?

答題得分者是:redjeff
Reiji
初階會員


發表:30
回覆:57
積分:32
註冊:2008-06-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-12-01 15:29:36 IP:61.219.xxx.xxx 訂閱
請問該如何使QReport報表關閉後回復設定值?
例如使用者按下列印後,修改列印設定,或在列印過程中已由程式修改欄位的設定
如何在使用者關閉報表後(不是Fromclose)將報表設定改回Fromshow時一樣的設定?

------
永遠都是新手
jrsty
一般會員


發表:1
回覆:11
積分:7
註冊:2008-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-12-04 11:56:19 IP:60.249.xxx.xxx 未訂閱
小小想法~~

不知可不可以幫你解決

在final中
釋放掉......... 應該可以在下次開啟時就會重讀值了吧@@

再不然就在final中把值全變回來吧XD
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-12-04 20:24:26 IP:122.116.xxx.xxx 未訂閱
您好

free
後再
create
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
Reiji
初階會員


發表:30
回覆:57
積分:32
註冊:2008-06-26

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-12-08 13:36:02 IP:61.219.xxx.xxx 訂閱
感謝st33chen大和jrsty大
但是小弟愚昧~XD
還是不太清楚究竟要從哪裡開始下code
腦袋裡一整個模糊
------
永遠都是新手
careychen
尊榮會員


發表:41
回覆:580
積分:959
註冊:2004-03-03

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-12-08 14:45:15 IP:60.248.xxx.xxx 訂閱
如果不知道怎麼處理,那您現在是怎麼呼叫,怎麼使用的,可以 po 部份 Code 給兩位前輩幫您解決~~!

===================引 用 Reiji 文 章===================
感謝st33chen大和jrsty大
但是小弟愚昧~XD
還是不太清楚究竟要從哪裡開始下code
腦袋裡一整個模糊
------
價值的展現,來自於你用哪一個角度來看待它!!
Reiji
初階會員


發表:30
回覆:57
積分:32
註冊:2008-06-26

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-12-09 09:36:47 IP:61.219.xxx.xxx 訂閱

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var str;
begin

if Query.Fields[1].ASFloat=0 then begin
TmpQRDBText1.DataField:='error';
TmpQRDBText1.Alignment:=taCenter;

//能否有方法讓TmpQRDBText1每次重新開都回到預設?不需要以下程式碼?
//end else begin
// TmpQRDBText1.DataField:=Query.Fields[1].DisplayName;
// TmpQRDBText1.Alignment:=taLeftJustify;
//並且因為置左置中的改變在資料轉換過程中會產生位移
end;

QRCompositeReport1.Reports.Clear;
QRCompositeReport1.Prepare;
QRCompositeReport1.Preview;
end;

[/code]

其實小弟已經用其他方法來解決這個位移的問題(例如乾脆全部置中)
但總覺得想要看看是否有其他解決的方法@@"
------
永遠都是新手
redjeff
一般會員


發表:12
回覆:16
積分:10
註冊:2006-07-06

發送簡訊給我
#7 引用回覆 回覆 發表時間:2008-12-10 11:31:07 IP:59.125.xxx.xxx 未訂閱
我猜上面二位大大的說法應該是這樣子,把你要開啟的form做try...finally...end,誤解錯誤請見諒~~~~
Try
create 報表form_NAME
Finally
報表form_name.FREE
End;
系統時間:2024-05-15 18:53:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!