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

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

Delphi控件源码

开发平台：

Delphi

am_kwzk_ps.pas：源码内容
  1. unit am_kwzk_ps;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, QRCtrls, QuickRpt, ExtCtrls;
  9. type
  10.   Tam_kwzk_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.     QRShape8: TQRShape;
  28.     QRShape10: TQRShape;
  29.     QRShape11: TQRShape;
  30.     QRLabel7: TQRLabel;
  31.     QRDBText3: TQRDBText;
  32.     QRLabel8: TQRLabel;
  33.     QRDBText4: TQRDBText;
  34.     TitleBand1: TQRBand;
  35.     QRLabel1: TQRLabel;
  36.     QRSysData1: TQRSysData;
  37.     QRLabel2: TQRLabel;
  38.     QRLabel9: TQRLabel;
  39.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  40.     procedure QuickRep1AfterPrint(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  47. var
  48.   am_kwzk_p: Tam_kwzk_p;
  50. implementation
  52. {$R *.dfm}
  54. procedure Tam_kwzk_p.FormClose(Sender: TObject; var Action: TCloseAction);
  55. begin
  56.  action:=cafree;
  57. end;
  59. procedure Tam_kwzk_p.QuickRep1AfterPrint(Sender: TObject);
  60. begin
  61.  close;
  62. end;
  64. end.