Browse Source

modified: TurboBird.lpi
modified: TurboBird.lpr
modified: main.lfm
modified: main.lrs
modified: main.pas
modified: scriptdb.pas
modified: systables.lfm
modified: systables.lrs
modified: systables.pas

motaz 13 years ago
parent
commit
52daeb0212
9 changed files with 389 additions and 362 deletions
  1. 116 105
      TurboBird.lpi
  2. 11 9
      TurboBird.lpr
  3. 9 5
      main.lfm
  4. 237 236
      main.lrs
  5. 10 2
      main.pas
  6. 3 0
      scriptdb.pas
  7. 1 1
      systables.lfm
  8. 2 2
      systables.lrs
  9. 0 2
      systables.pas

+ 116 - 105
TurboBird.lpi

@@ -55,18 +55,15 @@
         <PackageName Value="LCL"/>
         <PackageName Value="LCL"/>
       </Item5>
       </Item5>
     </RequiredPackages>
     </RequiredPackages>
-    <Units Count="102">
+    <Units Count="103">
       <Unit0>
       <Unit0>
         <Filename Value="TurboBird.lpr"/>
         <Filename Value="TurboBird.lpr"/>
         <IsPartOfProject Value="True"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TurboBird"/>
         <UnitName Value="TurboBird"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="7"/>
-        <CursorPos X="28" Y="27"/>
+        <TopLine Value="1"/>
+        <CursorPos X="19" Y="27"/>
         <UsageCount Value="200"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
       </Unit0>
       </Unit0>
       <Unit1>
       <Unit1>
         <Filename Value="main.pas"/>
         <Filename Value="main.pas"/>
@@ -74,10 +71,13 @@
         <ComponentName Value="fmMain"/>
         <ComponentName Value="fmMain"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="main"/>
         <UnitName Value="main"/>
+        <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1179"/>
-        <CursorPos X="1" Y="1194"/>
+        <TopLine Value="1664"/>
+        <CursorPos X="1" Y="1751"/>
         <UsageCount Value="200"/>
         <UsageCount Value="200"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit1>
       </Unit1>
       <Unit2>
       <Unit2>
         <Filename Value="createdb.pas"/>
         <Filename Value="createdb.pas"/>
@@ -96,7 +96,7 @@
         <ComponentName Value="fmReg"/>
         <ComponentName Value="fmReg"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Reg"/>
         <UnitName Value="Reg"/>
-        <EditorIndex Value="12"/>
+        <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <TopLine Value="1"/>
         <CursorPos X="22" Y="269"/>
         <CursorPos X="22" Y="269"/>
@@ -117,13 +117,10 @@
         <ComponentName Value="fmQueryWindow"/>
         <ComponentName Value="fmQueryWindow"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="QueryWindow"/>
         <UnitName Value="QueryWindow"/>
-        <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="155"/>
         <TopLine Value="155"/>
         <CursorPos X="32" Y="161"/>
         <CursorPos X="32" Y="161"/>
         <UsageCount Value="200"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit5>
       </Unit5>
       <Unit6>
       <Unit6>
         <Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/dialogs.pp"/>
         <Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/dialogs.pp"/>
@@ -165,13 +162,10 @@
         <ComponentName Value="fmViewTrigger"/>
         <ComponentName Value="fmViewTrigger"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="ViewTrigger"/>
         <UnitName Value="ViewTrigger"/>
-        <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="19"/>
         <TopLine Value="19"/>
         <CursorPos X="72" Y="27"/>
         <CursorPos X="72" Y="27"/>
         <UsageCount Value="200"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit10>
       </Unit10>
       <Unit11>
       <Unit11>
         <Filename Value="viewsproc.pas"/>
         <Filename Value="viewsproc.pas"/>
@@ -417,13 +411,10 @@
         <ComponentName Value="fmUDFInfo"/>
         <ComponentName Value="fmUDFInfo"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UDFInfo"/>
         <UnitName Value="UDFInfo"/>
-        <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="12"/>
         <TopLine Value="12"/>
         <CursorPos X="29" Y="29"/>
         <CursorPos X="29" Y="29"/>
         <UsageCount Value="200"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit38>
       </Unit38>
       <Unit39>
       <Unit39>
         <Filename Value="viewdomain.pas"/>
         <Filename Value="viewdomain.pas"/>
@@ -431,13 +422,10 @@
         <ComponentName Value="fmViewDomain"/>
         <ComponentName Value="fmViewDomain"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="ViewDomain"/>
         <UnitName Value="ViewDomain"/>
-        <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="12"/>
         <TopLine Value="12"/>
         <CursorPos X="24" Y="17"/>
         <CursorPos X="24" Y="17"/>
         <UsageCount Value="200"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit39>
       </Unit39>
       <Unit40>
       <Unit40>
         <Filename Value="newdomain.pas"/>
         <Filename Value="newdomain.pas"/>
@@ -463,10 +451,13 @@
         <ComponentName Value="dmSysTables"/>
         <ComponentName Value="dmSysTables"/>
         <ResourceBaseClass Value="DataModule"/>
         <ResourceBaseClass Value="DataModule"/>
         <UnitName Value="SysTables"/>
         <UnitName Value="SysTables"/>
+        <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="575"/>
-        <CursorPos X="1" Y="615"/>
+        <TopLine Value="103"/>
+        <CursorPos X="1" Y="136"/>
         <UsageCount Value="200"/>
         <UsageCount Value="200"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit42>
       </Unit42>
       <Unit43>
       <Unit43>
         <Filename Value="/usr/lib/lazarus/0.9.28.2/components/synedit/syneditmiscclasses.pp"/>
         <Filename Value="/usr/lib/lazarus/0.9.28.2/components/synedit/syneditmiscclasses.pp"/>
@@ -544,9 +535,9 @@
         <UnitName Value="Scriptdb"/>
         <UnitName Value="Scriptdb"/>
         <EditorIndex Value="2"/>
         <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="433"/>
-        <CursorPos X="49" Y="453"/>
-        <UsageCount Value="196"/>
+        <TopLine Value="1"/>
+        <CursorPos X="10" Y="25"/>
+        <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <Loaded Value="True"/>
       </Unit51>
       </Unit51>
       <Unit52>
       <Unit52>
@@ -564,13 +555,10 @@
         <ComponentName Value="fmUserPermissions"/>
         <ComponentName Value="fmUserPermissions"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UserPermissions"/>
         <UnitName Value="UserPermissions"/>
-        <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="6"/>
         <TopLine Value="6"/>
         <CursorPos X="8" Y="34"/>
         <CursorPos X="8" Y="34"/>
-        <UsageCount Value="172"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
+        <UsageCount Value="179"/>
       </Unit53>
       </Unit53>
       <Unit54>
       <Unit54>
         <Filename Value="/usr/lib/lazarus/0.9.29/ide/lazarus.pp"/>
         <Filename Value="/usr/lib/lazarus/0.9.29/ide/lazarus.pp"/>
@@ -586,11 +574,11 @@
         <ComponentName Value="fmTableManage"/>
         <ComponentName Value="fmTableManage"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TableManage"/>
         <UnitName Value="TableManage"/>
-        <EditorIndex Value="10"/>
+        <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="303"/>
         <TopLine Value="303"/>
         <CursorPos X="20" Y="311"/>
         <CursorPos X="20" Y="311"/>
-        <UsageCount Value="155"/>
+        <UsageCount Value="162"/>
         <Loaded Value="True"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit55>
       </Unit55>
@@ -635,16 +623,16 @@
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="13"/>
         <TopLine Value="13"/>
         <CursorPos X="22" Y="54"/>
         <CursorPos X="22" Y="54"/>
-        <UsageCount Value="141"/>
+        <UsageCount Value="148"/>
       </Unit60>
       </Unit60>
       <Unit61>
       <Unit61>
         <Filename Value="unitfirebirdservices.pas"/>
         <Filename Value="unitfirebirdservices.pas"/>
         <UnitName Value="UnitFirebirdServices"/>
         <UnitName Value="UnitFirebirdServices"/>
-        <EditorIndex Value="13"/>
+        <EditorIndex Value="10"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <TopLine Value="1"/>
         <CursorPos X="1" Y="1"/>
         <CursorPos X="1" Y="1"/>
-        <UsageCount Value="22"/>
+        <UsageCount Value="25"/>
         <Loaded Value="True"/>
         <Loaded Value="True"/>
       </Unit61>
       </Unit61>
       <Unit62>
       <Unit62>
@@ -703,7 +691,7 @@
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <TopLine Value="3"/>
         <CursorPos X="71" Y="7"/>
         <CursorPos X="71" Y="7"/>
-        <UsageCount Value="111"/>
+        <UsageCount Value="118"/>
       </Unit68>
       </Unit68>
       <Unit69>
       <Unit69>
         <Filename Value="changepass.pas"/>
         <Filename Value="changepass.pas"/>
@@ -714,7 +702,7 @@
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <TopLine Value="3"/>
         <CursorPos X="88" Y="14"/>
         <CursorPos X="88" Y="14"/>
-        <UsageCount Value="110"/>
+        <UsageCount Value="117"/>
       </Unit69>
       </Unit69>
       <Unit70>
       <Unit70>
         <Filename Value="permissionmanage.pas"/>
         <Filename Value="permissionmanage.pas"/>
@@ -725,7 +713,7 @@
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="61"/>
         <TopLine Value="61"/>
         <CursorPos X="44" Y="83"/>
         <CursorPos X="44" Y="83"/>
-        <UsageCount Value="108"/>
+        <UsageCount Value="115"/>
       </Unit70>
       </Unit70>
       <Unit71>
       <Unit71>
         <Filename Value="sqlhistory.pas"/>
         <Filename Value="sqlhistory.pas"/>
@@ -736,7 +724,7 @@
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <TopLine Value="1"/>
         <CursorPos X="18" Y="39"/>
         <CursorPos X="18" Y="39"/>
-        <UsageCount Value="93"/>
+        <UsageCount Value="100"/>
       </Unit71>
       </Unit71>
       <Unit72>
       <Unit72>
         <Filename Value="../../lazarus/lazarus/lcl/include/menuitem.inc"/>
         <Filename Value="../../lazarus/lazarus/lcl/include/menuitem.inc"/>
@@ -758,10 +746,13 @@
         <ComponentName Value="fmCopyTable"/>
         <ComponentName Value="fmCopyTable"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="CopyTable"/>
         <UnitName Value="CopyTable"/>
+        <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="30"/>
-        <CursorPos X="1" Y="151"/>
-        <UsageCount Value="64"/>
+        <TopLine Value="18"/>
+        <CursorPos X="1" Y="44"/>
+        <UsageCount Value="71"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit74>
       </Unit74>
       <Unit75>
       <Unit75>
         <Filename Value="/usr/lib/lazarus/0.9.30/lcl/comctrls.pp"/>
         <Filename Value="/usr/lib/lazarus/0.9.30/lcl/comctrls.pp"/>
@@ -950,13 +941,10 @@
         <ComponentName Value="fmDBInfo"/>
         <ComponentName Value="fmDBInfo"/>
         <ResourceBaseClass Value="Form"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="dbInfo"/>
         <UnitName Value="dbInfo"/>
-        <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="20"/>
         <TopLine Value="20"/>
         <CursorPos X="22" Y="41"/>
         <CursorPos X="22" Y="41"/>
-        <UsageCount Value="32"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
+        <UsageCount Value="39"/>
       </Unit98>
       </Unit98>
       <Unit99>
       <Unit99>
         <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60dyn.pp"/>
         <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60dyn.pp"/>
@@ -976,127 +964,150 @@
       <Unit101>
       <Unit101>
         <Filename Value="../FreeSpider/spiderutils.pas"/>
         <Filename Value="../FreeSpider/spiderutils.pas"/>
         <UnitName Value="SpiderUtils"/>
         <UnitName Value="SpiderUtils"/>
