rave报表打印 年 月 日的问题(50分)

  • 主题发起人 xuchongliang
  • 开始时间
X

xuchongliang

Unregistered / Unconfirmed
GUEST, unregistred user!
我用rave制作了一个报表,用来套打证本,证本上已有 年 月 日三个字,我想提取系统当前年份填到本上年前面的空里,当前月份填到本上月前面的空里,当前日填到本上日前面的空里,请问如何实现?
 
这要用到报表的参数。
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!
 
接受答案了.
 
顶部