为什么我的QRPreview1显不出来下一面啊。急~~~~~~~~~~~~~~~~~~~~~

chengangcsdn 2005-07-07 11:15:17
procedure TForm1.QuickRep1Preview(Sender: TObject);
begin

QRPreview1.QRPrinter:= quickrep1.QRPrinter;
end;

procedure TForm1.Button2Click(Sender: TObject);//预览按钮。
begin
adoquery1.open;
quickrep1.DataSet:=AdoQuery1;
QRDBText1.DataSet:=ADOQuery1;
QRDBText2.DataSet:=ADOQuery1;
QRDBText3.DataSet:=ADOQuery1;
QrExpr1.Expression:='sum(adoquery1.czjs)';
quickrep1.Preview;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);//下一页
begin
QRPreview1.QRPrinter.PageNumber:=QRPreview1.QRPrinter.PageNumber+1;
end;

打印出来有两页，但我点击下一页不起作用。QRPreview1.显示的还是第一页的内容。
为什么啊？？？？？
...全文
278 17 打赏 收藏 转发到动态 举报
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
hzwmjl 2005-07-07
  • 打赏
  • 举报
 回复
欢迎加入DELPHI 程序员群 1805366 参加技术讨论 ！！
chengangcsdn 2005-07-07
  • 打赏
  • 举报
 回复
版主今天都放假了吗？
版主今天都放假了吗？
版主今天都放假了吗？
chengangcsdn 2005-07-07
  • 打赏
  • 举报
 回复
郁闷。
什么世道啊。

发贴没有回。顶的人都没有。

汗啊！我所有贴子都是结了的。
chengangcsdn 2005-07-07
  • 打赏
  • 举报
 回复
顶顶！
chengangcsdn 2005-07-07
  • 打赏
  • 举报
 回复
谢谢!

回复人： g961681(仙痕) ( ) 信誉：100

问题解决！
g961681 2005-07-07
  • 打赏
  • 举报
 回复
基于C++ Builder的，先看看吧！
g961681 2005-07-07
  • 打赏
  • 举报
 回复
在C++Builder中自定义预览窗口
作者：unknown更新时间：2005-05-13

BorlandC＋＋Builder是基于C＋＋语言的可视化编程环境，它提供了可重用组件库和一系列RAD设计工具，使得编程者只需用少量的手工代码就可以创建出高效的Windows应用程序，尤其是复杂的数据库访问应用程序，因此深受软件开发人员的喜爱。
在开发数据库访问应用程序时，会经常涉及到报表的打印问题。C＋＋Builder中提供了QuickReport(快速报表)组件供编程人员设计报表。QuickReport是挪威的QuSoftAS公司专门为C＋＋Builder设计的用于制作报表的一组控件，在C＋＋Builder中关于QuickReport的帮助文档不是很详细。另外它与C＋＋Builder的其他控件的风格也不太一致。直接使用QuickReport的报表预览功能总是不能达到令人满意的效果，因此有必要自定义快速报表的预览窗口。
设置预览窗口
新建工程，在Form1窗体上添加一个ToolBar控件，并在其上添加以下按钮：“打印”、“打印设置”、
“上一页”、“下一页”、“放大”、“缩小”和“关闭”。在Form1窗体上添加一个Panel控件,对齐方式设为alBottom，再在此Panel控件上添加一个ProgressBar控件(对齐方式设为alLeft)和一个Panel控件(Name为Panel2，对齐方式设为alRight,BevelOuter设为bvLowered),这两个控件分别用来显示报表装载进度和其他提示信息。在Form1窗体上添加一个QRPreview控件,对齐方式设为alClient。

再新建一个窗体，设其Name为Form2,在该窗体上添加TQuickRep控件，设其Name为QuickRep1，其PrinterSetting中的Units属性设为mm（以毫米为计量单位），然后建立报表。
编程实现
1.在Form2上选择QuickRep1，在其事件中选择OnPreview，输入以下代码：
Form1－>QRPreview1－>QRPrinter=Form2－>QuickRep1－>QRPrinter;
2.在Form1的头文件中找到对象TForm1的定义，在其中添加以下的代码：
intOldPaperSize;
intOldOrientation;
intOldTop;
intOldBottom;
intOldLeft;
intOldRight;
voidRefreshPanel();
3.选择Form1的Activate事件，输入以下代码：
//初始化
OldPaperSize=Form2－>QuickRep1－>Page－>PaperSize;
OldOrientation=Form2－>QuickRep1－>Page－>Orientation＋1;
OldLeft=Form2－>QuickRep1－>Page－>LeftMargin＊100;
OldRight=Form2－>QuickRep1－>Page－>
RightMargin＊100;
OldTop=Form2－>QuickRep1－>Page－>Top
Margin＊100;
OldBottom=Form2－>QuickRep1－>Page－>
BottomMargin＊100;
Form2－>QuickRep1－>Prepare();
RefreshPanel();
Form2－>QuickRep1－>Preview();
4.在Form1中添加更新提示代码：
voidTForm1::RefreshPanel()
{//更新提示信息
Panel2－>Caption=“第”＋IntToStr(Form1－>QRPreview1－>PageNumber)＋“页”＋“共”＋IntToStr(Form2－>QuickRep1－>PageNumber)＋“页”;
}
5.从Form1中选择QRPreview1，在其事件中选择OnProgressUpdate，输入以下代码：
//显示报表装载进度
ProgressBar1－>Position=Progress;
RefreshPanel();
6.打印：
Form2－>QuickRep1－>Print();
7.打印设置：
DEVMODE＊pDev;
LPPAGESETUPDLGmylp=newPAGESETUPDLG;
memset((void＊)mylp,0,sizeof
(PAGESETUPDLG));
mylp－>lStructSize=sizeof(PAGESETUPDLG);
mylp－>hwndOwner=this－>Handle;
mylp－>Flags=PSD_RETURNDEFAULT;
PageSetupDlg(mylp);
if(mylp－>hDevMode!=NULL){
　pDev=(DEVMODE＊)GlobalLock(mylp－>hDevMode);
　pDev－>dmPaperSize=OldPaperSize;
　pDev－>dmOrientation=OldOrientation;
　mylp－>rtMargin.left=OldLeft;
　mylp－>rtMargin.right=OldRight;
　mylp－>rtMargin.top=OldTop;
　mylp－>rtMargin.bottom=OldBottom;
　GlobalUnlock(mylp－>hDevMode);
mylp－>Flags=PSD_MARGINS|
PSD_INHUNDREDTHSOFMILLIMETERS;
　if(PageSetupDlg(mylp)){
　　pDev=(DEVMODE＊)GlobalLock
(mylp－>hDevMode);
　　OldPaperSize=pDev－>dmPaperSize;
if(OldPaperSize>28)OldPaperSize=9;//A4
OldOrientation=pDev－>dmOrientation;
OldLeft=mylp－>rtMargin.left;
OldRight=mylp－>rtMargin.right;
OldTop=mylp－>rtMargin.top;
OldBottom=mylp－>rtMargin.bottom;
Form2－>QuickRep1－>Page－>Orientation=OldOrientation－1;
Form2－>QuickRep1－>Page－>PaperSize
=OldPaperSize;
Form2－>QuickRep1－>Page－>LeftMargin=OldLeft/100;
Form2－>QuickRep1－>Page－>RightMargin=OldRight/100;
Form2－>QuickRep1－>Page－>TopMargin=OldTop/100;
Form2－>QuickRep1－>Page－>Bottom
Margin=OldBottom/100;
　GlobalUnlock(mylp－>hDevMode);
}
　GlobalFree(mylp－>hDevMode);
　}
deletemylp;
QRPreview1－>PageNumber=1;
Form2－>QuickRep1－>Prepare();
Form2－>QuickRep1－>Preview();
8.向上翻页：
//上一页
if(QRPreview1－>PageNumber>1)
　QRPreview1－>PageNumber－－;
RefreshPanel();
9.向下翻页：
//下一页
if(QRPreview1－>PageNumber<Form2－>
QuickRep1－>PageNumber)
QRPreview1－>PageNumber＋＋;
　RefreshPanel();
10.放大处理：
//放大
if(QRPreview1－>Zoom<200)
　QRPreview1－>Zoom＋=5;
11.缩小处理：
//缩小
if(QRPreview1－>Zoom>5)
　QRPreview1－>Zoom－=5;
小结
该方法的核心是使用了Win32API函数PageSetupDlg()，利用该函数可以获取页面设置的缺省值，包括纸张大小、打印方向以及上下左右空白边的大小等，也可以弹出页面设置对话框来修改这些值。
g961681 2005-07-07
  • 打赏
  • 举报
 回复
