TUIBCustomDataSet

type TUIBCustomDataSet = class(TDataSet)

protected

  property BufferChunks: Cardinal; [rw]

  procedure InternalOpen; override;

  procedure InternalClose; override;

  function IsCursorOpen; override;

  function AllocRecordBuffer; override;

  procedure InternalInitRecord(); override;

  procedure FreeRecordBuffer(); override;

  function GetRecordSize; override;

  function GetRecord(); override;

  procedure InternalFirst; override;

  procedure InternalLast; override;

  function GetRecNo; override;

  function GetRecordCount; override;

  procedure SetRecNo(); override;

  procedure InternalGotoBookmark(); override;

  procedure InternalSetToRecord(); override;

  procedure SetBookmarkData(); override;

  procedure GetBookmarkData(); override;

  procedure SetBookmarkFlag(); override;

  function GetBookmarkFlag(); override;

  procedure InternalHandleException; override;

  procedure InternalInitFieldDefs; override;

  function GetCanModify; override;

  procedure InternalRefresh; override;

  property Transaction: TUIBTransaction; [rw]

  property Database: TUIBDataBase; [rw]

  property UniDirectional: Boolean; [rw]

  property OnClose: TEndTransMode; [rw]

  property OnError: TEndTransMode; [rw]

  property SQL: TStrings; [rw]

  property FetchBlobs: Boolean; [rw]

  property Params: TSQLParams; [r]

  property RowsAffected: Cardinal; [r]

  function BCDToCurr();

  function CurrToBCD();

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetFieldData();

  function CreateBlobStream(); override;

  procedure Execute;

  procedure ExecSQL;

  procedure BuildStoredProc();

  procedure ReadBlob();

  procedure ReadBlobB();

  procedure ReadBlobA();

  procedure ReadBlobW();

  procedure ParamsSetBlob();

  procedure ParamsSetBlobB();

  procedure ParamsSetBlobA();

  procedure ParamsSetBlobW();

  property InternalFields: TSQLResult; [r]

end;

TUIBCustomDataSet

TObject