reportdata.pas

实达企业在线EOL源码

unit ReportData;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBClient, MConnect, SConnect;

type
  TPubReportData = class(TDataModule)
    ReportConnect: TSocketConnection;
  private
    RefCount  :integer;
  public
    class function AddObject :TPubReportData;
    class procedure ReleaseObject;
  end;

var
  PubReportData: TPubReportData;

implementation

{$R *.DFM}

//initialization
//  RegisterClass(TPubReportData);

{ TPubReportData }

class function TPubReportData.AddObject  :TPubReportData;
begin
  if not assigned(PubReportData) then
  begin
    PubReportData :=TPubReportData.Create(nil);
    PubReportData.RefCount :=1;
  end
  else PubReportData.RefCount :=PubReportData.RefCount +1;
  Result  :=PubReportData;
end;

class procedure TPubReportData.ReleaseObject;
begin
  PubReportData.RefCount :=PubReportData.RefCount -1;
  if PubReportData.RefCount =0 then
  begin
    PubReportData.Free ;
    PubReportData :=nil;
  end;
end;

end.