这要用到报表的参数。
1、设置报表页的参数。
在Rave中,对页面设置参数:在右侧报表对象树中选中Page1,在左侧属性面板中选中Parameters,单击“...”,输入三个参数yy、mm、dd,每个参数一行,分别对应年、月、日。
2、对参数赋值。
在delphi工程中,添加一个按钮,OnClick的代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
Present : TDateTime;
Year, Month, Day : Word;
begin
Present := Now;
DecodeDate(Present, Year, Month, Day);
With RvProject1do
begin
SetParam('yy',IntToStr(Year));
{ if Month<10 then
SetParam('mm','0'+IntToStr(Month)) else
}
SetParam('mm',IntToStr(Month));
{ if Day<10 then
SetParam('dd','0'+IntToStr(Day)) else
}
SetParam('dd',IntToStr(Day));
Execute;
end
end;
其中,注释掉的两句用于格式化输出,输出的月份和日期,如果需要前置“0”时可使用。
3、在报表中显示年月日。
在报表中添加3个DataText控件,选中其中一个,在属性面板中选择DataField,单击“...”,在弹出窗口Data Text Editor中选择“Project Parameters”下拉框中分别选择对应的参数yy、mm、dd。
4、编译、运行。
单击按钮,OK,congradulations!