s2.model.ts2databasemanager.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 37 行

unit S2.Model.TS2DatabaseManager;

interface

uses
  Types, S2.Model.IS2MetaDataManager, S2.Model.TS2PersistModel, S2.Model.IS2DatabaseManager,
  S2.Model.IS2DatabaseConnection;

type
  TS2DatabaseManager = class(TS2PersistModel, IS2MetaDataManager, IS2DatabaseManager)
  public  //  S2.Model.IS2DatabaseManager
    function GetConnection: IS2DatabaseConnection; virtual;
  public  //  S2.Model.IS2MetaDataManager
    function GetPrimaryKey(const EntityName: string): TStringDynArray; virtual;
  end;

implementation

{$R *.dfm}

uses
  S2.Error.S2AbstractException;

{ TS2DatabaseManager }

function TS2DatabaseManager.GetConnection: IS2DatabaseConnection;
begin
  raise S2AbstractException.Create(ClassName, 'GetConnection');
end;

function TS2DatabaseManager.GetPrimaryKey(const EntityName: string): TStringDynArray;
begin
  raise S2AbstractException.Create(ClassName, 'GetPrimaryKey');
end;

end.