rpt1.pas

网吧管理系统 网吧IC卡计费管理系统源码

unit Rpt1;

interface

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

type
  TFrm_Rpt1 = class(TForm)
    QuickRep1: TQuickRep;
    TitleBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel1: TQRLabel;
    QLB_YJ: TQRLabel;
    QLB_CZ: TQRLabel;
    QLB_YP: TQRLabel;
    QLB_XY: TQRLabel;
    QLB_QT: TQRLabel;
    QLB_HT: TQRLabel;
    QRLabel7: TQRLabel;
    QLB_ZS: TQRLabel;
    QRShape1: TQRShape;
    QRLabel8: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel9: TQRLabel;
    QLB_Title: TQRLabel;
    QRShape2: TQRShape;
    QRLabel11: TQRLabel;
    QLB_YYJE: TQRLabel;
    QRLabel12: TQRLabel;
    QLB_OpName: TQRLabel;
    QRSysData2: TQRSysData;
    procedure QLB_YJPrint(sender: TObject; var Value: String);
    procedure QLB_CZPrint(sender: TObject; var Value: String);
    procedure QLB_YPPrint(sender: TObject; var Value: String);
    procedure QLB_XYPrint(sender: TObject; var Value: String);
    procedure QLB_QTPrint(sender: TObject; var Value: String);
    procedure QLB_HTPrint(sender: TObject; var Value: String);
    procedure QLB_ZSPrint(sender: TObject; var Value: String);
    procedure QLB_YYJEPrint(sender: TObject; var Value: String);
    procedure QLB_OpNamePrint(sender: TObject; var Value: String);
    procedure QLB_TitlePrint(sender: TObject; var Value: String);
    procedure QRLabel12Print(sender: TObject; var Value: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Rpt1: TFrm_Rpt1;

implementation

uses HandIn, sys_global ;

{$R *.dfm}

procedure TFrm_Rpt1.QLB_YJPrint(sender: TObject; var Value: String);
begin
  Value := frm_handin.LB_YJ.Caption ;
end;

procedure TFrm_Rpt1.QLB_CZPrint(sender: TObject; var Value: String);
begin
  Value := frm_handin.LB_CZ.Caption ;
end;

procedure TFrm_Rpt1.QLB_YPPrint(sender: TObject; var Value: String);
begin
  Value := frm_handin.LB_YP.Caption ;
end;

procedure TFrm_Rpt1.QLB_XYPrint(sender: TObject; var Value: String);
begin
  Value := frm_handin.LB_XY.Caption ;
end;

procedure TFrm_Rpt1.QLB_QTPrint(sender: TObject; var Value: String);
begin
  Value := frm_handin.LB_QT.Caption ;
end;

procedure TFrm_Rpt1.QLB_HTPrint(sender: TObject; var Value: String);
begin
  Value := frm_handin.LB_HT.Caption ;
end;

procedure TFrm_Rpt1.QLB_ZSPrint(sender: TObject; var Value: String);
begin
  Value := frm_handin.LB_ZS.Caption ;
end;

procedure TFrm_Rpt1.QLB_YYJEPrint(sender: TObject; var Value: String);
begin
  Value := frm_handin.LB_YYJE.Caption ;
end;

procedure TFrm_Rpt1.QLB_OpNamePrint(sender: TObject; var Value: String);
begin
  Value := M_OpName ;
end;

procedure TFrm_Rpt1.QLB_TitlePrint(sender: TObject; var Value: String);
begin
  if m_mode = 'b' then  value := '每日交班表' ;
  if m_mode = 'k' then  value := '每日交款表' ;
end;

procedure TFrm_Rpt1.QRLabel12Print(sender: TObject; var Value: String);
begin
  if m_mode = 'b' then  value  := '交班人:' ;
  if m_mode = 'k' then  value  := '交款人:' ;
end;

end.