-        <EditorIndex Value="11"/>
+        <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <TopLine Value="1"/>
         <CursorPos X="1" Y="1"/>
         <CursorPos X="1" Y="1"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="14"/>
         <Loaded Value="True"/>
         <Loaded Value="True"/>
       </Unit101>
       </Unit101>
+      <Unit102>
+        <Filename Value="comparison.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="fmComparison"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="Comparison"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="3"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="202"/>
+        <CursorPos X="29" Y="213"/>
+        <UsageCount Value="26"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
+      </Unit102>
     </Units>
     </Units>
-    <JumpHistory Count="28" HistoryIndex="27">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
       <Position1>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="228" Column="3" TopLine="225"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="79" Column="9" TopLine="63"/>
       </Position1>
       </Position1>
       <Position2>
       <Position2>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="227" Column="3" TopLine="224"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="109" Column="43" TopLine="81"/>
       </Position2>
       </Position2>
       <Position3>
       <Position3>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="226" Column="3" TopLine="223"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="92" Column="54" TopLine="75"/>
       </Position3>
       </Position3>
       <Position4>
       <Position4>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="225" Column="3" TopLine="222"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="117" Column="31" TopLine="92"/>
       </Position4>
       </Position4>
       <Position5>
       <Position5>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="224" Column="3" TopLine="221"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="131" Column="72" TopLine="107"/>
       </Position5>
       </Position5>
       <Position6>
       <Position6>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="223" Column="3" TopLine="220"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1751" Column="1" TopLine="1686"/>
       </Position6>
       </Position6>
       <Position7>
       <Position7>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="201" Column="1" TopLine="176"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="150" Column="14" TopLine="121"/>
       </Position7>
       </Position7>
       <Position8>
       <Position8>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="114" Column="1" TopLine="99"/>
+        <Filename Value="scriptdb.pas"/>
+        <Caret Line="77" Column="14" TopLine="62"/>
       </Position8>
       </Position8>
       <Position9>
       <Position9>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="116" Column="1" TopLine="101"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="150" Column="9" TopLine="131"/>
       </Position9>
       </Position9>
       <Position10>
       <Position10>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="156" Column="1" TopLine="146"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="121" Column="17" TopLine="104"/>
       </Position10>
       </Position10>
       <Position11>
       <Position11>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="186" Column="56" TopLine="171"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="139" Column="56" TopLine="123"/>
       </Position11>
       </Position11>
       <Position12>
       <Position12>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="23" Column="1" TopLine="8"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="85" Column="3" TopLine="85"/>
       </Position12>
       </Position12>
       <Position13>
       <Position13>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="147" Column="1" TopLine="143"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="86" Column="3" TopLine="86"/>
       </Position13>
       </Position13>
       <Position14>
       <Position14>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="79" Column="32" TopLine="70"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="87" Column="3" TopLine="87"/>
       </Position14>
       </Position14>
       <Position15>
       <Position15>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="56" Column="3" TopLine="54"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="88" Column="3" TopLine="88"/>
       </Position15>
       </Position15>
       <Position16>
       <Position16>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="55" Column="3" TopLine="53"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="89" Column="3" TopLine="89"/>
       </Position16>
       </Position16>
       <Position17>
       <Position17>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="54" Column="3" TopLine="52"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="90" Column="3" TopLine="90"/>
       </Position17>
       </Position17>
       <Position18>
       <Position18>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="53" Column="3" TopLine="51"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="91" Column="3" TopLine="91"/>
       </Position18>
       </Position18>
       <Position19>
       <Position19>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="89" Column="3" TopLine="87"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="92" Column="3" TopLine="92"/>
       </Position19>
       </Position19>
       <Position20>
       <Position20>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="149" Column="1" TopLine="109"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="93" Column="3" TopLine="93"/>
       </Position20>
       </Position20>
       <Position21>
       <Position21>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="81" Column="1" TopLine="58"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="94" Column="3" TopLine="94"/>
       </Position21>
       </Position21>
       <Position22>
       <Position22>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="88" Column="1" TopLine="75"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="179" Column="37" TopLine="158"/>
       </Position22>
       </Position22>
       <Position23>
       <Position23>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="94" Column="30" TopLine="79"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="195" Column="11" TopLine="195"/>
       </Position23>
       </Position23>
       <Position24>
       <Position24>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="28" Column="1" TopLine="13"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="218" Column="39" TopLine="195"/>
       </Position24>
       </Position24>
       <Position25>
       <Position25>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="118" Column="1" TopLine="95"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="205" Column="1" TopLine="188"/>
       </Position25>
       </Position25>
       <Position26>
       <Position26>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="117" Column="27" TopLine="98"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="250" Column="21" TopLine="231"/>
       </Position26>
       </Position26>
       <Position27>
       <Position27>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="47" Column="21" TopLine="31"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="193" Column="9" TopLine="170"/>
       </Position27>
       </Position27>
       <Position28>
       <Position28>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="46" Column="21" TopLine="30"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="192" Column="9" TopLine="169"/>
       </Position28>
       </Position28>
+      <Position29>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="42" Column="15" TopLine="21"/>
+      </Position29>
+      <Position30>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="257" Column="28" TopLine="247"/>
+      </Position30>
     </JumpHistory>
     </JumpHistory>
   </ProjectOptions>
   </ProjectOptions>
   <CompilerOptions>
   <CompilerOptions>

+ 11 - 9
TurboBird.lpr

