etyrule.pas

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

unit EtyRule;

interface

uses
    SysUtils, Entity;

const
  ENTITY_NAME = 'ETYRULE';

  RULE_ORDERBY = 'ORDER BY';
  FD_ENTITY_FIELD_NAME = 'EntityFieldName';
  FD_OPERATOIN = 'Operation';

type
  TEtyRule = class(TInterfacedObject, IEntity)
  private
    Operation : String;
    EntityFieldName : String;
    m_bIsClearValue : boolean;
  public
    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;

implementation

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

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

        if (strAttributeName = LowerCase(FD_ENTITY_FIELD_NAME)) then
            EntityFieldName := varAttributeValue
        else if (strAttributeName = LowerCase(FD_OPERATOIN)) then
            Operation := varAttributeValue;
    Except

    end
end;

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

        if (strAttributeName = LowerCase(FD_ENTITY_FIELD_NAME)) then
            varAttributeValue := EntityFieldName
        else if (strAttributeName = LowerCase(FD_OPERATOIN)) then
            varAttributeValue := Operation
        else
            varAttributeValue := '';

        GetAttributeValue := varAttributeValue;
    Except
        GetAttributeValue := '';
    end
end;

//-----------------------------------------------------------------------------
//                               IsAttributeChanged
//-----------------------------------------------------------------------------
function TEtyRule.IsAttributeChanged(strAttributeName : String) : Boolean;
begin
  Result := false;
end;

//-----------------------------------------------------------------------------
//                               SetChangedFlag
//-----------------------------------------------------------------------------
procedure TEtyRule.SetChangedFlag(bFlag : Boolean);
begin

end;


//-----------------------------------------------------------------------------
//                               ClearValue
//-----------------------------------------------------------------------------
procedure TEtyRule.ClearValue();
begin

end;

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

end.