zdbbprint.pas

集成酒店桑拿食管管理的完整程序

    QRRichText279: TQRRichText;
    QRRichText280: TQRRichText;
    QRRichText281: TQRRichText;
    QRRichText282: TQRRichText;
    QRRichText283: TQRRichText;
    QRRichText284: TQRRichText;
    QRRichText285: TQRRichText;
    QRRichText286: TQRRichText;
    QRRichText287: TQRRichText;
    QRRichText288: TQRRichText;
    QRRichText289: TQRRichText;
    QRRichText290: TQRRichText;
    QRRichText291: TQRRichText;
    QRRichText292: TQRRichText;
    QRRichText293: TQRRichText;
    QRRichText294: TQRRichText;
    QRRichText295: TQRRichText;
    QRRichText296: TQRRichText;
    QRRichText297: TQRRichText;
    QRRichText298: TQRRichText;
    QRRichText299: TQRRichText;
    QRRichText300: TQRRichText;
    QRRichText301: TQRRichText;
    QRRichText302: TQRRichText;
    QRRichText303: TQRRichText;
    QRRichText304: TQRRichText;
    QRRichText305: TQRRichText;
    QRRichText306: TQRRichText;
    QRRichText307: TQRRichText;
    QRRichText308: TQRRichText;
    QRRichText309: TQRRichText;
    QRRichText310: TQRRichText;
    QRRichText311: TQRRichText;
    QRRichText312: TQRRichText;
    QRRichText313: TQRRichText;
    QRRichText314: TQRRichText;
    QRRichText315: TQRRichText;
    QRRichText316: TQRRichText;
    QRRichText317: TQRRichText;
    QRRichText318: TQRRichText;
    QRRichText319: TQRRichText;
    QRRichText320: TQRRichText;
    QRRichText321: TQRRichText;
    QRRichText322: TQRRichText;
    QRRichText323: TQRRichText;
    QRRichText324: TQRRichText;
    QRRichText325: TQRRichText;
    QRRichText326: TQRRichText;
    QRRichText327: TQRRichText;
    QRRichText328: TQRRichText;
    QRRichText329: TQRRichText;
    QRRichText330: TQRRichText;
    QRRichText331: TQRRichText;
    QRRichText332: TQRRichText;
    QRRichText333: TQRRichText;
    QRRichText334: TQRRichText;
    QRRichText335: TQRRichText;
    QRRichText336: TQRRichText;
    QRRichText337: TQRRichText;
    QRRichText338: TQRRichText;
    QRRichText339: TQRRichText;
    QRRichText340: TQRRichText;
    QRRichText341: TQRRichText;
    QRRichText342: TQRRichText;
    QRRichText343: TQRRichText;
    QRRichText344: TQRRichText;
    QRRichText345: TQRRichText;
    QRRichText346: TQRRichText;
    QRRichText347: TQRRichText;
    QRRichText348: TQRRichText;
    QRRichText349: TQRRichText;
    QRRichText350: TQRRichText;
    QRRichText351: TQRRichText;
    QRRichText352: TQRRichText;
    QRRichText353: TQRRichText;
    QRRichText354: TQRRichText;
    QRRichText355: TQRRichText;
    QRRichText356: TQRRichText;
    QRRichText357: TQRRichText;
    QRRichText358: TQRRichText;
    QRRichText359: TQRRichText;
    QRRichText360: TQRRichText;
    QRRichText361: TQRRichText;
    QRRichText362: TQRRichText;
    QRRichText363: TQRRichText;
    QRRichText364: TQRRichText;
    QRRichText365: TQRRichText;
    QRRichText366: TQRRichText;
    QRRichText367: TQRRichText;
    QRRichText368: TQRRichText;
    QRRichText369: TQRRichText;
    QRRichText370: TQRRichText;
    QRRichText371: TQRRichText;
    QRRichText372: TQRRichText;
    QRRichText373: TQRRichText;
    QRRichText374: TQRRichText;
    QRRichText375: TQRRichText;
    QRRichText376: TQRRichText;
    QRRichText377: TQRRichText;
    QRRichText378: TQRRichText;
    QRRichText379: TQRRichText;
    QRRichText380: TQRRichText;
    QRRichText381: TQRRichText;
    QRRichText382: TQRRichText;
    QRRichText383: TQRRichText;
    QRRichText384: TQRRichText;
    QRRichText385: TQRRichText;
    QRRichText386: TQRRichText;
    QRRichText387: TQRRichText;
    QRRichText388: TQRRichText;
    QRRichText389: TQRRichText;
    QRRichText390: TQRRichText;
    QRRichText391: TQRRichText;
    QRRichText392: TQRRichText;
    QRRichText393: TQRRichText;
    QRRichText394: TQRRichText;
    QRRichText395: TQRRichText;
    QRRichText396: TQRRichText;
    QRRichText397: TQRRichText;
    QRRichText398: TQRRichText;
    QRRichText399: TQRRichText;
    QRRichText400: TQRRichText;
    QRRichText401: TQRRichText;
    QRRichText402: TQRRichText;
    QRRichText403: TQRRichText;
    QRRichText404: TQRRichText;
    QRRichText405: TQRRichText;
    QRRichText406: TQRRichText;
    QRRichText407: TQRRichText;
    QRRichText408: TQRRichText;
    QRRichText409: TQRRichText;
    QRRichText410: TQRRichText;
    QRRichText411: TQRRichText;
    QRRichText412: TQRRichText;
    QRRichText413: TQRRichText;
    QRRichText414: TQRRichText;
    QRRichText415: TQRRichText;
    QRRichText416: TQRRichText;
    QRRichText417: TQRRichText;
    QRRichText418: TQRRichText;
    QRRichText419: TQRRichText;
    QRRichText420: TQRRichText;
    QRRichText421: TQRRichText;
    QRRichText422: TQRRichText;
    QRRichText423: TQRRichText;
    QRRichText460: TQRRichText;
    QRRichText461: TQRRichText;
    QRRichText462: TQRRichText;
    QRRichText463: TQRRichText;
    QRRichText464: TQRRichText;
    QRRichText465: TQRRichText;
    QRRichText466: TQRRichText;
    QRRichText467: TQRRichText;
    QRRichText468: TQRRichText;
    QRRichText469: TQRRichText;
    QRRichText470: TQRRichText;
    QRRichText471: TQRRichText;
    QRRichText472: TQRRichText;
    QRRichText473: TQRRichText;
    QRRichText474: TQRRichText;
    QRRichText475: TQRRichText;
    QRRichText476: TQRRichText;
    QRRichText477: TQRRichText;
    QRRichText478: TQRRichText;
    QRRichText479: TQRRichText;
    QRRichText480: TQRRichText;
    QRRichText481: TQRRichText;
    QRRichText482: TQRRichText;
    QRRichText483: TQRRichText;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QuickRep1: TQuickRep;
    h34: TQRSubDetail;
    h35: TQRSubDetail;
    h1: TQRSubDetail;
    h2: TQRSubDetail;
    h3: TQRSubDetail;
    h4: TQRSubDetail;
    h5: TQRSubDetail;
    h6: TQRSubDetail;
    h7: TQRSubDetail;
    h8: TQRSubDetail;
    h9: TQRSubDetail;
    h10: TQRSubDetail;
    h11: TQRSubDetail;
    h12: TQRSubDetail;
    h13: TQRSubDetail;
    h14: TQRSubDetail;
    h15: TQRSubDetail;
    h16: TQRSubDetail;
    h17: TQRSubDetail;
    h18: TQRSubDetail;
    h19: TQRSubDetail;
    h20: TQRSubDetail;
    h21: TQRSubDetail;
    h22: TQRSubDetail;
    h23: TQRSubDetail;
    h24: TQRSubDetail;
    h25: TQRSubDetail;
    h26: TQRSubDetail;
    h27: TQRSubDetail;
    h28: TQRSubDetail;
    h29: TQRSubDetail;
    h30: TQRSubDetail;
    h31: TQRSubDetail;
    h32: TQRSubDetail;
    h33: TQRSubDetail;
    procedure QRSubDetail1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QRSubDetail2BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zdbbprintForm: TzdbbprintForm;

