absmain.hpp

Absolute Database 5.12 src. Absolute Database lets you forget the Borland Database Engine (BDE). Th

	bool __fastcall SetCursorRange(void);
	void __fastcall ApplyRange(void);
	void __fastcall CancelRange(void);
	void __fastcall EditRangeStart(void);
	void __fastcall EditRangeEnd(void);
	void __fastcall SetRange(System::TVarRec const * StartValues, const int StartValues_Size, System::TVarRec const * EndValues, const int EndValues_Size);
	void __fastcall SetRangeStart(void);
	void __fastcall SetRangeEnd(void);
	virtual void __fastcall Post(void);
	virtual void __fastcall Cancel(void);
	__int64 __fastcall LastAutoincValue(int FieldIndex)/* overload */;
	__int64 __fastcall LastAutoincValue(AnsiString FieldName)/* overload */;
	void __fastcall InternalBeforeCopy(System::TObject* Sender);
	void __fastcall InternalOnCopyProgress(System::TObject* Sender, int PercentDone, bool &Continue);
	void __fastcall InternalAfterCopy(System::TObject* Sender);
	void __fastcall InternalBeforeImport(System::TObject* Sender);
	void __fastcall InternalOnImportProgress(System::TObject* Sender, int PercentDone, bool &Continue);
	void __fastcall InternalAfterImport(System::TObject* Sender);
	void __fastcall InternalBeforeExport(System::TObject* Sender);
	void __fastcall InternalOnExportProgress(System::TObject* Sender, int PercentDone, bool &Continue);
	void __fastcall InternalAfterExport(System::TObject* Sender);
	void __fastcall InternalBeforeRestructure(System::TObject* Sender);
	void __fastcall InternalOnRestructureProgress(System::TObject* Sender, int PercentDone, bool &Continue);
	void __fastcall InternalAfterRestructure(System::TObject* Sender);
	void __fastcall InternalBeforeBatchMove(System::TObject* Sender);
	void __fastcall InternalOnBatchMoveProgress(System::TObject* Sender, int PercentDone, bool &Continue);
	void __fastcall InternalAfterBatchMove(System::TObject* Sender);
	__property int IndexFieldCount = {read=GetIndexFieldCount, nodefault};
	__property Db::TField* IndexFields[int Index] = {read=GetIndexField, write=SetIndexField};
	__property bool KeyExclusive = {read=GetKeyExclusive, write=SetKeyExclusive, nodefault};
	__property int KeyFieldCount = {read=GetKeyFieldCount, write=SetKeyFieldCount, nodefault};
	__property bool Temporary = {read=FTemporary, write=SetTemporary, nodefault};
	__property TABSAdvIndexDefs* RestructureIndexDefs = {read=FRestructureIndexDefs};
	__property TABSAdvFieldDefs* RestructureFieldDefs = {read=FRestructureFieldDefs};
	__property bool DisableTempFiles = {read=FDisableTempFiles, write=FDisableTempFiles, nodefault};
	
__published:
	__property StoreDefs  = {default=0};
	__property Db::TIndexDefs* IndexDefs = {read=FIndexDefs, write=SetIndexDefs, stored=IndexDefsStored};
	__property AnsiString IndexFieldNames = {read=GetIndexFieldNames, write=SetIndexFieldNames};
	__property AnsiString IndexName = {read=GetIndexName, write=SetIndexName};
	__property FieldDefs  = {stored=FieldDefsStored};
	__property AnsiString TableName = {read=FTableName, write=SetTableName};
	__property bool Exclusive = {read=FExclusive, write=FExclusive, nodefault};
	__property bool Exists = {read=GetTableExists, nodefault};
	__property AnsiString MasterFields = {read=GetMasterFields, write=SetMasterFields};
	__property Db::TDataSource* MasterSource = {read=GetDataSource, write=SetDataSource};
	__property TABSExportToSqlOptions* ExportToSqlOptions = {read=FExportToSqlOptions, write=FExportToSqlOptions};
	__property TABSDataSetNotifyEvent BeforeCopy = {read=FBeforeCopy, write=FBeforeCopy};
	__property TABSProgressEvent OnCopyProgress = {read=FOnCopyProgress, write=FOnCopyProgress};
	__property TABSDataSetNotifyEvent AfterCopy = {read=FAfterCopy, write=FAfterCopy};
	__property TABSDataSetNotifyEvent BeforeImport = {read=FBeforeImport, write=FBeforeImport};
	__property TABSProgressEvent OnImportProgress = {read=FOnImportProgress, write=FOnImportProgress};
	__property TABSDataSetNotifyEvent AfterImport = {read=FAfterImport, write=FAfterImport};
	__property TABSDataSetNotifyEvent BeforeExport = {read=FBeforeExport, write=FBeforeExport};
	__property TABSProgressEvent OnExportProgress = {read=FOnExportProgress, write=FOnExportProgress};
	__property TABSDataSetNotifyEvent AfterExport = {read=FAfterExport, write=FAfterExport};
	__property TABSDataSetNotifyEvent BeforeRestructure = {read=FBeforeRestructure, write=FBeforeRestructure};
	__property TABSProgressEvent OnRestructureProgress = {read=FOnRestructureProgress, write=FOnRestructureProgress};
	__property TABSDataSetNotifyEvent AfterRestructure = {read=FAfterRestructure, write=FAfterRestructure};
	__property TABSDataSetNotifyEvent BeforeBatchMove = {read=FBeforeBatchMove, write=FBeforeBatchMove};
	__property TABSProgressEvent OnBatchMoveProgress = {read=FOnBatchMoveProgress, write=FOnBatchMoveProgress};
	__property TABSDataSetNotifyEvent AfterBatchMove = {read=FAfterBatchMove, write=FAfterBatchMove};
	
