__property TDesignDataBaseEh* DesignDataBase = {read=FDesignDataBase, write=SetDesignDataBase};
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TSQLDataEditWin(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TSQLDataEditWin(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSQLDataEditWin(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


typedef TMetaClass* TDesignDataBaseClassEh;

class DELPHICLASS TAccessEngineEh;
class PASCALIMPLEMENTATION TAccessEngineEh : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	virtual AnsiString __fastcall AccessEngineName(void) = 0 ;
	virtual TDesignDataBaseEh* __fastcall CreateDesignDataBase(Datadrivereh::TCustomSQLDataDriverEh* DataDriver, TMetaClass* DBServiceClass, AnsiString DataBaseName) = 0 ;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TAccessEngineEh(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TAccessEngineEh(void) { }
	#pragma option pop
	
};


struct TColumnAtribute
{
	
public:
	AnsiString FieldName;
	AnsiString Title;
	int Width;
} ;

struct TFieldAtribute
{
	
public:
	AnsiString FieldName;
	Memtabledataeh::TMTDataFieldEh* FieldType;
	int Size;
} ;

typedef AnsiString __fastcall (__closure *TGetTextEvent)(System::TObject* Sender);

struct TServicePopupParam
{
	
public:
	AnsiString Text;
	Classes::TNotifyEvent OnSelect;
	TGetTextEvent OnGetMenuText;
	TGetTextEvent OnGetDataText;
} ;

typedef DynamicArray<TFieldAtribute >  TFieldAtributesEh;

class DELPHICLASS TDesignUpdateParamsEh;
class PASCALIMPLEMENTATION TDesignUpdateParamsEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FIncremenField;
	AnsiString FIncremenObject;
	AnsiString FTableName;
	Classes::TStrings* FKeyFields;
	Classes::TStrings* FUpdateFields;
	Classes::TStrings* FSelectSQL;
	void __fastcall SetKeyFields(const Classes::TStrings* Value);
	void __fastcall SetUpdateFields(const Classes::TStrings* Value);
	void __fastcall SetSelectSQL(const Classes::TStrings* Value);
	
public:
	__fastcall TDesignUpdateParamsEh(void);
	__fastcall virtual ~TDesignUpdateParamsEh(void);
	__property AnsiString TableName = {read=FTableName, write=FTableName};
	__property AnsiString IncremenField = {read=FIncremenField, write=FIncremenField};
	__property AnsiString IncremenObject = {read=FIncremenObject, write=FIncremenObject};
	__property Classes::TStrings* KeyFields = {read=FKeyFields, write=SetKeyFields};
	__property Classes::TStrings* UpdateFields = {read=FUpdateFields, write=SetUpdateFields};
	__property Classes::TStrings* SelectSQL = {read=FSelectSQL, write=SetSelectSQL};
};


class DELPHICLASS TDesignUpdateInfoEh;
class PASCALIMPLEMENTATION TDesignUpdateInfoEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FTableName;
	Classes::TStrings* FDeleteSQL;
	Classes::TStrings* FGetRecSQL;
	Classes::TStrings* FUpdateSQL;
	Classes::TStrings* FInsertSQL;
	Classes::TStrings* FSpecParams;
	Classes::TStrings* FUpdateFields;
	Classes::TStrings* FKeyFields;
	void __fastcall SetDeleteSQL(const Classes::TStrings* Value);
	void __fastcall SetGetRecSQL(const Classes::TStrings* Value);
	void __fastcall SetUpdateSQL(const Classes::TStrings* Value);
	void __fastcall SetInsertSQL(const Classes::TStrings* Value);
	void __fastcall SetSpecParams(const Classes::TStrings* Value);
	void __fastcall SetKeyFields(const Classes::TStrings* Value);
	void __fastcall SetUpdateFields(const Classes::TStrings* Value);
	
public:
	__fastcall TDesignUpdateInfoEh(void);
	__fastcall virtual ~TDesignUpdateInfoEh(void);
	__property AnsiString TableName = {read=FTableName, write=FTableName};
	__property Classes::TStrings* DeleteSQL = {read=FDeleteSQL, write=SetDeleteSQL};
	__property Classes::TStrings* InsertSQL = {read=FInsertSQL, write=SetInsertSQL};
	__property Classes::TStrings* UpdateSQL = {read=FUpdateSQL, write=SetUpdateSQL};
	__property Classes::TStrings* GetRecSQL = {read=FGetRecSQL, write=SetGetRecSQL};
	__property Classes::TStrings* SpecParams = {read=FSpecParams, write=SetSpecParams};
	__property Classes::TStrings* UpdateFields = {read=FUpdateFields, write=SetUpdateFields};
	__property Classes::TStrings* KeyFields = {read=FKeyFields, write=SetKeyFields};
};


class PASCALIMPLEMENTATION TCustomDBService : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TStringList* FMTList;
	Classes::TStringList* FTempateList;
	TSQLTreeNode* FSQLRoot;
	Classes::TStringList* FSQLClassListNames;
	Classes::TStringList* FSQLClassListTexts;
	Classes::TStringList* FLoadedSQLClasses;
	
protected:
	TDesignDataBaseEh* FDesignDB;
	Classes::TStrings* FIncrementObjectsList;
	int SelectedIndex;
	virtual TSQLTreeNode* __fastcall CreateNode(void);
	virtual Db::TDataSet* __fastcall CreateReader(AnsiString SQL, TParamsArr FParams);
	Memtableeh::TMemTableEh* __fastcall GetMemTable(AnsiString TableName);
	TSQLTreeNodeTemplate* __fastcall GetTemplate(AnsiString TemplateName);
	AnsiString __fastcall LoadText(AnsiString TextName);
	virtual int __fastcall LoadMemTable(Memtableeh::TMemTableEh* MemTable, Db::TDataSet* Source, Memtableeh::TLoadMode Mode, bool Fetch);
	AnsiString __fastcall SQLClassTextByName(AnsiString ClassName);
	void __fastcall AddTemplate(TSQLTreeNodeTemplate* Template);
	void __fastcall OnPopupClick(System::TObject* Sender);
	void __fastcall AddSQLClass(AnsiString Name, AnsiString SQLText);
	virtual void __fastcall MemTableBuildStruct(Memtableeh::TMemTableEh* MemTable, Db::TDataSet* Source);
	virtual void __fastcall GenWhereClause(TDesignUpdateParamsEh* DesignUpdateParams, Classes::TStrings* SQL);
	virtual void __fastcall GenInsertSQL(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	virtual void __fastcall GenModifySQL(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	virtual void __fastcall GenDeleteSQL(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	virtual void __fastcall GenGetRecSQL(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	
public:
	__fastcall virtual TCustomDBService(TDesignDataBaseEh* ADesignDB);
	__fastcall virtual ~TCustomDBService(void);
	bool __fastcall CheckSqlTextFile(void);
	virtual Classes::TList* __fastcall CreateRootNodes(void);
	virtual Classes::TList* __fastcall CreateNodes(TSQLTreeNode* Parent);
	virtual int __fastcall ShowPopup(System::TObject* Source, const Types::TPoint &Coord, TServicePopupParams Params);
	virtual AnsiString __fastcall GetSpecParamsList();
	virtual Classes::TStrings* __fastcall GetIncrementObjectsList(void);
	virtual bool __fastcall GetUpdateSQLCommand(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	virtual void __fastcall GenGetSpecParams(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName(TMetaClass* vmt);
};


class DELPHICLASS TInterbaseDBService;
class PASCALIMPLEMENTATION TInterbaseDBService : public TCustomDBService 
{
	typedef TCustomDBService inherited;
	
public:
	__fastcall virtual TInterbaseDBService(TDesignDataBaseEh* ADesignDB);
	virtual AnsiString __fastcall GetSpecParamsList();
	virtual Classes::TStrings* __fastcall GetIncrementObjectsList(void);
	virtual void __fastcall GenInsertSQL(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	virtual void __fastcall GenGetSpecParams(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TCustomDBService.Destroy */ inline __fastcall virtual ~TInterbaseDBService(void) { }
	#pragma option pop
	
};


class DELPHICLASS TInformixDBService;
class PASCALIMPLEMENTATION TInformixDBService : public TCustomDBService 
{
	typedef TCustomDBService inherited;
	
public:
	__fastcall virtual TInformixDBService(TDesignDataBaseEh* ADesignDB);
	virtual AnsiString __fastcall GetSpecParamsList();
	void __fastcall TableEditorDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
	virtual void __fastcall MemTableBuildStruct(Memtableeh::TMemTableEh* MemTable, Db::TDataSet* Source);
	virtual void __fastcall GenGetSpecParams(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TCustomDBService.Destroy */ inline __fastcall virtual ~TInformixDBService(void) { }
	#pragma option pop
	
};


class DELPHICLASS TMSAccessDBService;
class PASCALIMPLEMENTATION TMSAccessDBService : public TCustomDBService 
{
	typedef TCustomDBService inherited;
	
public:
	__fastcall virtual TMSAccessDBService(TDesignDataBaseEh* ADesignDB);
	virtual AnsiString __fastcall GetSpecParamsList();
	virtual void __fastcall GenGetSpecParams(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TCustomDBService.Destroy */ inline __fastcall virtual ~TMSAccessDBService(void) { }
	#pragma option pop
	
};


class DELPHICLASS TOracleDBService;
class PASCALIMPLEMENTATION TOracleDBService : public TCustomDBService 
{
	typedef TCustomDBService inherited;
	
public:
	__fastcall virtual TOracleDBService(TDesignDataBaseEh* ADesignDB);
	virtual AnsiString __fastcall GetSpecParamsList();
	virtual void __fastcall GenGetSpecParams(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TCustomDBService.Destroy */ inline __fastcall virtual ~TOracleDBService(void) { }
	#pragma option pop
	
};


class DELPHICLASS TMSSQLDBService;
class PASCALIMPLEMENTATION TMSSQLDBService : public TCustomDBService 
{
	typedef TCustomDBService inherited;
	
public:
	__fastcall virtual TMSSQLDBService(TDesignDataBaseEh* ADesignDB);
	virtual AnsiString __fastcall GetSpecParamsList();
	virtual void __fastcall GenGetSpecParams(TDesignUpdateParamsEh* DesignUpdateParams, TDesignUpdateInfoEh* DesignUpdateInfo);
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TCustomDBService.Destroy */ inline __fastcall virtual ~TMSSQLDBService(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSelectDBService;
class PASCALIMPLEMENTATION TSelectDBService : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TMetaClass* DBServiceClass;
	TAccessEngineEh* AccessEngine;
	AnsiString DBName;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSelectDBService(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSelectDBService(void) { }
	#pragma option pop
	
};


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


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE Classes::TStringList* AccessEngineList;
extern PACKAGE Contnrs::TObjectList* DesignDataBaseList;
#define SSelect "select"
#define SFrom "from"
extern PACKAGE TSQLDataEditWin* SQLDataEditWin;
extern PACKAGE AnsiString SqlTextPathFileName;
extern PACKAGE AnsiString LibraryRegKey;
extern PACKAGE Classes::TStringList* __fastcall GetDBServiceList(void);
extern PACKAGE void __fastcall RegisterDBService(AnsiString ServerName, TMetaClass* DBService);
extern PACKAGE void __fastcall UnregisterDBService(AnsiString ServerName);
extern PACKAGE TMetaClass* __fastcall GetDBServiceByName(AnsiString ServerName);
extern PACKAGE bool __fastcall GUISelectDBService(TSelectDBService* SelectDBService);
extern PACKAGE void __fastcall RegisterDefaultDBService(void);
extern PACKAGE void __fastcall RegisterAccessEngine(AnsiString EngineName, TAccessEngineEh* Engine);
extern PACKAGE void __fastcall UnregisterAccessEngine(AnsiString EngineName);
extern PACKAGE TAccessEngineEh* __fastcall GetAccessEngineByName(AnsiString EngineName);
extern PACKAGE bool __fastcall GUISelectAccessEngine(TSelectDBService* SelectDBService);
extern PACKAGE Contnrs::TObjectList* __fastcall GetDBServiceEngineList(void);
extern PACKAGE void __fastcall RegisterDBServiceEngine(TAccessEngineEh* AccessEngine, TMetaClass* DBService);
extern PACKAGE void __fastcall UnregisterDBServiceEngine(TMetaClass* DBService);
extern PACKAGE Contnrs::TObjectList* __fastcall GetDesignDataBaseList(void);
extern PACKAGE void __fastcall ReleaseDesignDataBaseList(void);
extern PACKAGE void __fastcall RegisterDesignDataBaseClass(AnsiString EngineName, TMetaClass* DesignDBClass);
extern PACKAGE void __fastcall UnregisterDesignDataBaseClass(AnsiString EngineName);
extern PACKAGE TMetaClass* __fastcall GetDesignDataBaseClassByName(AnsiString EngineName);
extern PACKAGE TMetaClass* __fastcall GUISelectDesignDataBaseClass(void);
extern PACKAGE int __fastcall EditSQLDataDriverEh(Datadrivereh::TCustomSQLDataDriverEh* DataDriver);

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

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