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

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

Delphi控件源码

开发平台：

Delphi

Am_Wjjs_Ps.~pas：源码内容
  1. unit Am_Wjjs_Ps;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, QRCtrls, QuickRpt, ExtCtrls;
  9. type
  10.   Tam_wjjs_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.     QRDBText7: TQRDBText;
  41.     QRShape10: TQRShape;
  42.     QRShape11: TQRShape;
  43.     QRShape12: TQRShape;
  44.     QRShape13: TQRShape;
  45.     QRShape14: TQRShape;
  46.     QRShape15: TQRShape;
  47.     QRShape16: TQRShape;
  48.     QRLabel10: TQRLabel;
  49.     QRLabel11: TQRLabel;
  50.     QRLabel12: TQRLabel;
  51.     QRLabel13: TQRLabel;
  52.     QRLabel16: TQRLabel;
  53.     QRLabel17: TQRLabel;
  54.     QRLabel18: TQRLabel;
  55.     QRDBText8: TQRDBText;
  56.     QRDBText9: TQRDBText;
  57.     QRDBText10: TQRDBText;
  58.     QRDBText11: TQRDBText;
  59.     QRDBText14: TQRDBText;
  60.     QRDBText15: TQRDBText;
  61.     QRDBText16: TQRDBText;
  62.     QRDBText17: TQRDBText;
  63.     QRShape17: TQRShape;
  64.     QRShape18: TQRShape;
  65.     QRLabel19: TQRLabel;
  66.     QRLabel20: TQRLabel;
  67.     QRDBText18: TQRDBText;
  68.     QRLabel21: TQRLabel;
  69.     QRLabel22: TQRLabel;
  70.     QRLabel26: TQRLabel;
  71.     QRDBText20: TQRDBText;
  72.     QRDBText23: TQRDBText;
  73.     QRDBText24: TQRDBText;
  74.     QRLabel14: TQRLabel;
  75.     QRDBText12: TQRDBText;
  76.     procedure QuickRep1AfterPreview(Sender: TObject);
  77.   private
  78.     { Private declarations }
  79.   public
  80.     { Public declarations }
  81.   end;
  83. var
  84.   am_wjjs_p: Tam_wjjs_p;
  86. implementation
  87. uses am_wjjss;
  88. {$R *.dfm}
  90. procedure Tam_wjjs_p.QuickRep1AfterPreview(Sender: TObject);
  91. begin
  92.   close;
  93. end;
  95. end.