/* Hoisted overloads: */
	
protected:
	inline void __fastcall  PSSetCommandText(const WideString CommandText){ TDataSet::PSSetCommandText(CommandText); }
	
};


class DELPHICLASS TABSQuery;
class PASCALIMPLEMENTATION TABSQuery : public TABSDataSet 
{
	typedef TABSDataSet inherited;
	
private:
	Abssqlprocessor::TABSSQLProcessor* FStmtHandle;
	Classes::TStrings* FSQL;
	bool FPrepared;
	Db::TParams* FParams;
	AnsiString FText;
	Db::TDataLink* FDataLink;
	int FRowsAffected;
	bool FRequestLive;
	char *FSQLBinary;
	bool FParamCheck;
	bool FExecSQL;
	bool FCheckRowsAffected;
	
protected:
	virtual void __fastcall PSExecute(void);
	virtual Db::TIndexDef* __fastcall PSGetDefaultOrder(void);
	virtual Db::TParams* __fastcall PSGetParams(void);
	virtual AnsiString __fastcall PSGetTableName();
	virtual void __fastcall PSSetCommandText(const AnsiString CommandText)/* overload */;
	virtual void __fastcall PSSetParams(Db::TParams* AParams);
	void __fastcall GetStatementHandle(char * SQLText);
	void __fastcall FreeStatement(void);
	Absbase::TABSCursor* __fastcall CreateCursor(bool GenHandle);
	Absbase::TABSCursor* __fastcall GetQueryCursor(bool GenHandle);
	int __fastcall GetRowsAffected(void);
	void __fastcall QueryChanged(System::TObject* Sender);
	virtual Db::TDataSource* __fastcall GetDataSource(void);
	void __fastcall SetDataSource(Db::TDataSource* Value);
	void __fastcall SetQuery(Classes::TStrings* Value);
	virtual void __fastcall InternalRefresh(void);
	Word __fastcall GetParamsCount(void);
	void __fastcall RefreshParams(void);
	void __fastcall SetParamsList(Db::TParams* Value);
	void __fastcall SetParamsFromCursor(void);
	
public:
	Db::TParam* __fastcall ParamByName(const AnsiString Value);
	void __fastcall Prepare(void);
	void __fastcall UnPrepare(void);
	
protected:
	void __fastcall PrepareSQL(char * Value);
	void __fastcall SetPrepared(bool Value);
	void __fastcall SetPrepare(bool Value);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadBinaryData(Classes::TStream* Stream);
	void __fastcall WriteBinaryData(Classes::TStream* Stream);
	void __fastcall ReadParamData(Classes::TReader* Reader);
	void __fastcall WriteParamData(Classes::TWriter* Writer);
	virtual Absbase::TABSCursor* __fastcall CreateHandle(void);
	virtual void __fastcall Disconnect(void);
	virtual void __fastcall SetDBFlag(int Flag, bool Value);
	
public:
	__fastcall virtual TABSQuery(Classes::TComponent* AOwner);
	__fastcall virtual ~TABSQuery(void);
	void __fastcall ExecSQL(void);
	virtual void __fastcall GetDetailLinkFields(Classes::TList* MasterFields, Classes::TList* DetailFields);
	__property bool Prepared = {read=FPrepared, write=SetPrepare, nodefault};
	__property Word ParamCount = {read=GetParamsCount, nodefault};
	__property Abssqlprocessor::TABSSQLProcessor* StmtHandle = {read=FStmtHandle};
	__property AnsiString Text = {read=FText};
	__property int RowsAffected = {read=GetRowsAffected, nodefault};
	__property char * SQLBinary = {read=FSQLBinary, write=FSQLBinary};
	
__published:
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__property bool ParamCheck = {read=FParamCheck, write=FParamCheck, default=1};
	__property bool RequestLive = {read=FRequestLive, write=FRequestLive, default=0};
	__property Classes::TStrings* SQL = {read=FSQL, write=SetQuery};
	__property Db::TParams* Params = {read=FParams, write=SetParamsList, stored=false};
	
/* Hoisted overloads: */
	
protected:
	inline void __fastcall  PSSetCommandText(const WideString CommandText){ TDataSet::PSSetCommandText(CommandText); }
	
};


