transaction parameter change, to prevent locking

	modified:   TurboBird.lpi
	modified:   TurboBird.lpr
	modified:   main.lfm
	modified:   main.lrs
	modified:   main.pas
	modified:   querywindow.lfm
	modified:   querywindow.lrs
	modified:   querywindow.pas

TurboBird.lpi

@@ -60,10 +60,11 @@
         <Filename Value="TurboBird.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TurboBird"/>
-        <EditorIndex Value="2"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="25" Y="5"/>
+        <TopLine Value="40"/>
+        <CursorPos X="33" Y="32"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -74,10 +75,13 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="main"/>
+        <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="263"/>
-        <CursorPos X="5" Y="271"/>
+        <TopLine Value="3801"/>
+        <CursorPos X="56" Y="3827"/>
         <UsageCount Value="200"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit1>
       <Unit2>
         <Filename Value="createdb.pas"/>
@@ -119,12 +123,12 @@
         <UnitName Value="QueryWindow"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="859"/>
-        <CursorPos X="32" Y="870"/>
+        <TopLine Value="848"/>
+        <CursorPos X="45" Y="858"/>
         <UsageCount Value="200"/>
         <Bookmarks Count="2">
-          <Item0 X="3" Y="1034" ID="0"/>
-          <Item1 X="3" Y="1850" ID="1"/>
+          <Item0 X="3" Y="1035" ID="0"/>
+          <Item1 X="3" Y="1851" ID="1"/>
         </Bookmarks>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -1088,13 +1092,13 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Update"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="1"/>
+        <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="32" Y="9"/>
         <UsageCount Value="23"/>
         <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit116>
       <Unit117>
         <Filename Value="querycomplition.txt"/>
@@ -1108,123 +1112,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="230" Column="27" TopLine="204"/>
+        <Caret Line="483" Column="38" TopLine="451"/>
       </Position1>
       <Position2>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="231" Column="9" TopLine="204"/>
+        <Caret Line="489" Column="58" TopLine="457"/>
       </Position2>
       <Position3>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="232" Column="32" TopLine="204"/>
+        <Caret Line="529" Column="32" TopLine="497"/>
       </Position3>
       <Position4>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="443" Column="23" TopLine="412"/>
+        <Caret Line="531" Column="18" TopLine="499"/>
       </Position4>
       <Position5>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="483" Column="38" TopLine="451"/>
+        <Caret Line="585" Column="23" TopLine="553"/>
       </Position5>
       <Position6>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="489" Column="58" TopLine="457"/>
+        <Caret Line="586" Column="20" TopLine="554"/>
       </Position6>
       <Position7>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="529" Column="32" TopLine="497"/>
+        <Caret Line="588" Column="23" TopLine="556"/>
       </Position7>
       <Position8>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="531" Column="18" TopLine="499"/>
+        <Caret Line="589" Column="20" TopLine="557"/>
       </Position8>
       <Position9>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="585" Column="23" TopLine="553"/>
+        <Caret Line="655" Column="34" TopLine="623"/>
       </Position9>
       <Position10>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="586" Column="20" TopLine="554"/>
+        <Caret Line="1908" Column="33" TopLine="1896"/>
       </Position10>
       <Position11>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="588" Column="23" TopLine="556"/>
+        <Caret Line="34" Column="17" TopLine="29"/>
       </Position11>
       <Position12>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="589" Column="20" TopLine="557"/>
+        <Caret Line="1934" Column="18" TopLine="1919"/>
       </Position12>
       <Position13>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="655" Column="34" TopLine="623"/>
+        <Caret Line="1565" Column="23" TopLine="1544"/>
       </Position13>
       <Position14>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1908" Column="33" TopLine="1896"/>
+        <Caret Line="62" Column="110" TopLine="57"/>
       </Position14>
       <Position15>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="34" Column="17" TopLine="29"/>
+        <Caret Line="206" Column="32" TopLine="177"/>
       </Position15>
       <Position16>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1934" Column="18" TopLine="1919"/>
