datadrivereh.hpp

最新的 DBGRIDEH4.0

	virtual void __fastcall SetParams(Db::TParams* AParams);
	virtual void __fastcall DefaultRefreshParam(Memtabledataeh::TMemoryRecordEh* MemRecord, Memtabledataeh::TDataValueVersionEh DataValueVersion, Db::TParam* Param);
	virtual void __fastcall RefreshParams(Memtabledataeh::TMemoryRecordEh* MemRecord, Memtabledataeh::TDataValueVersionEh DataValueVersion);
	__property TBaseSQLDataDriverEh* DataDriver = {read=GetDataDriver};
	__property TAssignParamEhEvent OnAssignParam = {read=FOnAssignParam, write=FOnAssignParam};
	__property Db::TParams* Params = {read=GetParams, write=SetParams};
	__property bool ParamCheck = {read=GetParamCheck, write=SetParamCheck, default=1};
};


class DELPHICLASS TSQLCommandEh;
class PASCALIMPLEMENTATION TSQLCommandEh : public TBaseSQLCommandEh 
{
	typedef TBaseSQLCommandEh inherited;
	
__published:
	__property Params ;
	__property ParamCheck  = {default=1};
	__property CommandText ;
	__property CommandType ;
public:
	#pragma option push -w-inl
	/* TBaseSQLCommandEh.Create */ inline __fastcall TSQLCommandEh(TBaseSQLDataDriverEh* ADataDriver) : TBaseSQLCommandEh(ADataDriver) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseSQLCommandEh.Destroy */ inline __fastcall virtual ~TSQLCommandEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSQLDataDriverEh;
class PASCALIMPLEMENTATION TSQLDataDriverEh : public TBaseSQLDataDriverEh 
{
	typedef TBaseSQLDataDriverEh inherited;
	
protected:
	virtual TCustomSQLCommandEh* __fastcall CreateSelectCommand(void);
	virtual TCustomSQLCommandEh* __fastcall CreateUpdateCommand(void);
	virtual TCustomSQLCommandEh* __fastcall CreateInsertCommand(void);
	virtual TCustomSQLCommandEh* __fastcall CreateDeleteCommand(void);
	virtual TCustomSQLCommandEh* __fastcall CreateGetrecCommand(void);
	
__published:
	__property DeleteCommand ;
	__property DeleteSQL ;
	__property DynaSQLParams ;
	__property GetrecCommand ;
	__property GetrecSQL ;
	__property InsertCommand ;
	__property InsertSQL ;
	__property SelectCommand ;
	__property SelectSQL ;
	__property UpdateCommand ;
	__property UpdateSQL ;
	__property KeyFields ;
	__property ProviderDataSet ;
	__property SpecParams ;
	__property OnAssignCommandParam ;
	__property OnAssignFieldValue ;
	__property OnBuildDataStruct ;
	__property OnExecuteCommand ;
	__property OnGetBackUpdatedValues ;
	__property OnProduceDataReader ;
	__property OnReadRecord ;
	__property OnRefreshRecord ;
	__property OnUpdateError ;
	__property OnUpdateRecord ;
public:
	#pragma option push -w-inl
	/* TCustomSQLDataDriverEh.Create */ inline __fastcall virtual TSQLDataDriverEh(Classes::TComponent* AOwner) : TBaseSQLDataDriverEh(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomSQLDataDriverEh.Destroy */ inline __fastcall virtual ~TSQLDataDriverEh(void) { }
	#pragma option pop
	
};


typedef TMetaClass* TSQLDataDriverEhClass;

__interface IDesignDataBaseEh;
typedef System::DelphiInterface<IDesignDataBaseEh> _di_IDesignDataBaseEh;
__interface  INTERFACE_UUID("{01F477A4-8417-4DC9-B93A-1F95D2FF2EB8}") IDesignDataBaseEh  : public IInterface 
{
	
public:
	virtual TCustomSQLDataDriverEh* __fastcall CreateDesignCopy(TCustomSQLDataDriverEh* RTDataDriver) = 0 ;
	virtual int __fastcall Execute(TCustomSQLCommandEh* Command, Db::TDataSet* &Cursor, bool &FreeOnEof) = 0 ;
	virtual bool __fastcall BuildUpdates(TCustomSQLDataDriverEh* DataDriver) = 0 ;
	virtual bool __fastcall BuildObjectTree(Classes::TList* List) = 0 ;
	virtual bool __fastcall GetFieldList(const AnsiString TableName, Db::TDataSet* DataSet) = 0 ;
	virtual void __fastcall EditDatabaseParams(void) = 0 ;
	virtual bool __fastcall GetConnected(void) = 0 ;
	virtual void __fastcall SetConnected(const bool Value) = 0 ;
};

class DELPHICLASS TOracleSpecOperationsEh;
class PASCALIMPLEMENTATION TOracleSpecOperationsEh : public TServerSpecOperationsEh 
{
	typedef TServerSpecOperationsEh inherited;
	
public:
	virtual int __fastcall UpdateRecord(TCustomSQLDataDriverEh* SQLDataDriver, Memtabledataeh::TMemTableDataEh* MemTableData, Memtabledataeh::TMemoryRecordEh* MemRec);
	virtual void __fastcall GetBackUpdatedValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
public:
	#pragma option push -w-inl
	/* TServerSpecOperationsEh.Create */ inline __fastcall virtual TOracleSpecOperationsEh(void) : TServerSpecOperationsEh() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOracleSpecOperationsEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TMSSQLSpecOperationsEh;
class PASCALIMPLEMENTATION TMSSQLSpecOperationsEh : public TServerSpecOperationsEh 
{
	typedef TServerSpecOperationsEh inherited;
	
public:
	virtual void __fastcall GetBackUpdatedValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
	__fastcall virtual TMSSQLSpecOperationsEh(void);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TMSSQLSpecOperationsEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TInterbaseSpecOperationsEh;
class PASCALIMPLEMENTATION TInterbaseSpecOperationsEh : public TServerSpecOperationsEh 
{
	typedef TServerSpecOperationsEh inherited;
	
public:
	virtual int __fastcall UpdateRecord(TCustomSQLDataDriverEh* SQLDataDriver, Memtabledataeh::TMemTableDataEh* MemTableData, Memtabledataeh::TMemoryRecordEh* MemRec);
	virtual void __fastcall GetBackUpdatedValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
public:
	#pragma option push -w-inl
	/* TServerSpecOperationsEh.Create */ inline __fastcall virtual TInterbaseSpecOperationsEh(void) : TServerSpecOperationsEh() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TInterbaseSpecOperationsEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TInfromixSpecOperationsEh;
class PASCALIMPLEMENTATION TInfromixSpecOperationsEh : public TServerSpecOperationsEh 
{
	typedef TServerSpecOperationsEh inherited;
	
public:
	virtual void __fastcall GetBackUpdatedValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
	__fastcall virtual TInfromixSpecOperationsEh(void);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TInfromixSpecOperationsEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDB2SpecOperationsEh;
class PASCALIMPLEMENTATION TDB2SpecOperationsEh : public TServerSpecOperationsEh 
{
	typedef TServerSpecOperationsEh inherited;
	
public:
	virtual void __fastcall GetBackUpdatedValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
public:
	#pragma option push -w-inl
	/* TServerSpecOperationsEh.Create */ inline __fastcall virtual TDB2SpecOperationsEh(void) : TServerSpecOperationsEh() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TDB2SpecOperationsEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSybaseSpecOperationsEh;
class PASCALIMPLEMENTATION TSybaseSpecOperationsEh : public TServerSpecOperationsEh 
{
	typedef TServerSpecOperationsEh inherited;
	
public:
	virtual void __fastcall GetBackUpdatedValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
public:
	#pragma option push -w-inl
	/* TServerSpecOperationsEh.Create */ inline __fastcall virtual TSybaseSpecOperationsEh(void) : TServerSpecOperationsEh() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSybaseSpecOperationsEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TMSAccessSpecOperationsEh;
class PASCALIMPLEMENTATION TMSAccessSpecOperationsEh : public TServerSpecOperationsEh 
{
	typedef TServerSpecOperationsEh inherited;
	
public:
	virtual void __fastcall GetBackUpdatedValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
	__fastcall virtual TMSAccessSpecOperationsEh(void);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TMSAccessSpecOperationsEh(void) { }
	#pragma option pop
	
};


typedef void __fastcall (*TSetDesignDataBaseProcEh)(TCustomSQLDataDriverEh* DataDriver);

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TSQLDataDriverResolver* __fastcall DefaultSQLDataDriverResolver(void);
extern PACKAGE TSQLDataDriverResolver* __fastcall RegisterDefaultSQLDataDriverResolver(TSQLDataDriverResolver* ASQLDataDriverResolver);
extern PACKAGE void __fastcall VarParamsToParams(const Variant &VarParams, Db::TParams* Params);
extern PACKAGE void __fastcall RegisterDesignDataBuilderProcEh(TMetaClass* DataDriverClass, TSetDesignDataBaseProcEh DesignDataBaseProc);
extern PACKAGE void __fastcall UnregisterDesignDataBuilderProcEh(TMetaClass* DataDriverClass);
extern PACKAGE TSetDesignDataBaseProcEh __fastcall GetDesignDataBuilderProcEh(TMetaClass* DataDriverClass);

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

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