Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
am_jygl_ps.pas
Package: 挡案管理系统.rar　[view]
Upload User: szruida
Upload Date: 2007-06-01
Package Size: 6518k
Code Size: 1k
Category:

Delphi VCL

Development Platform:

Delphi

am_jygl_ps.pas：Code Content
  1. unit am_jygl_ps;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, DBClient, QRCtrls, QuickRpt, ExtCtrls, QRExport;
  9. type
  10.   TAm_Jygl_P = class(TForm)
  11.     QuickRep1: TQuickRep;
  12.     DetailBand1: TQRBand;
  13.     QRShape1: TQRShape;
  14.     QRShape2: TQRShape;
  15.     QRShape4: TQRShape;
  16.     QRShape5: TQRShape;
  17.     QRLabel3: TQRLabel;
  18.     QRLabel4: TQRLabel;
  19.     QRLabel5: TQRLabel;
  20.     QRLabel6: TQRLabel;
  21.     QRDBText1: TQRDBText;
  22.     QRDBText2: TQRDBText;
  23.     QRDBText5: TQRDBText;
  24.     QRDBText6: TQRDBText;
  25.     QRShape3: TQRShape;
  26.     QRShape7: TQRShape;
  27.     QRShape11: TQRShape;
  28.     QRLabel7: TQRLabel;
  29.     QRDBText3: TQRDBText;
  30.     TitleBand1: TQRBand;
  31.     QRLabel1: TQRLabel;
  32.     QRSysData1: TQRSysData;
  33.     QRLabel2: TQRLabel;
  34.     QRLabel8: TQRLabel;
  35.     QRDBText7: TQRDBText;
  36.     QRHTMLFilter1: TQRHTMLFilter;
  37.     QRCSVFilter1: TQRCSVFilter;
  38.     QRTextFilter1: TQRTextFilter;
  39.     QRShape6: TQRShape;
  40.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  41.     procedure QuickRep1AfterPrint(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  48. var
  49.   Am_Jygl_P: TAm_Jygl_P;
  51. implementation
  53. {$R *.dfm}
  55. procedure TAm_Jygl_P.FormClose(Sender: TObject; var Action: TCloseAction);
  56. begin
  57.  action:=cafree;
  58. end;
  60. procedure TAm_Jygl_P.QuickRep1AfterPrint(Sender: TObject);
  61. begin
  62.   close;
  63. end;
  65. end.