如何用Tprinter设计BCB操作数据库程序中的报表

转载 2008年05月01日 00:18:00
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 728x15, 创建于 08-4-23MSDN */ google_ad_slot = "3624277373"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 160x600, 创建于 08-4-23MSDN */ google_ad_slot = "4367022601"; google_ad_width = 160; google_ad_height = 600; //--> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

    经常用Borland C++ Builder5编程,操作数据库时,报表打印是必不可少的。但BCB5自身所带的报表控件又显得缺少灵活性。所以,我想到了用Tprinter来打印报表。使用Tprinter必须要在程序头部加入#include <vclPrinters.hpp>
    由于对于不是链页打印纸来说,断页很困难,所以,我所需要设定每页打印的记录数。下面就是我自己编制的一个每页打印30条符合条件记录的代码,写给大家,以供参考。
try{
//定位打印头
  int x,y;
  x=170;
  y=150;
  Printer()->BeginDoc();//开始一个打印工作
//打印标头
  Printer()->Canvas->Font->Size=24;
  Printer()->Canvas->Font->Name="黑体";
  Printer()->Canvas->TextOut(x,y," -----服装请领记录-----");
  Printer()->Canvas->Font->Size=10;
  Printer()->Canvas->Font->Name="宋体";
  x=190;
  y=y+300;
//打印表格标题行
  Printer()->Canvas->TextOut(x,y," ◇"+Trim(Label12->Caption));
  y=y+80;
  Printer()->Canvas->TextOut(x,y,"┏━━━━━━━━━┳━━━━━━━━━━┳━━┳━━━━━┳━━━━━━━━━━━┳━━━━━━━┓");
  y=y+80;
  Printer()->Canvas->TextOut(x,y," 日 期 品 名 姓 名 部 门 职 务");
  Printer()->Canvas->TextOut(x+1820,y,"数量");
  Printer()->Canvas->TextOut(x,y,"┃");
  Printer()->Canvas->TextOut(x+830,y,"┃");
  Printer()->Canvas->TextOut(x+1742.1,y,"┃");
  Printer()->Canvas->TextOut(x+1991.2,y,"┃");
  Printer()->Canvas->TextOut(x+2491.73,y,"┃");
  Printer()->Canvas->TextOut(x+3487.61,y,"┃");
  Printer()->Canvas->TextOut(x+4151,y,"┃");
  ADOQuery1->First();
//换页记录计数器初始化
  int i=0;
//建立循环,如果不是最后一条记录则进行循环
while(!ADOQuery1->Eof)
{
//计数器加1
  i=i+1;
  y=y+80;
//打印第一条记录
  Printer()->Canvas->TextOut(x,y,"┣━━━━━━━━━╋━━━━━━━━━━╋━━╋━━━━━╋━━━━━━━━━━━╋━━━━━━━┫");
  y=y+80;
  Printer()->Canvas->TextOut(x,y,"┃"+ADOQuery1->FieldByName("请领日期")->AsString);
  Printer()->Canvas->TextOut(x+830,y,"┃"+ADOQuery1->FieldByName("品名")->AsString);
  Printer()->Canvas->TextOut(x+1742.1,y,"┃"+ADOQuery1->FieldByName("数量")->AsString);
  Printer()->Canvas->TextOut(x+1991.2,y,"┃"+ADOQuery1->FieldByName("请领人")->AsString);
  Printer()->Canvas->TextOut(x+2491.73,y,"┃"+ADOQuery1->FieldByName("部门")->AsString);
  Printer()->Canvas->TextOut(x+3487.61,y,"┃"+ADOQuery1->FieldByName("职务")->AsString);
  Printer()->Canvas->TextOut(x+4151,y,"┃");
  ADOQuery1->Next();
//测试是否该换页,每30条记录换一次页
  if(i%30==0)
  { 
//如果已经是最后一条记录,则退出循环
    if(ADOQuery1->Eof)
    {
      break;
     }
//如果不是最后一条记录
  else
  {
//如果该换页,则打印页尾和页码
    int p=Printer()->PageNumber;
    y=y+80;
    Printer()->Canvas->TextOut(x,y,"┗━━━━━━━━━┻━━━━━━━━━━┻━━┻━━━━━┻━━━━━━━━━━━┻━━━━━━━┛");
    Printer()->Canvas->TextOut(3800,y+200,"页码:"+IntToStr(p));
    Printer()->NewPage();
    Application->MessageBox("请更换纸张后按确定!","提示",MB_OK);
    x=170;
    y=150;
    Printer()->Canvas->Font->Size=24;
    Printer()->Canvas->Font->Name="黑体";
    Printer()->Canvas->TextOut(x,y," -----服装请领记录-----");
    Printer()->Canvas->Font->Size=10;
    Printer()->Canvas->Font->Name="宋体"; 
    x=190; 
    y=y+300; 
    Printer()->Canvas->TextOut(x,y," ◇"+Trim(Label12->Caption)); 
    y=y+80; 
    Printer()->Canvas->TextOut(x,y,"┏━━━━━━━━━┳━━━━━━━━━━┳━━┳━━━━━┳━━━━━━━━━━━┳━━━━━━━┓"); 
    y=y+80; 
    Printer()->Canvas->TextOut(x,y," 日 期 品 名 姓 名 部 门 职 务"); 
    Printer()->Canvas->TextOut(x+1820,y,"数量"); 
    Printer()->Canvas->TextOut(x,y,"┃"); 
    Printer()->Canvas->TextOut(x+830,y,"┃"); 
    Printer()->Canvas->TextOut(x+1742.1,y,"┃"); 
    Printer()->Canvas->TextOut(x+1991.2,y,"┃"); 
    Printer()->Canvas->TextOut(x+2491.73,y,"┃"); 
    Printer()->Canvas->TextOut(x+3487.61,y,"┃"); 
    Printer()->Canvas->TextOut(x+4151,y,"┃");
   }
  }
//换页结束
}
//打印完全部记录后,打印表格尾部
y=y+80;
Printer()->Canvas->TextOut(x,y,"┗━━━━━━━━━┻━━━━━━━━━━┻━━┻━━━━━┻━━━━━━━━━━━┻━━━━━━━┛");
//取得总页数
int pp=Printer()->PageNumber;
//在表格尾部打印页码
Printer()->Canvas->TextOut(3800,y+200,"页码:"+IntToStr(pp));
Printer()->EndDoc();//结束一个打印工作
ShowMessage("打印完成!谢谢使用!");
}
//异常处理
catch(...)

    ShowMessage("打印出错!请检查打印机是否连接好或者电源是否打开及其设置!");
}

                    欢迎光临黑兵网站http://www.ancn.net
                                                    E-mail:621150@0451.com QQ:621150

