我不知道为什么一运行就出错.
因为是第一次做这种东西,不是很熟悉,还望热心的人帮助一下!
最好详细点,谢谢!
因为是第一次做这种东西,不是很熟悉,还望热心的人帮助一下!
最好详细点,谢谢!
解决方案 »
- 在delphi里调用储存过程出错,出错信息是储存过程里的参数没有赋值,高手知道的指点一下,谢谢了~
- spcomm怎样清除发送缓冲区?急急急!
- 关于INDY TCP client (客户端)和server(服务端)控件的问题。
- 面试试题都是什么样的??
- 建立的报表能不能调用数据模块中的query组件?
- 关于时间计算的问题,求教高手!
- 如何在delphi中取得由数据库存储过程返回的错误信息?
- 请问如何判断一个字符串是不是整数呢
- isleadbyte声明问题
- 求助:关于一个OCX中多线程的使用
- 请问高手: 怎样用vclzip控件压缩一个文件夹下的多级目录?
- 为什么总是提示fr_class.pas文件找不到???
代码:
//这个报表中的代码
unit TsrptPreUnit;interfaceuses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB;type
TTSprint = class(TQuickRep)
PageHeader: TQRBand;
QRLabel2: TQRLabel;
ColumnHeaderBand1: TQRBand;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
DetailBand1: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRLabel11: TQRLabel;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel10: TQRLabel;
QRLabel12: TQRLabel;
DataSource1: TDataSource;
ADOTable1: TADOTable;
procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure QuickRepStartPage(Sender: TCustomQuickRep);
private public end;var
TSprint: TTSprint;implementationuses Umain;{$R *.DFM}procedure TTSprint.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
ADOQuery1.SQL.Add('select * from 住户投诉数据');
ADOQuery1.Open;
ADOQuery1.First;
QRLabel10.Caption := '制表人员:' + auser.name;
QRLabel2.Caption := '投诉次数: ' + IntToStr(ADOQuery1.RecordCount);
QRLabel12.Caption := '制表日期:' + DateToStr(Now);
end;procedure TTSprint.QuickRepStartPage(Sender: TCustomQuickRep);
begin
TSprint.Prepare;
TSprint.CleanupInstance;
TSprint.QRLabel11.Caption := '第 ' + TRIMLEFT(INTTOSTR(TSprint.Printer.PageNumber)) + ' 页,' + '共 ' + TRIMLEFT(INTTOSTR(TSprint.Printer.PageCount)) + ' 页'; //得到当前页码和总的页码
end;end.//在另外一个窗体中
implementation{$R *.dfm}
uses TsrptPreUnit;procedure TTSrptForm.ToolButton7Click(Sender: TObject);
begin
TSprint.Preview;
end;我是想用ADOQuery1在access表中找出想要打应的内容,然后在报表中生成.