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

以下在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.

delphi xe 10.3 用FastReport打印预览当前记录相关推荐

DELPHI 打印预览功能
在很多应用程序中,都需要程序具有打印预览功能,以避免用户由于选择不当出现打印错误. 预览实现方式为通过创建一个Tpanel的派生类并公开它的canvas属性比例尺或视区范围,使用较为不方便,笔者通过实 ...
delphi XE 10实现App和PC下TreeView调用ImageList和Sqlite数据
delphi XE 10实现App和PC下TreeView调用ImageList和Sqlite数据一.工程 program TreeView; usesSystem.StartUpCopy,FMX. ...
Delphi XE 10.4 FMX ListView 一个不易察觉的 BUG
Delphi XE 10.4 FMX ListView 一个不易察觉的 BUG 在使用 ListView DynamicAppearance 时发现非常强大,可以加很多东西,但没有发现复选框(哪位大佬 ...
delphi xe 10.3 firemonkey stringdrig 插入，删除，添加
以下是在WIN7 64 ,delphi xe 10.3 以下成功运行: 运行界面: 代码 unit Unit1; interface uses System.SysUtils, System.Ty ...
Delphi XE 10 跨平台三层数据库应用教程
Delphi XE 10 跨平台三层数据库应用教程 Delphi XE 开始越来越庞大,比经典的Delphi7难用,但依然是目前所有跨平台开发工具中开发效率最高.最容易上手的,其快速设计RAD理念是无 ...
Delphi XE 10 跨平台三层数据库笔记
Delphi XE 开始越来越庞大,比经典的Delphi7难用,但依然是目前所有跨平台开发工具中开发效率最高.最容易上手的,其快速设计RAD理念是无与伦比的符合人性. 目前网上XE10类似教程很少,而 ...
在C#里实现DATAGRID的打印预览和打印
作者Blog:http://blog.csdn.net/qieyj/ 很多人都在论坛里问,如何实现DATAGRID的打印预览和打印,现在我就把这方面的源代码告诉大家.这段代码也花费了我1个晚上的时间, ...
WebBrowser 打印设置，打印预览，去页眉和页脚
WebBrowser是IE内置的浏览器控件,无需用户下载. 一.WebBrowser控件 <object ID='WebBrowser' WIDTH=0 HEIGHT=0 CLASSID='CL ...
网页打印问题，打印设置，打印预览，打印分页，纵打，横打及页面的边距
1.控制"纵打". 横打"和"页面的边距 (1) <object id="factory" style="display ...

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

delphi xe 10.3 用FastReport打印预览当前记录相关推荐

最新文章

热门文章