paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 09:38:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDataDesktop: Add support for MySQL 5.6 and 5.7, issue #32681, from Sven Barth

Browse Source 
git-svn-id: trunk@56370 -
This commit is contained in:
mattias 2017-11-12 12:51:20 +00:00
parent 4a07f5355d
commit e80d3a95cc
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tools/lazdatadesktop/frmmain.pp
View File

@ -30,6 +30,11 @@
{$DEFINE HAVEMSSQLCONN}
{$ENDIF}
{ MySQL 5.6 and 5.7 connections }
{$IF FPC_FULLVERSION>30100}
{$DEFINE HAVEMYSQL5657CONN}
{$ENDIF}
unit frmmain;
{$mode objfpc}{$H+}
@ -314,6 +319,10 @@ uses
fpddmysql50, // MySQL 5.0
fpddmysql51, // MySQL 5.1
fpddmysql55, // MySQL 5.5
{$ifdef HAVEMYSQL5657CONN}
fpddmysql56, // MySQL 5.6
fpddmysql57, // MySQL 5.7
{$endif HAVEMYSQL5657CONN}
fpddoracle, // Oracle
fpddpq, // PostgreSQL
{$endif}
@ -583,6 +592,10 @@ begin
RegisterMySQL50DDEngine;
RegisterMySQL51DDEngine;
RegisterMySQL55DDEngine;
{$ifdef HAVEMYSQL5657CONN}
RegisterMySQL56DDEngine;
RegisterMySQL57DDEngine;
{$endif}
RegisterOracleDDEngine;
RegisterPostgreSQLDDengine;
{$endif}
@ -615,6 +628,10 @@ begin
MaybeRegisterConnectionStringCallback('TSQLDBMySql5DDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBMySql51DDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBMySql55DDEngine',@GetSQLConnectionDlg);
{$ifdef HAVEMYSQL5657CONN}
MaybeRegisterConnectionStringCallback('TSQLDBMySql56DDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBMySql57DDEngine',@GetSQLConnectionDlg);
{$ENDIF}
MaybeRegisterConnectionStringCallback('TSQLDBODBCDDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBPOSTGRESQLDDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBFBDDEngine',@GetSQLConnectionDlg);