delphi xe 10.3 用FastReport打印預覽當前記錄

本文連接：https://blog.csdn.net/qq_25439957/article/details/87110559
如下在WINDOWS10 + DELPHI XE 10.3 FireDAC +SQL SERVER 2008 下經過:工具

如下在WINDOWS10 + DELPHI XE 10.3 FireDAC +SQL SERVER 2008 下經過:.net

第一步，建立以下表單：設計

第二步拖入如下幾個控件：orm

frxDBDataset1.DataSet:=SalesTable;對象

雙擊： FrxReport1打開FastReport設計器；以下blog

在窗口頂部報表(R）下選擇 ‘數據’ 彈出以下圖：it

勾選住 FRXBDATASET1;按肯定。ast

窗口右側有數據樹如圖 class

左側有點擊插入BRAND 頁頭，頁尾，主數據，報表擡頭；以下test

把右側數據樹數據下的 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;