entity.pas

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

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.