datadrivereh.hpp

最新的 DBGRIDEH4.0

	TCustomSQLCommandEh* FGetrecCommand;
	TCustomSQLCommandEh* FInsertCommand;
	TDataDriverExecuteCommandEhEvent FOnExecuteCommand;
	TDataDriverGetBackUpdatedValuesEhEvent FOnGetBackUpdatedValues;
	TCustomSQLCommandEh* FSelectCommand;
	Classes::TStrings* FSpecParams;
	TCustomSQLCommandEh* FUpdateCommand;
	TCustomSQLCommandEh* FServiceCommand;
	TServerSpecOperationsEh* FServerSpecOperations;
	TDynaSQLParamsEh* FDynaSQLParams;
	Classes::TStrings* __fastcall GetDeleteSQL(void);
	Classes::TStrings* __fastcall GetGetrecSQL(void);
	Classes::TStrings* __fastcall GetInsertSQL(void);
	Classes::TStrings* __fastcall GetSelectSQL(void);
	Classes::TStrings* __fastcall GetUpdateSQL(void);
	void __fastcall SetDeleteCommand(const TCustomSQLCommandEh* Value);
	void __fastcall SetDeleteSQL(const Classes::TStrings* Value);
	void __fastcall SetGetrecCommand(const TCustomSQLCommandEh* Value);
	void __fastcall SetGetrecSQL(const Classes::TStrings* Value);
	void __fastcall SetInsertCommand(const TCustomSQLCommandEh* Value);
	void __fastcall SetInsertSQL(const Classes::TStrings* Value);
	void __fastcall SetSelectCommand(const TCustomSQLCommandEh* Value);
	void __fastcall SetSelectSQL(const Classes::TStrings* Value);
	void __fastcall SetSpecParams(const Classes::TStrings* Value);
	void __fastcall SetUpdateCommand(const TCustomSQLCommandEh* Value);
	void __fastcall SetUpdateSQL(const Classes::TStrings* Value);
	void __fastcall SetServiceCommand(const TCustomSQLCommandEh* Value);
	void __fastcall SetDynaSQLParams(const TDynaSQLParamsEh* Value);
	void __fastcall SetServerSpecOperations(const TServerSpecOperationsEh* Value);
	
protected:
	virtual void __fastcall SetAutoIncFields(Db::TFields* Fields, Memtabledataeh::TMTDataStructEh* DataStruct);
	virtual void __fastcall SetDesignDataBase(const Classes::TComponent* Value);
	
public:
	virtual TCustomSQLDataDriverEh* __fastcall CreateDesignCopy(void);
	virtual Classes::TComponent* __fastcall CreateDesignDataBase(void);
	virtual Classes::TComponent* __fastcall GetDesignDataBase(void);
	virtual void __fastcall AssignFromDesignDriver(TCustomSQLDataDriverEh* DesignDataDriver);
	__property Classes::TComponent* DesignDataBase = {read=FDesignDataBase, write=SetDesignDataBase};
	
protected:
	virtual TCustomSQLCommandEh* __fastcall CreateCommand(void);
	virtual TCustomSQLCommandEh* __fastcall CreateDeleteCommand(void);
	virtual TCustomSQLCommandEh* __fastcall CreateInsertCommand(void);
	virtual TCustomSQLCommandEh* __fastcall CreateSelectCommand(void);
	virtual TCustomSQLCommandEh* __fastcall CreateGetrecCommand(void);
	virtual TCustomSQLCommandEh* __fastcall CreateUpdateCommand(void);
	virtual TSQLCommandTypeEh __fastcall GetDefaultCommandTypeFor(TCustomSQLCommandEh* Command);
	virtual TServerSpecOperationsEh* __fastcall InternalGetServerSpecOperations(void);
	virtual void __fastcall CommandTextChanged(TCustomSQLCommandEh* Sender);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	virtual void __fastcall UpdateServerService(void);
	__property TCustomSQLCommandEh* ServiceCommand = {read=FServiceCommand, write=SetServiceCommand};
	
