社区
Delphi
帖子详情
fastreport中如何定义变量
coderee
2009-03-18 03:32:43
有谁知道在fastreport报表中如何定义变量
...全文
462
6
打赏
收藏
fastreport中如何定义变量
有谁知道在fastreport报表中如何定义变量
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
kye_jufei
2009-03-24
打赏
举报
回复
[Quote=引用 1 楼 bdmh 的回复:]
Delphi(Pascal) code
FReport.Dictionary.Variables['变量名'] := 值
[/Quote]
up
coderee
2009-03-23
打赏
举报
回复
[Quote=引用 2 楼 bdmh 的回复:]
frxReport1.Variables.Add.Name := 'aaa';//增加变量
[/Quote]
你能帮助我吗?
coderee
2009-03-18
打赏
举报
回复
没有人知道吗?
coderee
2009-03-18
打赏
举报
回复
[Quote=引用 2 楼 bdmh 的回复:]
frxReport1.Variables.Add.Name := 'aaa';//增加变量
[/Quote]
我的意思是在delphi中是 var a:string;那在fastreport中该怎样定义?
bdmh
2009-03-18
打赏
举报
回复
frxReport1.Variables.Add.Name := 'aaa';//增加变量
bdmh
2009-03-18
打赏
举报
回复
FReport.Dictionary.Variables['变量名'] := 值
delphi传递
变量
到
fastreport
报表
中
用的是delphi7+
fastreport
4.9编写的。向
fastreport
报表传递
变量
总是不成功,利用网上的信息,一个一个地试,弄了个通宵都没有成功,后来终于成功了,利用delphi的表单
中
的edit,向
fastreport
报表传递
变量
终于成功。与大家一起分享。
fastreport
做报表画线,做表,和word一样的方便,在这个报表
中
,精确地画了个表,在这里顺便赞一个。
FastReport
问题集
FastReport
问题集 Q: 我怎样添加我的自
定义
函数? A: 使用 TfrReport.OnUserFunction 事件. 这里有一个简单的例子: procedure TForm1.frReport1UserFunction(const Name: String; p1, p2, p3: Variant; var val: Variant); begin if AnsiCompareText(‘SUMTOSTR‘, Name) = 0 then val := My_Convertion_Routine(frParser.Calc(p1)); end; 然后,你就可以在报表(任何表达式或脚本)的任何地方使用 SumToStr 函数了。 Q: 但是它仅仅能工作在一个TfrReport组件
中
。可我想在任何地方(在所有的TfrReport组件
中
)使用的我的自
定义
函数? A: 使 OnUserFunction event 句柄作为所有组件的公用句柄。如果你不能做到这一点,你需要创建函数库: type TMyFunctionLibrary = class(TfrFunctionLibrary) public constructor Create; override; procedure DoFunction(Fno: Integer; p1, p2, p3: Variant; var val: Variant); override; end; constructor TMyFunctionLibrary.Create; begin inherited Create; with List do begin Add(‘DATETOSTR‘); Add(‘SUMTOSTR‘); end; end; procedure TMyFunctionLibrary.DoFunction(Fno: Integer; p1, p2, p3: Variant; var val: Variant); begin val := 0; case Fno of 0: val := My_DateConvertion_Routine(frParser.Calc(p1)); 1: val := My_SumConvertion_Routine(frParser.Calc(p1)); end; end; 要注册函数库,调用 frRegisterFunctionLibrary(TMyFunctionLibrary); 要卸载函数库,调用 frUnRegisterFunctionLibrary(TMyFunctionLibrary); Q: 我怎样将我的函数添加到函数列表
中
(用表达式生成器)? A: 使用 frAddFunctionDesc 过程 (在FR_Class 单元
中
): frAddFunctionDesc(FuncLib, ‘SUMTOSTR‘, ‘My functions‘, ‘SUMTOSTR(
)/Converts number to its verbal presentation.‘); 注意: "/" 符号是必须的! 它从它的描述
中
分隔函数语法。 FuncLib 被声明为你自己的函数库 (如果你不使用函数库可以将其设置为nil). 当函数库未注册时,所有它的函数将自动从函数列表
中
删除。 ---------------- 使用
变量
------------------------------------- Q: 我怎样编程实现填充
变量
列表(在数据词典
中
)? A: 数据词典
中
的所有
变量
及分类都被存储在 TfrReport.Dictionary.Variables
中
. with frReport1.Dictionary do begin // 创建分类(名称用空白) Variables[‘ New category‘] := ‘‘; // 创建
变量
Variables[‘New Variable‘] := ‘CustomerData.Customers."CustNo"‘; Variables[‘Another Variable‘] := ‘Page#‘; end; Q: 我
定义
了字符串
变量
: with frReport1.Dictionary do Variables[‘Month‘] := ‘March‘; 但是当我运行报表是,出现了错误,为什么? A: 因为
FastReport
假定数据词典
中
的字符串
变量
值是一个表达式,它需要分析、计算它。 可以使用其它的方法: with frReport1.Dictionary do Variables[‘Month‘] := ‘‘‘‘ + ‘March‘ + ‘‘‘‘; 或者, 使用 frVariables 来传输固定数据到报表。 Q: 我不想在数据词典
中
显示某些数据集? A: 使用 TfrReport.Dictionary.DisabledDatasets: with frReport1.Dictionary do begin // 关闭该数据集 DisabledDatasets.Add(‘CustomerData.Bio‘); // 或者, 关闭整个数据模块/窗体 DisabledDatasets.Add(‘CustomerData*‘); end; Q: 我怎样将数据传送到报表? A: 有几个方法可以实现它. 第一是使用全局对象 frVariables (在 FR_Class 单元
中
被
定义
): frVariables[‘My variable‘] := 10; 这段代码创建了一个名称为“My variable”,值为 10 的
变量
。这是最好的传输固定数据的报表的方法。 第二种方法是使用 TfrReport.OnGetValue 事件. 这可以使用这个方法来传送动态数据、记录等。 procedure TForm1.frReport1GetValue(ParName: String; var ParValue: Variant); begin if ParName = ‘MyField‘ then ParValue := Table1MyField.Value; end; 最后, 第三种方法是通过编程在数据词典
中
定义
变量
(可以参考以前的问题): with frReport1.Dictionary do begin Variables[‘MyVariable‘] := ‘CustomerData.Customers."CustNo"‘; Variables[‘Another Variable‘] := ‘10‘; end; Q: 我能在报表和程序间传送数据吗? A: 使用 frVariables 对象. 如果你在报表的任何对象的脚本
中
写入以下代码: MyVariable := 10 那么,在你的程序
中
,你可以使用以下代码来获取 MyVariable 的值: v := frVariables[‘MyVariable‘]; ---------------- 脚本 (
FastReport
Pascal) --------------------------------- Q: Band
中
是否可以使用脚本? A: 当然. 选择 band ,然后按 Ctrl+Enter 或在对象浏览器
中
选择 "OnBeforePrint" 属性。 Q: 报表页
中
是否可以使用脚本? A: 当然. 选择页 (在空白处单击) ,然后在对象浏览器
中
选择 "OnBeforePrint" 属性。如果该页是一个对话框窗体,那么这个属性就是 "OnActivate". Q: 我有两个对象: Memo1 和 Memo2. 我能否在 Memo1 的脚本
中
调用 Memo2 的属性和方法? A: 当然, 例如,你可以这样做: 对象名.属性名. Q: 在脚本
中
,我可以使用对象的哪些属性? A: 几乎所有你能在对象浏览器
中
看到的属性。例如,可以使用 Font.Name, Font.Size等来存取字体属性。 ---------------- 其它问题 -------------------------------------------- Q: 怎样改变多页报表
中
某一页的顺序? A: 拖动页标签到目的位置。 Q: 我想查看所有的字段及
变量
,我想在报表
中
使用列表来实现它? A: 设置 TfrReport.MixVariablesAndDBFields := True.现在,所有的数据字段及
变量
可在“插入数据字段”对话框
中
可存取了。 Q: 我不想显示导入选项对话框? A: 在导入组件(比如,TfrTextExport)
中
设置所有必需的选项,然后通过设置ShowDialog属性为False来关闭此对话框。 Q: 为什么 TotalPages
变量
不起作用? 它总是返回 0. A: 在你的报表
中
设置 Two-pass 选项. 要设置它,你需要在报表设计器的“文件”菜单
中
,打开“报表选项”对话框。 Q: 我用BLOB字段来存储我的报表。当我运行报表设计器时,它显示我的报表未命名? A: 在运行报表设计器前,这样做: frReport1.FileName := ‘Name of my report‘; Q: 我想在重新
定义
报表设计器
中
的“打开”及“保存”按钮的功能? A: 查看 TfrDesigner 组件. 它有几个必需的事件: OnLoadReport 和 OnSaveReport. 这里有一小段代码例子: procedure TForm1.frDesigner1LoadReport(Report: TfrReport; var ReportName: String; var Opened: Boolean); begin with MyOpenDialog do begin Opened := ShowModal = mrOk; if Opened then begin Report.LoadFromBlobField(…); ReportName := …; end; end; end; procedure TForm1.frDesigner1SaveReport(Report: TfrReport; var ReportName: String; SaveAs: Boolean; var Saved: Boolean); begin if SaveAs then with MySaveDialog do begin Saved := ShowModal = mrOk; if Saved then begin Report.SaveToBlobField(…); ReportName := …; end; end else Report.SaveToBlobField(…); end; Q: 在 QR
中
, 我可以写这样的代码: QRLabel1.Caption := ‘Some text‘. 我可以用FR这样做吗? A: FR 对象并不是一个组件 (这并不像 QR, RB). 但使用 TfrReport.FindObject 方法可以通过对象名称找到该对象。 var t: TfrMemoView; begin t := TfrMemoView(frReport1.FindObject(‘Memo1‘)); if t <> nil then t.Memo.Text := ‘
FastReport
‘; end; Q: 我想在用户预览(TfrPreview组件)
中
自
定义
热键? A: 这个组件有个窗口: Tform 属性. 将自
定义
句柄指定到 Window.OnKeyDown 属性. Q: Fast Report 2.4 不能装载 FreeReport 2.21 文件? A: 这仅需要使用16进制数改变报表文件的第一字节,然后在源代码
中
修改下面的部分。在这些修改之后, 装载报表并保存它. 最后,返回到源代码处. FR_Class: function ReadString(Stream: Tstream): String; begin { if frVersion >= 23 then} Result := frReadString(Stream) {else Result := frReadString22(Stream);} end; procedure ReadMemo(Stream: Tstream; Memo: Tstrings); begin { if frVersion >= 23 then} frReadMemo(Stream, Memo){ else frReadMemo22(Stream, Memo);} end; FR_Utils: procedure frReadMemo(Stream: Tstream; l: Tstrings); var s: String; b: Byte; n: Word; begin l.Clear; l.Text := frReadString(Stream); exit; Stream.Read(n, 2); if n > 0 then repeat Stream.Read(n, 2); SetLength(s, n); Stream.Read(s[1], n); l.Add(s); Stream.Read(b, 1); until b = 0 else Stream.Read(b, 1); end; function frReadString(Stream: Tstream): String; var s: String; n: Integer; b: Byte; begin Stream.Read(n, 4); SetLength(s, n); Stream.Read(s[1], n); if (n > 0) and (s[n] = #$0A) then SetLength(s, n - 2); // Stream.Read(b, 1); Result := s; end; Q: 怎样不在打印预览
中
打印报表? A: 这里有一段代码: frReport1.PrepareReport; frReport1.PrintPreparedReport(‘‘, 1, True, frAll); 或 frReport1.PrintPreparedReportDlg; Q: 我想在报表
中
旋转图片。问题是这张图片是由我的应用程序生成的。是否有方法可以在打印前将这幅图片装载到报表
中
? A: 使用 TfrReport.OnBeforePrint 事件: if View.Name = ‘Picture1‘ then TfrPictureView(View).Picture.LoadFromFile(…) 或 .Assign 或 .你所想要做的任何事情
Python实现模板打印
要使用Python实现模板打印,可以按照以下步骤进行:
定义
模板:首先,
定义
一个包含特定占位符的模板字符串。占位符可以是固定的标记,如{name},或者使用更复杂的模板语法,如{{ name }}。 准备数据:准备需要填充到模板
中
的数据。这些数据可以是
变量
、字典或其他数据结构。 使用模板引擎:选择适合的模板引擎库,如Jinja2、Mako等,并导入相关库。 渲染模板:使用所选的模板引擎库将数据填充到模板
中
,生成最终的打印内容。具体的渲染方式和语法会根据所选的模板引擎而有所不同。 打印结果:将渲染后的内容打印出来,可以使用Python内置的print()函数。 通过以上步骤,可以使用Python实现模板打印。在实际应用
中
,可以根据需要对模板和数据进行进一步处理和操作,如添加循环、条件语句等,以实现更复杂的模板打印功能。此外,还可以考虑使用其他模板引擎库和技术,如Django自带的模板引擎(用于Web开发)、xlsxwriter(用于生成Excel报表)等,以满足不同的需求。
在
fastReport
中
使用自
定义
变量
fastreport
中
关于打印自
定义
变量
的问题 提出的问题 比如说我现在有一个字符串
变量
str,要在报表打印的标题
中
包含有此
变量
, 怎么样弄呢? form1.str是那个
变量
, form1.frReport1是报表对象 . 回答: frVariables['value'] := form1.str;
FastReport
心得(一)
FastReport
心得(一) 作者:邦畿千里 2008-101.如何自
定义
变量
(1)双击frxReport1 (2)菜单:report->variables (3)增加一个category (4)增加一个variable (5)在expression
中
给一个初始值,如 即可 公式用[]包含起来,共识
中
如包含
变量
,用--------------
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章