Hi~Kds:
不好意思,因我的是繁体操作系统,在论坛上很多繁体字输不了,所以想在邮件上说一下我对这个问题的想法,但前几天我找到了一个方法能在这里输入,我做了个例子,可以实现你的要求,但是方法比较笨,可能有其它更好的办法:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, DB, ADODB, ExtCtrls;
type
TForm2 = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRBand2: TQRBand;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRSubDetailOrders: TQRSubDetail;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRShape5: TQRShape;
QRSubDetailItems: TQRSubDetail;
QRDBText6: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRLabel1: TQRLabel;
procedure QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QRBand2AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
sDate: String;
implementation
{$R *.dfm}
procedure TForm2.QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
sDate:= DateTimeToStr(ADOQuery1.Fields.FieldByName('T_Date').AsDateTime);
end;
procedure TForm2.QRBand2AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
var
sSQL: String;
begin
ADOQuery1.Next;
if not ADOQuery1.Eof then
begin
if DateTimeToStr(ADOQuery1.Fields.FieldByName('T_Date').AsDateTime) = sDate then
begin
ADOQuery2.Close;
QRSubDetailOrders.Height:= 0;
QRSubDetailItems.Height:= 0;
ADOQuery1.Prior;
QRBand2.ForceNewPage:= False;
end
else
begin
ADOQuery1.Prior;
QRBand2.ForceNewPage:= True;
QRSubDetailOrders.Height:= 29;
QRSubDetailItems.Height:= 29;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
sSQL:= 'Select * From Table2 where T2_TID=''' + sDate+'''';
ADOQuery2.SQL.Add(sSQL);
ADOQuery2.Open;
end;
end
else
begin
QRSubDetailOrders.Height:= 29;
QRSubDetailItems.Height:= 29;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
sSQL:= 'Select * From Table2 where T2_TID=''' + sDate+ '''';
ADOQuery2.SQL.Add(sSQL);
ADOQuery2.Open;
end;
end;
end.
