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

原创 2002年07月05日 09:21:00

    经常用Borland C++ Builder5编程,操作数据库时,报表打印是必不可少的。但BCB5自身所带的报表控件又显得缺少灵活性。所以,我想到了用TPrinter来打印报表。使用TPrinter必须要在程序头部加入#include <vcl/Printers.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("打印出错!请检查打印机是否连接好或者电源是否打开及其设置!");
}

                   
本文作者:胡广涛

电子邮箱/MSN: huguangtao0515@hotmail.com
QQ: 621150

怎么把数据库结果集以表格形式呈现在界面上

一.把结果集的数据填入一个二维数组 1.resultset对象的getmetadata()    ResultSetMetaData java.sql.ResultSet.getMetaDat...
  • qq_26222859
  • qq_26222859
  • 2015年06月25日 13:01
  • 2744

典型数据报表的样式和作用

数据报表的概念 数据报表,即为用表格和图形来直观的展示数据。数据报表的类型和样式繁多,包括最常见的财务数据报表(资产负债表、利润表、现金流量表和股东权益变动表等)、销售数据报表(产品销售明细表、...
  • iris_1992
  • iris_1992
  • 2014年12月05日 10:00
  • 1221

FineReport实现java报表报表展示的效果图

Java报表-动态折叠树 Java报表-段落明细表 Java报表-多层统计 Java报表-多源分片与冻结 Java报表-发票套打表 Java报表-非统一页面打印 Java报表-复杂票据 ...
  • best_report
  • best_report
  • 2014年07月14日 10:43
  • 749

java代码生成Excl表格然后以附件的形式进行发送,里面的内容是用数据库的信息进行填充的。

1、首先利用jdbc连接到数据库,然后遍历查询的结果,把结果存进一个List集合中方便,之后把数据填充进Excl表格中。  PublicHousingDailyReportDao.java pac...
  • CongBird
  • CongBird
  • 2016年10月19日 15:16
  • 1098

C++中如何返回一个数组以及可能会遇到的问题geekband

C++中如何返回一个数组 由于数组不是一种类型,因此不能被直接返回。因此,一般我们用返回一个指向数组的指针。...
  • backendqba
  • backendqba
  • 2016年05月13日 13:49
  • 231

Qt中QPicture对报表的实现

最近写了一个小项目  中间要把所获取的数据以报告的形式打印出来  在这里整理出来 首先是背景的显示  也就是相当于那张纸张  这里面要对它设置大小  并且我自己加了一个水印在这个纸上  后面...
  • big_shuozi
  • big_shuozi
  • 2016年01月06日 19:01
  • 392

j2ee中打开首页同时查询数据库,并在首页动态显示数据

一般我们在项目中都是通过点击来访问某一个action来实现数据的查询,并跳转到某视图来显示,但是在网站开发中,往往需要我们在默认的index.jsp中显示一些从数据库查询出来的数据。实现的方式有一些,...
  • tfy1332
  • tfy1332
  • 2014年04月03日 10:37
  • 2169

python查询数据库并发送邮件

# coding=gbk import smtplib import MySQLdb import datetime import time from email.mime.text import ...
  • yewuqingxuan
  • yewuqingxuan
  • 2016年02月22日 16:11
  • 998

ActiveReport建立报表文件

搭建好了ActiveReport开发环境,接下来就开始在我们的项目中加入ActiveReport报表了.由于我们做的是asp.net网站项目,所以我们一般的做法是新建一个类库项目,在该项目中建立报表,...
  • liuwei1128
  • liuwei1128
  • 2014年03月14日 21:38
  • 913

博览网_C++_第一周_Date类的实现

本文实现了一个date类型,原版要求如下(括号为超出要求附加): 为Date类实现如下成员: 1. 构造器,可以初始化年、月、日。(使用了模板) 2. 大于、小于、等于(> 、< 、==)操作符重载,...
  • qq_31201973
  • qq_31201973
  • 2017年04月20日 02:24
  • 345
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何用Tprinter设计BCB操作数据库程序中的报表
举报原因:
原因补充:

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