public:
	__fastcall virtual TCustomSQLDataDriverEh(Classes::TComponent* AOwner);
	__fastcall virtual ~TCustomSQLDataDriverEh(void);
	virtual int __fastcall DefaultUpdateRecord(Memtabledataeh::TMemTableDataEh* MemTableData, Memtabledataeh::TMemoryRecordEh* MemRec);
	virtual int __fastcall DoUpdateRecord(Memtabledataeh::TMemTableDataEh* MemTableData, Memtabledataeh::TMemoryRecordEh* MemRec);
	virtual int __fastcall ExecuteCommand(TCustomSQLCommandEh* Command, Db::TDataSet* &Cursor, bool &FreeOnEof);
	virtual int __fastcall DefaultExecuteCommand(TCustomSQLCommandEh* Command, Db::TDataSet* &Cursor, bool &FreeOnEof);
	virtual bool __fastcall RefreshReaderParamsFromCursor(Db::TDataSet* DataSet);
	virtual bool __fastcall HaveDataConnection(void);
	virtual void __fastcall GetBackUpdatedValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
	virtual void __fastcall DefaultBuildDataStruct(Memtabledataeh::TMTDataStructEh* DataStruct);
	virtual void __fastcall DefaultGetUpdatedServerValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
	virtual void __fastcall DefaultProduceDataReader(Db::TDataSet* &DataSet, bool &FreeOnEof);
	virtual void __fastcall DefaultRefreshRecord(Memtabledataeh::TMemoryRecordEh* MemRecord);
	virtual void __fastcall GenerateDynamicSQLCommand(Memtabledataeh::TMemoryRecordEh* MemRecord, TCustomSQLCommandEh* Command);
	virtual void __fastcall SetReaderParamsFromCursor(Db::TDataSet* DataSet);
	__property TDynaSQLParamsEh* DynaSQLParams = {read=FDynaSQLParams, write=SetDynaSQLParams};
	__property ResolveToDataSet  = {default=0};
	__property TCustomSQLCommandEh* DeleteCommand = {read=FDeleteCommand, write=SetDeleteCommand};
	__property Classes::TStrings* DeleteSQL = {read=GetDeleteSQL, write=SetDeleteSQL, stored=false};
	__property TCustomSQLCommandEh* GetrecCommand = {read=FGetrecCommand, write=SetGetrecCommand};
	__property Classes::TStrings* GetrecSQL = {read=GetGetrecSQL, write=SetGetrecSQL, stored=false};
	__property TCustomSQLCommandEh* InsertCommand = {read=FInsertCommand, write=SetInsertCommand};
	__property Classes::TStrings* InsertSQL = {read=GetInsertSQL, write=SetInsertSQL, stored=false};
	__property TCustomSQLCommandEh* SelectCommand = {read=FSelectCommand, write=SetSelectCommand};
	__property Classes::TStrings* SelectSQL = {read=GetSelectSQL, write=SetSelectSQL, stored=false};
	__property TServerSpecOperationsEh* ServerSpecOperations = {read=FServerSpecOperations, write=SetServerSpecOperations};
	__property Classes::TStrings* SpecParams = {read=FSpecParams, write=SetSpecParams};
	__property TCustomSQLCommandEh* UpdateCommand = {read=FUpdateCommand, write=SetUpdateCommand};
	__property Classes::TStrings* UpdateSQL = {read=GetUpdateSQL, write=SetUpdateSQL, stored=false};
	__property TDataDriverExecuteCommandEhEvent OnExecuteCommand = {read=FOnExecuteCommand, write=FOnExecuteCommand};
	__property TDataDriverGetBackUpdatedValuesEhEvent OnGetBackUpdatedValues = {read=FOnGetBackUpdatedValues, write=FOnGetBackUpdatedValues};
};


class PASCALIMPLEMENTATION TDynaSQLParamsEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TCustomSQLDataDriverEh* FDataDriver;
	AnsiString FUpdateTable;
	AnsiString FUpdateFields;
	AnsiString FKeyFields;
	bool FSkipUnchangedFields;
	TDynaSQLOptionsEh FOptions;
	void __fastcall SetKeyFields(const AnsiString Value);
	void __fastcall SetUpdateFields(const AnsiString Value);
	void __fastcall SetUpdateTable(const AnsiString Value);
	
public:
	__fastcall TDynaSQLParamsEh(TCustomSQLDataDriverEh* ADataDriver);
	__fastcall virtual ~TDynaSQLParamsEh(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property TCustomSQLDataDriverEh* DataDriver = {read=FDataDriver};
	
__published:
	__property AnsiString KeyFields = {read=FKeyFields, write=SetKeyFields};
	__property AnsiString UpdateFields = {read=FUpdateFields, write=SetUpdateFields};
	__property AnsiString UpdateTable = {read=FUpdateTable, write=SetUpdateTable};
	__property bool SkipUnchangedFields = {read=FSkipUnchangedFields, write=FSkipUnchangedFields, default=0};
	__property TDynaSQLOptionsEh Options = {read=FOptions, write=FOptions, nodefault};
};


typedef int __fastcall (__closure *TSQLExecuteEhEvent)(Db::TDataSet* &Cursor, bool &FreeOnEof);