@@ -1,9 +1,9 @@
 {***************************************************************************}
 {***************************************************************************}
 {  TurboBird: FireBird database administration and management tool          }
 {  TurboBird: FireBird database administration and management tool          }
 {  Developed by: Motaz Abdel Azeem http://code.sd/                          }
 {  Developed by: Motaz Abdel Azeem http://code.sd/                          }
-{  Start development:  5.Dec.2009                                           }
-{  Last updated     :  2.May.2012                                           }
-{  License          : GPL for GUI, LGPL for Units                           }
+{  Start development :  5.Dec.2009                                          }
+{  Last updated      : 12.May.2012                                          }
+{  License           : GPL for GUI, LGPL for Units                          }
 {***************************************************************************}
 {***************************************************************************}
 
 
 program TurboBird;
 program TurboBird;
@@ -15,15 +15,16 @@ uses
   cthreads,
   cthreads,
   {$ENDIF}{$ENDIF}
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Interfaces, // this includes the LCL widgetset
-  Forms, Controls, memdslaz, main, createdb, Reg, QueryWindow,
-  ViewView, ViewTrigger, ViewSProc, ViewGen, NewTable, NewGen, EnterPass, About,
-  CreateTrigger, EditTable, CallProc, EditDataFullRec,
-  UDFInfo, ViewDomain, NewDomain, SysTables, NewConstraint, NewEditField, Calen, Scriptdb,
+  Forms, Controls, memdslaz, main, createdb, Reg, QueryWindow, ViewView,
+  ViewTrigger, ViewSProc, ViewGen, NewTable, NewGen, EnterPass, About,
+  CreateTrigger, EditTable, CallProc, EditDataFullRec, UDFInfo, ViewDomain,
+  NewDomain, SysTables, NewConstraint, NewEditField, Calen, Scriptdb,
   UserPermissions, TableManage, BackupRestore, CreateUser, ChangePass,
   UserPermissions, TableManage, BackupRestore, CreateUser, ChangePass,
-  PermissionManage, SQLHistory, CopyTable, dynlibs, ibase60dyn, dbInfo, sysutils;
+  PermissionManage, SQLHistory, CopyTable, dynlibs, ibase60dyn, dbInfo,
+  sysutils, Comparison;
 
 
 const
 const
-  Version = '0.9.2';
+  Version = '0.9.3';
   VersionDate = '2010 - May 2012';
   VersionDate = '2010 - May 2012';
 {$IFDEF Unix}
 {$IFDEF Unix}
 {$DEFINE extdecl:=cdecl}
 {$DEFINE extdecl:=cdecl}
@@ -82,6 +83,7 @@ begin
   fmMain.VersionDate:= VersionDate;
   fmMain.VersionDate:= VersionDate;
   SAbout.Free;
   SAbout.Free;
   InitialiseIBase60;
   InitialiseIBase60;
+  Application.CreateForm(TfmComparison, fmComparison);
   Application.Run;
   Application.Run;
   ReleaseIBase60;
   ReleaseIBase60;
 
 

+ 9 - 5
main.lfm

@@ -5,7 +5,7 @@ object fmMain: TfmMain
   Width = 1024
   Width = 1024
   ActiveControl = tvMain
   ActiveControl = tvMain
   Caption = 'TurboBird Admin for FireBird'
   Caption = 'TurboBird Admin for FireBird'
-  ClientHeight = 615
+  ClientHeight = 617
   ClientWidth = 1024
   ClientWidth = 1024
   Color = clWhite
   Color = clWhite
   Font.Name = 'Sans'
   Font.Name = 'Sans'
@@ -17,7 +17,7 @@ object fmMain: TfmMain
   LCLVersion = '0.9.31'
   LCLVersion = '0.9.31'
   object tvMain: TTreeView
   object tvMain: TTreeView
     Left = 0
     Left = 0
-    Height = 615
+    Height = 617
     Top = 0
     Top = 0
     Width = 360
     Width = 360
     Align = alLeft
     Align = alLeft
@@ -37,14 +37,14 @@ object fmMain: TfmMain
   end
   end
   object Splitter1: TSplitter
   object Splitter1: TSplitter
     Left = 360
     Left = 360
-    Height = 615
+    Height = 617
     Top = 0
     Top = 0
     Width = 14
     Width = 14
     Beveled = True
     Beveled = True
   end
   end
   object PageControl1: TPageControl
   object PageControl1: TPageControl
     Left = 377
     Left = 377
-    Height = 608
+    Height = 610
     Top = 3
     Top = 3
     Width = 644
     Width = 644
     ActivePage = TabSheet1
     ActivePage = TabSheet1
@@ -64,7 +64,7 @@ object fmMain: TfmMain
     object TabSheet1: TTabSheet
     object TabSheet1: TTabSheet
       BorderWidth = 1
       BorderWidth = 1
       Caption = 'Main'
       Caption = 'Main'
-      ClientHeight = 578
+      ClientHeight = 580
       ClientWidth = 640
       ClientWidth = 640
       Font.Color = clNavy
       Font.Color = clNavy
       Font.Name = 'Arial'
       Font.Name = 'Arial'
@@ -1523,6 +1523,10 @@ object fmMain: TfmMain
       Caption = 'Sweep DB'
       Caption = 'Sweep DB'
       OnClick = lmSweepClick
       OnClick = lmSweepClick
     end
     end
+    object lmCompare: TMenuItem
+      Caption = 'Compare with another database'
+      OnClick = lmCompareClick
+    end
     object lmDBIndo: TMenuItem
     object lmDBIndo: TMenuItem
       Caption = 'Database Info'
       Caption = 'Database Info'
       OnClick = lmDBIndoClick
       OnClick = lmDBIndoClick

+ 237 - 236
main.lrs

@@ -3,26 +3,26 @@
 LazarusResources.Add('TfmMain','FORMDATA',[
 LazarusResources.Add('TfmMain','FORMDATA',[
   'TPF0'#7'TfmMain'#6'fmMain'#4'Left'#3':'#1#6'Height'#3#128#2#3'Top'#3#197#0#5
   'TPF0'#7'TfmMain'#6'fmMain'#4'Left'#3':'#1#6'Height'#3#128#2#3'Top'#3#197#0#5
   +'Width'#3#0#4#13'ActiveControl'#7#6'tvMain'#7'Caption'#6#28'TurboBird Admin '
   +'Width'#3#0#4#13'ActiveControl'#7#6'tvMain'#7'Caption'#6#28'TurboBird Admin '
-  +'for FireBird'#12'ClientHeight'#3'g'#2#11'ClientWidth'#3#0#4#5'Color'#7#7'cl'
+  +'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'
   +'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'
   +'rmActivate'#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10'FormCreate'#8'Positi'
   +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.31'#0#9'TTreeView'#6'tvMain'
   +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.31'#0#9'TTreeView'#6'tvMain'
-  +#4'Left'#2#0#6'Height'#3'g'#2#3'Top'#2#0#5'Width'#3'h'#1#5'Align'#7#6'alLeft'
+  +#4'Left'#2#0#6'Height'#3'i'#2#3'Top'#2#0#5'Width'#3'h'#1#5'Align'#7#6'alLeft'
   +#15'BackgroundColor'#7#7'clWhite'#5'Color'#7#7'clCream'#13'HideSelection'#8#6
   +#15'BackgroundColor'#7#7'clWhite'#5'Color'#7#7'clCream'#13'HideSelection'#8#6
   +'Images'#7#10'ImageList1'#6'Indent'#2#25#8'ReadOnly'#9#16'RightClickSelect'#9
   +'Images'#7#10'ImageList1'#6'Indent'#2#25#8'ReadOnly'#9#16'RightClickSelect'#9
   +#9'ShowLines'#8#8'TabOrder'#2#0#10'OnDblClick'#7#14'tvMainDblClick'#10'OnExp'
   +#9'ShowLines'#8#8'TabOrder'#2#0#10'OnDblClick'#7#14'tvMainDblClick'#10'OnExp'
   +'anded'#7#14'tvMainExpanded'#7'Options'#11#17'tvoAutoItemHeight'#21'tvoKeepC'
   +'anded'#7#14'tvMainExpanded'#7'Options'#11#17'tvoAutoItemHeight'#21'tvoKeepC'
   +'ollapsedNodes'#11'tvoReadOnly'#19'tvoRightClickSelect'#14'tvoShowButtons'#11
   +'ollapsedNodes'#11'tvoReadOnly'#19'tvoRightClickSelect'#14'tvoShowButtons'#11
   +'tvoShowRoot'#11'tvoToolTips'#0#15'ExpandSignColor'#7#8'clMaroon'#0#0#9'TSpl'
   +'tvoShowRoot'#11'tvoToolTips'#0#15'ExpandSignColor'#7#8'clMaroon'#0#0#9'TSpl'
-  +'itter'#9'Splitter1'#4'Left'#3'h'#1#6'Height'#3'g'#2#3'Top'#2#0#5'Width'#2#14
+  +'itter'#9'Splitter1'#4'Left'#3'h'#1#6'Height'#3'i'#2#3'Top'#2#0#5'Width'#2#14
   +#7'Beveled'#9#0#0#12'TPageControl'#12'PageControl1'#4'Left'#3'y'#1#6'Height'
   +#7'Beveled'#9#0#0#12'TPageControl'#12'PageControl1'#4'Left'#3'y'#1#6'Height'
-  +#3'`'#2#3'Top'#2#3#5'Width'#3#132#2#10'ActivePage'#7#9'TabSheet1'#5'Align'#7
+  +#3'b'#2#3'Top'#2#3#5'Width'#3#132#2#10'ActivePage'#7#9'TabSheet1'#5'Align'#7
   +#8'alClient'#18'BorderSpacing.Left'#2#1#17'BorderSpacing.Top'#2#1#19'BorderS'
   +#8'alClient'#18'BorderSpacing.Left'#2#1#17'BorderSpacing.Top'#2#1#19'BorderS'
   +'pacing.Right'#2#1#20'BorderSpacing.Bottom'#2#2#20'BorderSpacing.Around'#2#2
   +'pacing.Right'#2#1#20'BorderSpacing.Bottom'#2#2#20'BorderSpacing.Around'#2#2
   +#25'BorderSpacing.InnerBorder'#2#1#9'Font.Name'#6#4'Sans'#10'ParentFont'#8#8
   +#25'BorderSpacing.InnerBorder'#2#1#9'Font.Name'#6#4'Sans'#10'ParentFont'#8#8
   +'TabIndex'#2#0#8'TabOrder'#2#2#17'OnCloseTabClicked'#7#27'PageControl1CloseT'
   +'TabIndex'#2#0#8'TabOrder'#2#2#17'OnCloseTabClicked'#7#27'PageControl1CloseT'
   +'abClicked'#7'Options'#11#20'nboHidePageListPopup'#0#0#9'TTabSheet'#9'TabShe'
   +'abClicked'#7'Options'#11#20'nboHidePageListPopup'#0#0#9'TTabSheet'#9'TabShe'
-  +'et1'#11'BorderWidth'#2#1#7'Caption'#6#4'Main'#12'ClientHeight'#3'B'#2#11'Cl'
+  +'et1'#11'BorderWidth'#2#1#7'Caption'#6#4'Main'#12'ClientHeight'#3'D'#2#11'Cl'
   +'ientWidth'#3#128#2#10'Font.Color'#7#6'clNavy'#9'Font.Name'#6#5'Arial'#10'Pa'
   +'ientWidth'#3#128#2#10'Font.Color'#7#6'clNavy'#9'Font.Name'#6#5'Arial'#10'Pa'
   +'rentFont'#8#0#7'TBitBtn'#11'bbRestoreDB'#4'Left'#2#3#6'Height'#2']'#3'Top'#3
   +'rentFont'#8#0#7'TBitBtn'#11'bbRestoreDB'#4'Left'#2#3#6'Height'#2']'#3'Top'#3
   +#216#0#5'Width'#3#208#0#7'Caption'#6#16'Restore Database'#5'Color'#7#7'clCre'
   +#216#0#5'Width'#3#208#0#7'Caption'#6#16'Restore Database'#5'Color'#7#7'clCre'
@@ -2104,235 +2104,236 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#16'lmScriptDatabase'#7'Caption'#6#16'Script Database '#7'OnClick'#7#21'lmSc'
   +#16'lmScriptDatabase'#7'Caption'#6#16'Script Database '#7'OnClick'#7#21'lmSc'
   +'riptDatabaseClick'#0#0#9'TMenuItem'#8'lmBackup'#7'Caption'#6#23'Backup/Rest'
   +'riptDatabaseClick'#0#0#9'TMenuItem'#8'lmBackup'#7'Caption'#6#23'Backup/Rest'
   +'ore Database'#7'OnClick'#7#13'lmBackupClick'#0#0#9'TMenuItem'#7'lmSweep'#7
   +'ore Database'#7'OnClick'#7#13'lmBackupClick'#0#0#9'TMenuItem'#7'lmSweep'#7
-  +'Caption'#6#8'Sweep DB'#7'OnClick'#7#12'lmSweepClick'#0#0#9'TMenuItem'#8'lmD'
-  +'BIndo'#7'Caption'#6#13'Database Info'#7'OnClick'#7#13'lmDBIndoClick'#0#0#9
-  +'TMenuItem'#9'MenuItem8'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'lmEditReg'#7'C'
-  +'aption'#6#17'Edit Registration'#7'OnClick'#7#14'lmEditRegClick'#0#0#9'TMenu'
-  +'Item'#20'lmUnregisterDatabase'#7'Caption'#6#19'Unregister Database'#7'OnCli'
-  +'ck'#7#25'lmUnregisterDatabaseClick'#0#0#9'TMenuItem'#15'lmViewFirst1000'#3
-  +'Tag'#2#1#7'Caption'#6#23'View First 1000 records'#7'OnClick'#7#20'lmViewFir'
-  +'st1000Click'#0#0#9'TMenuItem'#10'lmNewTable'#3'Tag'#2#11#7'Caption'#6#9'New'
-  +' Table'#7'OnClick'#7#15'lmNewTableClick'#0#0#9'TMenuItem'#11'lmEditTable'#3
-  ,'Tag'#2#1#7'Caption'#6#16'Edit Data (Grid)'#7'OnClick'#7#16'lmEditTableClick'
-  +#0#0#9'TMenuItem'#14'lmEditDataForm'#3'Tag'#2#1#7'Caption'#6#16'Edit Data (F'
-  +'orm)'#7'OnClick'#7#19'lmEditDataFormClick'#0#0#9'TMenuItem'#12'lmViewFields'
-  +#3'Tag'#2#1#7'Caption'#6#13'Expand Fields'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0
-  +#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0
-  +#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0'-//'#0'***'#0' !!'#0' !!'#0#30#31#31
-  +#0#21#23#23#0#16#17#17#0#14#16#16#0#4#6#6#0#0#0#0#0#0#0#0#0#0#0#0'3LGG'#236
-  +';77'#190#0#0#0#25#1#1#1#0'-//'#0'***'#0' !!'#0' !!'#0#30#31#31#0#21#23#23#0
-  +#16#17#17#0#14#16#16#0#4#6#6#0#0#0#0#0#0#0#0'9RMM'#233#242#231#231#255#218
-  +#208#208#255'/--'#194#0#0#0#25'-//'#0'***'#0' !!'#0' !!'#0#30#31#31#0#21#23
-  +#23#0#16#17#17#0#14#16#16#0#3#4#4#0#0#0#0';XRR'#231#234#223#223#255#236#226
-  +#226#255#230#217#217#255#220#213#213#255'A>>'#196'-//'#0'***'#0' !!'#0' !!'#0
-  +#30#31#31#0#21#23#23#0#16#17#17#0#12#15#15#0#0#1#1'6TNN'#236#233#220#220#255
-  +#245#237#237#255#225#216#216#255#228#217#217#255#252#247#247#255'YWW'#238'-/'
-  +'/'#0'***'#0' !!'#0' !!'#0#30#31#31#0#21#23#23#0#14#16#16#0#8#9#9'5[UU'#236
-  +#235#228#228#255#245#237#237#255#234#226#226#255#251#248#248#255#246#244#244
-  +#255'_ZZ'#236#4#6#6'8-//'#0'***'#0' !!'#0' !!'#0#30#31#31#0#19#21#21#0#9#10
-  +#10'6ZTT'#232#235#230#230#255#255#255#255#255#248#246#246#255#250#246#246#255
-  +#242#239#239#255'fbb'#231#0#0#0';'#4#7#7#0'-//'#0'***'#0#30#31#31#0#25#27#27
-  +'%'#19#21#21'A'#11#14#14'\a[['#229#238#232#232#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#241#238#238#255'f``'#233#9#9#9'9'#1#2#2#0#6#8#8#0'-'
-  +'//'#0'$%%'#31'644'#171'rjj'#231#138#129#129#240#135'~~'#249#224#214#214#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#239#235#235#255'gcc'#236#15
-  +#15#15'3'#16#17#17#0#3#4#4#0#6#8#8#0'&))'#29'RMM'#211#199#184#184#255#241#229
-  +#229#255#249#241#241#255#251#244#244#255#236#229#229#255#236#229#229#255#255
-  +#255#255#255#242#237#237#255'jee'#235#21#22#22'7'#17#19#19#0#18#18#18#0#3#4#4
-  +#0#6#8#8#0'?>>'#154#188#175#175#255#233#218#218#255#233#221#221#255#244#234
-  +#234#255#243#238#238#255#246#244#244#255#238#231#231#255#230#223#223#255'okk'
-  +#224#25#25#25';'#24#26#26#0#19#21#21#0#18#18#18#0#3#4#4#0#6#8#8#0'pjj'#238
-  +#220#201#201#255#221#205#205#255#189#175#175#255#159#149#149#255#223#212#212
-  +#255#243#239#239#255#251#246#246#255#146#137#137#244#28#30#30'T'#28#29#29#0
-  +#23#25#25#0#16#18#18#0#15#15#15#0#0#0#0#0#2#4#4#0#133'||'#247#239#220#220#255
-  +#192#178#178#255'LJJ'#181'&((o'#162#153#153#255#244#235#235#255#248#241#241
-  +#255#150#142#142#242'-//A566'#0'355'#0'244'#0'233'#0'011'#0'011'#0'wpp'#236
-  +#200#186#186#255'XUU'#176'.//'#30'SOO'#178#192#180#180#255#232#220#220#255
-  +#240#231#231#255#133'}}'#235'355'':;;'#0':;;'#0':;;'#0':;;'#0':<<'#0':;;'#0
-  +'PNNtURR'#156';<<-XVV'#178#192#176#176#255#222#204#204#255#232#218#218#255
-  +#206#193#193#255'PNN'#170'>AA'#0'?BB'#0'?BB'#0'?BB'#0'?BB'#0'?BB'#0'?BB'#0'H'
-  +'GG'#0'CAA'#0'VQQ'#156#197#183#183#255#239#221#221#255#222#203#203#255#196
-  +#183#183#255'd``'#212':<<'#29'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'
-  +#0'IHH'#0'FHH'#0'PNNvxpp'#231#137#130#130#247'yrr'#236'MKK'#152';<<'#28'>@@'
-  +#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0#7'OnClick'#7#17'lmViewFi'
-  +'eldsClick'#0#0#9'TMenuItem'#9'MenuItem7'#3'Tag'#2#1#7'Caption'#6#1'-'#0#0#9
-  +'TMenuItem'#13'lmTableManage'#3'Tag'#2#1#7'Caption'#6#16'Table Management'#11
-  +'Bitmap.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0
-  +#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#247
-  +#247#247#253#255#255#248#255#255#234#245#243#250#255#255#242#244#244#255#250
-  +#251#252#244#245#252#244#245#254#249#250#249#251#251#238#246#245#243#251#250
-  +#248#255#255#253#255#255#252#252#252#254#254#254#236#238#238'8=<4:99>=KKK612'
-  +'GAB;56FAB===165=CB).-'#245#247#247#254#254#254#254#255#253#255#255#254'CA@'
-  +#245#243#242#250#248#247#253#251#250#255#255#254#247#248#246#253#254#252#241
-  +#239#238#253#251#250#255#255#254#244#242#241'ECB'#255#255#254#255#255#254#254
-  +#252#251#253#249#248';33'#255#254#254'F>>'#254#250#249'364'#240#245#243'497E'
-  +'HF'#243#239#238'@88'#255#250#250'?77'#255#251#250#248#246#245#255#252#248
-  +#255#252#249'E97'#255#254#252#254#242#240#255#252#249#248#254#249#248#255#252
-  +#238#248#242#247#253#248#255#254#251#255#252#250#255#246#244'YMK'#255#255#252
-  +#254#251#247#255#255#254#246#244#243'MHG'#239#234#233'GED'#247#252#250'.=9$8'
-  +'3/C>'#231#246#242'8=;@>='#247#242#241'=87'#254#252#251#251#252#250#243#251
-  +#250#246#255#255'-:8'#236#250#248#239#255#255#225#250#246#228#255#255#222#255
-  +#252#217#253#247#222#254#249#229#254#250#236#255#252#237#251#249'0=;'#246#255
-  +#255#238#249#247#246#255#255#237#250#252'w'#140#141#227#255#255'l'#142#141
-  +#216#253#251'l'#147#145#212#251#249'f'#141#139'n'#149#147'g'#140#138'n'#144
-  +#143#217#245#245#127#148#149#235#248#250#246#255#255#255#253#255#236#242#247
-  +#127#150#152#215#251#251#210#252#251#219#255#255#224#255#255#221#251#252#221
-  ,#251#252#220#254#254#216#255#255#215#255#255#214#250#250'u'#140#142#248#254
-  +#255#242#240#246#255#249#255#249#251#255'l'#133#137#216#255#255'^'#140#141'k'
-  +#148#150'k'#134#138#232#252#255'y'#141#146't'#143#147#211#252#254'd'#146#147
-  +#207#246#248'v'#143#147#244#246#254#255#251#255#255#249#255#242#241#251'x'
-  +#146#152#196#239#242#210#255#255#214#255#255#224#246#252#242#253#255#240#251
-  +#255#225#247#253#218#255#255#206#254#255#214#255#255'n'#136#142#249#248#255
-  +#251#234#247#255#248#255#243#249#255'l'#138#143#212#255#255']'#144#146'V'#132
-  +#133#131#153#159'y'#135#141#234#245#253'w'#144#148'_'#138#141'X'#140#140#205
-  +#253#255'o'#144#147#249#251#255#255#251#255#246#254#255#236#255#255'^'#135
-  +#137#201#255#255#194#254#253#202#255#252#225#255#255#224#249#251#234#255#255
-  +#224#255#255#195#247#247#202#255#255#205#255#255'Z'#134#133#237#255#255#231
-  +#240#244#229#238#241#239#255#255'o'#148#146']'#140#137'h'#154#150'u'#160#157
-  +'_{{}'#145#146'v'#138#139'g'#131#131'k'#150#147'i'#155#151'W'#134#131'e'#138
-  +#136#239#255#255#246#255#255#255#253#255#242#241#243#238#250#250#231#252#250
-  +#230#252#250#237#253#252#250#255#255#240#242#243#251#253#254#248#253#254#239
-  +#255#254#230#252#250#233#254#252#244#255#255#239#238#240#255#251#254#255#246
-  +#248#255#250#251#254#254#254#247#253#252#246#254#253#241#246#245#255#254#255
-  +#255#252#253#255#254#255#255#254#255#251#255#255#240#248#247#244#250#249#250
-  +#252#252#255#247#249#255#253#255#7'OnClick'#7#18'lmTableManageClick'#0#0#9'T'
-  +'MenuItem'#13'lmScriptTable'#3'Tag'#2#1#7'Caption'#6#15'Script Table As'#0#9
-  +'TMenuItem'#19'lmScriptTableCreate'#7'Caption'#6#6'Create'#7'OnClick'#7#24'l'
-  +'mScriptTableCreateClick'#0#0#9'TMenuItem'#14'lmScriptInsert'#7'Caption'#6#6
-  +'Insert'#7'OnClick'#7#19'lmScriptInsertClick'#0#0#9'TMenuItem'#14'lmScriptUp'
-  +'date'#7'Caption'#6#6'Update'#7'OnClick'#7#19'lmScriptUpdateClick'#0#0#0#9'T'
-  +'MenuItem'#11'lmCopyTable'#3'Tag'#2#1#7'Caption'#6#10'Copy Table'#7'OnClick'
-  +#7#16'lmCopyTableClick'#0#0#9'TMenuItem'#9'lmViewGen'#3'Tag'#2#2#7'Caption'#6
-  +#14'View Generator'#7'OnClick'#7#14'lmViewGenClick'#0#0#9'TMenuItem'#8'lmSet'
-  +'Gen'#3'Tag'#2#2#7'Caption'#6#19'Set Generator Value'#7'OnClick'#7#13'lmSetG'
-  +'enClick'#0#0#9'TMenuItem'#8'lmNewGen'#3'Tag'#2#12#7'Caption'#6#20'Create Ne'
-  +'w Generator'#7'OnClick'#7#13'lmNewGenClick'#0#0#9'TMenuItem'#15'lmCreateAut'
-  +'oInc'#3'Tag'#2#2#7'Caption'#6#29'Create Auto increment Trigger'#7'OnClick'#7
-  +#20'lmCreateAutoIncClick'#0#0#9'TMenuItem'#14'lmDisplay1000V'#3'Tag'#2#4#7'C'
-  +'aption'#6#23'View First 1000 records'#7'OnClick'#7#19'lmDisplay1000VClick'#0
-  +#0#9'TMenuItem'#13'lmDisplayView'#3'Tag'#2#4#7'Caption'#6#16'Display View DD'
-  +'L'#7'OnClick'#7#18'lmDisplayViewClick'#0#0#9'TMenuItem'#12'lmCreateView'#3
-  +'Tag'#2#14#7'Caption'#6#15'Create New View'#7'OnClick'#7#17'lmCreateViewClic'
-  +'k'#0#0#9'TMenuItem'#10'lmEditView'#3'Tag'#2#4#7'Caption'#6#9'Edit View'#7'O'
-  +'nClick'#7#15'lmEditViewClick'#0#0#9'TMenuItem'#18'lmCreateStoredProc'#3'Tag'
-  +#2#15#7'Caption'#6#27'Create New Stored Procedure'#7'OnClick'#7#23'lmCreateS'
-  +'toredProcClick'#0#0#9'TMenuItem'#15'lmCallStoreProc'#3'Tag'#2#5#7'Caption'#6
-  +#14'Call procedure'#7'OnClick'#7#20'lmCallStoreProcClick'#0#0#9'TMenuItem'#21
-  +'lmViewStoredProcedure'#3'Tag'#2#5#7'Caption'#6#21'View Stored Procedure'#7
-  +'OnClick'#7#26'lmViewStoredProcedureClick'#0#0#9'TMenuItem'#10'lmEditProc'#3
-  +'Tag'#2#5#7'Caption'#6#21'Edit Stored Procedure'#7'OnClick'#7#15'lmEditProcC'
-  +'lick'#0#0#9'TMenuItem'#13'lmViewTrigger'#3'Tag'#2#3#7'Caption'#6#12'View Tr'
-  +'igger'#7'OnClick'#7#18'lmViewTriggerClick'#0#0#9'TMenuItem'#15'lmCreateTrig'
-  +'ger'#3'Tag'#2#13#7'Caption'#6#18'Create New Trigger'#7'OnClick'#7#20'lmCrea'
-  +'teTriggerClick'#0#0#9'TMenuItem'#13'lmEditTrigger'#3'Tag'#2#3#7'Caption'#6
-  +#12'Edit Trigger'#7'OnClick'#7#18'lmEditTriggerClick'#0#0#9'TMenuItem'#14'lm'
-  +'ActivateTrig'#3'Tag'#2#3#7'Caption'#6#16'Activate Trigger'#7'OnClick'#7#19
-  +'lmActivateTrigClick'#0#0#9'TMenuItem'#14'lmDeactiveTrig'#3'Tag'#2#3#7'Capti'
-  +'on'#6#18'DeActivate Trigger'#7'OnClick'#7#19'lmDeactiveTrigClick'#0#0#9'TMe'
-  +'nuItem'#8'lmNewUDF'#3'Tag'#2#16#7'Caption'#6#19'Create new function'#7'OnCl'
-  +'ick'#7#13'lmNewUDFClick'#0#0#9'TMenuItem'#9'lmViewUDF'#3'Tag'#2#6#7'Caption'
-  +#6#13'View Function'#7'OnClick'#7#14'lmViewUDFClick'#0#0#9'TMenuItem'#17'lmO'
-  +'penSystemTable'#3'Tag'#2#7#7'Caption'#6#10'Open Table'#7'OnClick'#7#22'lmOp'
-  +'enSystemTableClick'#0#0#9'TMenuItem'#11'lmNewDomain'#3'Tag'#2#18#7'Caption'
-  +#6#10'New Domain'#7'OnClick'#7#16'lmNewDomainClick'#0#0#9'TMenuItem'#12'lmVi'
-  +'ewDomain'#3'Tag'#2#8#7'Caption'#6#11'Domain Info'#7'OnClick'#7#17'lmViewDom'
-  +'ainClick'#0#0#9'TMenuItem'#9'lmNewRole'#3'Tag'#2#19#7'Caption'#6#12'Add New'
-  +' Role'#7'OnClick'#7#14'lmNewRoleClick'#0#0#9'TMenuItem'#17'lmRolePermission'
-  +'s'#3'Tag'#2#9#7'Caption'#6#16'Show permissions'#7'OnClick'#7#22'lmRolePermi'
-  +'ssionsClick'#0#0#9'TMenuItem'#19'lmRolePerManagement'#3'Tag'#2#9#7'Caption'
-  +#6#21'Permission Management'#11'Bitmap.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0#0
-  ,#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0'd'#0#0
-  +#0'd'#0#0#0#0#0#0#0#0#0#0#0#252#253#249#255#255#252#255#255#252#252#253#249
-  +#255#255#252#252#253#249#255#255#252#251#252#248#255#255#252#247#248#244#255
-  +#255#252#255#255#252#254#255#251#255#255#252#253#254#250#255#255#252#255#255
-  +#252#255#255#252#242#243#239#255#255#252#255#255#252#250#251#247#250#251#247
-  +#255#255#252#255#255#252#250#251#247#255#255#252#249#250#246#247#248#244#250
-  +#251#247#255#255#252#253#254#250#251#253#247#255#255#251#253#255#249#254#255
-  +#250#252#254#248#255#255#251#255#255#251#249#251#245#253#255#249#255#255#251
-  +#254#255#250#255#255#251#255#255#251#255#255#251#253#255#249#255#255#251'xzt'
-  +'wys'#135#137#131'~'#128'zkmg'#131#133#127'oqkxzt{}w'#130#132'~uwqprl{}wvxrz'
-  +'|vvxr~'#129'x'#250#253#244#246#249#240#245#248#239#255#255#249#245#248#239
-  +#255#255#249#252#255#246#248#251#242#247#250#241#255#255#249#245#248#239#255
-  +#255#249#255#255#249#246#249#240'~'#129'xwzq'#254#255#248#255#255#249'TWNMPG'
-  +#250#253#244'ORIBE<'#255#255#249#252#255#246#255#255#249#255#255#249#239#242
-  +#233#255#255#249#255#255#249'psjvyp'#255#255#249#247#250#241#255#255#249#255
-  +#255#249#255#255#249#248#251#242#255#255#249#248#251#242#254#255#248#252#255
-  +#246#255#255#249#255#255#249#255#255#249#249#252#243#128#131'z{~u'#249#252
-  +#243'MPG'#254#255#248'FI@JMDNQHFI@KNEQTKKNEDG>'#255#255#249#255#255#249#255
-  +#255#249'twn'#128#131'z'#249#252#243#255#255#249#255#255#249#255#255#249#252
-  +#255#246#255#255#249#251#254#245#254#255#248#247#250#241#255#255#249#248#251
-  +#242#255#255#249#254#255#248#246#249#240'{~uuxo'#255#255#249'EH?'#246#249#240
-  +'PSJJMDFI@QTKGJAUXO@C:RUL'#247#250#241#253#255#247#255#255#249'vypwzq'#255
-  +#255#249#255#255#249#255#255#249#255#255#249#252#255#246#250#253#244#251#254
-  +#245#255#255#249#255#255#249#249#252#243#254#255#248#255#255#249#249#252#243
-  +#252#255#246'twn}'#128'w'#251#254#245#252#255#246#247#250#241#255#255#249#255
-  +#255#249#255#255#249#255#255#249#252#255#246#255#255#249#255#255#249#255#255
-  +#249#249#252#243#255#255#249'~'#129'xz}t|~xnpj{}w'#128#130'|qsmwysvxrz|v'#128
-  +#130'|}'#127'yjlf'#128#130'|vxrqsmuwquwq'#255#255#251#246#248#242#255#255#251
-  +#254#255#250#253#255#249#255#255#251#255#255#251#249#251#245#255#255#251#247
-  +#249#243#253#255#249#252#254#248#255#255#251#255#255#251#253#255#249#255#255
-  +#251#248#249#245#255#255#252#255#255#252#249#250#246#255#255#252#255#255#252
-  +#247#248#244#255#255#252#250#251#247#255#255#252#255#255#252#254#255#251#250
-  +#251#247#255#255#252#249#250#246#255#255#252#255#255#252#253#254#250#255#255
-  +#252#254#255#251#255#255#252#252#253#249#255#255#252#252#253#249#255#255#252
-  +#247#248#244#255#255#252#253#254#250#254#255#251#255#255#252#255#255#252#251
-  +#252#248#7'OnClick'#7#24'lmRolePerManagementClick'#0#0#9'TMenuItem'#20'lmCop'
-  +'yRolePermission'#3'Tag'#2#9#7'Caption'#6#23'Copy Role permission to'#7'OnCl'
-  +'ick'#7#25'lmCopyRolePermissionClick'#0#0#9'TMenuItem'#14'lmNewException'#3
-  +'Tag'#2#20#7'Caption'#6#17'Add New Exception'#7'OnClick'#7#19'lmNewException'
-  +'Click'#0#0#9'TMenuItem'#17'lmScriptException'#3'Tag'#2#10#7'Caption'#6#6'Sc'
-  +'ript'#7'OnClick'#7#22'lmScriptExceptionClick'#0#0#9'TMenuItem'#15'lmDropExc'
-  +'eption'#3'Tag'#2#10#7'Caption'#6#4'Drop'#7'OnClick'#7#20'lmDropExceptionCli'
-  +'ck'#0#0#9'TMenuItem'#9'lmAddUser'#3'Tag'#2#21#7'Caption'#6#15'Create New Us'
-  +'er'#7'OnClick'#7#14'lmAddUserClick'#0#0#9'TMenuItem'#16'lmChangePassword'#3
-  +'Tag'#2'o'#7'Caption'#6#15'Change password'#7'OnClick'#7#21'lmChangePassword'
-  +'Click'#0#0#9'TMenuItem'#13'lmPermissions'#3'Tag'#2'o'#7'Caption'#6#16'Show '
-  +'Permissions'#7'OnClick'#7#18'lmPermissionsClick'#0#0#9'TMenuItem'#20'lmUser'
-  +'PermManagement'#3'Tag'#2'o'#7'Caption'#6#21'Permission Management'#11'Bitma'
-  +'p.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0
-  +#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#252#253
-  +#249#255#255#252#255#255#252#252#253#249#255#255#252#252#253#249#255#255#252
-  +#251#252#248#255#255#252#247#248#244#255#255#252#255#255#252#254#255#251#255
-  +#255#252#253#254#250#255#255#252#255#255#252#255#255#252#242#243#239#255#255
-  +#252#255#255#252#250#251#247#250#251#247#255#255#252#255#255#252#250#251#247
-  +#255#255#252#249#250#246#247#248#244#250#251#247#255#255#252#253#254#250#251
-  +#253#247#255#255#251#253#255#249#254#255#250#252#254#248#255#255#251#255#255
-  +#251#249#251#245#253#255#249#255#255#251#254#255#250#255#255#251#255#255#251
-  +#255#255#251#253#255#249#255#255#251'xztwys'#135#137#131'~'#128'zkmg'#131#133
-  +#127'oqkxzt{}w'#130#132'~uwqprl{}wvxrz|vvxr~'#129'x'#250#253#244#246#249#240
-  +#245#248#239#255#255#249#245#248#239#255#255#249#252#255#246#248#251#242#247
-  +#250#241#255#255#249#245#248#239#255#255#249#255#255#249#246#249#240'~'#129
-  +'xwzq'#254#255#248#255#255#249'TWNMPG'#250#253#244'ORIBE<'#255#255#249#252
-  +#255#246#255#255#249#255#255#249#239#242#233#255#255#249#255#255#249'psjvyp'
-  +#255#255#249#247#250#241#255#255#249#255#255#249#255#255#249#248#251#242#255
-  ,#255#249#248#251#242#254#255#248#252#255#246#255#255#249#255#255#249#255#255
-  +#249#249#252#243#128#131'z{~u'#249#252#243'MPG'#254#255#248'FI@JMDNQHFI@KNEQ'
-  +'TKKNEDG>'#255#255#249#255#255#249#255#255#249'twn'#128#131'z'#249#252#243
-  +#255#255#249#255#255#249#255#255#249#252#255#246#255#255#249#251#254#245#254
-  +#255#248#247#250#241#255#255#249#248#251#242#255#255#249#254#255#248#246#249
-  +#240'{~uuxo'#255#255#249'EH?'#246#249#240'PSJJMDFI@QTKGJAUXO@C:RUL'#247#250
-  +#241#253#255#247#255#255#249'vypwzq'#255#255#249#255#255#249#255#255#249#255
-  +#255#249#252#255#246#250#253#244#251#254#245#255#255#249#255#255#249#249#252
-  +#243#254#255#248#255#255#249#249#252#243#252#255#246'twn}'#128'w'#251#254#245
-  +#252#255#246#247#250#241#255#255#249#255#255#249#255#255#249#255#255#249#252
-  +#255#246#255#255#249#255#255#249#255#255#249#249#252#243#255#255#249'~'#129
-  +'xz}t|~xnpj{}w'#128#130'|qsmwysvxrz|v'#128#130'|}'#127'yjlf'#128#130'|vxrqsm'
-  +'uwquwq'#255#255#251#246#248#242#255#255#251#254#255#250#253#255#249#255#255
-  +#251#255#255#251#249#251#245#255#255#251#247#249#243#253#255#249#252#254#248
-  +#255#255#251#255#255#251#253#255#249#255#255#251#248#249#245#255#255#252#255
-  +#255#252#249#250#246#255#255#252#255#255#252#247#248#244#255#255#252#250#251
-  +#247#255#255#252#255#255#252#254#255#251#250#251#247#255#255#252#249#250#246
-  +#255#255#252#255#255#252#253#254#250#255#255#252#254#255#251#255#255#252#252
-  +#253#249#255#255#252#252#253#249#255#255#252#247#248#244#255#255#252#253#254
-  +#250#254#255#251#255#255#252#255#255#252#251#252#248#7'OnClick'#7#25'lmUserP'
-  +'ermManagementClick'#0#0#9'TMenuItem'#20'lmCopyUserPermission'#3'Tag'#2'o'#7
-  +'Caption'#6#23'Copy User Permission To'#7'OnClick'#7#25'lmCopyUserPermission'
-  +'Click'#0#0#9'TMenuItem'#11'lmEditField'#3'Tag'#2'p'#7'Caption'#6#10'Edit Fi'
-  +'eld'#7'OnClick'#7#16'lmEditFieldClick'#0#0#0#11'TMemDataset'#10'mdsHistory'
-  +#9'FieldDefs'#14#1#4'Name'#6#4'Time'#8'DataType'#7#10'ftDateTime'#9'Precisio'
-  +'n'#2#0#4'Size'#2#0#0#1#4'Name'#6#7'SQLType'#8'DataType'#7#8'ftString'#9'Pre'
-  +'cision'#2#0#4'Size'#2#6#0#1#4'Name'#6#12'SQLStatement'#8'DataType'#7#8'ftSt'
-  +'ring'#9'Precision'#2#0#4'Size'#3#0#16#0#1#4'Name'#6#8'Reserved'#8'DataType'
-  +#7#9'ftInteger'#9'Precision'#2#0#4'Size'#2#0#0#0#4'left'#3#183#0#3'top'#3'j'
-  +#1#0#0#0
+  +'Caption'#6#8'Sweep DB'#7'OnClick'#7#12'lmSweepClick'#0#0#9'TMenuItem'#9'lmC'
+  +'ompare'#7'Caption'#6#29'Compare with another database'#7'OnClick'#7#14'lmCo'
+  +'mpareClick'#0#0#9'TMenuItem'#8'lmDBIndo'#7'Caption'#6#13'Database Info'#7'O'
+  +'nClick'#7#13'lmDBIndoClick'#0#0#9'TMenuItem'#9'MenuItem8'#7'Caption'#6#1'-'
+  +#0#0#9'TMenuItem'#9'lmEditReg'#7'Caption'#6#17'Edit Registration'#7'OnClick'
+  +#7#14'lmEditRegClick'#0#0#9'TMenuItem'#20'lmUnregisterDatabase'#7'Caption'#6
+  +#19'Unregister Database'#7'OnClick'#7#25'lmUnregisterDatabaseClick'#0#0#9'TM'
+  +'enuItem'#15'lmViewFirst1000'#3'Tag'#2#1#7'Caption'#6#23'View First 1000 rec'
+  +'ords'#7'OnClick'#7#20'lmViewFirst1000Click'#0#0#9'TMenuItem'#10'lmNewTable'
+  ,#3'Tag'#2#11#7'Caption'#6#9'New Table'#7'OnClick'#7#15'lmNewTableClick'#0#0#9
+  +'TMenuItem'#11'lmEditTable'#3'Tag'#2#1#7'Caption'#6#16'Edit Data (Grid)'#7'O'
+  +'nClick'#7#16'lmEditTableClick'#0#0#9'TMenuItem'#14'lmEditDataForm'#3'Tag'#2
+  +#1#7'Caption'#6#16'Edit Data (Form)'#7'OnClick'#7#19'lmEditDataFormClick'#0#0
+  +#9'TMenuItem'#12'lmViewFields'#3'Tag'#2#1#7'Caption'#6#13'Expand Fields'#11
+  +'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0
+  +#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0'-//'
+  +#0'***'#0' !!'#0' !!'#0#30#31#31#0#21#23#23#0#16#17#17#0#14#16#16#0#4#6#6#0#0
+  +#0#0#0#0#0#0#0#0#0#0'3LGG'#236';77'#190#0#0#0#25#1#1#1#0'-//'#0'***'#0' !!'#0
+  +' !!'#0#30#31#31#0#21#23#23#0#16#17#17#0#14#16#16#0#4#6#6#0#0#0#0#0#0#0#0'9R'
+  +'MM'#233#242#231#231#255#218#208#208#255'/--'#194#0#0#0#25'-//'#0'***'#0' !!'
+  +#0' !!'#0#30#31#31#0#21#23#23#0#16#17#17#0#14#16#16#0#3#4#4#0#0#0#0';XRR'#231
+  +#234#223#223#255#236#226#226#255#230#217#217#255#220#213#213#255'A>>'#196'-/'
+  +'/'#0'***'#0' !!'#0' !!'#0#30#31#31#0#21#23#23#0#16#17#17#0#12#15#15#0#0#1#1
+  +'6TNN'#236#233#220#220#255#245#237#237#255#225#216#216#255#228#217#217#255
+  +#252#247#247#255'YWW'#238'-//'#0'***'#0' !!'#0' !!'#0#30#31#31#0#21#23#23#0
+  +#14#16#16#0#8#9#9'5[UU'#236#235#228#228#255#245#237#237#255#234#226#226#255
+  +#251#248#248#255#246#244#244#255'_ZZ'#236#4#6#6'8-//'#0'***'#0' !!'#0' !!'#0
+  +#30#31#31#0#19#21#21#0#9#10#10'6ZTT'#232#235#230#230#255#255#255#255#255#248
+  +#246#246#255#250#246#246#255#242#239#239#255'fbb'#231#0#0#0';'#4#7#7#0'-//'#0
+  +'***'#0#30#31#31#0#25#27#27'%'#19#21#21'A'#11#14#14'\a[['#229#238#232#232#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#241#238#238#255'f``'#233#9#9
+  +#9'9'#1#2#2#0#6#8#8#0'-//'#0'$%%'#31'644'#171'rjj'#231#138#129#129#240#135'~'
+  +'~'#249#224#214#214#255#255#255#255#255#255#255#255#255#255#255#255#255#239
+  +#235#235#255'gcc'#236#15#15#15'3'#16#17#17#0#3#4#4#0#6#8#8#0'&))'#29'RMM'#211
+  +#199#184#184#255#241#229#229#255#249#241#241#255#251#244#244#255#236#229#229
+  +#255#236#229#229#255#255#255#255#255#242#237#237#255'jee'#235#21#22#22'7'#17
+  +#19#19#0#18#18#18#0#3#4#4#0#6#8#8#0'?>>'#154#188#175#175#255#233#218#218#255
+  +#233#221#221#255#244#234#234#255#243#238#238#255#246#244#244#255#238#231#231
+  +#255#230#223#223#255'okk'#224#25#25#25';'#24#26#26#0#19#21#21#0#18#18#18#0#3
+  +#4#4#0#6#8#8#0'pjj'#238#220#201#201#255#221#205#205#255#189#175#175#255#159
+  +#149#149#255#223#212#212#255#243#239#239#255#251#246#246#255#146#137#137#244
+  +#28#30#30'T'#28#29#29#0#23#25#25#0#16#18#18#0#15#15#15#0#0#0#0#0#2#4#4#0#133
+  +'||'#247#239#220#220#255#192#178#178#255'LJJ'#181'&((o'#162#153#153#255#244
+  +#235#235#255#248#241#241#255#150#142#142#242'-//A566'#0'355'#0'244'#0'233'#0
+  +'011'#0'011'#0'wpp'#236#200#186#186#255'XUU'#176'.//'#30'SOO'#178#192#180#180
+  +#255#232#220#220#255#240#231#231#255#133'}}'#235'355'':;;'#0':;;'#0':;;'#0':'
+  +';;'#0':<<'#0':;;'#0'PNNtURR'#156';<<-XVV'#178#192#176#176#255#222#204#204
+  +#255#232#218#218#255#206#193#193#255'PNN'#170'>AA'#0'?BB'#0'?BB'#0'?BB'#0'?B'
+  +'B'#0'?BB'#0'?BB'#0'HGG'#0'CAA'#0'VQQ'#156#197#183#183#255#239#221#221#255
+  +#222#203#203#255#196#183#183#255'd``'#212':<<'#29'?AA'#0'?AA'#0'?AA'#0'?AA'#0
+  +'?AA'#0'?AA'#0'?AA'#0'IHH'#0'FHH'#0'PNNvxpp'#231#137#130#130#247'yrr'#236'MK'
+  +'K'#152';<<'#28'>@@'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0#7'On'
+  +'Click'#7#17'lmViewFieldsClick'#0#0#9'TMenuItem'#9'MenuItem7'#3'Tag'#2#1#7'C'
+  +'aption'#6#1'-'#0#0#9'TMenuItem'#13'lmTableManage'#3'Tag'#2#1#7'Caption'#6#16
+  +'Table Management'#11'Bitmap.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0#0#0#0#0#0'6'
+  +#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0'd'#0#0#0'd'#0#0#0
+  +#0#0#0#0#0#0#0#0#247#247#247#253#255#255#248#255#255#234#245#243#250#255#255
+  +#242#244#244#255#250#251#252#244#245#252#244#245#254#249#250#249#251#251#238
+  +#246#245#243#251#250#248#255#255#253#255#255#252#252#252#254#254#254#236#238
+  +#238'8=<4:99>=KKK612GAB;56FAB===165=CB).-'#245#247#247#254#254#254#254#255
+  +#253#255#255#254'CA@'#245#243#242#250#248#247#253#251#250#255#255#254#247#248
+  +#246#253#254#252#241#239#238#253#251#250#255#255#254#244#242#241'ECB'#255#255
+  +#254#255#255#254#254#252#251#253#249#248';33'#255#254#254'F>>'#254#250#249'3'
+  +'64'#240#245#243'497EHF'#243#239#238'@88'#255#250#250'?77'#255#251#250#248
+  +#246#245#255#252#248#255#252#249'E97'#255#254#252#254#242#240#255#252#249#248
+  +#254#249#248#255#252#238#248#242#247#253#248#255#254#251#255#252#250#255#246
+  +#244'YMK'#255#255#252#254#251#247#255#255#254#246#244#243'MHG'#239#234#233'G'
+  +'ED'#247#252#250'.=9$83/C>'#231#246#242'8=;@>='#247#242#241'=87'#254#252#251
+  +#251#252#250#243#251#250#246#255#255'-:8'#236#250#248#239#255#255#225#250#246
+  +#228#255#255#222#255#252#217#253#247#222#254#249#229#254#250#236#255#252#237
+  +#251#249'0=;'#246#255#255#238#249#247#246#255#255#237#250#252'w'#140#141#227
+  +#255#255'l'#142#141#216#253#251'l'#147#145#212#251#249'f'#141#139'n'#149#147
+  +'g'#140#138'n'#144#143#217#245#245#127#148#149#235#248#250#246#255#255#255
+  ,#253#255#236#242#247#127#150#152#215#251#251#210#252#251#219#255#255#224#255
+  +#255#221#251#252#221#251#252#220#254#254#216#255#255#215#255#255#214#250#250
+  +'u'#140#142#248#254#255#242#240#246#255#249#255#249#251#255'l'#133#137#216
+  +#255#255'^'#140#141'k'#148#150'k'#134#138#232#252#255'y'#141#146't'#143#147
+  +#211#252#254'd'#146#147#207#246#248'v'#143#147#244#246#254#255#251#255#255
+  +#249#255#242#241#251'x'#146#152#196#239#242#210#255#255#214#255#255#224#246
+  +#252#242#253#255#240#251#255#225#247#253#218#255#255#206#254#255#214#255#255
+  +'n'#136#142#249#248#255#251#234#247#255#248#255#243#249#255'l'#138#143#212
+  +#255#255']'#144#146'V'#132#133#131#153#159'y'#135#141#234#245#253'w'#144#148
+  +'_'#138#141'X'#140#140#205#253#255'o'#144#147#249#251#255#255#251#255#246#254
+  +#255#236#255#255'^'#135#137#201#255#255#194#254#253#202#255#252#225#255#255
+  +#224#249#251#234#255#255#224#255#255#195#247#247#202#255#255#205#255#255'Z'
+  +#134#133#237#255#255#231#240#244#229#238#241#239#255#255'o'#148#146']'#140
+  +#137'h'#154#150'u'#160#157'_{{}'#145#146'v'#138#139'g'#131#131'k'#150#147'i'
+  +#155#151'W'#134#131'e'#138#136#239#255#255#246#255#255#255#253#255#242#241
+  +#243#238#250#250#231#252#250#230#252#250#237#253#252#250#255#255#240#242#243
+  +#251#253#254#248#253#254#239#255#254#230#252#250#233#254#252#244#255#255#239
+  +#238#240#255#251#254#255#246#248#255#250#251#254#254#254#247#253#252#246#254
+  +#253#241#246#245#255#254#255#255#252#253#255#254#255#255#254#255#251#255#255
+  +#240#248#247#244#250#249#250#252#252#255#247#249#255#253#255#7'OnClick'#7#18
+  +'lmTableManageClick'#0#0#9'TMenuItem'#13'lmScriptTable'#3'Tag'#2#1#7'Caption'
+  +#6#15'Script Table As'#0#9'TMenuItem'#19'lmScriptTableCreate'#7'Caption'#6#6
+  +'Create'#7'OnClick'#7#24'lmScriptTableCreateClick'#0#0#9'TMenuItem'#14'lmScr'
+  +'iptInsert'#7'Caption'#6#6'Insert'#7'OnClick'#7#19'lmScriptInsertClick'#0#0#9
+  +'TMenuItem'#14'lmScriptUpdate'#7'Caption'#6#6'Update'#7'OnClick'#7#19'lmScri'
+  +'ptUpdateClick'#0#0#0#9'TMenuItem'#11'lmCopyTable'#3'Tag'#2#1#7'Caption'#6#10
+  +'Copy Table'#7'OnClick'#7#16'lmCopyTableClick'#0#0#9'TMenuItem'#9'lmViewGen'
+  +#3'Tag'#2#2#7'Caption'#6#14'View Generator'#7'OnClick'#7#14'lmViewGenClick'#0
+  +#0#9'TMenuItem'#8'lmSetGen'#3'Tag'#2#2#7'Caption'#6#19'Set Generator Value'#7
+  +'OnClick'#7#13'lmSetGenClick'#0#0#9'TMenuItem'#8'lmNewGen'#3'Tag'#2#12#7'Cap'
+  +'tion'#6#20'Create New Generator'#7'OnClick'#7#13'lmNewGenClick'#0#0#9'TMenu'
+  +'Item'#15'lmCreateAutoInc'#3'Tag'#2#2#7'Caption'#6#29'Create Auto increment '
+  +'Trigger'#7'OnClick'#7#20'lmCreateAutoIncClick'#0#0#9'TMenuItem'#14'lmDispla'
+  +'y1000V'#3'Tag'#2#4#7'Caption'#6#23'View First 1000 records'#7'OnClick'#7#19
+  +'lmDisplay1000VClick'#0#0#9'TMenuItem'#13'lmDisplayView'#3'Tag'#2#4#7'Captio'
+  +'n'#6#16'Display View DDL'#7'OnClick'#7#18'lmDisplayViewClick'#0#0#9'TMenuIt'
+  +'em'#12'lmCreateView'#3'Tag'#2#14#7'Caption'#6#15'Create New View'#7'OnClick'
+  +#7#17'lmCreateViewClick'#0#0#9'TMenuItem'#10'lmEditView'#3'Tag'#2#4#7'Captio'
+  +'n'#6#9'Edit View'#7'OnClick'#7#15'lmEditViewClick'#0#0#9'TMenuItem'#18'lmCr'
+  +'eateStoredProc'#3'Tag'#2#15#7'Caption'#6#27'Create New Stored Procedure'#7
+  +'OnClick'#7#23'lmCreateStoredProcClick'#0#0#9'TMenuItem'#15'lmCallStoreProc'
+  +#3'Tag'#2#5#7'Caption'#6#14'Call procedure'#7'OnClick'#7#20'lmCallStoreProcC'
+  +'lick'#0#0#9'TMenuItem'#21'lmViewStoredProcedure'#3'Tag'#2#5#7'Caption'#6#21
+  +'View Stored Procedure'#7'OnClick'#7#26'lmViewStoredProcedureClick'#0#0#9'TM'
+  +'enuItem'#10'lmEditProc'#3'Tag'#2#5#7'Caption'#6#21'Edit Stored Procedure'#7
+  +'OnClick'#7#15'lmEditProcClick'#0#0#9'TMenuItem'#13'lmViewTrigger'#3'Tag'#2#3
+  +#7'Caption'#6#12'View Trigger'#7'OnClick'#7#18'lmViewTriggerClick'#0#0#9'TMe'
+  +'nuItem'#15'lmCreateTrigger'#3'Tag'#2#13#7'Caption'#6#18'Create New Trigger'
+  +#7'OnClick'#7#20'lmCreateTriggerClick'#0#0#9'TMenuItem'#13'lmEditTrigger'#3
+  +'Tag'#2#3#7'Caption'#6#12'Edit Trigger'#7'OnClick'#7#18'lmEditTriggerClick'#0
+  +#0#9'TMenuItem'#14'lmActivateTrig'#3'Tag'#2#3#7'Caption'#6#16'Activate Trigg'
+  +'er'#7'OnClick'#7#19'lmActivateTrigClick'#0#0#9'TMenuItem'#14'lmDeactiveTrig'
+  +#3'Tag'#2#3#7'Caption'#6#18'DeActivate Trigger'#7'OnClick'#7#19'lmDeactiveTr'
+  +'igClick'#0#0#9'TMenuItem'#8'lmNewUDF'#3'Tag'#2#16#7'Caption'#6#19'Create ne'
+  +'w function'#7'OnClick'#7#13'lmNewUDFClick'#0#0#9'TMenuItem'#9'lmViewUDF'#3
+  +'Tag'#2#6#7'Caption'#6#13'View Function'#7'OnClick'#7#14'lmViewUDFClick'#0#0
+  +#9'TMenuItem'#17'lmOpenSystemTable'#3'Tag'#2#7#7'Caption'#6#10'Open Table'#7
+  +'OnClick'#7#22'lmOpenSystemTableClick'#0#0#9'TMenuItem'#11'lmNewDomain'#3'Ta'
+  +'g'#2#18#7'Caption'#6#10'New Domain'#7'OnClick'#7#16'lmNewDomainClick'#0#0#9
+  +'TMenuItem'#12'lmViewDomain'#3'Tag'#2#8#7'Caption'#6#11'Domain Info'#7'OnCli'
+  +'ck'#7#17'lmViewDomainClick'#0#0#9'TMenuItem'#9'lmNewRole'#3'Tag'#2#19#7'Cap'
+  +'tion'#6#12'Add New Role'#7'OnClick'#7#14'lmNewRoleClick'#0#0#9'TMenuItem'#17
+  +'lmRolePermissions'#3'Tag'#2#9#7'Caption'#6#16'Show permissions'#7'OnClick'#7
+  +#22'lmRolePermissionsClick'#0#0#9'TMenuItem'#19'lmRolePerManagement'#3'Tag'#2
+  ,#9#7'Caption'#6#21'Permission Management'#11'Bitmap.Data'#10':'#3#0#0'6'#3#0
+  +#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0
+  +#3#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#252#253#249#255#255#252#255#255#252
+  +#252#253#249#255#255#252#252#253#249#255#255#252#251#252#248#255#255#252#247
+  +#248#244#255#255#252#255#255#252#254#255#251#255#255#252#253#254#250#255#255
+  +#252#255#255#252#255#255#252#242#243#239#255#255#252#255#255#252#250#251#247
+  +#250#251#247#255#255#252#255#255#252#250#251#247#255#255#252#249#250#246#247
+  +#248#244#250#251#247#255#255#252#253#254#250#251#253#247#255#255#251#253#255
+  +#249#254#255#250#252#254#248#255#255#251#255#255#251#249#251#245#253#255#249
+  +#255#255#251#254#255#250#255#255#251#255#255#251#255#255#251#253#255#249#255
+  +#255#251'xztwys'#135#137#131'~'#128'zkmg'#131#133#127'oqkxzt{}w'#130#132'~uw'
+  +'qprl{}wvxrz|vvxr~'#129'x'#250#253#244#246#249#240#245#248#239#255#255#249
+  +#245#248#239#255#255#249#252#255#246#248#251#242#247#250#241#255#255#249#245
+  +#248#239#255#255#249#255#255#249#246#249#240'~'#129'xwzq'#254#255#248#255#255
+  +#249'TWNMPG'#250#253#244'ORIBE<'#255#255#249#252#255#246#255#255#249#255#255
+  +#249#239#242#233#255#255#249#255#255#249'psjvyp'#255#255#249#247#250#241#255
+  +#255#249#255#255#249#255#255#249#248#251#242#255#255#249#248#251#242#254#255
+  +#248#252#255#246#255#255#249#255#255#249#255#255#249#249#252#243#128#131'z{~'
+  +'u'#249#252#243'MPG'#254#255#248'FI@JMDNQHFI@KNEQTKKNEDG>'#255#255#249#255
+  +#255#249#255#255#249'twn'#128#131'z'#249#252#243#255#255#249#255#255#249#255
+  +#255#249#252#255#246#255#255#249#251#254#245#254#255#248#247#250#241#255#255
+  +#249#248#251#242#255#255#249#254#255#248#246#249#240'{~uuxo'#255#255#249'EH?'
+  +#246#249#240'PSJJMDFI@QTKGJAUXO@C:RUL'#247#250#241#253#255#247#255#255#249'v'
+  +'ypwzq'#255#255#249#255#255#249#255#255#249#255#255#249#252#255#246#250#253
+  +#244#251#254#245#255#255#249#255#255#249#249#252#243#254#255#248#255#255#249
+  +#249#252#243#252#255#246'twn}'#128'w'#251#254#245#252#255#246#247#250#241#255
+  +#255#249#255#255#249#255#255#249#255#255#249#252#255#246#255#255#249#255#255
+  +#249#255#255#249#249#252#243#255#255#249'~'#129'xz}t|~xnpj{}w'#128#130'|qsmw'
+  +'ysvxrz|v'#128#130'|}'#127'yjlf'#128#130'|vxrqsmuwquwq'#255#255#251#246#248
+  +#242#255#255#251#254#255#250#253#255#249#255#255#251#255#255#251#249#251#245
+  +#255#255#251#247#249#243#253#255#249#252#254#248#255#255#251#255#255#251#253
+  +#255#249#255#255#251#248#249#245#255#255#252#255#255#252#249#250#246#255#255
+  +#252#255#255#252#247#248#244#255#255#252#250#251#247#255#255#252#255#255#252
+  +#254#255#251#250#251#247#255#255#252#249#250#246#255#255#252#255#255#252#253
+  +#254#250#255#255#252#254#255#251#255#255#252#252#253#249#255#255#252#252#253
+  +#249#255#255#252#247#248#244#255#255#252#253#254#250#254#255#251#255#255#252
+  +#255#255#252#251#252#248#7'OnClick'#7#24'lmRolePerManagementClick'#0#0#9'TMe'
+  +'nuItem'#20'lmCopyRolePermission'#3'Tag'#2#9#7'Caption'#6#23'Copy Role permi'
+  +'ssion to'#7'OnClick'#7#25'lmCopyRolePermissionClick'#0#0#9'TMenuItem'#14'lm'
+  +'NewException'#3'Tag'#2#20#7'Caption'#6#17'Add New Exception'#7'OnClick'#7#19
+  +'lmNewExceptionClick'#0#0#9'TMenuItem'#17'lmScriptException'#3'Tag'#2#10#7'C'
+  +'aption'#6#6'Script'#7'OnClick'#7#22'lmScriptExceptionClick'#0#0#9'TMenuItem'
+  +#15'lmDropException'#3'Tag'#2#10#7'Caption'#6#4'Drop'#7'OnClick'#7#20'lmDrop'
+  +'ExceptionClick'#0#0#9'TMenuItem'#9'lmAddUser'#3'Tag'#2#21#7'Caption'#6#15'C'
+  +'reate New User'#7'OnClick'#7#14'lmAddUserClick'#0#0#9'TMenuItem'#16'lmChang'
+  +'ePassword'#3'Tag'#2'o'#7'Caption'#6#15'Change password'#7'OnClick'#7#21'lmC'
+  +'hangePasswordClick'#0#0#9'TMenuItem'#13'lmPermissions'#3'Tag'#2'o'#7'Captio'
+  +'n'#6#16'Show Permissions'#7'OnClick'#7#18'lmPermissionsClick'#0#0#9'TMenuIt'
+  +'em'#20'lmUserPermManagement'#3'Tag'#2'o'#7'Caption'#6#21'Permission Managem'
+  +'ent'#11'Bitmap.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('#0#0
+  +#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0
+  +#0#252#253#249#255#255#252#255#255#252#252#253#249#255#255#252#252#253#249
+  +#255#255#252#251#252#248#255#255#252#247#248#244#255#255#252#255#255#252#254
+  +#255#251#255#255#252#253#254#250#255#255#252#255#255#252#255#255#252#242#243
+  +#239#255#255#252#255#255#252#250#251#247#250#251#247#255#255#252#255#255#252
+  +#250#251#247#255#255#252#249#250#246#247#248#244#250#251#247#255#255#252#253
+  +#254#250#251#253#247#255#255#251#253#255#249#254#255#250#252#254#248#255#255
+  +#251#255#255#251#249#251#245#253#255#249#255#255#251#254#255#250#255#255#251
+  +#255#255#251#255#255#251#253#255#249#255#255#251'xztwys'#135#137#131'~'#128
+  +'zkmg'#131#133#127'oqkxzt{}w'#130#132'~uwqprl{}wvxrz|vvxr~'#129'x'#250#253
+  +#244#246#249#240#245#248#239#255#255#249#245#248#239#255#255#249#252#255#246
+  +#248#251#242#247#250#241#255#255#249#245#248#239#255#255#249#255#255#249#246
+  +#249#240'~'#129'xwzq'#254#255#248#255#255#249'TWNMPG'#250#253#244'ORIBE<'#255
+  +#255#249#252#255#246#255#255#249#255#255#249#239#242#233#255#255#249#255#255
+  ,#249'psjvyp'#255#255#249#247#250#241#255#255#249#255#255#249#255#255#249#248
+  +#251#242#255#255#249#248#251#242#254#255#248#252#255#246#255#255#249#255#255
+  +#249#255#255#249#249#252#243#128#131'z{~u'#249#252#243'MPG'#254#255#248'FI@J'
+  +'MDNQHFI@KNEQTKKNEDG>'#255#255#249#255#255#249#255#255#249'twn'#128#131'z'
+  +#249#252#243#255#255#249#255#255#249#255#255#249#252#255#246#255#255#249#251
+  +#254#245#254#255#248#247#250#241#255#255#249#248#251#242#255#255#249#254#255
+  +#248#246#249#240'{~uuxo'#255#255#249'EH?'#246#249#240'PSJJMDFI@QTKGJAUXO@C:R'
+  +'UL'#247#250#241#253#255#247#255#255#249'vypwzq'#255#255#249#255#255#249#255
+  +#255#249#255#255#249#252#255#246#250#253#244#251#254#245#255#255#249#255#255
+  +#249#249#252#243#254#255#248#255#255#249#249#252#243#252#255#246'twn}'#128'w'
+  +#251#254#245#252#255#246#247#250#241#255#255#249#255#255#249#255#255#249#255
+  +#255#249#252#255#246#255#255#249#255#255#249#255#255#249#249#252#243#255#255
+  +#249'~'#129'xz}t|~xnpj{}w'#128#130'|qsmwysvxrz|v'#128#130'|}'#127'yjlf'#128
+  +#130'|vxrqsmuwquwq'#255#255#251#246#248#242#255#255#251#254#255#250#253#255
+  +#249#255#255#251#255#255#251#249#251#245#255#255#251#247#249#243#253#255#249
+  +#252#254#248#255#255#251#255#255#251#253#255#249#255#255#251#248#249#245#255
+  +#255#252#255#255#252#249#250#246#255#255#252#255#255#252#247#248#244#255#255
+  +#252#250#251#247#255#255#252#255#255#252#254#255#251#250#251#247#255#255#252
+  +#249#250#246#255#255#252#255#255#252#253#254#250#255#255#252#254#255#251#255
+  +#255#252#252#253#249#255#255#252#252#253#249#255#255#252#247#248#244#255#255
+  +#252#253#254#250#254#255#251#255#255#252#255#255#252#251#252#248#7'OnClick'#7
+  +#25'lmUserPermManagementClick'#0#0#9'TMenuItem'#20'lmCopyUserPermission'#3'T'
+  +'ag'#2'o'#7'Caption'#6#23'Copy User Permission To'#7'OnClick'#7#25'lmCopyUse'
+  +'rPermissionClick'#0#0#9'TMenuItem'#11'lmEditField'#3'Tag'#2'p'#7'Caption'#6
+  +#10'Edit Field'#7'OnClick'#7#16'lmEditFieldClick'#0#0#0#11'TMemDataset'#10'm'
+  +'dsHistory'#9'FieldDefs'#14#1#4'Name'#6#4'Time'#8'DataType'#7#10'ftDateTime'
+  +#9'Precision'#2#0#4'Size'#2#0#0#1#4'Name'#6#7'SQLType'#8'DataType'#7#8'ftStr'
+  +'ing'#9'Precision'#2#0#4'Size'#2#6#0#1#4'Name'#6#12'SQLStatement'#8'DataType'
+  +#7#8'ftString'#9'Precision'#2#0#4'Size'#3#0#16#0#1#4'Name'#6#8'Reserved'#8'D'
+  +'ataType'#7#9'ftInteger'#9'Precision'#2#0#4'Size'#2#0#0#0#4'left'#3#183#0#3
+  +'top'#3'j'#1#0#0#0
 ]);
 ]);

+ 10 - 2
main.pas

@@ -47,6 +47,7 @@ type
     lmEditField: TMenuItem;
     lmEditField: TMenuItem;
     lmDBIndo: TMenuItem;
     lmDBIndo: TMenuItem;
     lmCopyRolePermission: TMenuItem;
     lmCopyRolePermission: TMenuItem;
+    lmCompare: TMenuItem;
     mnExit: TMenuItem;
     mnExit: TMenuItem;
     mnCreateDB: TMenuItem;
     mnCreateDB: TMenuItem;
     mnRegDB: TMenuItem;
     mnRegDB: TMenuItem;
@@ -109,6 +110,7 @@ type
     procedure lmBackupClick(Sender: TObject);
     procedure lmBackupClick(Sender: TObject);
     procedure lmChangePasswordClick(Sender: TObject);
     procedure lmChangePasswordClick(Sender: TObject);
     procedure lmCloseTabClick(Sender: TObject);
     procedure lmCloseTabClick(Sender: TObject);
+    procedure lmCompareClick(Sender: TObject);
     procedure lmCopyRolePermissionClick(Sender: TObject);
     procedure lmCopyRolePermissionClick(Sender: TObject);
     procedure lmCopyUserPermissionClick(Sender: TObject);
     procedure lmCopyUserPermissionClick(Sender: TObject);
     procedure lmCopyTableClick(Sender: TObject);
     procedure lmCopyTableClick(Sender: TObject);
@@ -180,7 +182,6 @@ type
     fActivated: Boolean;
     fActivated: Boolean;
     function FindCusomForm(ATitle: string; AClass: TClass): TComponent;
     function FindCusomForm(ATitle: string; AClass: TClass): TComponent;
     procedure InitNewGen(DatabaseIndex: Integer);
     procedure InitNewGen(DatabaseIndex: Integer);
-    function GetServerName(DBName: string): string;
     function GetServerNameNode(ServerName: string): TTreeNode;
     function GetServerNameNode(ServerName: string): TTreeNode;
     function RemoveSpecialChars(AText: string): string;
     function RemoveSpecialChars(AText: string): string;
     procedure ReleaseRegisteredDatabases;
     procedure ReleaseRegisteredDatabases;
@@ -191,6 +192,7 @@ type
     RegisteredDatabases: array of TDatabaseRec;
     RegisteredDatabases: array of TDatabaseRec;
     Version: string;
     Version: string;
     VersionDate: string;
     VersionDate: string;
+    function GetServerName(DBName: string): string;
     function RetreiveInputParamFromSP(Body: string): string;
     function RetreiveInputParamFromSP(Body: string): string;
     function LoadRegisteredDatabases: Boolean;
     function LoadRegisteredDatabases: Boolean;
     function FindQueryWindow(ATitle: string): TComponent;
     function FindQueryWindow(ATitle: string): TComponent;
@@ -232,7 +234,7 @@ implementation
 uses CreateDB, ViewView, ViewTrigger, ViewSProc, ViewGen, NewTable, NewGen,
 uses CreateDB, ViewView, ViewTrigger, ViewSProc, ViewGen, NewTable, NewGen,
      EnterPass, CreateTrigger, EditTable, CallProc, EditDataFullRec, UDFInfo, ViewDomain,
      EnterPass, CreateTrigger, EditTable, CallProc, EditDataFullRec, UDFInfo, ViewDomain,
      NewDomain, SysTables, Scriptdb, UserPermissions, BackupRestore, UnitFirebirdServices, CreateUser, ChangePass,
      NewDomain, SysTables, Scriptdb, UserPermissions, BackupRestore, UnitFirebirdServices, CreateUser, ChangePass,
-     PermissionManage, CopyTable, About, NewEditField, dbInfo;
+     PermissionManage, CopyTable, About, NewEditField, dbInfo, Comparison;
 
 
 
 
 procedure TfmMain.mnExitClick(Sender: TObject);
 procedure TfmMain.mnExitClick(Sender: TObject);
@@ -333,6 +335,12 @@ procedure TfmMain.lmCloseTabClick(Sender: TObject);
 begin
 begin
 end;
 end;
 
 
+procedure TfmMain.lmCompareClick(Sender: TObject);
+begin
+  fmComparison.Init(tvMain.Selected.OverlayIndex);
+  fmComparison.Show;
+end;
+
 procedure TfmMain.lmCopyRolePermissionClick(Sender: TObject);
 procedure TfmMain.lmCopyRolePermissionClick(Sender: TObject);
 begin
 begin
   lmCopyUserPermissionClick(nil);
   lmCopyUserPermissionClick(nil);

+ 3 - 0
scriptdb.pas

@@ -25,6 +25,9 @@ function ScriptAllPermissions(dbIndex: Integer; var List: TStringList): Boolean;
 function ScriptUserAllPermissions(dbIndex: Integer; UserName: string; var List: TStringList;
 function ScriptUserAllPermissions(dbIndex: Integer; UserName: string; var List: TStringList;
    NewUser: string = ''): Boolean;
    NewUser: string = ''): Boolean;
 
 
+procedure RemoveParamClosing(var AParams: string);
+
+
 implementation
 implementation
 
 
 uses SysTables, Main;
 uses SysTables, Main;

+ 1 - 1
systables.lfm

@@ -5,8 +5,8 @@ object dmSysTables: TdmSysTables
   VerticalOffset = 383
   VerticalOffset = 383
   Width = 400
   Width = 400
   object sqQuery: TSQLQuery
   object sqQuery: TSQLQuery
+    FieldDefs = <>
     AutoCalcFields = False
     AutoCalcFields = False
-    ReadOnly = False
     Params = <>
     Params = <>
     left = 216
     left = 216
     top = 32
     top = 32

+ 2 - 2
systables.lrs

@@ -3,6 +3,6 @@
 LazarusResources.Add('TdmSysTables','FORMDATA',[
 LazarusResources.Add('TdmSysTables','FORMDATA',[
   'TPF0'#12'TdmSysTables'#11'dmSysTables'#14'OldCreateOrder'#8#6'Height'#3','#1
   'TPF0'#12'TdmSysTables'#11'dmSysTables'#14'OldCreateOrder'#8#6'Height'#3','#1
   +#16'HorizontalOffset'#3'*'#3#14'VerticalOffset'#3#127#1#5'Width'#3#144#1#0#9
   +#16'HorizontalOffset'#3'*'#3#14'VerticalOffset'#3#127#1#5'Width'#3#144#1#0#9
-  +'TSQLQuery'#7'sqQuery'#14'AutoCalcFields'#8#8'ReadOnly'#8#6'Params'#14#0#4'l'
-  +'eft'#3#216#0#3'top'#2' '#0#0#0
+  +'TSQLQuery'#7'sqQuery'#9'FieldDefs'#14#0#14'AutoCalcFields'#8#6'Params'#14#0
+  +#4'left'#3#216#0#3'top'#2' '#0#0#0
 ]);
 ]);

+ 0 - 2
systables.pas

@@ -75,8 +75,6 @@ end;
 
 
 { TdmSysTables }
 { TdmSysTables }
 
 
-
-
 procedure TdmSysTables.Init(dbIndex: Integer);
 procedure TdmSysTables.Init(dbIndex: Integer);
 begin
 begin
   with fmMain.RegisteredDatabases[dbIndex] do
   with fmMain.RegisteredDatabases[dbIndex] do