TSQLDBRestResource

type TSQLDBRestResource = class(TCollectionItem)

protected

  function GetDisplayName; override;

public

  DefaultFieldListClass: TSQLDBRestFieldListClass;

  DefaultFieldClass: TSQLDBRestFieldClass;

  DefaultParameterListClass: TSQLDBRestParameterListClass;

  DefaultParamClass: TSQLDBRestParamClass;

  class function CreateFieldList; virtual;

  class function CreateParamList; virtual;

  class function FieldTypeToRestFieldType(); virtual;

  class constructor Init;

  constructor Create(); override;

  destructor Destroy; override;

  procedure CheckParams();

  function GetDataset();

  function GetSchema;

  function GenerateDefaultSQL(); virtual;

  procedure Assign(); override;

  function AllowRecord();

  function AllowResource();

  function GetAllowedOperations();

  function GetHTTPAllow; virtual;

  function GetFieldList();

  function GetFieldArray();

  function GetResolvedSQl();

  function ProcessSQl();

  procedure PopulateFieldsFromFieldDefs();

  procedure PopulateParametersFromSQL();

  function DoCompleteWhere();

  property SQL []: TStrings; [r]

  property BusinessProcessor: TSQLDBRestCustomBusinessProcessor; [r]

published

  property Fields: TSQLDBRestFieldList; [rw]

  property Parameters: TSQLDBRestParameterList; [rw]

  property Enabled: Boolean; [rw]

  property InMetadata: Boolean; [rw]

  property ConnectionName: UTF8String; [rw]

  property TableName: UTF8String; [rw]

  property ResourceName: UTF8String; [rw]

  property AllowedOperations: TRestOperations; [rw]

  property SQLSelect: TStrings; [rw]

  property SQLInsert: TStrings; [rw]

  property SQLUpdate: TStrings; [rw]

  property SQLDelete: TStrings; [rw]

  property OnResourceAllowed: TSQLDBRestAllowResourceEvent; [rw]

  property OnAllowedOperations: TSQLDBRestAllowedOperationsEvent; [rw]

  property OnGetDataset: TSQLDBRestGetDatasetEvent; [rw]

  property OnCheckParams: TSQLDBRestCheckParamsEvent; [rw]

  property OnAllowRecord: TSQLDBRestAllowRecordEvent; [rw]

  property OnGetWhere: TSQLDBRestOnGetWhere; [rw]

end;

TSQLDBRestResource

TObject