QuickReport1

原创 2012年03月21日 16:30:55

QuickReport1

 

步骤一:开始---程序---Borland Delphi 6---BDE---Object---New---OK(默认STANDARD)---PATH---设置为含有数据库文件的目录下。

步骤二:向Form1中添加Table组件(DBE组中),DatabaseName---STANDARD1(上一步创建的),TableName---Pza.DBF。

        添加1个QuickRep组件(QReport组中),DataSet---Table1。添加4个QRBand(QReport组中),分别命名为QRBand1, QRBand2,QRBand3,QRBand4,QRBand1的BandType---rbTitle , QRBand2的BandType---rbColumnHeader, QRBand3的BandType---rbDetail, QRBand4的BandType---rbPageFooter。QRBand1---Frame---DrawBottom,DrawLeft,DrawRight,DrawTop设置为true, 其他QRBand2和QRBand3---Frame---DrawBottom,DrawLeft,DrawRight设置为 true。

        向QRBand1中,添加1个QRLabel组件(QReport组中), Caption---报表。 向QRBand2中,添加3个QRLabel组件(QReport组中),Caption----分别设置为 编号,日期,备忘录。向QRBand3中,添加3个QRDBText组件(QReport组中),DataSet----都设置为Table1,DataField---分别设置为 NO, DATE,

MEMO。向QRBand4中,添加1个QRSysdata组件(QReport组中),Data----qrsPageNumber。

添加5个Edit(依次为Edit1至Edit5),两个用于查询编号,两个用于查询日期,一个用于查询备忘录。3个Lable组件,用于标示这5个Edit的功能。1个Button,Caption----打印。

步骤三: Button1(打印):

vars:string;

begin

s:='';

ifedit1.Text<>'' then s:=s+'NO>='+edit1.text+' and ';

ifedit2.Text<>'' then s:=s+'NO<='+edit2.Text+' and ';

if(edit1.Text<>'') or (edit2.Text<>'') then s:=copy(s,1,length(s)-5);

if(edit3.Text<>'') or (edit4.Text<>'') then

ifs<>'' then  s:=s+' and ';

ifedit3.Text<>'' then s:=s+'DATE>='+edit3.Text+' and ';

ifedit4.Text<>'' then s:=s+'DATE<='+edit4.Text+' and ';

if(edit3.Text<>'') or (edit4.Text<>'') then s:=copy(s,1,length(s)-5);

if(edit5.Text<>'')then

begin

ifs<>'' then s:=s+' and ';

s:=s+'MEMO='''+edit5.Text+'*''';

end;

table1.Filtered:=false;

table1.Filter:=s;

table1.Filtered:=true;

QuickRep1.Preview;

end;

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

QuickReport Delphi7完全解决方案

前言       本人很不喜欢QuickReport,因为其有太多问题,也太不灵活。但在开发过程中,还是无法避免接触到这种问题,特别是历史遗留下来的控件,几乎是不可能把那么多的报表去换成其他报表控件...

delphi QuickReport 报表控件简介

在本讲中为大家介绍报表组件Qreport和统计组件Decision Cube,并讲一下BDE的DBI函数使用。 一、QReport 报表组件 已经讲过,QReport 组件不是很好用,不过如果...

Delphi报表(QuickReport & FastReport)

QuickReport、FastReport简单应用
  • kampan
  • kampan
  • 2011-05-07 16:45
  • 5468

浅议QuickReport的汉化问题

  • 2016-11-17 12:30
  • 346KB
  • 下载

Oracle的Sql语句一些知识点(1)

慢慢补充!oracle: 1.尽量使用列名 和列名 selet 与 select 列名 列名比*执行速度块 因为oracle首先会先解析*号 会比较慢

quickreport

  • 2015-07-14 08:05
  • 74KB
  • 下载

微信小程序开发实践经验总结(1)

一、开发小程序你得小心这些坑 切记:目前打包后的文件不能超过2M,否则不能上传到微信服务器。 小程序不支持sass语法,不支持window、document,不能使用相关的库,如jquery、Pr...

QuickReport.v.6.00.XE3.Setup

  • 2016-12-22 18:54
  • 22.73MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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