TTypeSafeDatasetAccess

type TTypeSafeDatasetAccess = class(TInterfacedObject,ITypeSafeDatasetAccess)

protected

  class function FieldMapClass; virtual; abstract;

  function GetBOF;

  function GetDataset;

  function GetEOF;

  property FieldMap: TFieldMap; [r]

public

  constructor Create();

  destructor Destroy; override;

  function IsFieldNull();

  procedure ClearField();

  procedure Open;

  procedure Close;

  procedure First;

  procedure Prior;

  procedure Next;

  procedure Last;

  function Locate();

  function Lookup();

  procedure Append;

  procedure Insert;

  procedure Edit;

  procedure Post;

  procedure Delete;

  procedure Cancel;

  procedure ApplyUpdates; virtual;

  property EOF: Boolean; [r]

  property BOF: Boolean; [r]

  property Dataset: TDataSet; [r]

  property IsEmpty: Boolean; [r]

  property State: TDataSetState; [r]

  property RecordCount: Integer; [r]

  property RecNo: Integer; [rw]

  property Active: Boolean; [rw]

  property Modified: Boolean; [r]

  property FreeDataset: Boolean; [rw]

end;

TTypeSafeDatasetAccess

TObject,ITypeSafeDatasetAccess