typedef void __fastcall (__closure *TAssignParamEhEvent)(TCustomSQLCommandEh* Command, Memtabledataeh::TMemoryRecordEh* MemRecord, Memtabledataeh::TDataValueVersionEh DataValueVersion, Db::TParam* Param);

typedef int __fastcall (__closure *TResolverExecuteCommandEhEvent)(TCustomSQLDataDriverEh* SQLDataDriver, TCustomSQLCommandEh* Command, Db::TDataSet* &Cursor, bool &FreeOnEof, bool &Processed);

typedef void __fastcall (__closure *TResolverGetBackUpdatedValuesEhEvent)(TCustomSQLDataDriverEh* SQLDataDriver, Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet, bool &Processed);

typedef TServerSpecOperationsEh* __fastcall (__closure *TResolverGetServerSpecOperationsEh)(bool &Processed);

typedef void __fastcall (*TResolverUpdateRecordEhEvent)(TCustomSQLDataDriverEh* SQLDataDriver, Memtabledataeh::TMemTableDataEh* MemTableData, Memtabledataeh::TMemoryRecordEh* MemRec, bool &Processed);

class DELPHICLASS TSQLDataDriverResolver;
class PASCALIMPLEMENTATION TSQLDataDriverResolver : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TServerSpecOperationsEh* FServerSpecOperations;
	TResolverExecuteCommandEhEvent FOnExecuteCommand;
	TResolverGetBackUpdatedValuesEhEvent FOnGetBackUpdatedValues;
	TResolverGetServerSpecOperationsEh FOnGetServerSpecOperations;
	TResolverUpdateRecordEhEvent FOnUpdateRecord;
	
