mysecurity.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

unit MySecurity;

interface

type
  IRole = interface
  end;

  ISecurity = interface;

  ISecurityManager = interface
    function Query(Security: ISecurity; Role: IRole): Boolean;
  end;

  ISecurity = interface
  end;

  ISecurityManagerFactory = interface
    procedure SetRole(Role: IRole);
    function GetRole: IRole;
    function GetManager: ISecurityManager;
    procedure FreeManager;
  end;

implementation

end.