fastReport输出转换器TfrCSVExport怎么用? 高分送!fastReport输出转换器TfrCSVExport怎么用? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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下就有, 放入TfrCSVExport,预览时保存类型中有CSV类型 或者用代码:frreport1.ExportTo(frCSVExport1,'d:\123.txt'); 谢谢dickeybird888(于伟刚), WWWWA(aaaa)两位高手!两种方法都可以。马上给分! 请问要如何调用这样的函数? 关于组件面板 在delphi中使用sql语句说明 combobox添加表中数据的问题 关于table的查找问题 问一下!我用TScrollBox控件,滚动显示记录!但翻两次屏幕就花了!如何解决? **来者有分!**最近在做一个项目,能否对控件进行拉大放小、自由缩放!弟兄们给点思路,或放送点例子给兄弟!谢谢了,急!急!急! ArcTan和Tan是反正切和正切,那余切和反余切 用哪个? @怎样比较数据库中的时间??急急急!!! VB与Delphi哪个更好!! 怎样提高速度?? 有什么方法可以往DLL的调用函数中传递类参数???
在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下就有,
frreport1.ExportTo(frCSVExport1,'d:\123.txt');