absbase.hpp

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

	int FColumnObjectID;
	Absvariant::TABSVariant* FMinValue;
	Absvariant::TABSVariant* FMaxValue;
	
public:
	__fastcall TABSConstraintDefCheck(void);
	__fastcall virtual ~TABSConstraintDefCheck(void);
	virtual void __fastcall Assign(TABSMetaObjectDef* Source);
	void __fastcall SetNames(AnsiString ColumnName, AnsiString TableName = "", AnsiString SchemaName = "");
	virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
	virtual void __fastcall SaveToStream(Classes::TStream* Stream);
	__property Absvariant::TABSVariant* MinValue = {read=FMinValue};
	__property Absvariant::TABSVariant* MaxValue = {read=FMaxValue};
	__property System::ShortString TableSchemaName = {read=FTableSchemaName, write=FTableSchemaName};
	__property int TableSchemaObjectID = {read=FTableSchemaObjectID, write=FTableSchemaObjectID, nodefault};
	__property System::ShortString TableName = {read=FTableName, write=FTableName};
	__property int TableObjectID = {read=FTableObjectID, write=FTableObjectID, nodefault};
	__property System::ShortString ColumnName = {read=FColumnName, write=FColumnName};
	__property int ColumnObjectID = {read=FColumnObjectID, write=FColumnObjectID, nodefault};
};


struct TABSConstraintColumn
{
	
public:
	System::ShortString ColumnName;
	int ColumnObjectID;
} ;

typedef DynamicArray<TABSConstraintColumn >  ABSBase__01;

class DELPHICLASS TABSConstraintDefUnique;
class PASCALIMPLEMENTATION TABSConstraintDefUnique : public TABSConstraintDef 
{
	typedef TABSConstraintDef inherited;
	
private:
	System::ShortString FTableSchemaName;
	int FTableSchemaObjectID;
	System::ShortString FTableName;
	int FTableObjectID;
	System::ShortString FIndexName;
	int FIndexObjectID;
	
public:
	DynamicArray<TABSConstraintColumn >  Columns;
	__fastcall TABSConstraintDefUnique(void);
	__fastcall virtual ~TABSConstraintDefUnique(void);
	virtual void __fastcall Assign(TABSMetaObjectDef* Source);
	virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
	virtual void __fastcall SaveToStream(Classes::TStream* Stream);
	__property System::ShortString TableSchemaName = {read=FTableSchemaName, write=FTableSchemaName};
	__property int TableSchemaObjectID = {read=FTableSchemaObjectID, write=FTableSchemaObjectID, nodefault};
	__property System::ShortString TableName = {read=FTableName, write=FTableName};
	__property int TableObjectID = {read=FTableObjectID, write=FTableObjectID, nodefault};
	__property System::ShortString IndexName = {read=FIndexName, write=FIndexName};
	__property int IndexObjectID = {read=FIndexObjectID, write=FIndexObjectID, nodefault};
};


class DELPHICLASS TABSConstraintDefPrimary;
class PASCALIMPLEMENTATION TABSConstraintDefPrimary : public TABSConstraintDefUnique 
{
	typedef TABSConstraintDefUnique inherited;
	
public:
	__fastcall TABSConstraintDefPrimary(void);
public:
	#pragma option push -w-inl
	/* TABSConstraintDefUnique.Destroy */ inline __fastcall virtual ~TABSConstraintDefPrimary(void) { }
	#pragma option pop
	
};


class DELPHICLASS TABSMetaObjectDefs;
class PASCALIMPLEMENTATION TABSMetaObjectDefs : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TABSMetaObjectDef* operator[](int Index) { return Items[Index]; }
	
protected:
	Abstypes::TABSSortedStringPtrArray* FDefsList;
	int FLoadedItemCount;
	