class PASCALIMPLEMENTATION TABSAdvFieldDef : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString FName;
	int FObjectID;
	Abstypes::TABSAdvancedFieldType FDataType;
	bool FRequired;
	int FSize;
	Absvariant::TABSVariant* FDefaultValue;
	Absvariant::TABSVariant* FMinValue;
	Absvariant::TABSVariant* FMaxValue;
	__int64 FAutoincIncrement;
	__int64 FAutoincInitialValue;
	__int64 FAutoincMinValue;
	__int64 FAutoincMaxValue;
	bool FAutoincCycled;
	TCompressionAlgorithm FBLOBCompressionAlgorithm;
	Byte FBLOBCompressionMode;
	int FBLOBBlockSize;
	
public:
	void __fastcall Assign(TABSAdvFieldDef* Source);
	__fastcall TABSAdvFieldDef(void);
	__fastcall virtual ~TABSAdvFieldDef(void);
	__property AnsiString Name = {read=FName, write=FName};
	__property int ObjectID = {read=FObjectID, write=FObjectID, nodefault};
	__property Abstypes::TABSAdvancedFieldType DataType = {read=FDataType, write=FDataType, nodefault};
	__property bool Required = {read=FRequired, write=FRequired, nodefault};
	__property int Size = {read=FSize, write=FSize, nodefault};
	__property Absvariant::TABSVariant* DefaultValue = {read=FDefaultValue};
	__property Absvariant::TABSVariant* MinValue = {read=FMinValue};
	__property Absvariant::TABSVariant* MaxValue = {read=FMaxValue};
	__property __int64 AutoincIncrement = {read=FAutoincIncrement, write=FAutoincIncrement};
	__property __int64 AutoincInitialValue = {read=FAutoincInitialValue, write=FAutoincInitialValue};
	__property __int64 AutoincMinValue = {read=FAutoincMinValue, write=FAutoincMinValue};
	__property __int64 AutoincMaxValue = {read=FAutoincMaxValue, write=FAutoincMaxValue};
	__property bool AutoincCycled = {read=FAutoincCycled, write=FAutoincCycled, nodefault};
	__property TCompressionAlgorithm BLOBCompressionAlgorithm = {read=FBLOBCompressionAlgorithm, write=FBLOBCompressionAlgorithm, nodefault};
	__property Byte BLOBCompressionMode = {read=FBLOBCompressionMode, write=FBLOBCompressionMode, nodefault};
	__property int BLOBBlockSize = {read=FBLOBBlockSize, write=FBLOBBlockSize, nodefault};
};


class PASCALIMPLEMENTATION TABSAdvIndexDef : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString FName;
	AnsiString FFields;
	AnsiString FDescFields;
	AnsiString FCaseInsFields;
	Db::TIndexOptions FOptions;
	AnsiString FMaxIndexedSizes;
	bool FTemporary;
	
public:
	__fastcall TABSAdvIndexDef(void);
	void __fastcall Assign(TABSAdvIndexDef* ASource);
	
