高分送!fastReport输出转换器TfrCSVExport怎么用?

解决方案 »

  1.   

    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下就有,
      

  2.   

    放入TfrCSVExport,预览时保存类型中有CSV类型
      

  3.   

    或者用代码:
    frreport1.ExportTo(frCSVExport1,'d:\123.txt');
      

  4.   

    谢谢dickeybird888(于伟刚), WWWWA(aaaa)两位高手!两种方法都可以。马上给分!