Z
zzq168
Unregistered / Unconfirmed
GUEST, unregistred user!
如何用FastReport实现予览及文件转换
我是一个Delphi的初学者，听说FastReport是一个非常好的报表控件，而且有中文版的，所以去下载了
一个，因为没有中文帮助所以通过参考他的Demo ，一步一步执行摸索终于实现了我想要的一部分功能。因为
我在论坛上没有发现FR的使用帮助一类的帖子，所以我把我的一点心得写出来，给初学者一点帮助。欢迎来
信交流。Email:zzq168@ynmail.com（在Delphi5，Windows2000，FR2.41C下通过）
1.新建一个工程，在工程中建两个窗体，在主窗体Form1的Uses中添加Unit2，及窗体2的单元文件，
在Form2的implementation 项添加
uses
Unit1;
2.在窗体Form2上放以下控件TfrReport（报表），TfrRtfexport（输出到Word文件），TfrCSVExport（输出
到Excel逗号格式的文本文件），TfrHTMExport（输出到HTML文件），TfrTextExport（输出到文本文件），
TDataSource（数据源），TfrDBDataset（数据集），TfrPreview（予览），TTabel（数据表）；
3.在窗体上再加上控制按钮First,Prev，Next，Last，Save，Load，Print，Exit，再分别添加相应按钮的方法
（frPreview1.First;frPreview1.Prev;frPreview1.Next;frPreview1.last;frPreview1.LoadFromFile;
frPreview1.SaveToFile;
frPreview1.Print;ModalResult := mrOk）；
4.属性设置：frReport1的Dataset属性：frDBDataSet；frDBDataSet1的DataSource属性：Datasource1；
Datasource1的DataSet属性：Tabel1；Tabel1的DatabaseName指向一个数据库；其他四个数据转换控件可以
使用他们的默认属性，不过如果要用转换到Excel文件的时候，最好将其Delimiter（分割符）属性由‘；’
改为‘，’(半角字符)，要不转换的文件是一堆乱字符。
5.双击FrReport1，设计报表后保存文件为'untitled.frf'，在下面的程序中调用；
6.在主窗口Form1中建一按钮Button1，双击它建立它的方法：
rocedure TForm1.Button1Click(Sender: TObject);
var
Report: TfrReport;
//定义一个TfrReport对象
begin
Form2.FrReport1.LoadFromFile('untitled.frf');//调入设计好的报表
Report := Form2.FrReport1;//以下三行我不太明白，只知道使用它们就可以予览，为什么用下边的语句，
Report.Preview := Form2.FrPreview1;//请高手指教
Report.ShowReport;
Form2.ShowModal;//模式显示
end;
7.运行程序，就可以予览，打印，数据转换了。
其实这个程序在FR的Demos目录Reports下就有，不过例子太多不太好拣，所以本人不辞劳苦从一堆例子
中把他抠了出来，提供给初学者使用。如果哪位高手见了，请指出不足之处，并有问题请教：要实现的功能很
简单：每页40行记录，每页有小计，在最后一页有一个合计，请问如何实现（id：577860）。谢谢！
我是一个Delphi的初学者，听说FastReport是一个非常好的报表控件，而且有中文版的，所以去下载了
一个，因为没有中文帮助所以通过参考他的Demo ，一步一步执行摸索终于实现了我想要的一部分功能。因为
我在论坛上没有发现FR的使用帮助一类的帖子，所以我把我的一点心得写出来，给初学者一点帮助。欢迎来
信交流。Email:zzq168@ynmail.com（在Delphi5，Windows2000，FR2.41C下通过）
1.新建一个工程，在工程中建两个窗体，在主窗体Form1的Uses中添加Unit2，及窗体2的单元文件，
在Form2的implementation 项添加
uses
Unit1;
2.在窗体Form2上放以下控件TfrReport（报表），TfrRtfexport（输出到Word文件），TfrCSVExport（输出
到Excel逗号格式的文本文件），TfrHTMExport（输出到HTML文件），TfrTextExport（输出到文本文件），
TDataSource（数据源），TfrDBDataset（数据集），TfrPreview（予览），TTabel（数据表）；
3.在窗体上再加上控制按钮First,Prev，Next，Last，Save，Load，Print，Exit，再分别添加相应按钮的方法
（frPreview1.First;frPreview1.Prev;frPreview1.Next;frPreview1.last;frPreview1.LoadFromFile;
frPreview1.SaveToFile;
frPreview1.Print;ModalResult := mrOk）；
4.属性设置：frReport1的Dataset属性：frDBDataSet；frDBDataSet1的DataSource属性：Datasource1；
Datasource1的DataSet属性：Tabel1；Tabel1的DatabaseName指向一个数据库；其他四个数据转换控件可以
使用他们的默认属性，不过如果要用转换到Excel文件的时候，最好将其Delimiter（分割符）属性由‘；’
改为‘，’(半角字符)，要不转换的文件是一堆乱字符。
5.双击FrReport1，设计报表后保存文件为'untitled.frf'，在下面的程序中调用；
6.在主窗口Form1中建一按钮Button1，双击它建立它的方法：
rocedure TForm1.Button1Click(Sender: TObject);
var
Report: TfrReport;
//定义一个TfrReport对象
begin
Form2.FrReport1.LoadFromFile('untitled.frf');//调入设计好的报表
Report := Form2.FrReport1;//以下三行我不太明白，只知道使用它们就可以予览，为什么用下边的语句，
Report.Preview := Form2.FrPreview1;//请高手指教
Report.ShowReport;
Form2.ShowModal;//模式显示
end;
7.运行程序，就可以予览，打印，数据转换了。
其实这个程序在FR的Demos目录Reports下就有，不过例子太多不太好拣，所以本人不辞劳苦从一堆例子
中把他抠了出来，提供给初学者使用。如果哪位高手见了，请指出不足之处，并有问题请教：要实现的功能很
简单：每页40行记录，每页有小计，在最后一页有一个合计，请问如何实现（id：577860）。谢谢！
[/center]