private:
	virtual int __fastcall GetCount(void);
	TABSMetaObjectDef* __fastcall GetDef(int Index);
	void __fastcall SetDef(int Index, TABSMetaObjectDef* Value);
	virtual void __fastcall Add(TABSMetaObjectDef* MetaObjectDef);
	virtual TABSMetaObjectDef* __fastcall InternalAddCreated(void);
	
public:
	virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
	virtual void __fastcall SaveToStream(Classes::TStream* Stream);
	__fastcall TABSMetaObjectDefs(void);
	__fastcall virtual ~TABSMetaObjectDefs(void);
	virtual void __fastcall Assign(TABSMetaObjectDefs* Source);
	virtual void __fastcall Delete(int Index);
	virtual void __fastcall Insert(int Index, TABSMetaObjectDef* MetaObjectDef);
	virtual void __fastcall Move(int CurIndex, int NewIndex);
	virtual void __fastcall Clear(void);
	int __fastcall GetDefNumberByName(AnsiString Name);
	TABSMetaObjectDef* __fastcall GetDefByName(AnsiString Name);
	int __fastcall GetDefNumberByObjectId(int id);
	TABSMetaObjectDef* __fastcall GetDefByObjectId(int id);
	__property int Count = {read=GetCount, nodefault};
	__property TABSMetaObjectDef* Items[int Index] = {read=GetDef, write=SetDef/*, default*/};
};


