TCustomSqliteDataset

type TCustomSqliteDataset = class(TDataSet)

protected

  FPrimaryKey: string;

  FPrimaryKeyNo: Integer;

  FFileName: UTF8String;

  FSQL: string;

  FEffectiveSQL: string;

  FTableName: string;

  FSqlFilterTemplate: string;

  FAutoIncFieldNo: Integer;

  FNextAutoInc: Integer;

  FUpdatedItems: TFPList;

  FAddedItems: TFPList;

  FDeletedItems: TFPList;

  FCalcFieldList: TFPList;

  FReturnCode: Integer;

  FSqliteHandle: Pointer;

  FRowBufferSize: Integer;

  FRowCount: Integer;

  FRecordCount: Integer;

  FBeginItem: PDataRecord;

  FEndItem: PDataRecord;

  FSavedEditItem: PDataRecord;

  FGetSqlStr: array of TGetSqlStrFunction;

  FSaveOnClose: Boolean;

  FSaveOnRefetch: Boolean;

  FAutoIncrementKey: Boolean;

  FDataAllocated: Boolean;

  function SqliteExec(); virtual; abstract;

  procedure InternalCloseHandle; virtual; abstract;

  function InternalGetHandle; virtual; abstract;

  function FieldDefsStored;

  function GetLastInsertRowId; virtual; abstract;

  procedure GetSqliteHandle;

  procedure BuildLinkedList; virtual; abstract;

  procedure FreeItem();

  procedure DisposeLinkedList;

  procedure SetDetailFilter;

  procedure MasterChanged();

  procedure SetMasterFields();

  function GetMasterFields;

  procedure SetMasterSource();

  function GetMasterSource;

  procedure SetFileName();

  function GetRowsAffected; virtual; abstract;

  procedure RetrieveFieldDefs; virtual; abstract;

  function AllocRecordBuffer; override;

  procedure ClearCalcFields(); override;

  procedure DoBeforeClose; override;

  procedure DoAfterInsert; override;

  procedure DoBeforeInsert; override;

  procedure DoFilterRecord(); virtual;

  procedure FreeRecordBuffer(); override;

  procedure GetBookmarkData(); override;

  function GetBookmarkFlag(); override;

  function GetRecord(); override;

  function GetRecordCount; override;

  function GetRecNo; override;

  function GetRecordSize; override;

  procedure InternalAddRecord(); override;

  procedure InternalClose; override;

  procedure InternalCancel; override;

  procedure InternalDelete; override;

  procedure InternalEdit; override;

  procedure InternalFirst; override;

  procedure InternalGotoBookmark(); override;

  procedure InternalInitFieldDefs; override;

  procedure InternalInitRecord(); override;

  procedure InternalLast; override;

  procedure InternalOpen; override;

  procedure InternalPost; override;

  procedure InternalSetToRecord(); override;

  function IsCursorOpen; override;

  procedure SetBookmarkData(); override;

  procedure SetBookmarkFlag(); override;

  procedure SetExpectedAppends();

  procedure SetExpectedUpdates();

  procedure SetExpectedDeletes();

  procedure SetRecNo(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function BookmarkValid(); override;

  function CompareBookmarks(); override;

  function CreateBlobStream(); override;

  function GetFieldData();

  function Locate(); override;

  function LocateNext();

  function Lookup(); override;

  procedure SetFieldData();

  procedure ApplyUpdates;

  procedure ClearUpdates();

  function CreateTable();

  procedure ExecCallback();

  procedure ExecSQL();

  procedure ExecSQLList;

  procedure ExecuteDirect(); virtual; abstract;

  function GetSQLValue();

  procedure QueryUpdates();

  function QuickQuery();

  procedure RefetchData;

  function ReturnString; virtual; abstract;

  class function SqliteVersion; virtual; abstract;

  function TableExists();

  function UpdatesPending;

  property ExpectedAppends: Integer; [w]

  property ExpectedUpdates: Integer; [w]

  property ExpectedDeletes: Integer; [w]

  property IndexFields []: TField; [r]

  property LastInsertRowId: Int64; [r]

  property RowsAffected: Integer; [r]

  property ReturnCode: Integer; [r]

  property SqliteHandle: Pointer; [r]

  property SQLList: TStrings; [r]

published

  property AutoIncrementKey: Boolean; [rw]

  property IndexFieldNames: string; [rw]

  property FileName: UTF8String; [rw]

  property OnCallback: TSqliteCallback; [rw]

  property OnGetHandle: TDataSetNotifyEvent; [rw]

  property Options: TSqliteOptions; [rw]

  property PrimaryKey: string; [rw]

  property SaveOnClose: Boolean; [rw]

  property SaveOnRefetch: Boolean; [rw]

  property SQL: string; [rw]

  property StoreDefs: Boolean; [rw]

  property TableName: string; [rw]

  property MasterSource: TDataSource; [rw]

  property MasterFields: string; [rw]

  property Active: Boolean;

  property FieldDefs: TFieldDefs; [s]

  property BeforeOpen: TDataSetNotifyEvent;

  property AfterOpen: TDataSetNotifyEvent;

  property BeforeClose: TDataSetNotifyEvent;

  property AfterClose: TDataSetNotifyEvent;

  property BeforeInsert: TDataSetNotifyEvent;

  property AfterInsert: TDataSetNotifyEvent;

  property BeforeEdit: TDataSetNotifyEvent;

  property AfterEdit: TDataSetNotifyEvent;

  property BeforePost: TDataSetNotifyEvent;

  property AfterPost: TDataSetNotifyEvent;

  property BeforeCancel: TDataSetNotifyEvent;

  property AfterCancel: TDataSetNotifyEvent;

  property BeforeDelete: TDataSetNotifyEvent;

  property AfterDelete: TDataSetNotifyEvent;

  property BeforeScroll: TDataSetNotifyEvent;

  property AfterScroll: TDataSetNotifyEvent;

  property BeforeRefresh: TDataSetNotifyEvent;

  property AfterRefresh: TDataSetNotifyEvent;

  property OnCalcFields: TDataSetNotifyEvent;

  property OnDeleteError: TDataSetErrorEvent;

  property OnEditError: TDataSetErrorEvent;

  property OnNewRecord: TDataSetNotifyEvent;

  property OnPostError: TDataSetErrorEvent;

end;

TCustomSqliteDataset

TDataSet

TObject