Delphi FastReport 动态生成数据集以及参数

于 2025-08-05 14:31:00 发布
阅读量63 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： Delphi 文章标签： Delphi FastReport
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/ceaningking/article/details/149936881

场景：将查询接口返回的json数据，进行数据提取，以进行报表打印。

1. json数据示例如下:

{
	"outHospitalDate": "",
	"chargeDetail": [
		{
			"number": 1,
			"unit": "元",
			"std": 13,
			"amt": 13,
			"remark": "",
			"selfAmt": "",
			"chargeName": "诊察费",
			"chargeCode": "0801"
		},
		{
			"number": 1,
			"unit": "元",
			"std": 1,
			"amt": 1,
			"remark": "",
			"selfAmt": "",
			"chargeName": "挂号费",
			"chargeCode": "0811"
		}
	],
	"patientId": "105735",
	"idCardNo": "测试idCardNo",
	"cashRecharge": 0,
	"medicalInsuranceID": "",
	"remark": "个人现金支付含微信:14.00，",
	"cardNo": "测试cardNo",
	"payer": "测试",
	"payChannelDetail": [
		{
			"payChannelValue": 14,
			"payChannelCode": "13"
		}
	],
	"payee": "微信",
	"selfCashPay": 14.0,
	"inHospitalDate": "",
	"caseNumber": "",
	"otherSpecialParameter": "[]",
	"listDetail": [
		{
			"number": 1.0,
			"chrgtype": "",
			"unit": "次",
			"std": 13.0,
			"code": "G480000006-2",
			"name": "中医辨证论治（门诊副高职称）",
			"amt": 13.0,
			"remark": "",
			"selfAmt": 0.0
		},
		{
			"number": 1.0,
			"chrgtype": "",
			"unit": "次",
			"std": 1.0,
			"code": "G110100001",
			"name": "挂号费",
			"amt": 1.0,
			"remark": "",
			"selfAmt": 0.0
		}
	],
	"selfConceitedAmt": 0,
	"medicalCareType": "自费",
	"busType": "06",
	"placeCode": "001",
	"cashPay": 0,
	"patientNo": "100406010299",
	"author": "测试",
	"accountPay": 0.0,
	"selfPayAmt": 0,
	"sex": "女",
	"cardType": "3101",
	"ownPay": 0,
	"busDateTime": "20250804070014000",
	"medicalInstitution": "中医医院",
	"otherParameter": "[]",
	"otherfundPay": 0.0,
	"totalAmt": 14,
	"busNo": "20250804010100099999",
	"cashRefund": 0,
	"hospitalNo": "",
	"category": "",
	"fundPay": 0.0,
	"age": "57"
}

2. Delphi代码如下:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, frxDBSet, superobject, frxClass, DB, DBClient,
  frxDesgn;

