mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-23 01:39:31 +02:00
SqlDb: changes to make new FBAdmin component and demo work, issue #22036
git-svn-id: trunk@37308 -
This commit is contained in:
juha
parent
06f818ff0d
commit
0f72da14a7
@ -1,3 +1,4 @@
|
||||
tfbadmin.png
|
||||
tibconnection.png
|
||||
tmssqlconnection.png
|
||||
tmysql40connection.png
|
||||
|
||||
@ -1,3 +1,65 @@
|
||||
LazarusResources.Add('tfbadmin','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#5#14
|
||||
+#16#9#16'QD'#134#234#0#0#5#11'IDATH'#199#181#150'}l'#148'U'#22#198#127#231'}'
|
||||
+#231#237'L;'#173'@'#161#136'V'#139#144'".'#166#219't'#133'bv'#129#165#9';b'
|
||||
+#240'3:'#186'A'#216#160#178#171#203'FC'#252#216'U'#227#218#225#15'E\\'#13#27
|
||||
+'5'#241'#j'#132'('#131#26'1'#138#31'Q'#168#8#139#196#250#177#203#178#171#226
|
||||
+#6'('#21#138#210'N)3'#157#206't'#222#247#217'?'#218'Q'#233#160#238#254#177'O'
|
||||
+#242#230#222#147#247#156#243#228#222's'#159'{.'#146#0#4'H'#18'?d'#143#156#127
|
||||
+#151#127'q'#238#152#153'$'#153'$331'#140#239#178'%'#25''''#192'H'#255'"'#28
|
||||
+#254#207#8#1#156#136#185#136'_'#204#182#186#226'8o'#22#19#139#246#255'D0'#188
|
||||
+'<'#7#240#139'?'#150'-'#177#139#0#26#155'h~k'#219#208#8#16#137'0'#237#173'm'
|
||||
+#208#212'dg'#252#183#219'$'#192#145'p'#0#221'y'#3#177'b'#209#186#186#136#2#6
|
||||
+'('#145#192#1'L)&'#2'z'#226#1#158#28'Y'#236#19#22'<'#30#199'U'#18#151#250'='
|
||||
+''''#173#186#157#27#219'7'#241''''#137':I'#8','#153#196#29#174#149#13'%'#144
|
||||
+'IBy'#206#253#240'5^'#191#231#15#172#184'a'#17#11#138#9'K'#8#227'q\b'#138#222
|
||||
+#127'+'#191#235'h'#227'a'#137#8'q'#185#201'$.'#26'N'#246'M'#160'I"'#145' DR'
|
||||
+#174#196#184#206'6'#222#245'w'#240#216'H'#146'ob${'#232#14'Z>}'#145#245#18'U'
|
||||
+#196#229'j'#11'!$g'#195'j'#206'_'#191#138'g'#23#206'g'#9#148#159#30#143#227
|
||||
+#198'~L'#20#240#218#219#241'H'#202'U'''#141#223'G`;'#159'fl'#133#195'*'#2'^m'
|
||||
+#248#149'^j'#255#192'B'#177#24#229#139'c'#196#151'.'#224'z'#199#225#228'p'#24
|
||||
+'/'#211'Ov'#227'_yvt'#21#159#150'{'#188#241#235'{'#248'r'#207#26#202#166'4'
|
||||
+#200#247'#'#246#200'+'#239#210'x'#241'S'#201'Y'#218#29#207#31'w'#138#206#26
|
||||
+#197'y'#7#187#25#245#163#7#215#181'%'#246#154'MG'#254#166'['#236#230#153'S'
|
||||
+#184#203#241'8X'#24'$j'#6#163#162#132'gN'#164'a'#205'F'#214#190#186'C_%'#202
|
||||
+#204'6'#255#131'@7'#154#223#243'"oN'#175#227#151#211#253'+f'#128#182#31''''
|
||||
+#180#131#7#136#181#239#226#223#250#251#194#212')'#7'q'#213'j'#138'5'#176'3'
|
||||
+#223#207#234#193'4K]'#159'{'#7#211#244'*Mn'#198#25#204#187#250#231'<@'#213
|
||||
+#132'q'#173#173#232'P'#10'3'#137#190'#'#244'U;'#28#137'5rY'#137#14','#207#148
|
||||
+'='#7#248#155#153#217'\'#208'u'#143#2#210#235#130'M'#0#151#252#212':'#215',b'
|
||||
+#137'+"'#229#21#28#153'4'#134#250#229's'#14#159'j'#232#171'-Qs0'#195#214#16
|
||||
+#205#246#225'4'#215#209'PrU8'#25'j'#194#131#132#138#234'H$0'#128#201#181'6'
|
||||
+#245#254'+'#237#207'w'#207#231#153#178',U'#202#146#27#232#163'R'#25'v='#191
|
||||
+#141#14#204#216'7|'#30#189'<'#181#185'cD'#235'*'#25'W'#170#228'4'#161#201#149
|
||||
+#212#153'D'#162#197'H'#180#138'e'#179'-'#246#155#171'X}'#250#24#198#230'|'
|
||||
+#148'?F'#206'qp'#243#144#27'o<'#215'yT'#169#228#21#230#213#236#163#192#6'ss}'
|
||||
+#156#19#241'p'#200'P(YAu'#192#161#186'r'#166#210'|'#205#164'D'#27#254#11#139
|
||||
+#237#228#223'6'#209'Z'#27'bt_7'#153'|'#138#140#210#248#133'>'#240#143#177#246
|
||||
+#189#127#241'r'#252'l'#243#226#243'P'#203#22#249'+'#31#231'|'#210#204#244#210
|
||||
+#244'v|'#193#161#18#130#138#1#182#158#148'g'#242'M'#133'''gI'#210#156#209#180
|
||||
+#140#241#25#223#219'M'#222'2'#224'g'#176'P?'#238#192'Qz'#231#175'eC<'#169'lr'
|
||||
+#183#242'V'#166#232#210's'#236#210'y'#227#185#171',G%'#25#244#241#1'v'#149'l'
|
||||
+#209#231#29#188'V'#19'!>'#167#154#203#237#194#219#218#10#167'a{S'#4#142#11
|
||||
+#190#8'$'#24't'#8#194#1#145'['#207'd'#217#5#19#237#204#198'j'#198'n'#154'@S]'
|
||||
+'='#205#213'FE6E:'#15#225'O'#186'xy$'#129'=4'#151#202#5'a'#238#203#22'X'#184
|
||||
+#241'0'#127#156'Z'#195'?'#155'*'#249#203#160#240#12#252#0'P'#0#142#139#19'2'
|
||||
+#220'|'#129#28#14#158#231#16'v'#141#220#128'O.'#4'U'#185#128#237#211#154'Y'
|
||||
+#164'V'#5#199#17'H'#226#253'&'#155'1!'#204#227#29'y'#202#222'Ns'#223#146'Z'
|
||||
+#174#205#6#140'7#@|}'#253#26'('#228#224'H'#200#15#8'|'#144'cx'#4#200#241#184
|
||||
+#174'~'#179#222')'#169#193#6'3w'#198'Gz'#255'H'#138#149#181'}'#140#30#147#166
|
||||
+'~'#127#23';'#188#20#161'B'#15#190#223#131#252#20#242'{P'#161#7#6#186#9'r'
|
||||
+#221#168#208'K'#160#20#142#223'C'#164'p'#140#7#167'la'#235#138#161#158'R'#218
|
||||
+'2W'#152'9?'#249#140#245'N?'#191'?'#171#151#185'['#187#248'B):'#221#20#225'`'
|
||||
+'('#145#212';'#252#165#144#142#162#160#135'r'#245#16#242#143#178'2'#27#226
|
||||
+#137#196'P'#223'('#129'I'#194#204','#1#214'*'#5#251#205'Z'#218#168#152#157
|
||||
+#171#232'?'#252#179'A'#174'R@-'#198#128#21#253#193#8'('#179#16#31#251#30#15
|
||||
+'7f'#216#12'P'#140'/!'#24'&'#145#153'Y'#28#156#164#228#31#178'S+'#214'Qc-'
|
||||
+#236'-'#143'P'#182#28'B'#231#25'V!'#130'n'#193'n#'#159'|'#158#229#239'$'#212
|
||||
+'*'#204'lX'#208'_?;'#190'M'#240#31#153'+'#219#218#137#191#31'2'#0#0#0#0'IEND'
|
||||
+#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tibconnection','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
|
||||
|
||||
@ -44,6 +44,11 @@ unit registersqldb;
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IF FPC_FULLVERSION>= 20700}
|
||||
// FBAdmin component introduced in FPC 2.7
|
||||
{$DEFINE HASFBADMIN}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
@ -73,6 +78,9 @@ uses
|
||||
{$ENDIF}
|
||||
{$IFDEF HASSQLITE3CONNECTION}
|
||||
sqlite3conn,
|
||||
{$ENDIF}
|
||||
{$IFDEF HASFBADMIN}
|
||||
fbadmin,
|
||||
{$ENDIF}
|
||||
propedits,
|
||||
sqlstringspropertyeditordlg,
|
||||
@ -172,7 +180,11 @@ begin
|
||||
{$IFDEF HASSQLITE3CONNECTION}
|
||||
TSQLite3Connection,
|
||||
{$ENDIF}
|
||||
TIBConnection]);
|
||||
TIBConnection
|
||||
{$IFDEF HASFBADMIN}
|
||||
,TFBAdmin
|
||||
{$ENDIF}
|
||||
]);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -22,9 +22,9 @@ type
|
||||
Port: TLabeledEdit;
|
||||
procedure ConnectButtonClick(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
|
||||
public
|
||||
{ public declarations }
|
||||
|
||||
end;
|
||||
|
||||
var
|
||||
|
||||
Loading…
Reference in New Issue
Block a user