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

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

Delphi控件源码

开发平台：

Delphi

am_yjqc_Ps.~pas：源码内容
  1. unit am_yjqc_Ps;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, QRCtrls, QuickRpt, ExtCtrls;
  9. type
  10.   Tam_yjqc_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.     QRLabel3: TQRLabel;
  23.     QRLabel4: TQRLabel;
  24.     QRLabel5: TQRLabel;
  25.     QRLabel6: TQRLabel;
  26.     QRLabel7: TQRLabel;
  27.     QRLabel8: TQRLabel;
  28.     QRLabel9: TQRLabel;
  29.     QRDBText1: TQRDBText;
  30.     QRDBText2: TQRDBText;
  31.     QRDBText3: TQRDBText;
  32.     QRDBText4: TQRDBText;
  33.     QRDBText6: TQRDBText;
  34.     QRShape6: TQRShape;
  35.     QRShape7: TQRShape;
  36.     QRShape8: TQRShape;
  37.     QRShape9: TQRShape;
  38.     QRShape10: TQRShape;
  39.     QRShape13: TQRShape;
  40.     QRShape14: TQRShape;
  41.     QRLabel10: TQRLabel;
  42.     QRLabel13: TQRLabel;
  43.     QRDBText8: TQRDBText;
  44.     QRDBText7: TQRDBText;
  45.     QRDBText5: TQRDBText;
  46.     QRDBText9: TQRDBText;
  47.     procedure QuickRep1AfterPreview(Sender: TObject);
  48.   private
  49.     { Private declarations }
  50.   public
  51.     { Public declarations }
  52.   end;
  54. var
  55.   am_yjqc_P: Tam_yjqc_P;
  57. implementation
  59. {$R *.dfm}
  61. procedure Tam_yjqc_P.QuickRep1AfterPreview(Sender: TObject);
  62. begin
  63.  Close;
  64. end;
  66. end.