type
  TForm1 = class(TForm)
    btn1: TButton;
    frxrprt1: TfrxReport;
    frxDesigner1: TfrxDesigner;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  s ,sBillBatchCode,sBillNo,sRandom,Fileld: string;
  inParts, resultData, errMsg: WideString;
  reunt, row, i: Integer;
  fds_xm, fds_qd: TfrxDBDataSet;
  ds_chargeDetail, ds_listDetail: TDataSet;
  js, keys: ISuperObject;
  jsChargeDetail, jsListDetail: TSuperArray;
  function CopyDataSet(dsTemp: TDataSet): TDataSet;
  var
    cdsTemp: TClientDataSet;
  begin
    try
      //创建DataSet
      cdsTemp := TClientDataSet.Create(Application);
      if dsTemp.FieldDefs <> nil then
      begin
        cdsTemp.FieldDefs.Assign(dsTemp.FieldDefs);
        cdsTemp.CreateDataSet;
        result := (cdsTemp as TDataSet);
      end;
    finally
      //内存释放
      dsTemp.Free;
    end;
  end;
  procedure addDataDetailToDataSet(xm: Integer; ds: TDataSet; jsarr: TSuperArray);
  var
    i: Integer;
  begin
    //打开数据集
    ds.Open;
    with ds do
    begin
      if jsarr.Length> 0 then
      begin
        for i:=0 to jsarr.Length- 1 do
        begin
          Append;
          if xm= 0 then  //收费项目明细
          begin
            FieldByName('chargeCode').AsString:= jsarr[i].S['chargeCode'];
            FieldByName('chargeName').AsString:= jsarr[i].S['chargeName'];
            FieldByName('unit').AsString:= jsarr[i].S['unit'];
            FieldByName('std').AsString:= jsarr[i].S['std'];
            FieldByName('number').AsString:= jsarr[i].S['number'];
            FieldByName('amt').AsString:= jsarr[i].S['amt'];
            FieldByName('selfAmt').AsString:= jsarr[i].S['selfAmt'];
            FieldByName('remark').AsString:= jsarr[i].S['remark'];
          end
          else  //清单明细项目
          begin
            FieldByName('chrgtype').AsString:= jsarr[i].S['chrgtype'];
            FieldByName('code').AsString:= jsarr[i].S['code'];
            FieldByName('name').AsString:= jsarr[i].S['name'];
            FieldByName('unit').AsString:= jsarr[i].S['unit'];
            FieldByName('std').AsString:= jsarr[i].S['std'];
            FieldByName('number').AsString:= jsarr[i].S['number'];
            FieldByName('amt').AsString:= jsarr[i].S['amt'];
            FieldByName('selfAmt').AsString:= jsarr[i].S['selfAmt'];
            FieldByName('remark').AsString:= jsarr[i].S['remark'];
          end;
          Post;
        end;
      end;
    end;
  end;
