yhjbsyprint.pas

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

unit yhjbsyprint;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Qrctrls, QuickRpt, ExtCtrls;

type
  TyhjbsyprintForm = class(TForm)
    QuickRep1: TQuickRep;
    bc: TQRBand;
    QRLabel1: TQRLabel;
    ny: TQRLabel;
    bbc: TQRLabel;
    bh: TQRLabel;
    QRSubDetail1: TQRSubDetail;
    QRLabel4: TQRLabel;
    QRRichText1: TQRRichText;
    QRRichText2: TQRRichText;
    QRRichText3: TQRRichText;
    QRRichText4: TQRRichText;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    h1: TQRSubDetail;
    QRRichText6: TQRRichText;
    QRRichText10: TQRRichText;
    h2: TQRSubDetail;
    QRRichText5: TQRRichText;
    QRRichText11: TQRRichText;
    QRRichText12: TQRRichText;
    QRRichText13: TQRRichText;
    QRRichText14: TQRRichText;
    h3: TQRSubDetail;
    QRRichText15: TQRRichText;
    QRRichText16: TQRRichText;
    QRRichText17: TQRRichText;
    QRRichText18: TQRRichText;
    QRRichText19: TQRRichText;
    h4: TQRSubDetail;
    QRRichText20: TQRRichText;
    QRRichText21: TQRRichText;
    QRRichText22: TQRRichText;
    QRRichText23: TQRRichText;
    QRRichText24: TQRRichText;
    h5: TQRSubDetail;
    QRRichText25: TQRRichText;
    QRRichText26: TQRRichText;
    QRRichText27: TQRRichText;
    QRRichText28: TQRRichText;
    QRRichText29: TQRRichText;
    h6: TQRSubDetail;
    QRRichText30: TQRRichText;
    QRRichText31: TQRRichText;
    QRRichText32: TQRRichText;
    QRRichText33: TQRRichText;
    QRRichText34: TQRRichText;
    h7: TQRSubDetail;
    QRRichText35: TQRRichText;
    QRRichText36: TQRRichText;
    QRRichText37: TQRRichText;
    QRRichText38: TQRRichText;
    QRRichText39: TQRRichText;
    h8: TQRSubDetail;
    QRRichText40: TQRRichText;
    QRRichText41: TQRRichText;
    QRRichText42: TQRRichText;
    QRRichText43: TQRRichText;
    QRRichText44: TQRRichText;
    h9: TQRSubDetail;
    QRRichText45: TQRRichText;
    QRRichText46: TQRRichText;
    QRRichText47: TQRRichText;
    QRRichText48: TQRRichText;
    QRRichText49: TQRRichText;
    h10: TQRSubDetail;
    QRRichText50: TQRRichText;
    QRRichText51: TQRRichText;
    QRRichText52: TQRRichText;
    QRRichText53: TQRRichText;
    QRRichText54: TQRRichText;
    h11: TQRSubDetail;
    QRRichText55: TQRRichText;
    QRRichText56: TQRRichText;
    QRRichText57: TQRRichText;
    QRRichText58: TQRRichText;
    QRRichText59: TQRRichText;
    h12: TQRSubDetail;
    QRRichText60: TQRRichText;
    QRRichText61: TQRRichText;
    QRRichText62: TQRRichText;
    QRRichText63: TQRRichText;
    QRRichText64: TQRRichText;
    h13: TQRSubDetail;
    QRRichText65: TQRRichText;
    QRRichText66: TQRRichText;
    QRRichText67: TQRRichText;
    QRRichText68: TQRRichText;
    QRRichText69: TQRRichText;
    h14: TQRSubDetail;
    QRRichText70: TQRRichText;
    QRRichText71: TQRRichText;
    QRRichText72: TQRRichText;
    QRRichText73: TQRRichText;
    QRRichText74: TQRRichText;
    h15: TQRSubDetail;
    QRRichText75: TQRRichText;
    QRRichText76: TQRRichText;
    QRRichText77: TQRRichText;
    QRRichText78: TQRRichText;
    QRRichText79: TQRRichText;
    h16: TQRSubDetail;
    QRRichText80: TQRRichText;
    QRRichText81: TQRRichText;
    QRRichText82: TQRRichText;
    QRRichText83: TQRRichText;
    QRRichText84: TQRRichText;
    h17: TQRSubDetail;
    QRRichText85: TQRRichText;
    QRRichText86: TQRRichText;
    QRRichText87: TQRRichText;
    QRRichText88: TQRRichText;
    QRRichText89: TQRRichText;
    h18: TQRSubDetail;
    QRRichText90: TQRRichText;
    QRRichText91: TQRRichText;
    QRRichText92: TQRRichText;
    QRRichText93: TQRRichText;
    QRRichText94: TQRRichText;
    h19: TQRSubDetail;
    QRRichText95: TQRRichText;
    QRRichText96: TQRRichText;
    QRRichText97: TQRRichText;
    QRRichText98: TQRRichText;
    QRRichText99: TQRRichText;
    h20: TQRSubDetail;
    QRRichText100: TQRRichText;
    QRRichText101: TQRRichText;
    QRRichText102: TQRRichText;
    QRRichText103: TQRRichText;
    QRRichText104: TQRRichText;
    h21: TQRSubDetail;
    QRRichText105: TQRRichText;
    QRRichText106: TQRRichText;
    QRRichText107: TQRRichText;
    QRRichText108: TQRRichText;
    QRRichText109: TQRRichText;
    QRSubDetail23: TQRSubDetail;
    QRRichText110: TQRRichText;
    QRRichText111: TQRRichText;
    QRRichText112: TQRRichText;
    QRRichText113: TQRRichText;
    QRRichText114: TQRRichText;
    QRSubDetail24: TQRSubDetail;
    QRRichText115: TQRRichText;
    QRRichText116: TQRRichText;
    QRRichText117: TQRRichText;
    QRRichText118: TQRRichText;
    QRRichText119: TQRRichText;
    QRSubDetail25: TQRSubDetail;
    QRRichText120: TQRRichText;
    QRRichText121: TQRRichText;
    QRRichText122: TQRRichText;
    QRRichText123: TQRRichText;
    QRRichText124: TQRRichText;
    QRSubDetail26: TQRSubDetail;
    QRRichText125: TQRRichText;
    QRRichText126: TQRRichText;
    QRRichText127: TQRRichText;
    QRRichText128: TQRRichText;
    QRRichText129: TQRRichText;
    QRRichText130: TQRRichText;
    QRRichText131: TQRRichText;
    QRRichText132: TQRRichText;
    QRRichText133: TQRRichText;
    QRSubDetail27: TQRSubDetail;
    QRRichText134: TQRRichText;
    QRRichText135: TQRRichText;
    QRRichText136: TQRRichText;
    QRRichText137: TQRRichText;
    QRRichText138: TQRRichText;
    QRRichText139: TQRRichText;
    QRSubDetail28: TQRSubDetail;
    QRRichText140: TQRRichText;
    QRRichText141: TQRRichText;
    QRRichText142: TQRRichText;
    QRRichText143: TQRRichText;
    QRRichText144: TQRRichText;
    QRRichText145: TQRRichText;
    QRSubDetail29: TQRSubDetail;
    QRRichText146: TQRRichText;
    QRRichText147: TQRRichText;
    QRRichText148: TQRRichText;
    QRRichText149: TQRRichText;
    QRRichText150: TQRRichText;
    QRRichText151: TQRRichText;
    QRSubDetail30: TQRSubDetail;
    QRRichText152: TQRRichText;
    QRRichText153: TQRRichText;
    QRRichText154: TQRRichText;
    QRRichText155: TQRRichText;
    QRSubDetail31: TQRSubDetail;
    QRRichText156: TQRRichText;
    QRRichText157: TQRRichText;
    QRRichText158: TQRRichText;
    QRRichText159: TQRRichText;
    QRSubDetail32: TQRSubDetail;
    QRRichText160: TQRRichText;
    QRRichText161: TQRRichText;
    QRRichText162: TQRRichText;
    QRRichText163: TQRRichText;
    QRSubDetail33: TQRSubDetail;
    QRRichText165: TQRRichText;
    QRRichText166: TQRRichText;
    QRRichText168: TQRRichText;
    jkmx1: TQRRichText;
    jkmx2: TQRRichText;
    QRRichText164: TQRRichText;
    QRRichText167: TQRRichText;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel31: TQRLabel;
    QRLabel32: TQRLabel;
    QRLabel33: TQRLabel;
    QRLabel34: TQRLabel;
    QRLabel35: TQRLabel;
    lsly: TQRLabel;
    lgly: TQRLabel;
    cyly: TQRLabel;
    qtly: TQRLabel;
    lssy: TQRLabel;
    lgsy: TQRLabel;
    cysy: TQRLabel;
    qtsy: TQRLabel;
    djdsy: TQRLabel;
    lszf: TQRLabel;
    lgzf: TQRLabel;
    qtzf: TQRLabel;
    djdzf: TQRLabel;
    QRLabel36: TQRLabel;
    lsyj: TQRLabel;
    lgyj: TQRLabel;
    cyyj: TQRLabel;
    qtyj: TQRLabel;
    djdyj: TQRLabel;
    QRLabel37: TQRLabel;
    QRLabel39: TQRLabel;
    QRLabel41: TQRLabel;
    lskly: TQRLabel;
    lszly: TQRLabel;
    lszsy: TQRLabel;
    lsksy: TQRLabel;
    lskyj: TQRLabel;
    lszyj: TQRLabel;
    lgkly: TQRLabel;
    QRLabel42: TQRLabel;
    lgzly: TQRLabel;
    lgksy: TQRLabel;
    QRLabel45: TQRLabel;
    lgzsy: TQRLabel;
    lgkyj: TQRLabel;
    QRLabel51: TQRLabel;
    lgzyj: TQRLabel;
    qtkly: TQRLabel;
    QRLabel54: TQRLabel;
    qtzly: TQRLabel;
    qtksy: TQRLabel;
    QRLabel57: TQRLabel;
    qtzsy: TQRLabel;
    qtkyj: TQRLabel;
    QRLabel63: TQRLabel;
    qtzyj: TQRLabel;
    djdkly: TQRLabel;
    QRLabel66: TQRLabel;
    djdzly: TQRLabel;
    djdksy: TQRLabel;
    QRLabel69: TQRLabel;
    djdzsy: TQRLabel;
    djdkyj: TQRLabel;
    QRLabel75: TQRLabel;
    djdzyj: TQRLabel;
    djdly: TQRLabel;
    QRLabel38: TQRLabel;
    ydjj: TQRLabel;
    QRLabel44: TQRLabel;
    ydly: TQRLabel;
    QRLabel47: TQRLabel;
    ydfc: TQRLabel;
    QRLabel50: TQRLabel;
    ydyj: TQRLabel;
    QRLabel43: TQRLabel;
    QRLabel46: TQRLabel;
    QRLabel49: TQRLabel;
    bz: TQRRichText;
    QRLabel52: TQRLabel;
    QRLabel53: TQRLabel;
    QRLabel55: TQRLabel;
    QRLabel56: TQRLabel;
    nb: TQRLabel;
    ns: TQRLabel;
    nhj: TQRLabel;
    QRLabel58: TQRLabel;
    QRLabel59: TQRLabel;
    QRLabel61: TQRLabel;
    vb: TQRLabel;
    vs: TQRLabel;
    vhj: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel40: TQRLabel;
    QRLabel48: TQRLabel;
    QRLabel60: TQRLabel;
    QRLabel62: TQRLabel;
    QRRichText7: TQRRichText;
    QRRichText8: TQRRichText;
    QRRichText9: TQRRichText;
    procedure QRSubDetail1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure h1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yhjbsyprintForm: TyhjbsyprintForm;

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

procedure TyhjbsyprintForm.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  h:=1;
  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;
end;

procedure TyhjbsyprintForm.h1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  h:=h+1;
  case h of
  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;
  END;
end;

end.