+        <Caret Line="1551" Column="65" TopLine="1544"/>
       </Position16>
       <Position17>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1565" Column="23" TopLine="1544"/>
+        <Caret Line="1549" Column="44" TopLine="1544"/>
       </Position17>
       <Position18>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="62" Column="110" TopLine="57"/>
+        <Caret Line="5" Column="45" TopLine="1"/>
       </Position18>
       <Position19>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="206" Column="32" TopLine="177"/>
+        <Caret Line="206" Column="32" TopLine="194"/>
       </Position19>
       <Position20>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1551" Column="65" TopLine="1544"/>
+        <Caret Line="1556" Column="24" TopLine="1543"/>
       </Position20>
       <Position21>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1549" Column="44" TopLine="1544"/>
+        <Caret Line="5" Column="45" TopLine="1"/>
       </Position21>
       <Position22>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="5" Column="45" TopLine="1"/>
+        <Caret Line="82" Column="19" TopLine="70"/>
       </Position22>
       <Position23>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="206" Column="32" TopLine="194"/>
+        <Caret Line="128" Column="29" TopLine="116"/>
       </Position23>
       <Position24>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1556" Column="24" TopLine="1543"/>
+        <Caret Line="643" Column="40" TopLine="630"/>
       </Position24>
       <Position25>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="5" Column="45" TopLine="1"/>
+        <Caret Line="647" Column="17" TopLine="634"/>
       </Position25>
       <Position26>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="82" Column="19" TopLine="70"/>
+        <Filename Value="update.pas"/>
+        <Caret Line="171" Column="40" TopLine="150"/>
       </Position26>
       <Position27>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="128" Column="29" TopLine="116"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="271" Column="5" TopLine="263"/>
       </Position27>
       <Position28>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="643" Column="40" TopLine="630"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position28>
       <Position29>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="647" Column="17" TopLine="634"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="232" Column="13" TopLine="231"/>
       </Position29>
       <Position30>
-        <Filename Value="update.pas"/>
-        <Caret Line="171" Column="40" TopLine="150"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="278" Column="3" TopLine="276"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

TurboBird.lpr