public:
	virtual int __fastcall ExecuteCommand(TCustomSQLDataDriverEh* SQLDataDriver, TCustomSQLCommandEh* Command, Db::TDataSet* &Cursor, bool &FreeOnEof, bool &Processed);
	virtual TServerSpecOperationsEh* __fastcall GetServerSpecOperations(bool &Processed);
	virtual void __fastcall UpdateRecord(TCustomSQLDataDriverEh* SQLDataDriver, Memtabledataeh::TMemTableDataEh* MemTableData, Memtabledataeh::TMemoryRecordEh* MemRec, bool &Processed);
	virtual void __fastcall DefaultUpdateRecord(TCustomSQLDataDriverEh* SQLDataDriver, Memtabledataeh::TMemTableDataEh* MemTableData, Memtabledataeh::TMemoryRecordEh* MemRec, bool &Processed);
	virtual void __fastcall GetBackUpdatedValues(TCustomSQLDataDriverEh* SQLDataDriver, Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet, bool &Processed);
	virtual void __fastcall DefaultGetUpdatedServerValues(TCustomSQLDataDriverEh* SQLDataDriver, Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet, bool &Processed);
	__property TServerSpecOperationsEh* ServerSpecOperations = {read=FServerSpecOperations, write=FServerSpecOperations};
	__property TResolverExecuteCommandEhEvent OnExecuteCommand = {read=FOnExecuteCommand, write=FOnExecuteCommand};
	__property TResolverGetBackUpdatedValuesEhEvent OnGetBackUpdatedValues = {read=FOnGetBackUpdatedValues, write=FOnGetBackUpdatedValues};
	__property TResolverGetServerSpecOperationsEh OnGetServerSpecOperations = {read=FOnGetServerSpecOperations, write=FOnGetServerSpecOperations};
	__property TResolverUpdateRecordEhEvent OnUpdateRecord = {read=FOnUpdateRecord, write=FOnUpdateRecord};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TSQLDataDriverResolver(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSQLDataDriverResolver(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TBaseSQLDataDriverEh;
class DELPHICLASS TBaseSQLCommandEh;
typedef int __fastcall (__closure *TSQLDataDriverExecuteCommandEhEvent)(TBaseSQLDataDriverEh* DataDriver, TBaseSQLCommandEh* Command, Db::TDataSet* &Cursor, bool &FreeOnEof);

typedef void __fastcall (__closure *TSQLDataDriverAssignParamEhEvent)(TBaseSQLDataDriverEh* DataDriver, TBaseSQLCommandEh* Command, Memtabledataeh::TMemoryRecordEh* MemRecord, Memtabledataeh::TDataValueVersionEh DataValueVersion, Db::TParam* Param);

typedef void __fastcall (__closure *TSQLDataDriverGetBackUpdatedValuesEhEvent)(TBaseSQLDataDriverEh* DataDriver, Memtabledataeh::TMemoryRecordEh* MemRec, TBaseSQLCommandEh* Command, Db::TDataSet* ResDataSet);

class PASCALIMPLEMENTATION TBaseSQLDataDriverEh : public TCustomSQLDataDriverEh 
{
	typedef TCustomSQLDataDriverEh inherited;
	
private:
	TSQLDataDriverAssignParamEhEvent FOnAssignCommandParam;
	TSQLDataDriverExecuteCommandEhEvent FOnExecuteCommand;
	TSQLDataDriverGetBackUpdatedValuesEhEvent FOnGetBackUpdatedValues;
	TBaseSQLCommandEh* __fastcall GetDeleteCommand(void);
	TBaseSQLCommandEh* __fastcall GetInsertCommand(void);
	TBaseSQLCommandEh* __fastcall GetSelectCommand(void);
	TBaseSQLCommandEh* __fastcall GetGetrecCommand(void);
	TBaseSQLCommandEh* __fastcall GetUpdateCommand(void);
	HIDESBASE void __fastcall SetDeleteCommand(const TBaseSQLCommandEh* Value);
	HIDESBASE void __fastcall SetInsertCommand(const TBaseSQLCommandEh* Value);
	HIDESBASE void __fastcall SetSelectCommand(const TBaseSQLCommandEh* Value);
	HIDESBASE void __fastcall SetGetrecCommand(const TBaseSQLCommandEh* Value);
	HIDESBASE void __fastcall SetUpdateCommand(const TBaseSQLCommandEh* Value);
	
protected:
	virtual TCustomSQLCommandEh* __fastcall CreateCommand(void);
	virtual void __fastcall AssignCommandParam(TBaseSQLCommandEh* Command, Memtabledataeh::TMemoryRecordEh* MemRecord, Memtabledataeh::TDataValueVersionEh DataValueVersion, Db::TParam* Param);
	
public:
	virtual int __fastcall ExecuteCommand(TCustomSQLCommandEh* Command, Db::TDataSet* &Cursor, bool &FreeOnEof);
	virtual void __fastcall DefaultGetUpdatedServerValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
	virtual void __fastcall DefaultAssignCommandParam(TBaseSQLCommandEh* Command, Memtabledataeh::TMemoryRecordEh* MemRecord, Memtabledataeh::TDataValueVersionEh DataValueVersion, Db::TParam* Param);
	virtual void __fastcall GetBackUpdatedValues(Memtabledataeh::TMemoryRecordEh* MemRec, TCustomSQLCommandEh* Command, Db::TDataSet* ResDataSet);
	__property DynaSQLParams ;
	__property TBaseSQLCommandEh* DeleteCommand = {read=GetDeleteCommand, write=SetDeleteCommand};
	__property TBaseSQLCommandEh* GetrecCommand = {read=GetGetrecCommand, write=SetGetrecCommand};
	__property TBaseSQLCommandEh* InsertCommand = {read=GetInsertCommand, write=SetInsertCommand};
	__property TBaseSQLCommandEh* SelectCommand = {read=GetSelectCommand, write=SetSelectCommand};
	__property TBaseSQLCommandEh* UpdateCommand = {read=GetUpdateCommand, write=SetUpdateCommand};
	__property SpecParams ;
	__property TSQLDataDriverAssignParamEhEvent OnAssignCommandParam = {read=FOnAssignCommandParam, write=FOnAssignCommandParam};
	__property TSQLDataDriverExecuteCommandEhEvent OnExecuteCommand = {read=FOnExecuteCommand, write=FOnExecuteCommand};
	__property TSQLDataDriverGetBackUpdatedValuesEhEvent OnGetBackUpdatedValues = {read=FOnGetBackUpdatedValues, write=FOnGetBackUpdatedValues};
public:
	#pragma option push -w-inl
	/* TCustomSQLDataDriverEh.Create */ inline __fastcall virtual TBaseSQLDataDriverEh(Classes::TComponent* AOwner) : TCustomSQLDataDriverEh(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomSQLDataDriverEh.Destroy */ inline __fastcall virtual ~TBaseSQLDataDriverEh(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TBaseSQLCommandEh : public TCustomSQLCommandEh 
{
	typedef TCustomSQLCommandEh inherited;
	
private:
	bool FParamCheck;
	Db::TParams* FParams;
	TAssignParamEhEvent FOnAssignParam;
	bool __fastcall GetParamCheck(void);
	TBaseSQLDataDriverEh* __fastcall GetDataDriver(void);
	
protected:
	virtual void __fastcall CommandTextChanged(System::TObject* Sender);
	virtual void __fastcall SetParamCheck(const bool Value);
	
public:
	__fastcall TBaseSQLCommandEh(TBaseSQLDataDriverEh* ADataDriver);
	__fastcall virtual ~TBaseSQLCommandEh(void);
	virtual Db::TParams* __fastcall GetParams(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);