begin
  fds_xm:= TfrxDBDataSet.Create(nil);
  fds_qd:= TfrxDBDataSet.Create(nil);
  ds_chargeDetail:= TDataSet.Create(nil);
  ds_listDetail:= TDataSet.Create(nil);
  try
    fds_xm.UserName:= '收费项目明细';
    fds_qd.UserName:= '清单明细项目';
    //收费项目明细
    with ds_chargeDetail do
    begin
      FieldDefs.Add('chargeCode', ftString, 50);  //收费项目代码
      FieldDefs.Add('chargeName', ftString, 100); //收费项目名称
      FieldDefs.Add('unit', ftString, 20);        //计量单位
      FieldDefs.Add('std', ftFloat);              //收费标准
      FieldDefs.Add('number', ftFloat);           //数量
      FieldDefs.Add('amt', ftFloat);              //金额
      FieldDefs.Add('selfAmt', ftFloat);          //自费金额
      FieldDefs.Add('remark', ftString, 200);     //备注
    end;
    ds_chargeDetail:= CopyDataSet(ds_chargeDetail);
    //清单明细项目
    with ds_listDetail do
    begin
      FieldDefs.Add('chrgtype', ftString, 50);    //费用类型
      FieldDefs.Add('code', ftString, 50);        //编码
      FieldDefs.Add('name', ftString, 100);       //药品名称/剂型
      FieldDefs.Add('unit', ftString, 20);        //计量单位
      FieldDefs.Add('std', ftFloat);              //单价
      FieldDefs.Add('number', ftFloat);           //数量
      FieldDefs.Add('amt', ftFloat);              //金额
      FieldDefs.Add('selfAmt', ftFloat);          //自费金额
      FieldDefs.Add('remark', ftString, 200);     //备注
    end;
    ds_listDetail:= CopyDataSet(ds_listDetail);

    try
      resultData:= 'json测试数据';

      //解析数据 begin >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      js:= SO(resultData);
      jsChargeDetail:= js.A['chargeDetail'];
      jsListDetail:= js.A['listDetail'];
      if ((jsListDetail.Length>0) and (jsListDetail.Length>0)) then
      begin
        addDataDetailToDataSet(0, ds_chargeDetail, jsChargeDetail);
        addDataDetailToDataSet(1, ds_listDetail, jsListDetail);
      end
      else
      begin
        ShowMessage('收费项目明细为空或清单明细项目为空!');
        Exit;
      end;

      //数据集
      fds_xm.DataSet:= ds_chargeDetail;
      fds_qd.DataSet:= ds_listDetail;
      frxrprt1.DataSets.Add(fds_xm);
      frxrprt1.DataSets.Add(fds_qd);
      frxrprt1.LoadFromFile('test.fr3');
      //票据信息(在LoadFromFile后添加参数)
      frxrprt1.Variables.Add.Name:= ' 票据信息';
      frxrprt1.Variables.AddVariable('票据信息', '业务流水号', QuotedStr(js.S['busNo']));
      frxrprt1.Variables.AddVariable('票据信息', '业务标识', QuotedStr(js.S['busType']));
      frxrprt1.Variables.AddVariable('票据信息', '患者姓名', QuotedStr(js.S['payer']));
      frxrprt1.Variables.AddVariable('票据信息', '业务发生时间', QuotedStr(js.S['busDateTime']));
      frxrprt1.Variables.AddVariable('票据信息', '开票点编码', QuotedStr(js.S['placeCode']));
      frxrprt1.Variables.AddVariable('票据信息', '收费员', QuotedStr(js.S['payee']));
      frxrprt1.Variables.AddVariable('票据信息', '票据编制人', QuotedStr(js.S['author']));
      frxrprt1.Variables.AddVariable('票据信息', '开票总金额', QuotedStr(js.S['totalAmt']));
      frxrprt1.Variables.AddVariable('票据信息', '备注', QuotedStr(js.S['remark']));
      frxrprt1.Variables.AddVariable('票据信息', '卡类型', QuotedStr(js.S['cardType']));
      frxrprt1.Variables.AddVariable('票据信息', '卡号', QuotedStr(js.S['cardNo']));
      frxrprt1.Variables.AddVariable('票据信息', '性别', QuotedStr(js.S['sex']));
      frxrprt1.Variables.AddVariable('票据信息', '年龄', QuotedStr(js.S['age']));
      frxrprt1.Variables.AddVariable('票据信息', '患者身份证号码', QuotedStr(js.S['idCardNo']));
      frxrprt1.Variables.AddVariable('票据信息', '患者就诊编号', QuotedStr(js.S['patientNo']));
      frxrprt1.Variables.AddVariable('票据信息', '患者唯一ID', QuotedStr(js.S['patientId']));
      frxrprt1.Variables.AddVariable('票据信息', '病历号', QuotedStr(js.S['caseNumber']));
      frxrprt1.Variables.AddVariable('票据信息', '患者住院号', QuotedStr(js.S['hospitalNo']));
      frxrprt1.Variables.AddVariable('票据信息', '就诊科室', QuotedStr(js.S['category']));
      frxrprt1.Variables.AddVariable('票据信息', '住院日期', QuotedStr(js.S['inHospitalDate']));
      frxrprt1.Variables.AddVariable('票据信息', '出院日期', QuotedStr(js.S['outHospitalDate']));
      frxrprt1.Variables.AddVariable('票据信息', '现金预交款金额', QuotedStr(js.S['cashPay']));
      frxrprt1.Variables.AddVariable('票据信息', '补交金额(现金)', QuotedStr(js.S['cashRecharge']));
      frxrprt1.Variables.AddVariable('票据信息', '退还金额(现金)', QuotedStr(js.S['cashRefund']));
      frxrprt1.Variables.AddVariable('票据信息', '医疗机构类型', QuotedStr(js.S['medicalInstitution']));
      frxrprt1.Variables.AddVariable('票据信息', '医保类型名称', QuotedStr(js.S['medicalCareType']));
      frxrprt1.Variables.AddVariable('票据信息', '患者医保编号', QuotedStr(js.S['medicalInsuranceID']));
      frxrprt1.Variables.AddVariable('票据信息', '医保统筹基金支付', QuotedStr(js.S['fundPay']));
      frxrprt1.Variables.AddVariable('票据信息', '其它医保支付', QuotedStr(js.S['otherfundPay']));
      frxrprt1.Variables.AddVariable('票据信息', '个人账户支付', QuotedStr(js.S['accountPay']));
      frxrprt1.Variables.AddVariable('票据信息', '个人自负', QuotedStr(js.S['selfConceitedAmt']));
      frxrprt1.Variables.AddVariable('票据信息', '个人自付', QuotedStr(js.S['selfPayAmt']));
      frxrprt1.Variables.AddVariable('票据信息', '个人现金支付', QuotedStr(js.S['selfCashPay']));
      frxrprt1.Variables.AddVariable('票据信息', '自费金额', QuotedStr(js.S['ownPay']));
      frxrprt1.DesignReport;
      frxrprt1.PrintOptions.ShowDialog := True; //是否弹出打印机选项
      frxrprt1.PrepareReport();
      frxrprt1.Print;
    except
      on e: exception do
      begin
        ShowMessage('[获取发票明细] 发票接口dzfpjk连接失败'+e.message);
      end;
    end;
  finally
    FreeAndNil(fds_xm);
    FreeAndNil(fds_qd);
    FreeAndNil(ds_chargeDetail);
    FreeAndNil(ds_listDetail);
  end;
