s2.view.ts2dataview.pas

轉載的程序應用框架

unit S2.View.TS2DataView;

interface

uses
  S2.Core.IS2DataExchange, S2.View.TS2View, S2.Model.TS2ClientDataModel, S2.Model.TS2Model, S2.Tools.IS2ClientDataModelList,
  S2.View.IS2DataView, S2.Core.IS2Cloneable, S2.Model.TS2ServerDataModel;

type
  TS2DataView = class(TS2View, IS2DataView, IS2DataExchange)
  private
    ClientDataModelList: IS2ClientDataModelList;
  protected
    function GetDataModel(const ModelName: string): TS2ClientDataModel; overload;
    function GetDataModel: TS2ClientDataModel; overload;
    procedure RegisterDataModel(ModelClass: TS2ModelClass; const ModelName: string);
    procedure RegisterMasterDataModel(ServerDataModelClass: TClass);
  public  //  S2.Core.IS2DataExchange
    procedure Copy(O: IS2Cloneable); virtual;
    procedure Paste(O: IS2Cloneable); virtual;
    procedure SaveToFile(O: IS2Cloneable); virtual;
  end;

implementation

uses
  S2.Model.TS2ServerDataModelFactory;

{$R *.dfm}

{ TS2DataView }

procedure TS2DataView.Copy(O: IS2Cloneable);
begin

end;

function TS2DataView.GetDataModel(const ModelName: string): TS2ClientDataModel;
begin

end;

function TS2DataView.GetDataModel: TS2ClientDataModel;
var
  Model: TS2Model;
begin
  Model := GetModel;
  Result := GetModel as TS2ClientDataModel;
end;

procedure TS2DataView.Paste(O: IS2Cloneable);
begin

end;

procedure TS2DataView.RegisterDataModel(ModelClass: TS2ModelClass; const ModelName: string);
begin

end;

procedure TS2DataView.RegisterMasterDataModel(ServerDataModelClass: TClass);
begin
  inherited;
  SetModel((GetSystemObject.GetServerDataModelFactory as TS2ServerDataModelFactory).GetModel(ServerDataModelClass) as TS2Model);
end;

procedure TS2DataView.SaveToFile(O: IS2Cloneable);
begin

end;

end.