开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Am_Gdjs_Ps.pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

Am_Gdjs_Ps.pas：源码内容
  1. unit Am_Gdjs_Ps;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, QRCtrls, QuickRpt, ExtCtrls, QRExport;
  9. type
  10.   Tam_gdjs_P = class(TForm)
  11.     QuickRep1: TQuickRep;
  12.     TitleBand1: TQRBand;
  13.     QRLabel1: TQRLabel;
  14.     QRLabel2: TQRLabel;
  15.     QRSysData1: TQRSysData;
  16.     QRLabel15: TQRLabel;
  17.     DetailBand1: TQRBand;
  18.     QRShape1: TQRShape;
  19.     QRShape2: TQRShape;
  20.     QRShape3: TQRShape;
  21.     QRShape4: TQRShape;
  22.     QRShape5: TQRShape;
  23.     QRLabel3: TQRLabel;
  24.     QRLabel4: TQRLabel;
  25.     QRLabel5: TQRLabel;
  26.     QRLabel6: TQRLabel;
  27.     QRLabel7: TQRLabel;
  28.     QRLabel8: TQRLabel;
  29.     QRLabel9: TQRLabel;
  30.     QRDBText1: TQRDBText;
  31.     QRDBText2: TQRDBText;
  32.     QRDBText3: TQRDBText;
  33.     QRDBText4: TQRDBText;
  34.     QRDBText5: TQRDBText;
  35.     QRDBText6: TQRDBText;
  36.     QRShape6: TQRShape;
  37.     QRShape7: TQRShape;
  38.     QRShape8: TQRShape;
  39.     QRShape9: TQRShape;
  40.     QRShape10: TQRShape;
  41.     QRShape11: TQRShape;
  42.     QRShape12: TQRShape;
  43.     QRShape13: TQRShape;
  44.     QRShape14: TQRShape;
  45.     QRShape15: TQRShape;
  46.     QRShape16: TQRShape;
  47.     QRLabel10: TQRLabel;
  48.     QRLabel11: TQRLabel;
  49.     QRLabel12: TQRLabel;
  50.     QRLabel13: TQRLabel;
  51.     QRLabel14: TQRLabel;
  52.     QRLabel16: TQRLabel;
  53.     QRLabel17: TQRLabel;
  54.     QRLabel18: TQRLabel;
  55.     QRDBText8: TQRDBText;
  56.     QRDBText9: TQRDBText;
  57.     QRDBText10: TQRDBText;
  58.     QRDBText11: TQRDBText;
  59.     QRDBText12: TQRDBText;
  60.     QRDBText14: TQRDBText;
  61.     QRDBText15: TQRDBText;
  62.     QRDBText16: TQRDBText;
  63.     QRDBText17: TQRDBText;
  64.     QRShape17: TQRShape;
  65.     QRShape18: TQRShape;
  66.     QRLabel19: TQRLabel;
  67.     QRLabel20: TQRLabel;
  68.     QRDBText18: TQRDBText;
  69.     QRLabel21: TQRLabel;
  70.     QRLabel22: TQRLabel;
  71.     QRLabel26: TQRLabel;
  72.     QRDBText20: TQRDBText;
  73.     QRDBText23: TQRDBText;
  74.     QRDBText24: TQRDBText;
  75.     QRShape19: TQRShape;
  76.     QRLabel23: TQRLabel;
  77.     QRDBText19: TQRDBText;
  78.     QRShape20: TQRShape;
  79.     QRShape21: TQRShape;
  80.     QRDBText7: TQRDBText;
  81.     QRShape22: TQRShape;
  82.     QRShape23: TQRShape;
  83.     QRDBText13: TQRDBText;
  84.     QRLabel24: TQRLabel;
  85.     QRTextFilter1: TQRTextFilter;
  86.     QRCSVFilter1: TQRCSVFilter;
  87.     QRHTMLFilter1: TQRHTMLFilter;
  88.     procedure QuickRep1AfterPreview(Sender: TObject);
  89.   private
  90.     { Private declarations }
  91.   public
  92.     { Public declarations }
  93.   end;
  95. var
  96.   am_gdjs_P: Tam_gdjs_P;
  98. implementation
  99. uses am_gdaj_cxs;
  100. {$R *.dfm}
  102. procedure Tam_gdjs_P.QuickRep1AfterPreview(Sender: TObject);
  103. begin
  104.  Close;
  105. end;
  107. end.