您們好， 我想請問一下，有關於我製作報表的部份... 就是我加入一個QRSysData這個元件 那麼…我想要它顯示出…目前的年份就好了…不要它顯示出月跟日... 要如何設定呢?

Hi tea15,    改用 QRLabel 並在其 OnPrint 事件加入以下程式碼

procedure TForm1.QRLabel3Print(sender: TObject; var Value: String);
begin
  Value := IntToStr(YearOf(now));
end;    別忘了必須 uses DateUtils

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

您好﹗    不要使用QRSysData元件﹐直接使用QRLabel元件即可﹐將程式碼寫在QuickRep的Preview之前﹐使用YearOf函數時需要先Uses DateUtils單元﹐如下﹕

uses DateUtils;    begin
  Form2.QRLabel1.Caption := IntToStr(YearOf(Now));
  Form2.QuickRep1.Preview;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

fishman大大﹐不好意思﹐撞到您﹗ <><>================================= < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=19409143&CC=434077"> 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

謝謝Fishman、cashxin2002大大... 我還有一個小問題… 就是我要利用form1開啟報表那個form2... 但我在form1有設定一些條件…欲讓form2-->報表顯示出符合條件的資料… 那麼有個問題是… 我應該如何開啟報表? 因為我試過用buttonOnClick 來form2.show 但是…報表卻無法自動preview...

您好﹗    不要用Form2.Show;的方法來開啟﹐直接使用QuickRep元件的Preview來預覽即可﹐方法如下﹕

begin
  Form2.QuickRep1.Preview;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

Hi tea15,    Add some code on Form2.Show to preview your report !

procedure TForm2.FormShow(Sender: TObject);
begin
  QuickRep1.Preview;
  Close;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝Fishman、cashxin2002大大... 真不知該給誰分數… 只好用缺席的...

您們好， 我又遇到這類的問題.. 我想問的是，就是我要QRLabel設定下一年的年份，程式碼要怎麼改?

Hi tea15,

procedure TForm1.QRLabel3Print(sender: TObject; var Value: String);
begin
  Value := IntToStr(YearOf(now)   1);
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman