Delphi程序执行时实时生成报表_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi程序执行时实时生成报表

作者：闵涛文章来源：闵涛的学习笔记点击数：3048 更新时间：2009/4/23 18:42:10

; end
      else begin
         Chg:=2;
         if ColWd.Text='''''''' then ColWd.Text:=''''200'''';
      end;
if Chg<>Rd2 then begin PaperSizeChg(nil);Rd2:=Chg;end;
ColWd.Enabled:=Chg<>0;
end;

procedure TPrintForm.QuickRepStartPage(Sender: TCustomQuickRep);
//报表打印开始新页事件处理,页脚带区中的统计值清空
Var
I:Byte;
begin
if Tj1.Checked then
For I:=0 to Query.FieldCount-1 do
if Assigned(FBNAME[I]) then FBNAME[I].Reset;
end;

procedure TPrintForm.BtnPrintClick(Sender: TObject);
begin
QuickRep.Print;
end;
end.
4、调用对话框举例：
首先在将要调用的窗体中的USES语句中包含PrintDlg单元，然后可以用如下代码调用：
if not assigned(PrintForm) then PrintForm:=TPrintForm.Create(Application);
PrintForm.Query.SQL.Assign(Query.SQL);
//如果调用窗体不包含Query控件,可直接设置SQL语句的值
PrintForm.Bt:=报表标题;
PrintForm.Caption:=窗体标题;
PrintForm.CXTJ:=查询条件;
PrintForm.ShowModal;
5、结束语
此程序关键是CreateReport事件过程和动态控件名称的处理。由于编幅所限，有些内容没有说明，希望读者自行体会。对于一般的报表生成，此程序能够满足要求。

本人有最新版本，功能更强，有需要的朋友可发邮件给我，一定邮的。

上一页 [1] [2] [3] [4]

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：玩转Windows桌面图标

下一篇教程： Delphi 常用函数

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]