ubp.pas

一个针对酒店大堂管理的delphi应用管理软件

unit ubp;

interface

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

type
  Tbp = class(TForm)
    yyrb: TQuickRep;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    fdmc: TQRLabel;
    QRShape1: TQRShape;
    QRLabel3: TQRLabel;
    rq: TQRLabel;
    QRLabel4: TQRLabel;
    ds: TQRLabel;
    fwf: TQRLabel;
    QRLabel7: TQRLabel;
    cjs: TQRLabel;
    QRLabel9: TQRLabel;
    crc: TQRLabel;
    QRLabel11: TQRLabel;
    cqt: TQRLabel;
    QRLabel13: TQRLabel;
    cmd: TQRLabel;
    QRLabel15: TQRLabel;
    clc: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    xyk: TQRLabel;
    QRLabel21: TQRLabel;
    md: TQRLabel;
    QRLabel23: TQRLabel;
    qd: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    zp: TQRLabel;
    xj: TQRLabel;
    ze: TQRLabel;
    QRLabel30: TQRLabel;
    qdjz: TQRLabel;
    QRLabel32: TQRLabel;
    szl: TQRLabel;
    QRLabel34: TQRLabel;
    krs: TQRLabel;
    QRLabel36: TQRLabel;
    jcje: TQRLabel;
    QRLabel38: TQRLabel;
    tcje: TQRLabel;
    QRLabel40: TQRLabel;
    zcje: TQRLabel;
    QRLabel42: TQRLabel;
    zkf: TQRLabel;
    QRLabel44: TQRLabel;
    QRLabel45: TQRLabel;
    qqt: TQRLabel;
    QRLabel47: TQRLabel;
    qxyk: TQRLabel;
    QRLabel49: TQRLabel;
    qzp: TQRLabel;
    QRLabel51: TQRLabel;
    qxj: TQRLabel;
    QRLabel53: TQRLabel;
    hzrq: TQRLabel;
    QRLabel55: TQRLabel;
    qdwj: TQRLabel;
    QRLabel57: TQRLabel;
    hzsj: TQRLabel;
    QRLabel59: TQRLabel;
    cyzj: TQRLabel;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    qt: TQRLabel;
    yybb: TQuickRep;
    QRBand2: TQRBand;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    fdmc1: TQRLabel;
    QRShape8: TQRShape;
    QRLabel10: TQRLabel;
    rq1: TQRLabel;
    QRLabel14: TQRLabel;
    jzds: TQRLabel;
    fwf1: TQRLabel;
    QRLabel22: TQRLabel;
    cjs1: TQRLabel;
    QRLabel27: TQRLabel;
    crc1: TQRLabel;
    QRLabel29: TQRLabel;
    cqt1: TQRLabel;
    QRLabel33: TQRLabel;
    cmd1: TQRLabel;
    QRLabel37: TQRLabel;
    clc1: TQRLabel;
    QRLabel41: TQRLabel;
    QRLabel43: TQRLabel;
    QRLabel46: TQRLabel;
    xyk1: TQRLabel;
    QRLabel50: TQRLabel;
    md1: TQRLabel;
    QRLabel54: TQRLabel;
    qd1: TQRLabel;
    QRLabel58: TQRLabel;
    QRLabel60: TQRLabel;
    zp1: TQRLabel;
    xj1: TQRLabel;
    ze1: TQRLabel;
    QRLabel64: TQRLabel;
    qdjz1: TQRLabel;
    QRLabel66: TQRLabel;
    jcje1: TQRLabel;
    QRLabel72: TQRLabel;
    tcje1: TQRLabel;
    QRLabel74: TQRLabel;
    zcje1: TQRLabel;
    QRLabel76: TQRLabel;
    zkf1: TQRLabel;
    QRLabel78: TQRLabel;
    QRLabel79: TQRLabel;
    qqt1: TQRLabel;
    QRLabel81: TQRLabel;
    qxyk1: TQRLabel;
    QRLabel83: TQRLabel;
    qzp1: TQRLabel;
    QRLabel85: TQRLabel;
    qxj1: TQRLabel;
    QRLabel87: TQRLabel;
    hzrq1: TQRLabel;
    QRLabel89: TQRLabel;
    qdwj1: TQRLabel;
    QRLabel91: TQRLabel;
    hzsj1: TQRLabel;
    QRLabel93: TQRLabel;
    cyzj1: TQRLabel;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape14: TQRShape;
    qt1: TQRLabel;
    rq2: TQRLabel;
    QRLabel96: TQRLabel;
    krzs: TQRLabel;
    QRShape13: TQRShape;
    jbd: TQuickRep;
    QRBand3: TQRBand;
    QRLabel8: TQRLabel;
    QRLabel12: TQRLabel;
    fdmc3: TQRLabel;
    QRShape15: TQRShape;
    QRLabel20: TQRLabel;
    rq3: TQRLabel;
    QRLabel28: TQRLabel;
    jzds2: TQRLabel;
    fwf2: TQRLabel;
    QRLabel39: TQRLabel;
    cjs2: TQRLabel;
    QRLabel52: TQRLabel;
    crc2: TQRLabel;
    QRLabel61: TQRLabel;
    cqt2: TQRLabel;
    QRLabel63: TQRLabel;
    cmd2: TQRLabel;
    QRLabel67: TQRLabel;
    clc2: TQRLabel;
    QRLabel69: TQRLabel;
    QRLabel70: TQRLabel;
    QRLabel71: TQRLabel;
    xyk2: TQRLabel;
    QRLabel75: TQRLabel;
    md2: TQRLabel;
    QRLabel80: TQRLabel;
    qd2: TQRLabel;
    QRLabel84: TQRLabel;
    QRLabel86: TQRLabel;
    zp2: TQRLabel;
    xj2: TQRLabel;
    jzje: TQRLabel;
    QRLabel94: TQRLabel;
    szl2: TQRLabel;
    QRLabel99: TQRLabel;
    krs2: TQRLabel;
    QRLabel101: TQRLabel;
    jcje2: TQRLabel;
    QRLabel103: TQRLabel;
    tcje2: TQRLabel;
    QRLabel105: TQRLabel;
    zcje2: TQRLabel;
    QRLabel107: TQRLabel;
    zkf2: TQRLabel;
    QRLabel109: TQRLabel;
    sky: TQRLabel;
    QRLabel120: TQRLabel;
    QRLabel122: TQRLabel;
    sj2: TQRLabel;
    cyzj2: TQRLabel;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRShape19: TQRShape;
    QRShape21: TQRShape;
    qt2: TQRLabel;
    QRLabel31: TQRLabel;
    gdje: TQRLabel;
    QRLabel48: TQRLabel;
    gdds: TQRLabel;
    procedure yybbBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    procedure yyrbBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bp: Tbp;

implementation

{$R *.DFM}

procedure Tbp.yybbBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  yybb.Page.Width:=13;
  yybb.Page.length:=16;
end;

procedure Tbp.yyrbBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  yyrb.Page.Width:=13;
  yyrb.Page.length:=16;
  yyrb.Page.LeftMargin:=30;
end;

end.