Class TCustomQueryUDB

Unit

rDBComponents_UDB

Declaration

type TCustomQueryUDB = class(TADOQuery, TZQuery, TSimpleDataSet, TIBQuery, TpFIBDataSet, TFDQuery)

Description

TCustomQueryUDB - descendant of TADOQuery/TZQuery/TSimpleDataSet/TIBQuery/TpFIBDataSet which provides same functions for all dataset types

Hierarchy

• TADOQuery
• TCustomQueryUDB

Overview

Methods

	procedure Loaded; override;
	function GetCanModify: boolean; override;
	procedure DoBeforeOpen; override;
	procedure DoAfterOpen; override;
	procedure DoBeforeClose; override;
	procedure DoAfterClose; override;
	procedure DoBeforePost; override;
	procedure DoAfterPost; override;
	procedure DoBeforeScroll; override;
	procedure DoAfterScroll; override;
	procedure DoBeforeCancel; override;
	procedure DoAfterCancel; override;
	procedure DoBeforeInsert; override;
	procedure DoAfterInsert; override;
	procedure DoBeforeEdit; override;
	procedure DoAfterEdit; override;
	procedure DoBeforeDelete; override;
	procedure DoAfterDelete; override;
	procedure DoAfterApplyUpdates(var OwnerData: OleVariant); override;
	procedure DoBeforeApplyUpdates(var OwnerData: OleVariant); override;
	procedure CallDatasetEvent(Event: TDatasetEventType);
	procedure ProcControlsToUpdate(Event: TDatasetEventType);
	procedure SetReadOnly(Value: boolean);
	procedure SetSortEx(const ASort: string);
	procedure RequeryEx(ChangeCursor: boolean = true);
	procedure SetSQLWhere(const Condition: string); overload;
	procedure SetSQLWhere(const FormatCondition: string; Value: variant); overload;
	procedure SetSQLWhere(Field: TField); overload;
	procedure SetSQLWhere(Field: TField; Value: variant); overload;
	procedure AddSQLWhereOR(const Condition: string);
	procedure AddSQLWhereAND(const Condition: string);
	function SetExecSQL(const SQLCmd: string): integer;
	procedure SetFieldDefaultFormat;
	procedure LoadFieldsProps;
	function FindMetadataColumnIndex(const FieldName: string): integer;
	function GetTableName: string;
	procedure UpdateDatasetState;
	function IsEditing: boolean;
	function IsNewRec: boolean;
	function HasFieldToDuplic: boolean;
	function SetFieldsReadOnly: integer;
	function DuplicateRecord: boolean;
	procedure AddEventNotify(CallBackProc: TDataSetEvent);
	procedure RemoveEventNotify(CallBackProc: TDataSetEvent);

Properties

	property ResultSet;
	property LastEditAction: TDatasetLastEditAction read FLastEditAction;
	property DataSetField;
	property TableName: string read FTableName write FTableName;
	property IdFieldName: string read FIdFieldName write FIdFieldName;
	property FieldImgIdx: TStrings read FFieldImgIdx write SetFieldImgIdx;
	property FieldPropsAutoLoad: boolean read FFieldPropsAutoLoad write FFieldPropsAutoLoad default true;
	property FieldDefFormatAutoSet: boolean read FFieldDefFormatAutoSet write FFieldDefFormatAutoSet default true;
	property ControlsToUpdate: TStrings read FControlsToUpdate write SetControlsToUpdate;
	property ControlsReadOnlyColor: TColor read FControlsReadOnlyColor write FControlsReadOnlyColor default clBtnFace;
	property ConfirmDelete: boolean read FConfirmDelete write FConfirmDelete default false;
	property ReadOnly: boolean read GetReadOnly write SetReadOnly default false;
	property FieldTagToDuplic: byte read FFieldTagToDuplic write FFieldTagToDuplic default 1;
	property DuplicBeforeAfterInsert: boolean read FDuplicBeforeAfterInsert write FDuplicBeforeAfterInsert default false;
	property FieldTagToReadOnly: byte read FFieldTagToReadOnly write FFieldTagToReadOnly default 2;
	property CheckFieldSizeBeforePost: boolean read FCheckFieldSizeBeforePost write FCheckFieldSizeBeforePost default false;
	property SQL: TStrings read GetSQL write SetSQL;
	property AutoApplyUpdates: boolean read FAutoApplyUpdates write FAutoApplyUpdates default true;
	property Connection: TIBDataBase TFIBDatabase read GetConnection write SetConnection;
	property OnDataSetEvent: TDataSetEvent read FDataSetEvent write FDataSetEvent;
	property CustomFlags: string read FCustomFlags write FCustomFlags;

