说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

自定义快速报表的打印预览窗口-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
自定义快速报表的打印预览窗口-Delphi资料

---- Quick Report 2.0 中 提 供 的 默 认 打 印 预 览 窗 口 是 英 文 界 面 的, 如 果 开 发 的 中 文 软 件 中 带 有 这 种 英 文 显 示, 不 免 有 些 小 小 的 缺 憾。 因 此 有 必 要 实 现 中 文 界 面 的 打 印 预 览 窗 口。 但 是Delphi 提 供 的 源 代 码 中 并 没 有 打 印 预 览 窗 口 的.PAS 源 文 件, 这 就 无 法 直 接 修 改 源 码, 只 能 全 部 自 己 编 程 实 现。 经 多 次 实 践, 笔 者 模 仿 实 现 了 与 默 认 预 览 窗 口 外 观 类 似, 功 能 相 同 的 打 印 预 览 窗 口。 步 骤 如 下:

---- 1. 新 建 一 个 窗 体, 设 置Name 为MyPreview。

---- 2. 在 窗 体 上 添 加 一Toolbar 控 件, 模 仿 默 认 预 览 窗 口 创 建 相 应 的Toolbutton, 并 设 置 各 按 钮 的Hint 提 示。

---- 3. 添 加 一Panel 控 件, 对 齐 方 式 置 为alBottom。 再 在 此Panel 上 放 一ProgressBar( 左 对 齐) 和Panel( 右 对 齐), 分 别 显 示 报 表 装 载 进 度 和 其 他 提 示 信 息。

---- 4. 添 加QRPreview 控 件, 对 齐 方 式 置 为alClient。

---- 5. 添 加OpenDialog, 设 置Filter 属 性 为*.QR; 添 加SaveDialog, 设 置Filter 属 性 为*.QR|*.TXT|*.HTM|*.CSV, 设 置DefaultExt 属 性 为*.QR。

---- 6. 双 击 各 个Toolbutton, 输 入 相 应 代 码。

---- 可 以 按 以 下 方 法 调 用 自 定 义 预 览 窗 口。

---- 重 载TQuickRep 的OnPreview 事 件, 输 入 如 下 代 码:

procedure TRptForm.RptFormPreview(Sender: TObject);

begin

with TMyPreview.Create(Application) do

begin

QRPreview1.QRPrinter := TQRPrinter(Sender);

CurRep := self;

Show;

end;

end;

附 各 成 员 方 法 的 具 体 实 现:

unit Myprv;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

ComCtrls

ToolWin

qrprntr

Quickrpt

StdCtrls

ExtCtrls

qrextra

qrhtml;

type

TMyPreview = class(TForm)

QRPreview1: TQRPreview;

ToolBar1: TToolBar;

(其 余 成 员 变 量 和 成 员 方 法 声 明 略。)

private

{ Private declarations }

FPageCount : integer; // 生 成 报 表 的 总 页 数

public

{ Public declarations }

CurRep : TQuickRep; // 所 预 览 的 报 表

procedure UpdatePanelShow;

end;

implementation

{$R *.DFM}

procedure TMyPreview.UpdatePanelShow;

begin // 更 新 显 示

Panel2.Caption := ' 第 '+inttostr(QRPreview1.PageNumber)+ ' 页 总 '+inttostr(FPageCount)+' 页';

end;

procedure TMyPreview.ToolButton2Click(Sender: TObject);

begin //ZoomToFit 缩 放 至 全 屏

QRPreview1.ZoomToFit;

end;

procedure TMyPreview.ToolButton3Click(Sender: TObject);

begin //ZoomTo100% 缩 放 至 实 际 大 小

QRPreview1.Zoom:=100;

end;

procedure TMyPreview.ToolButton4Click(Sender: TObject);

begin //ZoomToWidth 缩 放 至 页 宽

QRPreview1.ZoomToWidth;

end;

procedure TMyPreview.ToolButton6Click(Sender: TObject);

begin //First page

QRPreview1.PageNumber := 1;

UpdatePanelShow;

end;

procedure TMyPreview.ToolButton8Click(Sender: TObject);

begin //prior page

QRPreview1.PageNumber := QRPreview1.PageNumber+1;

UpdatePanelShow;

end;

procedure TMyPreview.ToolButton7Click(Sender: TObject);

begin //next page

QRPreview1.PageNumber := QRPreview1.PageNumber-1;

if QRPreview1.PageNumber =0 then

QRPreview1.PageNumber:=1;

UpdatePanelShow;

end;

procedure TMyPreview.ToolButton9Click(Sender: TObject);

begin //Last page

