Question

如何在FastReport的对象和表达式中使用变量

Answer 1

假设有一个职员表，包括字段N，Nname1，Name2和Name3。字段的名称在不同的时候作用是不一样的，一般用于数据库设计人员。也就是说，需要重新指定一个更有意义的名称用于插入到对象中。当然，变量不仅能用于数据库字段名称，也能用于算术表达式。一个例子就是对数据字段、数值、日期或时间求和。更多的使用变量的例子可以从报表演示的程序代码中找到。
从操作一个变量列表，你必须从“文件｜数据字典…”菜单中打开一个对话框。

变量列表在屏幕的左边。从这个图像可以看出，这个列表是一个两层结构：它由分类和各分类所包含的一个或多个变量组成。分类仅用于对变量逻辑上进行分组，是不能插入到报表中的。有关这个技术的详细说明参考“设计器”部分。
但是，FastReport数据字典中的变量描述不能单独工作。如果没有定义相关代码，FastReport会按这样的假设查找：
在数据字典中有这样一个变量；
它是一个数据字段；
它是一个类似于Page#，Date，Time或其它类型的专用变量；
它是frVariables列表中的变量；
它是一个对象的属性；
它是一个frConsts中的常量；
同样，如果使用控件的OnGetValue事件，它在所有验证之前调用。如果事件处理返回一个值，变量将被初始化，并且不对它做进一步的验证。
这种方法使得报表中的变量赋值方法具有多样性。它推荐为：
当生成过程中将一个不可改变的静态记录值赋值给一个记录时，可以使用一个frVariables，就象这样：
frVariables['Reporting Period'] := 'January';
frReport1.ShowReport;
当生成过程中将一个可改变的记录值赋值给一个记录时，你可以使用数据字典或TfrReport.OnGetValue事件处理，就象这样：
procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant);
begin
if AnsiCompareText(ParName, 'Reported Period') = 0 then
ParValue := Table1OtchPeriod.Value;
end;
也可以通过编程为一个变量列表赋值：
with frReport1.Dictionary do
begin
Variables['Number’] := 1;
Variables['Sum'] := '0.2 * Table1."Summa"';
Variables['Date'] := '''' + 'January' + '''';
end;
（在这个例子中需要另外说明的是要定义一个字符常量）。
FastReport中指定给数据字典中的变量的字符串，可以作为一个表达式被计算。常常用来使用一个没有在数据字典中定义的变量。
必须记住的是如果你从frVariables列表中使用变量或者你通过OnGetValue事件遍历它们，它们不能放进数据字典。
使用finereport操作起来方便多了