• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

delphi xe 10.3 用FastReport打印预览当前记录

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

以下在WINDOWS10  + DELPHI XE 10.3   FireDAC +SQL SERVER 2008   下通过:

第一步,创建如下表单:

第二步  拖入以下几个控件:

 

frxDBDataset1.DataSet:=SalesTable;

双击: FrxReport1打开FastReport设计器;如下

在窗口顶部   报表(R)下选择  ‘数据’   弹出如下图:

勾选 住  FRXBDATASET1;按确定。

窗口右侧有 数据树如图 

左侧有点击插入BRAND 页头,页尾,主数据,报表抬头;如下

 

把右侧 数据树 数据  下的 FRXDBDataSet1下的字段 ,SalesID,SalesPersonID.等拉到MasterData,如下图:

为了查看即时效果,可打开 菜单 ‘文件(F)‘下的’预览‘。效果如下图:

可看出缺少 标题 ;

再次选择MasterDATAS下的字段名,复到Pageheader下,如图:

双击PageHeader下的各字段名,修改为中文名字

还可以继续美化:左侧工具栏倒数第二个,插入“线型对象” ,在标题下划一条横线;在MasterDatas下的各字段下划一条横线如下图:

好好看下图的LINE;

 

按  文件(F)菜单下的预览结果如下图:

 

达到预期效果;

按  文件(F)菜单下的 另存为,保到一个指定的文件夹里。比如C:\oz\  ,文件名为test.fr3;

双击  “预览” 按钮;输入 以下代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
FDMemTable1.Close();
FDMemTable1.FieldDefs.Clear();
FDMemTable1.FieldDefs.Add('salesID', ftInteger, 0, True);
FDMemTable1.FieldDefs.Add('salesPersonID', ftInteger, 0, True);
FDMemTable1.FieldDefs.Add('CustomerID', ftInteger, 0, True);
FDMemTable1.FieldDefs.Add('productID', ftInteger, 0, True);
FDMemTable1.FieldDefs.Add('Quantity', ftString, 20, false);//建立一个与SalesTable一样的表
FDMemTable1.CreateDataSet();//建立空数据集
FDMemTable1.AppendRecord([
                        SalesTable.FieldByName('salesID').Value,
                        SalesTable.FieldByName('salesPersonID').Value,
                        SalesTable.FieldByName('CustomerID').Value,
                        SalesTable.FieldByName('productID').Value,
                        SalesTable.FieldByName('Quantity').Value]);

//把SalesTable表的当前字段复制到FDMemTable1;

FDMemTable2.Active:=false;
FDMemTable2.Data:= FDMemTable1.Data ;//把FDMemTable1.Data复制给FDMemTable2.Data

frxDBDataset1.DataSet:=FDMemTable2;//把FDMemTable2赋值给frxDBDataset1.DataSet;//此举完成了对报表数据集的代替了。

frxReport1.LoadFromFile('C:\oz\test.fr3') ;//加载test.fr3
frxReport1.showReport;//预览
end;


 


end.


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
MATLAB 符号运算发布时间:2022-07-18
下一篇:
matlab符号运算发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap