ftysample.pas

数据库封装原代码 1. 该代码可以免费使用, 该代码的名字暂时定为"哲别" 2. 如果你需要使用该代码, 请注明该代码的原来作者: Jacky Zhou 3. 如果你发现该代码有bug,可以自己修改

unit FtySample;

interface

uses SysUtils, EntityFactory, Entity, EtyUser, EtySumAge;

type
  TFtySample = class(TInterfacedObject, IEntityFactory)
  public
    function CreateEntity(strEntityName : String) : IEntity;
  end;

implementation

//-----------------------------------------------------------------------------
//                              GetEntityName
//-----------------------------------------------------------------------------
function TFtySample.CreateEntity(strEntityName : String) : IEntity;
begin
  strEntityName := LowerCase(strEntityName);

  if (strEntityName = LowerCase(TEtyUser.Create.GetEntityName)) then
    Result := TEtyUser.Create
  else if (strEntityName = LowerCase(TEtySumAge.Create.GetEntityName)) then
    Result := TEtySumAge.Create
  else
    Result := nil;
end;

end.