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

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

Delphi控件源码

开发平台：

Delphi

Am_Kwgl_Ps.~pas：源码内容
  1. unit Am_Kwgl_Ps;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, DBClient, QRCtrls, QuickRpt, ExtCtrls;
  9. type
  10.   TAm_Kwgl_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.     TitleBand1: TQRBand;
  26.     QRLabel1: TQRLabel;
  27.     QRSysData1: TQRSysData;
  28.     QRLabel2: TQRLabel;
  29.     QRShape3: TQRShape;
  30.     QRShape7: TQRShape;
  31.     QRShape8: TQRShape;
  32.     QRShape10: TQRShape;
  33.     QRShape11: TQRShape;
  34.     QRLabel7: TQRLabel;
  35.     QRDBText3: TQRDBText;
  36.     QRLabel8: TQRLabel;
  37.     QRDBText4: TQRDBText;
  38.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  39.     procedure QuickRep1AfterPreview(Sender: TObject);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  46. var
  47.   Am_Kwgl_p: TAm_Kwgl_p;
  49. implementation
  51. {$R *.dfm}
  53. procedure TAm_Kwgl_p.FormClose(Sender: TObject; var Action: TCloseAction);
  54. begin
  55.  action:=cafree;
  56. end;
  58. procedure TAm_Kwgl_p.QuickRep1AfterPreview(Sender: TObject);
  59. begin
  60.  close;
  61. end;
  63. end.