- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
FastReportDelphi动态生成报表
字段名、字段数不确定时,用 FastReport 动态生成报表unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids,
Datasnap.Provider, Data.Win.ADODB, Data.DB, Datasnap.DBClient, frxClass,
frxPreview, frxDesgn, frxDBSet;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
ADOQuery1: TADOQuery;
DataSetProvider1: TDataSetProvider;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
frxDBDataset1: TfrxDBDataset;
frxDesigner1: TfrxDesigner;
frxPreview1: TfrxPreview;
frxReport1: TfrxReport;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
clientdataset1.Close;
clientdataset1.CommandText:= select user_id,user_name ,sal_no from t_user ;
clientdataset1.Open;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
pDataPage :TfrxDataPage;
pPage :TfrxReportPage ;
pBand :TfrxBand;
pDataBand :TfrxMasterData ;
pMemo :TfrxMemoView ;
i:integer;
x,y,z,width:extended;
begin
//?清除原报表内容
frxReport1.Clear;// 设置 Report 的 DataSet
frxReport1.DataSets.Add(frxDBdataset1);// 添加 Report 的 Data 页
pDataPage := TfrxDatapage.Create(frxReport1);// 增加报表显示内容
pPage := TfrxReportPage.Create(frxReport1);
ppage.CreateUniqueName();// 设置 Fields 的默认尺寸
pPage.SetDefaults;// 页面方向
// pPage.Orientation := poLandscape;// 页面边距
pPage.TopMargin := 20;
pPage.LeftMargin := 20;
pPage.Margin := 20;
pPage.BottomMargin := 20;
// 创建报表 Title Band
pBand := TfrxReportTitle.Create(pPage);
pBand.CreateUniqueName();
您可能关注的文档
- EPC模式项目的设计管理secret.doc
- 2011全国中考物理试题汇编九年级物理第13章力和机械4-5节.doc
- 2011公司战略与风险管理试题疑难汇总.docx
- EPLAN标准化设计转贴.doc
- 2011公司财务报表分析培训答案100分.doc
- EPON传真故障处理方法.doc
- 2011六年级上册综合实践活动教案.doc
- 2011六年级上册期末试题答案.doc
- 2011六年级上册信息技术第一单元教案.doc
- Epson针式打印机具有微调整功能.doc
- 新的一年工作展望.docx
- 医生年终个人工作的述职报告(3篇).docx
- 2023年消防设施操作员之消防设备中级技能考前冲刺练习题附答案详解.docx
- 2022-2023年环境影响评价工程师之环评技术导则与标准通关练习题包括详细解答.docx
- 2023年中级注册安全工程师之安全生产管理考前冲刺检测卷和答案.docx
- 2023年中级银行从业资格之中级银行管理考前冲刺测试卷提供答案解析.docx
- 2023年公共营养师之二级营养师通关模拟考试试卷附带答案.docx
- 证券分析师之发布证券研究报告业务考前冲刺模拟题库.docx
- 2022-2023年二级建造师之二建建设工程法规及相关知识综合提升测试卷附答案.docx
- 2023年二级建造师之二建机电工程实务通关模拟考试试卷提供答案解析.docx
文档评论(0)