Description

Methods

	procedure Loaded; override;

	function GetCanModify: boolean; override;

	procedure DoBeforeOpen; override;

	procedure DoAfterOpen; override;

	procedure DoBeforeClose; override;

	procedure DoAfterClose; override;

	procedure DoBeforePost; override;

	procedure DoAfterPost; override;

	procedure DoBeforeScroll; override;

	procedure DoAfterScroll; override;

	procedure DoBeforeCancel; override;

	procedure DoAfterCancel; override;

	procedure DoBeforeInsert; override;

	procedure DoAfterInsert; override;

	procedure DoBeforeEdit; override;

	procedure DoAfterEdit; override;

	procedure DoBeforeDelete; override;

	procedure DoAfterDelete; override;

	procedure DoAfterApplyUpdates(var OwnerData: OleVariant); override;

	procedure DoBeforeApplyUpdates(var OwnerData: OleVariant); override;

	procedure CallDatasetEvent(Event: TDatasetEventType);

	procedure ProcControlsToUpdate(Event: TDatasetEventType);

	procedure SetReadOnly(Value: boolean);

	procedure SetSortEx(const ASort: string);

	procedure RequeryEx(ChangeCursor: boolean = true);

	procedure SetSQLWhere(const Condition: string); overload;

	procedure SetSQLWhere(const FormatCondition: string; Value: variant); overload;

	procedure SetSQLWhere(Field: TField); overload;

	procedure SetSQLWhere(Field: TField; Value: variant); overload;

	procedure AddSQLWhereOR(const Condition: string);

	procedure AddSQLWhereAND(const Condition: string);

	function SetExecSQL(const SQLCmd: string): integer;

	procedure SetFieldDefaultFormat;

	procedure LoadFieldsProps;

	function FindMetadataColumnIndex(const FieldName: string): integer;

	function GetTableName: string;

	procedure UpdateDatasetState;

	function IsEditing: boolean;

	function IsNewRec: boolean;

	function HasFieldToDuplic: boolean;

	function SetFieldsReadOnly: integer;

	function DuplicateRecord: boolean;

	procedure AddEventNotify(CallBackProc: TDataSetEvent);

	procedure RemoveEventNotify(CallBackProc: TDataSetEvent);

Properties

	property ResultSet;

	property LastEditAction: TDatasetLastEditAction read FLastEditAction;

	property DataSetField;

	property TableName: string read FTableName write FTableName;

	property IdFieldName: string read FIdFieldName write FIdFieldName;

	property FieldImgIdx: TStrings read FFieldImgIdx write SetFieldImgIdx;

	property FieldPropsAutoLoad: boolean read FFieldPropsAutoLoad write FFieldPropsAutoLoad default true;

	property FieldDefFormatAutoSet: boolean read FFieldDefFormatAutoSet write FFieldDefFormatAutoSet default true;

	property ControlsToUpdate: TStrings read FControlsToUpdate write SetControlsToUpdate;

	property ControlsReadOnlyColor: TColor read FControlsReadOnlyColor write FControlsReadOnlyColor default clBtnFace;

	property ConfirmDelete: boolean read FConfirmDelete write FConfirmDelete default false;

	property ReadOnly: boolean read GetReadOnly write SetReadOnly default false;

	property FieldTagToDuplic: byte read FFieldTagToDuplic write FFieldTagToDuplic default 1;

	property DuplicBeforeAfterInsert: boolean read FDuplicBeforeAfterInsert write FDuplicBeforeAfterInsert default false;

	property FieldTagToReadOnly: byte read FFieldTagToReadOnly write FFieldTagToReadOnly default 2;

	property CheckFieldSizeBeforePost: boolean read FCheckFieldSizeBeforePost write FCheckFieldSizeBeforePost default false;

	property SQL: TStrings read GetSQL write SetSQL;

	property AutoApplyUpdates: boolean read FAutoApplyUpdates write FAutoApplyUpdates default true;

	property Connection: TIBDataBase TFIBDatabase read GetConnection write SetConnection;

	property OnDataSetEvent: TDataSetEvent read FDataSetEvent write FDataSetEvent;

	property CustomFlags: string read FCustomFlags write FCustomFlags;