__published:
	__property AnsiString Name = {read=FName, write=FName};
	__property AnsiString CaseInsFields = {read=FCaseInsFields, write=FCaseInsFields};
	__property AnsiString DescFields = {read=FDescFields, write=FDescFields};
	__property AnsiString Fields = {read=FFields, write=FFields};
	__property Db::TIndexOptions Options = {read=FOptions, write=FOptions, default=0};
	__property bool Temporary = {read=FTemporary, write=FTemporary, nodefault};
	__property AnsiString MaxIndexedSizes = {read=FMaxIndexedSizes, write=FMaxIndexedSizes};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TABSAdvIndexDef(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint dbfOpened = 0x0;
static const Shortint dbfPrepared = 0x1;
static const Shortint dbfExecSQL = 0x2;
static const Shortint dbfTable = 0x3;
static const Shortint dbfFieldList = 0x4;
static const Shortint dbfIndexList = 0x5;
static const Shortint dbfStoredProc = 0x6;
static const Shortint dbfExecProc = 0x7;
static const Shortint dbfProcDesc = 0x8;
static const Shortint dbfDatabase = 0x9;
static const Shortint dbfProvider = 0xa;
static const Shortint dbfRepair = 0xb;
extern PACKAGE TABSSessionList* Sessions;
extern PACKAGE TABSSession* Session;
extern PACKAGE bool IsIDERunning;
extern PACKAGE bool IsDelphiOrBuilderInstalled;
extern PACKAGE bool IsNagScreenShown;
extern PACKAGE bool IsIDENagScreenShown;
extern PACKAGE void __fastcall ConvertFieldDefsToABSFieldDefs(Db::TFieldDefs* FieldDefs, Absbase::TABSFieldDefs* ABSFieldDefs);
extern PACKAGE void __fastcall ConvertAdvFieldDefsToFieldDefs(TABSAdvFieldDefs* AdvFieldDefs, Db::TFieldDefs* FieldDefs);
extern PACKAGE void __fastcall ConvertFieldDefsToAdvFieldDefs(Db::TFieldDefs* FieldDefs, TABSAdvFieldDefs* AdvFieldDefs);
extern PACKAGE void __fastcall ConvertAdvFieldDefsToABSFieldDefs(TABSAdvFieldDefs* AdvFieldDefs, Absbase::TABSFieldDefs* ABSFieldDefs, Absbase::TABSIndexDefs* IndexDefs, Absbase::TABSConstraintDefs* ABSConstraintDefs, bool Temporary);
extern PACKAGE Absbase::TABSConstraintDef* __fastcall AddConstraintForIndex(Absbase::TABSIndexDef* IndexDef, Absbase::TABSConstraintDefs* ABSConstraintDefs);
extern PACKAGE void __fastcall ConvertABSFieldDefsToAdvFieldDefs(Absbase::TABSFieldDefs* VisibleFieldDefs, Absbase::TABSFieldDefs* ABSFieldDefs, Absbase::TABSConstraintDefs* ABSConstraintDefs, TABSAdvFieldDefs* AdvFieldDefs);
extern PACKAGE void __fastcall ConvertABSFieldDefsToFieldDefs(Absbase::TABSFieldDefs* ABSFieldDefs, Absbase::TABSConstraintDefs* ABSConstraintDefs, Db::TFieldDefs* FieldDefs);
extern PACKAGE void __fastcall GetNamesList(Classes::TStrings* List, const AnsiString Names);
extern PACKAGE void __fastcall FillABSIndexDef(Absbase::TABSIndexDef* ABSIndexDef, const AnsiString Name, const AnsiString Fields, Db::TIndexOptions Options, bool Temporary, const AnsiString DescFields, const AnsiString CaseInsFields, const AnsiString MaxIndexedSizes, Db::TFieldDefs* FieldDefs);
extern PACKAGE void __fastcall ConvertAdvIndexDefToABSIndexDef(TABSAdvIndexDef* AdvIndexDef, Absbase::TABSIndexDef* ABSIndexDef, Db::TFieldDefs* FieldDefs);
extern PACKAGE void __fastcall ConvertAdvIndexDefsToIndexDefs(TABSAdvIndexDefs* AdvIndexDefs, Db::TIndexDefs* IndexDefs);
extern PACKAGE void __fastcall ConvertIndexDefsToAdvIndexDefs(Db::TIndexDefs* IndexDefs, TABSAdvIndexDefs* AdvIndexDefs);
extern PACKAGE void __fastcall ConvertAdvIndexDefsToABSIndexDefs(TABSAdvIndexDefs* AdvIndexDefs, Absbase::TABSIndexDefs* ABSIndexDefs, Db::TFieldDefs* FieldDefs);
extern PACKAGE void __fastcall ConvertABSIndexDefToAdvIndexDef(Absbase::TABSIndexDef* ABSIndexDef, TABSAdvIndexDef* AdvIndexDef);
extern PACKAGE void __fastcall ConvertABSIndexDefsToAdvIndexDefs(Absbase::TABSIndexDefs* ABSIndexDefs, TABSAdvIndexDefs* AdvIndexDefs);
extern PACKAGE bool __fastcall FindFieldInFieldDefs(Db::TFieldDefs* FieldDefs, AnsiString FieldName);
extern PACKAGE Abscompression::TABSCompressionAlgorithm __fastcall ConvertCompressionAlgorithmToABSCompressionAlgorithm(TCompressionAlgorithm CompressionAlgorithm);
extern PACKAGE TCompressionAlgorithm __fastcall ConvertABSCompressionAlgorithmToCompressionAlgorithm(Abscompression::TABSCompressionAlgorithm CompressionAlgorithm);
extern PACKAGE void __fastcall DbiError(int ErrorCode, AnsiString ErrorMessage = "");
extern PACKAGE void __fastcall Check(int Status, AnsiString ErrorMessage = "");

}	/* namespace Absmain */
using namespace Absmain;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Absmain