app.test.mysystemobject.pas

轉載的程序應用框架

unit App.Test.MySystemObject;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Model.TS2SystemObject, S2.Model.IS2DatabaseManager, S2.Error.IS2ExceptionWrapper,
  S2.Model.IS2MetaDataManager, S2.Core.IS2ObjectCache, S2.Model.IS2ModelFactory,
  S2.Core.IS2User, S2.Model.TS2ADODatabaseManager, S2.Core.TS2User;

type
  TMySystemObject = class(TS2SystemObject)
  private
    DatabaseManager: TS2ADODatabaseManager;
  public
   function GetAppName: string; override;
    function GetDatabaseManager: TDataModule; override;
    function GetMetaDataManager: IS2MetaDataManager; override;
  public
    constructor Create(Owner: TComponent; User: TS2User);
    destructor Destroy; override;
  end;

implementation

{$R *.dfm}

uses
  App.Test.MyDatabase;

{ TMySystemObject }

constructor TMySystemObject.Create(Owner: TComponent; User: TS2User);
begin
  inherited;

  DatabaseManager := TMyDatabase.Create(Owner);
end;

destructor TMySystemObject.Destroy;
begin
  FreeAndNil(DatabaseManager);
  inherited;
end;

function TMySystemObject.GetAppName: string;
begin
  Result := 'MyApp';
end;

function TMySystemObject.GetDatabaseManager: TDataModule;
begin
  Result := DatabaseManager;
end;

function TMySystemObject.GetMetaDataManager: IS2MetaDataManager;
begin
  Result := DatabaseManager;
end;

end.