FastReport studio 动态加载数据集 (zhuan)


测试使用的FastReport Studio 版本为4.6.80

先引用FastReport.dll

然后把C:/Program Files/FastReports/FastReport Studio Trial/Examples/VisualC#.NET/DataSetDemo目录下的

FrxDataSet.cs

FrxDataTable.cs

FrxDataTable.resx

复制到解决方案中(切记要将这三个文件代码中的命名空间更改为自己程序的命名)

SQLServer数据库,表名demo_test  有三个字段 id(int),name(char),onemorename(char)

FastReport报表demo_test.fr3中有三个memo

[demo_test."id"]        DataField属性 id

[demo_test."name"]        DataField属性 name

[demo_test."onemorename"]        DataField 属性 onemorename

以下是我根据DataSetDemo写的代码,在VS2005中测试通过

 view plaincopy to clipboardprint?
using System;  
using System.Collections.Generic;  
using System.ComponentModel;  
using System.Data;  
using System.Drawing;  
using System.Text;  
using System.Windows.Forms;  
using FastReport;  
using System.Data.SqlClient;  
 
namespace FRDemoTest  
{  
    public partial class Form1 : Form  
    {  
        TfrxReportClass report;  
        FrxDataTable datatable;  
        FrxDataSet dataset;  
 
        public Form1()  
        {  
            InitializeComponent();  
        }  
    //为FrxDataTable加载数据  
        private void FillTableWithSampleData(FrxDataTable datatable)  
        {  
            SqlConnection conn = new SqlConnection("server=.;database=DEMO;UID=sa;PWD=");  
            SqlDataAdapter da = new SqlDataAdapter("select * from demo_test", conn);  
            da.Fill(datatable);  
        }  
    //为FrxDataSet加载数据  
        private void FillDataSetWithSampleData(FrxDataSet dataset)  
        {  
            SqlConnection conn = new SqlConnection("server=.;database=DEMO;UID=sa;PWD=");  
            SqlDataAdapter da = new SqlDataAdapter("select top 2 * from demo_test", conn);  
            da.Fill(dataset,"demo_test");//demo_test为表名,对应FastReport模板中Memo的名字[demo_test."id"]  
        }  
    //加载FrxDataTable  
        private void button1_Click(object sender, EventArgs e)  
        {  
            report = new TfrxReportClass();  
            report.ClearDatasets();//加这句可以避免重复打开报表提示错误  
            datatable = new FrxDataTable("demo_test");//demo_test为表名,对应FastReport模板中Memo的名字[demo_test."id"]  
            FillTableWithSampleData(datatable);  
            //report.MainWindowHandle = (int)this.Handle;  
            report.LoadReportFromFile("demo_test.fr3");  
            //report.ClearDatasets();  
            datatable.AssignToReport(true, report);  
            datatable.AssignToDataBand("MasterData1", report);  
            report.ShowReport();  
        }  
    //加载FrxDataSet  
        private void button2_Click(object sender, EventArgs e)  
        {  
            report = new TfrxReportClass();  
            report.ClearDatasets(); //加这句可以避免重复打开报表提示错误  
            dataset = new FrxDataSet();  
            FillDataSetWithSampleData(dataset);  
            report.LoadReportFromFile("demo_test.fr3");  
            dataset.BindToReport(report);  
            dataset.BindTableToBand("demo_test", report, "MasterData1");  
            report.ShowReport();  
        }  
    //加载Dedigner  
        private void button3_Click(object sender, EventArgs e)  
        {  
            report = new TfrxReportClass();  
            report.LoadReportFromFile("demo_test.fr3");  
            report.DesignReport();  
        }  
    }  

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using FastReport;
using System.Data.SqlClient;

namespace FRDemoTest
{
    public partial class Form1 : Form
    {
        TfrxReportClass report;
        FrxDataTable datatable;
        FrxDataSet dataset;

