paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:19:28 +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; Classes, SysUtils, fpdatadict;
Type Type
TDataDictEngine = (teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50, TDataDictEngine = (teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,teMySQL55,teMySQL56,teMySQL57,
tePostgreSQL,teSQLite3,teODBC, teMSSQL); tePostgreSQL,teSQLite3,teODBC, teMSSQL);
TDataDictEngines = set of TDataDictEngine; TDataDictEngines = set of TDataDictEngine;
Const Const
AllStdDDEngines = [teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50, AllStdDDEngines = [teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,teMySQL55,teMySQL56,teMySQL57,
tePostgreSQL,teSQLite3,teODBC,teMSSQL]; tePostgreSQL,teSQLite3,teODBC,teMSSQL];
Type Type
@ -78,6 +78,9 @@ uses
fpddmysql40, fpddmysql40,
fpddmysql41, fpddmysql41,
fpddmysql50, fpddmysql50,
fpddmysql55,
fpddmysql56,
fpddmysql57,
fpddmssql, fpddmssql,
fpddodbc; fpddodbc;
@ -86,19 +89,25 @@ Const
StdEngineClasses : Array [TDataDictEngine] of TFPDDEngineClass StdEngineClasses : Array [TDataDictEngine] of TFPDDEngineClass
= (TDBFDDEngine, TSQLDBFBDDEngine, TSQLDBOracleDDEngine, = (TDBFDDEngine, TSQLDBFBDDEngine, TSQLDBOracleDDEngine,
TSQLDBMySql40DDEngine, TSQLDBMySql41DDEngine , TSQLDBMySql40DDEngine, TSQLDBMySql41DDEngine ,
TSQLDBMySql5DDEngine, TSQLDBPostGreSQLDDEngine, TSQLDBMySql5DDEngine, TSQLDBMySql55DDEngine,
TSQLDBMySql56DDEngine, TSQLDBMySql57DDEngine,
TSQLDBPostGreSQLDDEngine,
TSQLDBSQLite3DDEngine,TSQLDBODBCDDEngine, TSQLDBMSSQLDDEngine); TSQLDBSQLite3DDEngine,TSQLDBODBCDDEngine, TSQLDBMSSQLDDEngine);
StdEngineRegs : Array [TDataDictEngine] of procedure StdEngineRegs : Array [TDataDictEngine] of procedure
= (@InitDBFImporter, @RegisterFBDDEngine, @RegisterOracleDDEngine, = (@InitDBFImporter, @RegisterFBDDEngine, @RegisterOracleDDEngine,
@RegisterMySQL40DDEngine, @RegisterMySQL41DDEngine, @RegisterMySQL40DDEngine, @RegisterMySQL41DDEngine,
@RegisterMySQL50DDEngine, @RegisterPostgreSQLDDengine, @RegisterMySQL50DDEngine, @RegisterMySQL55DDEngine,
@RegisterMySQL56DDEngine, @RegisterMySQL57DDEngine,
@RegisterPostgreSQLDDengine,
@RegisterSQLite3DDEngine, @RegisterODBCDDengine,@RegisterMSSQLDDEngine); @RegisterSQLite3DDEngine, @RegisterODBCDDengine,@RegisterMSSQLDDEngine);
StdEngineUnRegs : Array [TDataDictEngine] of procedure StdEngineUnRegs : Array [TDataDictEngine] of procedure
= (@DoneDBFImporter, @UnRegisterFBDDEngine, @UnRegisterOracleDDEngine, = (@DoneDBFImporter, @UnRegisterFBDDEngine, @UnRegisterOracleDDEngine,
@UnRegisterMySQL40DDEngine, @UnRegisterMySQL41DDEngine, @UnRegisterMySQL40DDEngine, @UnRegisterMySQL41DDEngine,
@UnRegisterMySQL50DDEngine, @UnRegisterPostgreSQLDDengine, @UnRegisterMySQL50DDEngine, @UnRegisterMySQL55DDEngine,
@UnRegisterMySQL56DDEngine, @UnRegisterMySQL57DDEngine,
@UnRegisterPostgreSQLDDengine,
@UnRegisterSQLite3DDEngine, @UnRegisterODBCDDengine,@UnRegisterMSSQLDDEngine); @UnRegisterSQLite3DDEngine, @UnRegisterODBCDDengine,@UnRegisterMSSQLDDEngine);
function RegisterStdDDEngines(Engines: TDataDictEngines): TDataDictEngines; function RegisterStdDDEngines(Engines: TDataDictEngines): TDataDictEngines;