sqldriverediteh.hpp

中式财务栏 表格式录入 运行时设置可显示列、列名、列宽

	__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);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName() { return GetDBServiceName(__classid(TCustomDBService)); }
	#pragma option pop
	/*         class method */ static 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);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName() { return GetDBServiceName(__classid(TInterbaseDBService)); }
	#pragma option pop
	/*         class method */ static 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);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName() { return GetDBServiceName(__classid(TInformixDBService)); }
	#pragma option pop
	/*         class method */ static 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);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName() { return GetDBServiceName(__classid(TMSAccessDBService)); }
	#pragma option pop
	/*         class method */ static 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);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName() { return GetDBServiceName(__classid(TOracleDBService)); }
	#pragma option pop
	/*         class method */ static 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);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall GetDBServiceName() { return GetDBServiceName(__classid(TMSSQLDBService)); }
	#pragma option pop
	/*         class method */ static 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