bodatapersistentunit.pas

Delphi最新三层源码(1.0),对delphi有帮助

unit BODataPersistentUnit;

interface

uses
  SysUtils, DBClient, MConnect, IBODataPersistentUnit, CardServer_TLB;


type
  TBODataPersistent = class(TInterfacedObject, IDLLBODataPersistent)
    private
      pIBODataPer: IBODataPersistent;
    protected
      procedure getvoList(const sboName: WideString; const sboFun: WideString; 
                        out volistObj: OleVariant); safecall;


    private
      function getIBODataPersistent: IBODataPersistent;
    published
      property IBODataPer: IBODataPersistent read getIBODataPersistent;
    public
      constructor Create;
  end;

implementation

constructor TBODataPersistent.Create;
begin
  inherited Create;
end;

function TBODataPersistent.getIBODataPersistent: IBODataPersistent;
begin
  Result := pIBODataPer;
end;

end.