TZMQueryDataSet

type TZMQueryDataSet = class(TBufDataSet)

protected

  procedure DoFilterRecord(); override;

  procedure DoOnNewRecord; override;

  procedure DoAfterScroll; override;

  procedure DoBeforeDelete; override;

  procedure DoBeforeInsert; override;

  procedure DoBeforeEdit; override;

  procedure DoBeforePost; override;

  procedure DoAfterInsert; override;

  procedure DoAfterPost; override;

  procedure DoAfterDelete; override;

  procedure InternalRefresh; override;

  procedure DoAfterClose; override;

  procedure dummyProc;

public

  property MasterDataSetTo: TList; [rw]

  property DisableMasterDetailFiltration: Boolean; [rw]

  property MasterReferentialKeys: TList; [rw]

  property SlaveReferentialKeys: TList; [rw]

  procedure QueryExecute;

  procedure PrepareQuery;

  procedure EmptyDataSet;

  procedure ClearDataSet;

  procedure CopyFromADataset();

  function SortDataset();

  procedure LoadFromTable;

  procedure LoadTableSchema;

  function LoadTableFields;

  procedure LoadLastRecord;

  procedure SaveToTable();

  procedure CreateDynamicFieldsFromFieldDefs;

  procedure CreatePersistentFieldsFromFieldDefs;

  procedure MemoryDataSetOpen;

  procedure MemOpen;

  procedure InitializePersistentFields;

  procedure ResetAutoInc();

  function AddRecord();

  constructor Create(); override;

  destructor Destroy; override;

  property OldRecord: TBufDataSet; [r]

  property AutoIncValue: SizeInt; [r]

  property ReferentialUpdateFired: Boolean; [r]

  property ReferentialDeleteFired: Boolean; [r]

  property ReferentialInsertFired: Boolean; [r]

  property FieldsLoaded: Boolean; [rw]

  procedure Insert; virtual;

  procedure Post; override;

  procedure GetFieldsListFromCSVFile();

published

  property ZMConnection: TZMConnection; [rw]

  property SQL: TStrings; [rw]

  property QueryExecuted: Boolean; [rw]

  property TableName: string; [rw]

  property TableLoaded: Boolean; [rw]

  property TableSaved: Boolean; [rw]

  property DynamicFieldsCreated: Boolean; [rw]

  property PeristentFieldsCreated: Boolean; [rw]

  property MemoryDataSetOpened: Boolean; [rw]

  property PersistentSave: Boolean; [rw]

  property Parameters: TParams; [rw]

  property FieldDelimiter: TFieldDelimiter; [rw]

  property MasterRefKeysList: TList; [r]

  property SlaveRefKeysList: TList; [r]

  property MasterFields: TStrings; [rw]

  property MasterSource: TDataSource; [rw]

  property MasterDetailFiltration: Boolean; [rw]

  property MasterDataSetToList: TList; [r]

  property State;

  property Fields;

  property FieldDefs;

  property Filter;

  property Filtered;

  property FilterOptions;

  property ReadOnly;

  property Active;

  property AutoCalcFields;

  property BeforeOpen;

  property AfterOpen;

  property BeforeClose;

  property AfterClose;

  property BeforeInsert;

  property AfterInsert;

  property BeforeEdit;

  property AfterEdit;

  property BeforePost;

  property AfterPost;

  property BeforeCancel;

  property AfterCancel;

  property BeforeDelete;

  property AfterDelete;

  property BeforeScroll;

  property AfterScroll;

  property BeforeRefresh;

  property AfterRefresh;

  property OnCalcFields;

  property OnDeleteError;

  property OnEditError;

  property OnFilterRecord;

  property OnNewRecord;

  property OnPostError;

end;

TZMQueryDataSet

TObject