applyrptfrm.pas

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

unit ApplyRptfrm;

interface

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

type
  TApplyRptForm = class(TForm)
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape1: TQRShape;
    QRShape16: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
  private
    procedure ShowNotebook;

    procedure ShowCD;
    procedure ShowSeal;
    { Private declarations }
  public
    
    { Public declarations }
  end;

var
  ApplyRptForm: TApplyRptForm;
  function ShowApplyRpt(ApplyNo:Byte):boolean;

implementation
uses DataModule1;

{$R *.dfm}

function ShowApplyRpt(ApplyNo:Byte):boolean;
begin
   ApplyRptForm:=TApplyRptForm.Create(Application);
   try
     case ApplyNo of
     0:begin
          ApplyRptForm.showNotebook;
       end;
     
     2:ApplyRptForm.ShowCD;
     3:ApplyRptForm.ShowSeal;
     end;
     ApplyRptForm.QuickRep1.Preview;
   finally
     ApplyRptForm.Free;
   end;
end;

{ TApplyRptForm }

procedure TApplyRptForm.ShowCD;
begin
   QRLabel1.Caption :='刻录光盘申请表';
end;



procedure TApplyRptForm.ShowNotebook;
begin
   QRLabel1.Caption :='笔记本使用申请表';
   
end;

procedure TApplyRptForm.ShowSeal;
begin
   QRLabel1.Caption :='章签使用申请表';
   QRLabel4.Caption :='事由';

   QRLabel5.Caption :='章签名称';
   QRDBText3.DataField :='A_Reason';
   QRDBText4.DataField :='A_SealName';
   
end;

end.