QRPreview1.PageNumber := FPageCount;

UpdatePanelShow;

end;

procedure TMyPreview.QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);

begin //get pagecount

FPageCount := PageNum ;

UpdatePanelShow;

end;

procedure TMyPreview.FormClose(Sender: TObject; var Action: TCloseAction);

begin

CurRep := nil;

Action := caFree;

end;

procedure TMyPreview.ToolButton14Click(Sender: TObject);

begin //close the window

Close;

end;

procedure TMyPreview.ToolButton11Click(Sender: TObject);

begin //print setup

QRPreview1.QRPrinter.PrintSetup;

end;

procedure TMyPreview.ToolButton13Click(Sender: TObject);

begin //print

QRPreview1.QRPrinter.Print;

end;

procedure TMyPreview.ToolButton16Click(Sender: TObject);

begin //save button

if SaveDlg1.Execute then

begin

if (SaveDlg1.FIlterIndex <>1) and (CurRep = nil) then

Exit;

case SaveDlg1.FilterINdex of

1: //--*.QR

QRPreview1.QRPrinter.Save(SaveDlg1.FileName);

2: //--*.TXT

CurRep.ExportToFilter (TQRAsciiExportFilter.Create(SaveDlg1.FileName));

3: //--*.HTM

CurRep.ExportToFilter (TQRHTMLExportFilter.Create(SaveDlg1.FileName));

4: //--*.CSV

CurRep.ExportToFilter(TQRCSVExportFilter.Create(SaveDlg1.FileName));

end;

end;

end;

procedure TMyPreview.ToolButton17Click(Sender: TObject);

begin //load button

if OpenDlg1.Execute then

QRPreview1.QRPrinter.Load(OpenDlg1.FileName);

end;

procedure TMyPreview.QRPreview1ProgressUpdate(Sender: TObject; Progress: Integer);

begin //updage progress bar

ProgressBar1.Position := Progress;

end;

procedure TMyPreview.SaveDlg1TypeChange(Sender: TObject);

begin //set DefaultExt property of Savedialog

with SaveDlg1 do

case FilterIndex of

0: DefaultExt := '.QR';

1: DefaultExt := '.TXT';

2: DefaultExt := '.HTM';

3: DefaultExt := '.CSV';

end;

end;

end.//end of Unit