参考文章：
http://www.ddvip.net/program/C++/index5/4.htm
g961681 2005-07-07
  • 打赏
  • 举报
 回复
QRPreview1.PageNumber := QRPreview1.PageNumber + 1;
QRPreview1.PageNumber := QRPreview1.PageNumber - 1;
Randomize 2005-07-07
  • 打赏
  • 举报
 回复
這回應該搞的定了吧?
g961681 2005-07-07
  • 打赏
  • 举报
 回复
Printer.NewPage;
行不行啊！
Randomize 2005-07-07
  • 打赏
  • 举报
 回复
QRPreview1.PageNumber := QRPreview1.PageNumber+1;
luckyboy97 2005-07-07
  • 打赏
  • 举报
 回复
只是看你这点代码不很理解是哪儿出错
Randomize 2005-07-07
  • 打赏
  • 举报
 回复
試下Quickrep1.NextPage;
chengangcsdn 2005-07-07
  • 打赏
  • 举报
 回复
终于有人说到关于这个问题了。

那个事件就是让Quickrep1 预览显示在QRPreview1控件中啊。

Randomize 2005-07-07
  • 打赏
  • 举报
 回复
procedure TForm1.QuickRep1Preview(Sender: TObject);
begin

QRPreview1.QRPrinter:= quickrep1.QRPrinter;
end;
這個事件用來做什麼?統計頁?不需要這麼做.
hhzqf1980 2005-07-07
  • 打赏
  • 举报
 回复
没有人顶，我顶
QuickReport 3.0的导出文件 *.qrp 如何用代码的方式保存成图片格式
提供给大家共享共享。procedure TForm1.Button1Click(Sender: TObject);...begin if OpenDialog1.Execute then begin QRPreview1.QRPrinter:= TQRPrinter.Create(nil); QRPreview1.QRPrinter.Load
自定义快速报表的打印预览窗口
Quick Report 2.0中提供的默认打印预览窗口是英文界面的，如果开发的中文软件中带有这种英文显示，不免有些小小的缺憾。因此有必要实现中文界面的打印预览窗口。但是Delphi提供的源代码...1. 新建一个窗体，设置Name为M
深入QuickReport（三）
通过前两部分的学习，我想你对QuickRep已经有了一定的掌握，在这部分我们对报表设计中的其他一些问题做一下简单介绍，也许这些你并不常用，但同样这些内容对于我们学习QuickRep还是有很大益处的。 此部分内容都以...
Delphi打印机设置
Delphi打印机设置2009-02-03 19:192009-02-03 15:37...请注意其中两条判断语句，这说明有时候仅仅凭getprinters并不能保证信息的正确，还需要WIN.INI的帮助。 uses printers; {...
QuickReport转JPEG
procedure TForm1.btnPrintClick(Sender: TObject);var E: TMetaFile; B: TBitmap; MyJpg: TJPEGImage; I, N: Integer; FN: FileName;if sdgJpg.Execute thenbegin N := QRpreview1.Q
Delphi

5,388

社区成员

262,730

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章