报表的强制分页输出

时间:2010-03-02 18:02:05  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:ieldbyname('name').AsString;QuickRep1.Preview;end;调用DetailBand的BeforePrint方法procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);beginif Query1.FieldByName('Name').AsString <>TempName thenbeginquickrep1.NewCo...
  正文:先声明一个变量

var

TempName : string;

调用报表预览

procedure TForm1.Button1Click(Sender: TObject);

begin

query1.Close;

query1.Open;

TempName := query1.fieldbyname('name').AsString;

QuickRep1.Preview;

end;

调用DetailBand的BeforePrint方法

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;

var PrintBand: Boolean);

begin

if Query1.FieldByName('Name').AsString <>TempName then

begin

quickrep1.NewColumn;

tempname := query1.fieldbyname('name').Asstring;

end;

end;


报表的强制分页输出》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12988.html


关键字:

关于《报表的强制分页输出》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td