class DELPHICLASS TABSIndexDefs;
class DELPHICLASS TABSFieldDefs;
class PASCALIMPLEMENTATION TABSIndexDefs : public TABSMetaObjectDefs 
{
	typedef TABSMetaObjectDefs inherited;
	
public:
	TABSIndexDef* operator[](int Index) { return Items[Index]; }
	
private:
	virtual TABSIndexDef* __fastcall GetIndexDef(int Index);
	virtual void __fastcall SetIndexDef(int Index, TABSIndexDef* Value);
	virtual TABSMetaObjectDef* __fastcall InternalAddCreated(void);
	
public:
	bool __fastcall IsIndexExists(Classes::TStringList* FieldNames, Classes::TStringList* AscDescList, Classes::TStringList* CaseSensitivityList, int SessionID, TABSFieldDefs* FieldDefs);
	int __fastcall FindIndex(Classes::TStringList* FieldNames, Classes::TStringList* AscDescList, Classes::TStringList* CaseSensitivityList, int SessionID, TABSFieldDefs* FieldDefs);
	TABSIndexDef* __fastcall AddCreated(void);
	TABSIndexDef* __fastcall GetIndexDefByName(AnsiString Name);
	virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
	virtual void __fastcall SaveToStream(Classes::TStream* Stream);
	__property TABSIndexDef* Items[int Index] = {read=GetIndexDef, write=SetIndexDef/*, default*/};
public:
	#pragma option push -w-inl
	/* TABSMetaObjectDefs.Create */ inline __fastcall TABSIndexDefs(void) : TABSMetaObjectDefs() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TABSMetaObjectDefs.Destroy */ inline __fastcall virtual ~TABSIndexDefs(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TABSFieldDefs : public TABSMetaObjectDefs 
{
	typedef TABSMetaObjectDefs inherited;
	
public:
	TABSFieldDef* operator[](int Index) { return Items[Index]; }
	
private:
	HIDESBASE TABSFieldDef* __fastcall GetDef(int Index);
	HIDESBASE void __fastcall SetDef(int Index, TABSFieldDef* Value);
	virtual TABSMetaObjectDef* __fastcall InternalAddCreated(void);
	
public:
	TABSFieldDef* __fastcall AddCreated(void);
	TABSFieldDef* __fastcall GetFieldDefByName(AnsiString Name);
	virtual void __fastcall RecalcFieldOffsets(void);
	int __fastcall GetMemoryRecordBufferSize(void);
	int __fastcall GetDiskRecordBufferSize(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
	virtual void __fastcall SaveToStream(Classes::TStream* Stream);
	__property TABSFieldDef* Items[int Index] = {read=GetDef, write=SetDef/*, default*/};
public:
	#pragma option push -w-inl
	/* TABSMetaObjectDefs.Create */ inline __fastcall TABSFieldDefs(void) : TABSMetaObjectDefs() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TABSMetaObjectDefs.Destroy */ inline __fastcall virtual ~TABSFieldDefs(void) { }
	#pragma option pop
	
};


class DELPHICLASS TABSConstraintDefs;
class PASCALIMPLEMENTATION TABSConstraintDefs : public TABSMetaObjectDefs 
{
	typedef TABSMetaObjectDefs inherited;
	
public:
	TABSConstraintDef* operator[](int Index) { return Items[Index]; }
	
private:
	HIDESBASE TABSConstraintDef* __fastcall GetDef(int Index);
	HIDESBASE void __fastcall SetDef(int Index, TABSConstraintDef* Value);
	
public:
	virtual void __fastcall Assign(TABSMetaObjectDefs* Source);
	TABSConstraintDefNotNull* __fastcall AddNotNull(void);
	TABSConstraintDefCheck* __fastcall AddCheck(void);
	TABSConstraintDefPrimary* __fastcall AddPK(void);
	TABSConstraintDefUnique* __fastcall AddUnique(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
	virtual void __fastcall SaveToStream(Classes::TStream* Stream);
	__property TABSConstraintDef* Items[int Index] = {read=GetDef, write=SetDef/*, default*/};
public:
	#pragma option push -w-inl
	/* TABSMetaObjectDefs.Create */ inline __fastcall TABSConstraintDefs(void) : TABSMetaObjectDefs() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TABSMetaObjectDefs.Destroy */ inline __fastcall virtual ~TABSConstraintDefs(void) { }
	#pragma option pop
	
};


struct TABSRestructureInfo
{
	
public:
	#pragma pack(push,1)
	Abscompression::TABSCompression FRestructureBLOBCompression;
	#pragma pack(pop)
	TABSFieldDefs* FRestructureFieldDefs;
	TABSIndexDefs* FRestructureIndexDefs;
	TABSConstraintDefs* FRestructureConstraintDefs;
} ;

class DELPHICLASS TABSCursor;
class DELPHICLASS TABSBaseSession;
class DELPHICLASS TABSSessionComponentManager;
class PASCALIMPLEMENTATION TABSSessionComponentManager : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TABSSessionComponentManager(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TABSSessionComponentManager(void) { }
	#pragma option pop
	
};


class DELPHICLASS TABSSessionNamedObject;
class PASCALIMPLEMENTATION TABSBaseSession : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString FDatabaseName;
	AnsiString FDatabaseFileName;
	int FSessionID;
	bool FInTransaction;
	bool FReadOnly;
	bool FExclusive;
	bool FInMemory;
	AnsiString FLogin;
	TABSSessionComponentManager* FSessionHandle;
	Abstypes::TABSSortedStringPtrArray* FSessionNamedObjectList;
	int FMaxSessionCount;
	bool FRepairNeeded;
	bool FMultiUser;
	AnsiString FSessionName;
	
protected:
	virtual bool __fastcall GetConnected(void) = 0 ;
	virtual void __fastcall SetConnected(bool Value) = 0 ;
	virtual bool __fastcall GetSuppressDBHeaderErrors(void) = 0 ;
	virtual void __fastcall SetSuppressDBHeaderErrors(bool Value) = 0 ;
	
public:
	__fastcall TABSBaseSession(void);
	__fastcall virtual ~TABSBaseSession(void);
	virtual void __fastcall CreateDatabase(void) = 0 ;
	virtual void __fastcall DeleteDatabase(void) = 0 ;
	virtual void __fastcall RenameDatabase(AnsiString NewDatabaseFileName) = 0 ;
	virtual void __fastcall GetTablesList(Classes::TStrings* List) = 0 ;