@@ -2,7 +2,7 @@
 {  TurboBird: FireBird database administration and management tool          }
 {  Developed by: Motaz Abdel Azeem http://code.sd/                          }
 {  Start development :  5.Dec.2009                                          }
-{  Last updated      :  4.May.2013                                          }
+{  Last updated      : 10.Nov.2013                                          }
 {  License           : GPL for GUI, LGPL for Units                          }
 {***************************************************************************}
 
@@ -29,7 +29,7 @@ const
   Minor = 9;
   Release = 11;
 
-  VersionDate = '2010 - May 2013';
+  VersionDate = '2010 - November 2013';
 {$IFDEF Unix}
 {$DEFINE extdecl:=cdecl}
     fbclib = 'libfbclient.' + sharedsuffix;

main.lfm

@@ -14,7 +14,7 @@ object fmMain: TfmMain
   OnClose = FormClose
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '1.0.8.0'
+  LCLVersion = '1.0.12.0'
   object tvMain: TTreeView
     Left = 0
     Height = 596

main.lrs

@@ -6,11 +6,11 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +'for FireBird'#12'ClientHeight'#3'i'#2#11'ClientWidth'#3#0#4#5'Color'#7#7'cl'
   +'White'#9'Font.Name'#6#4'Sans'#4'Menu'#7#9'MainMenu1'#10'OnActivate'#7#12'Fo'
   +'rmActivate'#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10'FormCreate'#8'Positi'
-  +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.8.0'#0#9'TTreeView'#6'tvMai'
-  +'n'#4'Left'#2#0#6'Height'#3'T'#2#3'Top'#2#0#5'Width'#3'h'#1#5'Align'#7#6'alL'
-  +'eft'#15'BackgroundColor'#7#7'clWhite'#5'Color'#7#7'clCream'#13'HideSelectio'
-  +'n'#8#6'Images'#7#10'ImageList1'#6'Indent'#2#25#8'ReadOnly'#9#16'RightClickS'
-  +'elect'#9#9'ShowLines'#8#8'TabOrder'#2#0#10'OnDblClick'#7#14'tvMainDblClick'
+  +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#8'1.0.12.0'#0#9'TTreeView'#6'tvMa'
+  +'in'#4'Left'#2#0#6'Height'#3'T'#2#3'Top'#2#0#5'Width'#3'h'#1#5'Align'#7#6'al'
+  +'Left'#15'BackgroundColor'#7#7'clWhite'#5'Color'#7#7'clCream'#13'HideSelecti'
+  +'on'#8#6'Images'#7#10'ImageList1'#6'Indent'#2#25#8'ReadOnly'#9#16'RightClick'
+  +'Select'#9#9'ShowLines'#8#8'TabOrder'#2#0#10'OnDblClick'#7#14'tvMainDblClick'
   +#10'OnExpanded'#7#14'tvMainExpanded'#7'Options'#11#17'tvoAutoItemHeight'#21
   +'tvoKeepCollapsedNodes'#11'tvoReadOnly'#19'tvoRightClickSelect'#14'tvoShowBu'
   +'ttons'#11'tvoShowRoot'#11'tvoToolTips'#0#15'ExpandSignColor'#7#8'clMaroon'#0

main.pas

@@ -3824,6 +3824,7 @@ begin
             Index:= FilePos(F) - 1;
             IBConnection:= TIBConnection.Create(nil);
             SQLTrans:= TSQLTransaction.Create(nil);
+            SQLTrans.Params.Add('isc_tpb_read_commited');
             IBConnection.Transaction:= SQLTrans;
             SQLTrans.DataBase:= IBConnection;
             IBConnection.DatabaseName:= Rec.DatabaseName;

querywindow.lfm

@@ -14,7 +14,7 @@ object fmQueryWindow: TfmQueryWindow
   OnShow = FormShow
   PopupMenu = pmTab
   Position = poScreenCenter
-  LCLVersion = '1.0.8.0'
+  LCLVersion = '1.0.12.0'
   object Panel1: TPanel
     Left = 0
     Height = 60

querywindow.lrs

@@ -6,7 +6,7 @@ LazarusResources.Add('TfmQueryWindow','FORMDATA',[
   +'fmQueryWindow'#12'ClientHeight'#3'Y'#2#11'ClientWidth'#3#208#2#5'Color'#7#6
   +'clForm'#4'Menu'#7#9'MainMenu1'#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10'F'
   +'ormCreate'#6'OnShow'#7#8'FormShow'#9'PopupMenu'#7#5'pmTab'#8'Position'#7#14
-  +'poScreenCenter'#10'LCLVersion'#6#7'1.0.8.0'#0#6'TPanel'#6'Panel1'#4'Left'#2
+  +'poScreenCenter'#10'LCLVersion'#6#8'1.0.12.0'#0#6'TPanel'#6'Panel1'#4'Left'#2
   +#0#6'Height'#2'<'#3'Top'#2#0#5'Width'#3#208#2#5'Align'#7#5'alTop'#12'ClientH'
   +'eight'#2'<'#11'ClientWidth'#3#208#2#5'Color'#7#6'clForm'#11'ParentColor'#8#8
   +'TabOrder'#2#1#0#7'TBitBtn'#7'bbClose'#4'Left'#3#180#2#6'Height'#2#24#3'Top'

querywindow.pas

@@ -855,6 +855,7 @@ begin
   ibConnection:= TIBConnection.Create(nil);
   SqlTrans:= TSQLTransaction.Create(nil);
   SqlTrans.DataBase:= ibConnection;
+  SqlTrans.Params.Add('isc_tpb_read_commited');
 
   // Set connection parameters to IBConnection
   with fmMain.RegisteredDatabases[dbIndex] do