implementation
uses zdbb;
var h:integer;
{$R *.DFM}

procedure TzdbbprintForm.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  h:=0;
  h1.Enabled:=true;
  h2.Enabled:=true;
  h3.Enabled:=true;
  h4.Enabled:=true;
  h5.Enabled:=true;
  h6.Enabled:=true;
  h7.Enabled:=true;
  h8.Enabled:=true;
  h9.Enabled:=true;
  h10.Enabled:=true;
  h11.Enabled:=true;
  h12.Enabled:=true;
  h13.Enabled:=true;
  h14.Enabled:=true;
  h15.Enabled:=true;
  h16.Enabled:=true;
  h17.Enabled:=true;
  h18.Enabled:=true;
  h19.Enabled:=true;
  h20.Enabled:=true;
  h21.Enabled:=true;
  h22.Enabled:=true;
  h23.Enabled:=true;
  h24.Enabled:=true;
  h25.Enabled:=true;
  h26.Enabled:=true;
  h27.Enabled:=true;
  h28.Enabled:=true;
  h29.Enabled:=true;
  h30.Enabled:=true;
  h31.Enabled:=true;
  h32.Enabled:=true;
  h33.Enabled:=true;
  h34.Enabled:=true;
  h35.Enabled:=true;
end;

procedure TzdbbprintForm.QRSubDetail2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  h:=h+1;
  case h of
  1:h1.Enabled:=false;
  2:h2.Enabled:=false;
  3:h3.Enabled:=false;
  4:h4.Enabled:=false;
  5:h5.Enabled:=false;
  6:h6.Enabled:=false;
  7:h7.Enabled:=false;
  8:h8.Enabled:=false;
  9:h9.Enabled:=false;
  10:h10.Enabled:=false;
  11:h11.Enabled:=false;
  12:h12.Enabled:=false;
  13:h13.Enabled:=false;
  14:h14.Enabled:=false;
  15:h15.Enabled:=false;
  16:h16.Enabled:=false;
  17:h17.Enabled:=false;
  18:h18.Enabled:=false;
  19:h19.Enabled:=false;
  20:h20.Enabled:=false;
  21:h21.Enabled:=false;
  22:h22.Enabled:=false;
  23:h23.Enabled:=false;
  24:h24.Enabled:=false;
  25:h25.Enabled:=false;
  26:h26.Enabled:=false;
  27:h27.Enabled:=false;
  28:h28.Enabled:=false;
  29:h29.Enabled:=false;
  30:h30.Enabled:=false;
  31:h31.Enabled:=false;
  32:h32.Enabled:=false;
  33:h33.Enabled:=false;
  34:h34.Enabled:=false;
  35:h35.Enabled:=false;
  end;
end;

end.