        public Form1()
        {
            InitializeComponent();
        }
 //为FrxDataTable加载数据
        private void FillTableWithSampleData(FrxDataTable datatable)
        {
            SqlConnection conn = new SqlConnection("server=.;database=DEMO;UID=sa;PWD=");
            SqlDataAdapter da = new SqlDataAdapter("select * from demo_test", conn);
            da.Fill(datatable);
        }
 //为FrxDataSet加载数据
        private void FillDataSetWithSampleData(FrxDataSet dataset)
        {
            SqlConnection conn = new SqlConnection("server=.;database=DEMO;UID=sa;PWD=");
            SqlDataAdapter da = new SqlDataAdapter("select top 2 * from demo_test", conn);
            da.Fill(dataset,"demo_test");//demo_test为表名,对应FastReport模板中Memo的名字[demo_test."id"]
        }
 //加载FrxDataTable
        private void button1_Click(object sender, EventArgs e)
        {
            report = new TfrxReportClass();
            report.ClearDatasets();//加这句可以避免重复打开报表提示错误
            datatable = new FrxDataTable("demo_test");//demo_test为表名,对应FastReport模板中Memo的名字[demo_test."id"]
            FillTableWithSampleData(datatable);
            //report.MainWindowHandle = (int)this.Handle;
            report.LoadReportFromFile("demo_test.fr3");
            //report.ClearDatasets();
            datatable.AssignToReport(true, report);
            datatable.AssignToDataBand("MasterData1", report);
            report.ShowReport();
        }
 //加载FrxDataSet
        private void button2_Click(object sender, EventArgs e)
        {
            report = new TfrxReportClass();
            report.ClearDatasets(); //加这句可以避免重复打开报表提示错误
            dataset = new FrxDataSet();
            FillDataSetWithSampleData(dataset);
            report.LoadReportFromFile("demo_test.fr3");
            dataset.BindToReport(report);
            dataset.BindTableToBand("demo_test", report, "MasterData1");
            report.ShowReport();
        }
 //加载Dedigner
        private void button3_Click(object sender, EventArgs e)
        {
            report = new TfrxReportClass();
            report.LoadReportFromFile("demo_test.fr3");
            report.DesignReport();
        }
    }
}

 

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/vwfkyy/archive/2009/10/27/4734688.aspx

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
您可以通过以下步骤在Delphi XE中使用FastReport动态加载数据: 1. 首先,确保已在Delphi XE中安装并配置了FastReport组件。 2. 在Delphi XE的代码中,使用`TfrxReport`组件创建一个报表对象: ```delphi var Report: TfrxReport; begin Report := TfrxReport.Create(nil); end; ``` 3. 使用`TfrxUserDataSet`组件创建一个用户数据集对象,并将其添加到报表对象的数据集列表中: ```delphi var UserDataSet: TfrxUserDataSet; begin UserDataSet := TfrxUserDataSet.Create(nil); Report.DataSets.Add(UserDataSet); end; ``` 4. 定义用户数据集的字段结构和数据: ```delphi UserDataSet.RangeBegin := rbFirst; UserDataSet.RangeEnd := reCount; UserDataSet.RangeEndCount := 10; // 设置数据行数 // 添加字段 UserDataSet.AddField('Field1', ftString, 20); UserDataSet.AddField('Field2', ftInteger); UserDataSet.AddField('Field3', ftFloat); // 填充数据 UserDataSet.Open; while not UserDataSet.Eof do begin UserDataSet.FieldByName('Field1').AsString := 'Value1'; UserDataSet.FieldByName('Field2').AsInteger := 123; UserDataSet.FieldByName('Field3').AsFloat := 3.14; UserDataSet.Next; end; UserDataSet.Close; ``` 5. 加载报表模板文件并预览报表: ```delphi Report.LoadFromFile('YourReportTemplate.fr3'); // 指定报表模板文件路径 // 预览报表 Report.PrepareReport; Report.ShowPreparedReport; ``` 以上是一种使用FastReport动态加载数据的基本方法。您可以根据实际需求进一步调整和优化代码。请确保在使用报表对象和数据集对象后进行适当的释放和清理。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值