etysumage.pas

来自「数据库封装原代码 1. 该代码可以免费使用, 该代码的名字暂时定为"哲别" 2」· PAS 代码 · 共 130 行

unit EtySumAge;

interface

uses
  SysUtils, Entity;

const
  ENTITY_NAME = 'EtySumAge';

  FD_SUM_AGE = 'SumAge';

type
  TEtySumAge = class(TInterfacedObject, IEntity)
  private
    nSumAge: integer;

    IsSumAgeChanged : Boolean;

    m_bIsClearValue : boolean;
  public
    constructor Create() overload;
    function GetEntityName() : String;

    function GetAttributeValue(strAttributeName : String) : Variant;
    procedure SetAttributeValue(strAttributeName : String; varAttributeValue : Variant);

    function IsAttributeChanged(strAttributeName : String) : Boolean;
    procedure SetChangedFlag(bFlag : Boolean);
    procedure ClearValue();
    function IsClearValue() : boolean;
  end;

  PTEtyUser = ^TEtySumAge;

implementation

//-----------------------------------------------------------------------------
//                              Create
//-----------------------------------------------------------------------------
constructor TEtySumAge.Create();
begin
  inherited Create;

  ClearValue;
end;

//-----------------------------------------------------------------------------
//                              GetEntityName
//-----------------------------------------------------------------------------
function TEtySumAge.GetEntityName() : String;
begin
  Result := ENTITY_NAME;
end;

//-----------------------------------------------------------------------------
//                               SetAttributeValue
//-----------------------------------------------------------------------------
procedure TEtySumAge.SetAttributeValue(strAttributeName : String; varAttributeValue : Variant);
begin
  strAttributeName := LowerCase(strAttributeName);

  if (strAttributeName = LowerCase(FD_SUM_AGE)) then
  begin
    nSumAge := varAttributeValue;
    IsSumAgeChanged := true;
  end;
end;

//-----------------------------------------------------------------------------
//                               GetAttributeValue
//-----------------------------------------------------------------------------
function TEtySumAge.GetAttributeValue(strAttributeName : String) : Variant;
var
  varAttributeValue : Variant;
begin
  strAttributeName := LowerCase(strAttributeName);

  if (strAttributeName = LowerCase(FD_SUM_AGE)) then
    varAttributeValue := nSumAge;

  Result := varAttributeValue;
end;

//-----------------------------------------------------------------------------
//                               IsAttributeChanged
//-----------------------------------------------------------------------------
function TEtySumAge.IsAttributeChanged(strAttributeName : String) : Boolean;
var
  bIsChanged : Boolean;
begin
  strAttributeName := LowerCase(strAttributeName);

  if (strAttributeName = LowerCase(FD_SUM_AGE)) then
    bIsChanged := IsSumAgeChanged
  else
    bIsChanged := false;

  Result := bIsChanged;
end;

//-----------------------------------------------------------------------------
//                               SetChangedFlag
//-----------------------------------------------------------------------------
procedure TEtySumAge.SetChangedFlag(bFlag : Boolean);
begin
  IsSumAgeChanged := bFlag;
end;


//-----------------------------------------------------------------------------
//                               ClearValue
//-----------------------------------------------------------------------------
procedure TEtySumAge.ClearValue();
begin
  nSumAge := 0;

  SetChangedFlag(false);
end;

//-----------------------------------------------------------------------------
//                               IsClearValue
//-----------------------------------------------------------------------------
function TEtySumAge.IsClearValue() : boolean;
begin
  result := m_bIsClearValue;
end;

end.