leftnote.pas

某大型医院护士站

unit LeftNote;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;

type
  TfrmLeftNote = class(TQuickRep)
    TitleBand1: TQRBand;
    lbCaption: TQRLabel;
    QRShape3: TQRShape;
    QRLabel2: TQRLabel;
    lbName1: TQRLabel;
    QRLabel4: TQRLabel;
    lbInDate1: TQRLabel;
    lbTotalDay1: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRShape2: TQRShape;
    lbWard1: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel13: TQRLabel;
    QRLabel1: TQRLabel;
    QRShape4: TQRShape;
    QRLabel3: TQRLabel;
    lbName2: TQRLabel;
    lbInDate2: TQRLabel;
    lbOutDate2: TQRLabel;
    lbTotalDay2: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel14: TQRLabel;
    QRShape5: TQRShape;
    lbWard2: TQRLabel;
    QRSysData2: TQRSysData;
    QRLabel17: TQRLabel;
    QRShape6: TQRShape;
    QRShape1: TQRShape;
    lbOutDate1: TQRLabel;
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private

  public
    PatientName : String;
    Inid        : Integer;
    InDate      : TDate;
    OutDate     : TDate;
    WardName    : String;
    WardId      : String;
  end;

var
  frmLeftNote: TfrmLeftNote;

implementation

{$R *.DFM}

procedure TfrmLeftNote.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  lbName1.Caption     := '兹有 ' + PatientName + ' 同志（住院号：' +
                          InttoStr(inid) + '）已办理科室出院手续，';
  lbIndate1.Caption   := '入院日期：' + DateToStr(InDate);
  lbOutDate1.Caption  := '出院院日期：' + DateToStr(OutDate);
  lbTotalDay1.Caption := '共住院 ' + IntToStr( Trunc(OutDate) - Trunc(InDate) ) + ' 天';
  lbWard1.Caption     := '科室：' + WardName + '（' + WardId + '）';

  QRlabel3.Caption    := PatientName+' 同志 :';
  lbIndate2.Caption   := lbIndate1.Caption;
  lbOutDate2.Caption  := lbOutDate1.Caption;
  lbTotalDay2.Caption := lbTotalDay1.Caption;
  lbWard2.Caption     := lbWard1.Caption;
end;

end.