Android数组排序常见方法 使用OpenGL开发一个指南针 Android自绘GridView控件 Android平板开发注意事项 Android控件TextProgressBar进度条上显文字 Android内存管理-SoftReference的使用 反射在Android开发中的利弊 intent调用代码总结二 Android缩略图类源代码 Android多人项目开发指导 AsyncTask对比Thread加Handler Android Drawable叠加处理方法 android.os.Debug调试工具使用方法 Android多点触控开发原理 inent调用代码总结,不断完善中 onRetainNonConfigurationInstance和getLastNonConfigurationInstance Android中String资源文件的format方法 Android工程内嵌资源文件的两种方法 Android AIDL全攻略三 - AIDL框架 Android AIDL全攻略二 - Service绑定 自定义Android主题风格theme.xml方法 Android开发之模拟按下Home键的效果 Android AIDL全攻略一 Android Picture和PictureDrawable的用处 Android自定义View以及layout属性全攻略 Android通过Intent发送电子邮件含附件 Android调试技巧之Eclipse行号和Logcat Android Txt文本读写类源代码 Android游戏开发之旅20 双按事件捕获 Android游戏开发之旅19 分辨率大全 保护你的Android付费软件-LVL全攻略(二) CSDN的朋友,您如果有时间,给我写一个,快速傅立叶变换的程序把。 二叉树问题 谁对zope,cmf 有研究,谈谈设计思路? 问一下用过VB的人几个问题,谢谢先 关于显示千分位的问题 win98拨号服务器问题 你竟然不回我的短信! 如何在Datagrid的最后追加一行,这一行放多个文本框,用来添加新数据 谁有可垂直居中的QRLabel? 怎样通过程序模拟网页post数据到一个servlet? wrox 的书的源码下载怎没有-up有分 《我们共同的容闳》专辑明天在央视国际频道播出 程序发布问题,大哥大姐来帮忙呀 在线咨询:用ATL做ActiveX控件,能不能让控件是个多文档界面程序。 谁记得这道题是怎么解答的? 申请www开头的域名都是收费的吗 苦恼!考研还是工作! 短信产品:CMPP接口、SGIP接口、CMPP代理网关、计算机与手机连接的短信群发 你是不会知道的!! acrobat pdf 不能打印 怎样使程序发生异常时不弹出带红叉的窗口,异常可采用日志文件记录? 我下载了mysql-3.23.57-win.zip 安装在win2k server下为何不能用? 妹妹求救:用什么软件可以编辑.dll文件! 帮帮忙 高分求VS.NET2003正版中文版下载 XML数据导入到SQL Sever数据库 IIS运行不了ASP.NET文件,怎样做呢? oracle8i安装问-在线等待-急 怎么开启dbms_output的功能。 如何批量运行插入语句??? 数据库输出的问题 关于DELPHI 与 .NET 怎么样可以使CStatic类定义的对象变成灰白的,即disabled掉,不准在资源中改。 请教一个关于文件的问题~~ 如何将UTF-8的编码变成gb2312的编码 为什么用ADOQUERy进行查询,时间超过40秒时便出现超时连接 说说 中秋你们那是怎么过的? 两天都没摆平的问题,各位帮忙看一下。我给大家唱小曲儿啦:) 向大力请教! 一点小问题 车票精确打印 深夜,你会为谁开着手机? 新手提问:日期时间无法完全显示:? 如何把位图,字体,图标资源保存在Dll动态库中,以便让不同的Windows应用程序共享 散分了300分~高兴,朋友的网站访问者有分~不够在加!!!!!!!!!!一定给分! 寻找网站后权限的解决方案---在线等待 有没有达人可以讲解下加密解密 请教高手:类的构造函数!谢谢 求一个从*.properties文件读取数据的javabean c/s部署问题 GTK2.0安装的问题??? 真的不想和你分开 !中文怎么译成英文? 多忧知无奈 多忧污桃源 爱礼谁为羊 小暑夏弦应 初中化学实验中有什么物质吃了容易致死? 读一本书每天读24页5天可以读完实际用4天读完实际平均每天读几页? 一本书有24页,小明4天看完.他每天看了这本书的几分之几?每天看多少页?我知道答案.请一本书有24页,小明4天看完.他每天看了这本书的几分之几?每天看多少页?我知道答案.请问怎么列试计算 小明看一本故事书,每天看24页,5天只看了这本书的一半,之后他每天多看6页,小明看完这本书要多少天? 为什么人有高智慧,而与我们同一时期的动物却没有,是什么导致这一结果的?请你用较简单哲学论点概述, 请教一下数学分析和高等代数的关系(急)!听人说 如果你没有选到数学分析,那么就不要选高等代数 因为只有数分才足以提供高等代数的基础 就是说如果你选高等数学和高等代数就是错误的选 英语翻译you can put on a silly hat and run after a three-year-old ,or pretend to fall into a pile of leaves to amuse a first-grader.我翻译的是你可以一直(RUN AFTER 的意思是追捕跟踪,追求.我不知道该怎么翻译)戴一顶特 作为一个聪明人,在明知事不可为的时候会怎样选择? 如果质数p使得q=4^q+p^4+4也是质数,那么q的值是多少?不好意思,打错了是:如果质数p使得q=4^p+p^4+4也是质数,那么q的值是多少? 德国380公斤女子出门就医 消防队出泰国国会再开赦免法案审议 国内政治博日本一母亲遭高中生儿子殴打数小时后离澳大利亚3岁男童被自家宠物狗咬伤后不中国全票当选联合国经社理事会成员 任全球首条欧亚海底铁路隧道通车 造价4日本超强吉祥物“船小梨”:虽无名分仍挪威政府鼓励已婚夫妇每周约会一次 以“光棍节”将至 美亚裔“脱光派对”吸福布斯评普京最具全球影响力 奥巴马退39岁主妇西村真弓当选第4届日本“美韩政府:希望金大中遗孀访朝能改善韩朝加华裔拍诙谐视频“亚裔穷小子”:不富大马福联会会长吁华社关注不利政策 解大马获拨款华小名单出炉 教育部获款后日宣布采购美E 2D、“全球鹰”和V警察找回遗失22年摩托车 女车主直呼王国强谈中医药传承创新:用中医思维发陕西近两年工人农民中走出729名公务钟声:中国大周边外交开新局从业二十六年的入殓师白艳:让逝者安息习近平一个月7次谈及追逃追赃和反腐国凡人闯西游孤军异界留踪狂龙鼎重装机兵辐射五胡明月横刀传奇小涛鬼语我的另一个灵魂是姐姐弑仙戮神传未来世界的霸主奥帆中心游艇旅游东平大押旅游万华岩旅游日湖公园旅游慈城县衙旅游西古堡旅游蔚州古城旅游玉山国家公园旅游嘉义公园旅游海上明珠观光塔旅游林则徐广场旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