end;

end.

3. 效果

delphi7+FastReport打印动态条形码.zip
01-19
总的来说，"delphi7+FastReport打印动态条形码"这个主题涉及到了Delphi 7的组件编程、数据库操作、报表设计以及FastReport的高级特性应用。理解并掌握这些知识点，将有助于开发出功能强大且灵活的条形码打印解决方案...
企业级报表Delphi生成术：FastReport多维数据集与钻取报表设计.pdf
最新发布
07-17
如果你正在寻找一种高效、强大的编程语言来开发跨平台应用，那么Delphi绝对值得考虑！它拥有直观的可视化开发环境，让代码编写变得轻松简单。凭借着快速的编译速度和卓越的性能优化，Delphi能够帮助开发者迅速构建出...
delphi fastreport 动态加载TfrxDBDataset
三摩提的博客
11-23 1967
在动态 生成TfrxDBDataset并加载数据之后，再进行报表文件的加载，否则，数据集会找不到。 frxrprt1.DataSets.Clear; //清空数据集 //加载数据集 frxrprt1.DataSets.Add(frxdbdtst_sfxxi); frxrprt1.DataSets.Add(frxdbdtst_BaseInfor); frxrprt1.DataSets.Add(frxdbdtst_LJxxi); frxrprt1.DataSets.Add(frxdbd...
delphi Fastreport
qq_18932003的博客
12-10 386
https://www.cnblogs.com/cyzgg/category/1445144.html FastReport4.6程序员手册_翻译 摘要：一、使用TfrxReport 组件工作1、加载并存储报表默认情况下，报表窗体同项目窗体构存储在同一个DFM文件中。多数情况下，无须再操作，因而你就不必采用特殊方法加载报表。如果你决定在文件中存储报表窗体或者是数据库的Blob字段（他提供了非常...
动态创建Fastreport（delphi）
weixin_34401479的博客
09-29 752
动态创建Fastreport分以下几个步骤： 1.首先清空Fastreport，定义全局变量，并加载数据集 frReport.Clear; frReport.DataSets.Add(frxDBDataset1); DataHeight :=28; DataWidth :=80; FirstTop := 50; FirstLeft := 15; ...
FastReport动态绑定数据源
热门推荐
Jeffrey侠客
05-19 1万+
在我们做C#程序的时候，用到FastReport报表，有些时候希望从程序里往FastReport中传递数据，而不是用FastReport直接绑定数据源，经过本人的研究和请教大神，终于找到了解决方法。首先在VS中创建一个数据集，然后加入需要的字段。如下图  添加相应的字段  打开项目文件夹，把刚才添加的数据集生成的文件DataSet1.xsd后缀改为DataSet1.xml。  然后打开FastRe...
delphi FastReport经验
qq_18932003的博客
03-12 2444
1.FastReport中如果访问报表中的对象？ 可以使用FindObject方法。 TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’; 2.FastReport中如何使用上下标？ 设置frxmemoview.AllowHTMLTags := True;在Text输入如下 上标：mm<sup>2</s...
delphi FastReport问题整理
qq_18932003的博客
03-12 1526
1.FastReport中如果访问报表中的对象？ 可以使用FindObject方法。 TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’; 2.FastReport中如何使用上下标？ 设置frxmemoview.AllowHTMLTags := True;在Text输入如下 上标：mm<sup>2</s...
Delphi 中使用 FastReport4 打印二维码和条形码指南
weixin_42462474的博客
07-10 277
FastReport 是一个强大的报表生成工具，它可以帮助 Delphi 开发人员以最少的努力快速地生成复杂的报告。FastReport 提供了丰富的组件，用于数据展现、页面布局和格式化输出，支持多种输出格式，并能与 Delphi 的 IDE 紧密集成，提升开发效率。FastReport提供了许多报表组件来丰富报表内容，包括文本框、图片框、图表、交叉表等。例如：文本框：用于显示静态文本或字段数据。文本框的属性可以修改字体、颜色等。图片框：用于显示图片，可以来自文件或数据库字段。
DELPHI FastReport几个问题
qq_18932003的博客
12-18 830
1.FastReport中如何共用TFrxreport及TfrxDBDataSet 一个程序中，不管多么大的程序，只要打印或预览时是模式的，则完全可以共用一个TFrxreport 变量及几个TfrxDBDataSet。只不过，要注意完成一个报表程序的步骤，主要是下面几步 1)清除报表，得到一个全新的报表内容。 Frxreport1.clear。 2)设置要使用的TfrxDBDataSet的别名...
动态创建Fastreport
weixin_40769843的博客
02-22 1197
动态创建Fastreport分以下几个步骤： 1.首先清空Fastreport，定义全局变量，并加载数据集 frReport.Clear; frReport.DataSets.Add(frxDBDataset1); DataHeight :=28; DataWidth :=80; FirstTop := 50; FirstLeft := 15; 2.创建frxReportPage,并设置纸张大小 Page := TfrxReportPage.Create(frReport); Page.CreateUniq
FastReport动态列
04-30
### FastReport动态列生成方法详解 #### 一、概述 FastReport是一款强大的报表设计工具，广泛应用于Delphi等开发环境中。在本篇文章中，我们将详细探讨如何通过代码动态地生成FastReport中的列，特别是如何根据数据...
fastreport web 动态传入数据
01-04
由于这个过程与具体的数据库无关，因此无论数据来自SQL Server、Oracle、MySQL还是其他数据源，甚至是内存中的数据集，都可以轻松处理。 对于与数据库无关的数据注入，开发者可以利用.NET的ADO.NET接口或者Entity ...
FastReport v6_delphi源码_fastrepot10.4_fastreport_fastreport6下载
09-11
FastReport是一款强大的报表生成工具，尤其在Delphi开发环境中被广泛应用。标题提到的"FastReport v6_delphi源码_...结合RAD Studio 10.4的现代开发工具集，FastReport v6成为了Delphi开发者生成专业报表的强大武器。
Delphi 2007 TIDHttp HTTPS 出现Error connecting with SSL
11-27 5565
在Delphi 2007上的程序，曾经对接过好几个Https类型的支付平台，一直都很正常。 可是最近对接的一个https类型的平台，总是出现Error connecting with SSL，使用PostMan工具请求正常，但是程序请求不正常。 在网上找不到解决办法，各项配置确认配置正确。于是使用Delphi XE10.1写了一个Demo，进行请求，竟然通讯正常，于是使用XE10.1封装一个Https的dll，给程序调用. 1. 工程文件 library httpstool; uses Sy
Delphi XE 10.1 Berlin 使用FireDAC连接数据库(SQL Server, MySQL, SQLite)
01-10 3657
此程序是写的一个Demo, 包含一个主窗体, 一个数据模块. 1. 主窗体设计如下: 提供一个初始化, 一个查询, 一个释放. 初始化用于数据模块实例化, 查询就是执行SQL语句, 释放就是释放数据模块实例. 其它没啥说的. 窗体上方是一个RadioGroup, 丢了四个按钮, 也就是四个数据库类型, 每个按钮控件的TAG分别设置了0123, 用于数据库连接切换方式的切换.. 窗体左...
Delphi Http Https 最好的解决方法(一)
02-21 3321
Delphi http https 辅助工具 解决一切ssl问题
Delphi RSA加解密(一)
02-23 2690
Delphi RSA加解密 支持中文 GBK UTF8
Delphi Http Https 最好的解决方法(二)
02-22 1913
Delphi http https
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值