paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add new mysql versions

Browse Source 
git-svn-id: trunk@39616 -
This commit is contained in:
michael 2018-08-15 10:51:08 +00:00
parent 27b969b397
commit f4a455fb35
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-db/src/datadict/fpddregstd.pp
View File

@ -35,12 +35,12 @@ uses
Classes, SysUtils, fpdatadict;
Type
TDataDictEngine = (teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,
TDataDictEngine = (teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,teMySQL55,teMySQL56,teMySQL57,
tePostgreSQL,teSQLite3,teODBC, teMSSQL);
TDataDictEngines = set of TDataDictEngine;
Const
AllStdDDEngines = [teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,
AllStdDDEngines = [teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,teMySQL55,teMySQL56,teMySQL57,
tePostgreSQL,teSQLite3,teODBC,teMSSQL];
Type
@ -78,6 +78,9 @@ uses
fpddmysql40,
fpddmysql41,
fpddmysql50,
fpddmysql55,
fpddmysql56,
fpddmysql57,
fpddmssql,
fpddodbc;
@ -86,19 +89,25 @@ Const
StdEngineClasses : Array [TDataDictEngine] of TFPDDEngineClass
= (TDBFDDEngine, TSQLDBFBDDEngine, TSQLDBOracleDDEngine,
TSQLDBMySql40DDEngine, TSQLDBMySql41DDEngine ,
TSQLDBMySql5DDEngine, TSQLDBPostGreSQLDDEngine,
TSQLDBMySql5DDEngine, TSQLDBMySql55DDEngine,
TSQLDBMySql56DDEngine, TSQLDBMySql57DDEngine,
TSQLDBPostGreSQLDDEngine,
TSQLDBSQLite3DDEngine,TSQLDBODBCDDEngine, TSQLDBMSSQLDDEngine);
StdEngineRegs : Array [TDataDictEngine] of procedure
= (@InitDBFImporter, @RegisterFBDDEngine, @RegisterOracleDDEngine,
@RegisterMySQL40DDEngine, @RegisterMySQL41DDEngine,
@RegisterMySQL50DDEngine, @RegisterPostgreSQLDDengine,
@RegisterMySQL50DDEngine, @RegisterMySQL55DDEngine,
@RegisterMySQL56DDEngine, @RegisterMySQL57DDEngine,
@RegisterPostgreSQLDDengine,
@RegisterSQLite3DDEngine, @RegisterODBCDDengine,@RegisterMSSQLDDEngine);
StdEngineUnRegs : Array [TDataDictEngine] of procedure
= (@DoneDBFImporter, @UnRegisterFBDDEngine, @UnRegisterOracleDDEngine,
@UnRegisterMySQL40DDEngine, @UnRegisterMySQL41DDEngine,
@UnRegisterMySQL50DDEngine, @UnRegisterPostgreSQLDDengine,
@UnRegisterMySQL50DDEngine, @UnRegisterMySQL55DDEngine,
@UnRegisterMySQL56DDEngine, @UnRegisterMySQL57DDEngine,
@UnRegisterPostgreSQLDDengine,
@UnRegisterSQLite3DDEngine, @UnRegisterODBCDDengine,@UnRegisterMSSQLDDEngine);
function RegisterStdDDEngines(Engines: TDataDictEngines): TDataDictEngines;