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

reportbuild載入模板文件后怎樣給新模板文件中的label的caption附值?

缺席
redtea258259
一般會員


發表:1
回覆:1
積分:0
註冊:2004-04-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-12 21:07:08 IP:218.247.xxx.xxx 未訂閱
各位大大: 安安.. 現有一問題請教, 我現在做了一個加載模板文件的reportbuild 報表..代碼如下: procedure TForm1.Button1Click(Sender: TObject); VAR S: STRING; begin S:=ExtractFilePath(Application.ExeName) 'REPORT\' COMBOBOX1.Text '.RTM' ; IF FILEEXISTS(S) THEN BEGIN ppreport1.Template.FileName:=S; ppreport1.Template.LoadFromFile; ppreport1.PrintReport; END ELSE BEGIN MESSAGEBOX(SELF.HANDLE,'請確定選擇正確的格式','提示',MB_OK); ABORT; END; end; 現我想讓報表preview時可以根據edit1.text的值來改變報表中的label1.caption為'delphi' or 'basic'.. 請問怎樣做呢?
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-12 23:44:37 IP:218.175.xxx.xxx 未訂閱
我試著要像quickreport一樣用report事件來控制,不過都不行    只能從designer下手,用report builder的內建編譯器作...    
writeman
初階會員


發表:31
回覆:34
積分:28
註冊:2004-02-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-14 01:40:03 IP:61.60.xxx.xxx 未訂閱
引言: 各位大大: 安安.. 現有一問題請教, 我現在做了一個加載模板文件的reportbuild 報表..代碼如下: procedure TForm1.Button1Click(Sender: TObject); VAR S: STRING; begin S:=ExtractFilePath(Application.ExeName) 'REPORT\' COMBOBOX1.Text '.RTM' ; IF FILEEXISTS(S) THEN BEGIN ppreport1.Template.FileName:=S; ppreport1.Template.LoadFromFile; pplabel1.Caption:= combobox1.Text; ppreport1.PrintReport; END ELSE BEGIN MESSAGEBOX(SELF.HANDLE,'請確定選擇正確的格式','提示',MB_OK); ABORT; END; end; 現我想讓報表preview時可以根據edit1.text的值來改變報表中的label1.caption為'delphi' or 'basic'.. 請問怎樣做呢?
發表人 - writeman 於 2004/11/14 01:44:18
bayman
一般會員


發表:30
回覆:35
積分:18
註冊:2007-04-24

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-05-16 14:33:34 IP:219.130.xxx.xxx 訂閱
同求,謝謝!
bruce
中階會員


發表:19
回覆:121
積分:83
註冊:2002-04-16

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-05-18 09:51:40 IP:211.21.xxx.xxx 訂閱
各位大大: 安安..
現有一問題請教, 我現在做了一個加載模板文件的reportbuild 報表..代碼如下:
procedure TForm1.Button1Click(Sender: TObject);
VAR
S: STRING;
begin
S:=ExtractFilePath(Application.ExeName) 'REPORT\' COMBOBOX1.Text '.RTM' ;
IF FILEEXISTS(S) THEN BEGIN
ppreport1.Template.FileName:=S;
ppreport1.Template.LoadFromFile;

// 在此寫入,不可寫在事件,經測試因為載入時並未觸發事件
ppLabel1.caption:=edit1.text;

ppreport1.PrintReport;
END ELSE BEGIN
MESSAGEBOX(SELF.HANDLE,'請確定選擇正確的格式','提示',MB_OK);
ABORT;
END;
end;

現我想讓報表preview時可以根據edit1.text的值來改變報表中的label1.caption為'delphi' or 'basic'..

請問怎樣做呢?
系統時間:2024-04-25 9:52:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!