mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-13 23:02:44 +02:00
sqldb: added mssql connector
git-svn-id: trunk@36459 -
This commit is contained in:
parent
4d57d078dd
commit
2d79d6d08c
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -2276,6 +2276,7 @@ components/sqldb/Makefile.fpc svneol=native#text/plain
|
||||
components/sqldb/design/registersqldb.bat svneol=native#text/x-msdos-program
|
||||
components/sqldb/design/registersqldb.txt svneol=native#text/plain
|
||||
components/sqldb/design/tibconnection.png -text svneol=unset#image/png
|
||||
components/sqldb/design/tmssqlconnection.png -text svneol=unset#image/png
|
||||
components/sqldb/design/tmysql40connection.png -text svneol=unset#image/png
|
||||
components/sqldb/design/tmysql41connection.png -text svneol=unset#image/png
|
||||
components/sqldb/design/tmysql50connection.png -text svneol=unset#image/png
|
||||
@ -2289,6 +2290,7 @@ components/sqldb/design/tsqlite3connection.png -text svneol=unset#image/png
|
||||
components/sqldb/design/tsqlquery.png -text svneol=unset#image/png
|
||||
components/sqldb/design/tsqlscript.png -text svneol=unset#image/png
|
||||
components/sqldb/design/tsqltransaction.png -text svneol=unset#image/png
|
||||
components/sqldb/design/tsybaseconnection.png -text svneol=unset#image/png
|
||||
components/sqldb/languages/registersqldb.de.po svneol=native#text/plain
|
||||
components/sqldb/languages/registersqldb.it.po svneol=native#text/plain
|
||||
components/sqldb/languages/registersqldb.lt.po svneol=native#text/plain
|
||||
|
@ -1,4 +1,5 @@
|
||||
tibconnection.png
|
||||
tmssqlconnection.png
|
||||
tmysql40connection.png
|
||||
tmysql41connection.png
|
||||
tmysql50connection.png
|
||||
@ -11,4 +12,5 @@ tsqlconnector.png
|
||||
tsqlite3connection.png
|
||||
tsqlquery.png
|
||||
tsqlscript.png
|
||||
tsqltransaction.png
|
||||
tsqltransaction.png
|
||||
tsybaseconnection.png
|
BIN
components/sqldb/design/tmssqlconnection.png
Normal file
BIN
components/sqldb/design/tmssqlconnection.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 285 B |
BIN
components/sqldb/design/tsybaseconnection.png
Normal file
BIN
components/sqldb/design/tsybaseconnection.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 298 B |
@ -59,6 +59,19 @@ LazarusResources.Add('tibconnection','PNG',[
|
||||
+':'#251#254#230#188#152'_'#231#255#2#22#209#166#224#129#191#199#239#0#0#0#0
|
||||
+'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tmssqlconnection','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
|
||||
+#0#0#1'sRGB'#0#174#206#28#233#0#0#0#6'bKGD'#0#255#0#255#0#255#160#189#167#147
|
||||
+#0#0#0#9'pHYs'#0#0#14#195#0#0#14#195#1#199'o'#168'd'#0#0#0#7'tIME'#7#220#3#27
|
||||
+#7#28' '#177#198#183#170#0#0#0#157'IDATH'#199#221'T1'#14#196' '#12's'#170'N'
|
||||
+#157'Y'#249#255#195'n'#189#153#213'7!'#161#202#132#180'j{'#21#158#16#14'11'#9
|
||||
+'F'#18'wb'#193#205'X'#1#192#204#8#0'$'#173#18#237'^]'#239#209#198#187#2#17'D'
|
||||
+#146#185#22#181'753'#158'M'#232'VPETre'#211')'#139#212#161#168#224'_'#186#232
|
||||
+#153'6'#29'!j'#135'<;'#199'$'#183#248#218#246'Q'#129#137'%'#143#184#196#146
|
||||
+'Co'#160#2'{\Ot'#242'6Ue{'#182#29#18'P'#137'F>'#207#253#6#239#25#180#8#191
|
||||
+#231#18'K>'#252#23#245'&'#246'2'#139#188'/C'#225#7#147'|]'#15'E='#166'+'#0#0
|
||||
+#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tmysql40connection','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
|
||||
+#0#0#6'bKGD'#0#255#0#255#0#255#160#189#167#147#0#0#0#9'pHYs'#0#0#11#19#0#0#11
|
||||
@ -670,3 +683,16 @@ LazarusResources.Add('tsqltransaction','PNG',[
|
||||
+#154#252#239'W'#133'8'#233'g'#203'?'#216'*Y'#204#176#157#192#184#0#0#0#0'IEN'
|
||||
+'D'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tsybaseconnection','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
|
||||
+#0#0#1'sRGB'#0#174#206#28#233#0#0#0#6'bKGD'#0#255#0#255#0#255#160#189#167#147
|
||||
+#0#0#0#9'pHYs'#0#0#14#195#0#0#14#195#1#199'o'#168'd'#0#0#0#7'tIME'#7#220#3#27
|
||||
+#7#29'4'#178#7'R'#150#0#0#0#170'IDATH'#199'c'#252#255#255'?'#3'-'#1#11'2'#231
|
||||
+#13'#'#215'cl'#138'D'#254#127#147'%'#219#134#255#255#255'3'#252#255#255#159
|
||||
+#225'5'#3#231'c'#24#27#29#227#147'#'#132#153#24'h'#12#134#190#5','#232#2#232
|
||||
+#17'MQ'#4'cKE'#232#6#226'JY'#196#2'FX>'#192'f8\'#209'2'#195#187'8Sa'#212'ye'
|
||||
+#146#130#136'\'#131#134'o*b$'#166','#162'$'#14#24#200'-'#2'`'#152'a'#169#193
|
||||
+#221#225']T0R\'#31'|f'#252'Oq>'#192#27#201#190#12#12#12#188#255#25'i'#235#3
|
||||
+'<'#22#176'P%'#160#209#131#9#201'B'#234'X'#128#199#7#195#176#194#161'jR'#229
|
||||
+#253#207#8#0':'#199#199'5'#239'$w'#29#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
|
@ -30,10 +30,25 @@ unit registersqldb;
|
||||
{$DEFINE HASSQLPARSER}
|
||||
{$ENDIF}
|
||||
|
||||
{$IF FPC_FULLVERSION>= 20700}
|
||||
{$IF DEFINED(BEOS) OR DEFINED(HAIKU) OR DEFINED(LINUX) OR DEFINED(FREEBSD) OR DEFINED (NETBSD) OR DEFINED(OPENBSD) OR DEFINED(WIN32) }
|
||||
// MS SQL Server and Sybase ASE connectors were introduced in the FPC 2.7 development branch.
|
||||
// Operating systems should match FPC packages\fcl-db\fpmake.pp
|
||||
{$DEFINE HASMSSQLCONNECTION}
|
||||
{$DEFINE HASSYBASECONNECTION}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, db, sqldb, ibconnection, odbcconn,
|
||||
Classes, SysUtils, LResources, db, sqldb,
|
||||
ibconnection,
|
||||
{$IFDEF HASMSSQLCONNECTION}
|
||||
// mssqlconn provide both MS SQL Server and Sybase ASE connectors.
|
||||
mssqlconn,
|
||||
{$ENDIF}
|
||||
odbcconn,
|
||||
{$IFDEF HASPQCONNECTION}
|
||||
pqconnection,
|
||||
{$ENDIF}
|
||||
@ -122,6 +137,12 @@ begin
|
||||
TSQLTransaction,
|
||||
TSQLScript,
|
||||
TSQLConnector,
|
||||
{$IFDEF HASMSSQLCONNECTION}
|
||||
TMSSQLConnection,
|
||||
{$ENDIF}
|
||||
{$IFDEF HASSYBASECONNECTION}
|
||||
TSybaseConnection,
|
||||
{$ENDIF}
|
||||
{$IFDEF HASPQCONNECTION}
|
||||
TPQConnection,
|
||||
{$ENDIF}
|
||||
|
Loading…
Reference in New Issue
Block a user