<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 728x15, 创建于 08-4-23MSDN */ google_ad_slot = "3624277373"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 160x600, 创建于 08-4-23MSDN */ google_ad_slot = "4367022601"; google_ad_width = 160; google_ad_height = 600; //--> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

用VB做报表(一)

机房收费系统的最后一个难关是关于报表的,这个领域对我们来说是陌生的,在经过一番探索之后终于掌握了报表制作的完整步骤。虽然还比较简单,但对于现在的使用来说已经足够了。下面就以一个创建“机房首日日汇表.g...
  • wlccomeon
  • wlccomeon
  • 2012-12-07 17:14:40
  • 9689

BCB中关于数据库的操作(最全)

   最近在用BCB做个小项目,因为自己没学过C++,BCB也是第一次接触所以想在网上找点资料,但发现BCB的东西很少,而且关于数据库操作方面的东西都说的很笼统,不能给找资料的人提供帮助,所以我就把自...
  • ft26327
  • ft26327
  • 2008-08-08 14:18:00
  • 1674

BCB6使用ReportMachine创建报表

RM(Report Machine)是一个功能强大的Delphi 报表控件包。使用它可以制作出非常复杂的报表。下面讲述最简单的用法:  在Form上放上两个数据库控件:ADOConnection和A...
  • limuyun
  • limuyun
  • 2014-05-16 17:08:26
  • 1948

如何用BCB打开EXCEL文件

C++Builder是Borland公司继Delphi之后又一成功的产品,她集VB、VC++   及   Delphi   的优点于一体而深得C语言爱好者的青睐。由于多数操作者爱用   Micro...
  • yedezhanghao
  • yedezhanghao
  • 2012-04-14 20:43:00
  • 2388

C++builder 数据库常用操作

1.连接SQLServer数据库 ADOQuery1->ConnectionString ="Provider=SQLOLEDB.1;Persist Security Info=False;\ ...
  • chinayu2007
  • chinayu2007
  • 2015-12-01 09:00:16
  • 1578

如何用BCB实现KUGOO的这张图片

  • 2009年05月15日 01:09
  • 36KB
  • 下载

一个javabean轻松实现对数据库的各种操作

1.调用实例 String prm1,prm2,prm3; ResultSet rst=null; prm1 = ...; prm2 = ...; prm3 = ...; querybean.se...
  • bimyboy
  • bimyboy
  • 2004-10-25 09:20:00
  • 915

Python利用shelve模块设计简单数据库程序

欢迎访问我的网站omegaxyz.com 利用shelve模块写数据库文件在程序关闭时仍然能存储之前的数据。将所有内容都放到函数中会让程序更加结构化。 主程序放在main函数中,只有在if__na...
  • xyisv
  • xyisv
  • 2017-09-06 23:40:02
  • 215

对报表.FRX文件的全面分析

对报表.FRX文件的全面分析   其实报表文件.FRX是一个表,其.FPT是一个备注库,其库结构和一般自由表没什么不同,都可以USE打开他的???.FRX,其字段总共有74项,分别介绍如下,希能给大...
  • liubangwei
  • liubangwei
  • 2006-07-12 17:10:00
  • 615

《如何用一行C++代码读写数据库》

  • 2017年08月01日 18:59
  • 874KB
  • 下载
收藏助手
不良信息举报
您举报文章:如何用Tprinter设计BCB操作数据库程序中的报表
举报原因:
原因补充:

(最多只允许输入30个字)