entity.pas

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

unit Entity;

interface

uses
  SysUtils;
  
type
  IEntity = interface(IInterface)
    function GetEntityName() : String;

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

    procedure SetChangedFlag(bFlag : Boolean);
    procedure ClearValue();
    function IsClearValue() : boolean;

    property EntityName : String read GetEntityName;
  end;

  PIEntity = ^IEntity;

implementation

end.