Sfoglia il codice sorgente

Disconnect database and close all windows
modified: TurboBird.lpi
modified: TurboBird.lpr
modified: main.lfm
modified: main.lrs
modified: main.pas

Motaz Abdel Azeem 13 anni fa
parent
commit
e69c7aac7c
5 ha cambiato i file con 361 aggiunte e 319 eliminazioni
  1. 76 76
      TurboBird.lpi
  2. 1 1
      TurboBird.lpr
  3. 1 1
      main.lfm
  4. 234 234
      main.lrs
  5. 49 7
      main.pas

+ 76 - 76
TurboBird.lpi

@@ -60,11 +60,10 @@
         <Filename Value="TurboBird.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TurboBird"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="10"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="42"/>
-        <CursorPos X="30" Y="49"/>
+        <TopLine Value="18"/>
+        <CursorPos X="28" Y="27"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -74,10 +73,11 @@
         <ComponentName Value="fmMain"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="main"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="217"/>
-        <CursorPos X="77" Y="232"/>
+        <TopLine Value="440"/>
+        <CursorPos X="32" Y="462"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -550,7 +550,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="144"/>
         <CursorPos X="3" Y="179"/>
-        <UsageCount Value="192"/>
+        <UsageCount Value="193"/>
       </Unit51>
       <Unit52>
         <Filename Value="connectas.pas"/>
@@ -571,7 +571,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="6"/>
         <CursorPos X="8" Y="34"/>
-        <UsageCount Value="168"/>
+        <UsageCount Value="169"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit53>
@@ -593,7 +593,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="303"/>
         <CursorPos X="16" Y="311"/>
-        <UsageCount Value="151"/>
+        <UsageCount Value="152"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit55>
@@ -638,7 +638,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="13"/>
         <CursorPos X="22" Y="54"/>
-        <UsageCount Value="137"/>
+        <UsageCount Value="138"/>
       </Unit60>
       <Unit61>
         <Filename Value="unitfirebirdservices.pas"/>
@@ -706,7 +706,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="71" Y="7"/>
-        <UsageCount Value="107"/>
+        <UsageCount Value="108"/>
       </Unit68>
       <Unit69>
         <Filename Value="changepass.pas"/>
@@ -717,7 +717,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="88" Y="14"/>
-        <UsageCount Value="106"/>
+        <UsageCount Value="107"/>
       </Unit69>
       <Unit70>
         <Filename Value="permissionmanage.pas"/>
@@ -728,7 +728,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="310"/>
         <CursorPos X="29" Y="331"/>
-        <UsageCount Value="104"/>
+        <UsageCount Value="105"/>
       </Unit70>
       <Unit71>
         <Filename Value="sqlhistory.pas"/>
@@ -739,7 +739,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="18" Y="39"/>
-        <UsageCount Value="89"/>
+        <UsageCount Value="90"/>
       </Unit71>
       <Unit72>
         <Filename Value="../../lazarus/lazarus/lcl/include/menuitem.inc"/>
@@ -764,7 +764,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="30"/>
         <CursorPos X="1" Y="151"/>
-        <UsageCount Value="60"/>
+        <UsageCount Value="61"/>
       </Unit74>
       <Unit75>
         <Filename Value="/usr/lib/lazarus/0.9.30/lcl/comctrls.pp"/>
@@ -955,9 +955,9 @@
         <UnitName Value="dbInfo"/>
         <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="10" Y="9"/>
-        <UsageCount Value="28"/>
+        <TopLine Value="20"/>
+        <CursorPos X="22" Y="41"/>
+        <UsageCount Value="29"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit98>
@@ -983,124 +983,124 @@
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1646" Column="74" TopLine="1611"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position1>
       <Position2>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1649" Column="92" TopLine="1614"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3987" Column="1" TopLine="3946"/>
       </Position2>
       <Position3>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1652" Column="84" TopLine="1617"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position3>
       <Position4>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1654" Column="111" TopLine="1619"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="14" Column="9" TopLine="1"/>
       </Position4>
       <Position5>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1657" Column="64" TopLine="1622"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="16" Column="29" TopLine="1"/>
       </Position5>
       <Position6>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1660" Column="64" TopLine="1625"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="17" Column="33" TopLine="1"/>
       </Position6>
       <Position7>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1663" Column="87" TopLine="1628"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="55" Column="22" TopLine="21"/>
       </Position7>
       <Position8>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1666" Column="90" TopLine="1631"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="90" Column="18" TopLine="56"/>
       </Position8>
       <Position9>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1668" Column="109" TopLine="1633"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position9>
       <Position10>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1670" Column="127" TopLine="1635"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="379" Column="41" TopLine="353"/>
       </Position10>
       <Position11>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1672" Column="108" TopLine="1637"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="389" Column="12" TopLine="355"/>
       </Position11>
       <Position12>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1674" Column="112" TopLine="1639"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="390" Column="12" TopLine="356"/>
       </Position12>
       <Position13>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1676" Column="114" TopLine="1641"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="436" Column="1" TopLine="398"/>
       </Position13>
       <Position14>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1678" Column="173" TopLine="1643"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1574" Column="21" TopLine="1537"/>
       </Position14>
       <Position15>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1681" Column="81" TopLine="1646"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1623" Column="21" TopLine="1585"/>
       </Position15>
       <Position16>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="1684" Column="81" TopLine="1649"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="2194" Column="1" TopLine="2171"/>
       </Position16>
       <Position17>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="23" Column="6" TopLine="1"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="2262" Column="23" TopLine="2244"/>
       </Position17>
       <Position18>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="30" Column="11" TopLine="1"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="2263" Column="12" TopLine="2244"/>
       </Position18>
       <Position19>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="2650" Column="36" TopLine="2615"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="2629" Column="27" TopLine="2615"/>
       </Position19>
       <Position20>
-        <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60.inc"/>
-        <Caret Line="2652" Column="70" TopLine="2617"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="2952" Column="23" TopLine="2916"/>
       </Position20>
       <Position21>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="95" Column="57" TopLine="58"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3078" Column="23" TopLine="3043"/>
       </Position21>
       <Position22>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="94" Column="20" TopLine="58"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3081" Column="10" TopLine="3047"/>
       </Position22>
       <Position23>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="23" Column="81" TopLine="10"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3127" Column="11" TopLine="3088"/>
       </Position23>
       <Position24>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="95" Column="16" TopLine="58"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3140" Column="18" TopLine="3106"/>
       </Position24>
       <Position25>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="60" Column="5" TopLine="25"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3194" Column="23" TopLine="3153"/>
       </Position25>
       <Position26>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="95" Column="78" TopLine="58"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3235" Column="25" TopLine="3212"/>
       </Position26>
       <Position27>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="52" Column="51" TopLine="25"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3242" Column="12" TopLine="3212"/>
       </Position27>
       <Position28>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="23" Column="67" TopLine="1"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="2949" Column="35" TopLine="2932"/>
       </Position28>
       <Position29>
         <Filename Value="dbinfo.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="9" Column="10" TopLine="1"/>
       </Position29>
       <Position30>
-        <Filename Value="dbinfo.pas"/>
-        <Caret Line="62" Column="34" TopLine="23"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="449" Column="56" TopLine="440"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

+ 1 - 1
TurboBird.lpr

@@ -24,7 +24,7 @@ uses
 
 const
   Version = '0.8.12';
-  VersionDate = '2010 - Jan 2012';
+  VersionDate = '2010 - Feb 2012';
 {$IFDEF Unix}
 {$DEFINE extdecl:=cdecl}
     fbclib = 'libfbclient.' + sharedsuffix;

+ 1 - 1
main.lfm

@@ -1482,7 +1482,7 @@ object fmMain: TfmMain
       OnClick = lmConnectAsClick
     end
     object lmDisconnect: TMenuItem
-      Caption = 'Disconnect'
+      Caption = 'Disconnect and Close all windows'
       OnClick = lmDisconnectClick
     end
     object lmOpenQuery: TMenuItem

+ 234 - 234
main.lrs

@@ -2092,238 +2092,238 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#14'lmRestoreClick'#0#0#9'TMenuItem'#9'lmRefresh'#3'Tag'#2'd'#7'Caption'#6#7
   +'Refresh'#7'OnClick'#7#14'lmRefreshClick'#0#0#9'TMenuItem'#11'lmConnectAs'#7
   +'Caption'#6#10'Connect As'#7'OnClick'#7#16'lmConnectAsClick'#0#0#9'TMenuItem'
-  +#12'lmDisconnect'#7'Caption'#6#10'Disconnect'#7'OnClick'#7#17'lmDisconnectCl'
-  +'ick'#0#0#9'TMenuItem'#11'lmOpenQuery'#7'Caption'#6#17'Open Query Window'#7
-  +'OnClick'#7#16'lmOpenQueryClick'#0#0#9'TMenuItem'#16'lmScriptDatabase'#7'Cap'
-  +'tion'#6#16'Script Database '#7'OnClick'#7#21'lmScriptDatabaseClick'#0#0#9'T'
-  +'MenuItem'#8'lmBackup'#7'Caption'#6#23'Backup/Restore Database'#7'OnClick'#7
-  +#13'lmBackupClick'#0#0#9'TMenuItem'#7'lmSweep'#7'Caption'#6#8'Sweep DB'#7'On'
-  +'Click'#7#12'lmSweepClick'#0#0#9'TMenuItem'#8'lmDBIndo'#7'Caption'#6#13'Data'
-  +'base Info'#7'OnClick'#7#13'lmDBIndoClick'#0#0#9'TMenuItem'#9'MenuItem8'#7'C'
-  +'aption'#6#1'-'#0#0#9'TMenuItem'#9'lmEditReg'#7'Caption'#6#17'Edit Registrat'
-  +'ion'#7'OnClick'#7#14'lmEditRegClick'#0#0#9'TMenuItem'#20'lmUnregisterDataba'
-  +'se'#7'Caption'#6#19'Unregister Database'#7'OnClick'#7#25'lmUnregisterDataba'
-  +'seClick'#0#0#9'TMenuItem'#15'lmViewFirst1000'#3'Tag'#2#1#7'Caption'#6#23'Vi'
-  +'ew First 1000 records'#7'OnClick'#7#20'lmViewFirst1000Click'#0#0#9'TMenuIte'
-  +'m'#10'lmNewTable'#3'Tag'#2#11#7'Caption'#6#9'New Table'#7'OnClick'#7#15'lmN'
-  +'ewTableClick'#0#0#9'TMenuItem'#11'lmEditTable'#3'Tag'#2#1#7'Caption'#6#16'E'
-  +'dit Data (Grid)'#7'OnClick'#7#16'lmEditTableClick'#0#0#9'TMenuItem'#14'lmEd'
-  +'itDataForm'#3'Tag'#2#1#7'Caption'#6#16'Edit Data (Form)'#7'OnClick'#7#19'lm'
-  +'EditDataFormClick'#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'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'MKK'#152';<<'#28'>@@'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'
-  +#0'?AA'#0#7'OnClick'#7#17'lmViewFieldsClick'#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>=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'364'#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'MH'
-  +'G'#239#234#233'GED'#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'OnCli'
-  +'ck'#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'Cap'
-  +'tion'#6#6'Create'#7'OnClick'#7#24'lmScriptTableCreateClick'#0#0#9'TMenuItem'
-  +#14'lmScriptInsert'#7'Caption'#6#6'Insert'#7'OnClick'#7#19'lmScriptInsertCli'
-  +'ck'#0#0#9'TMenuItem'#14'lmScriptUpdate'#7'Caption'#6#6'Update'#7'OnClick'#7
-  +#19'lmScriptUpdateClick'#0#0#0#9'TMenuItem'#11'lmCopyTable'#3'Tag'#2#1#7'Cap'
-  +'tion'#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'lmVie'
-  +'wGenClick'#0#0#9'TMenuItem'#8'lmSetGen'#3'Tag'#2#2#7'Caption'#6#19'Set Gene'
-  +'rator Value'#7'OnClick'#7#13'lmSetGenClick'#0#0#9'TMenuItem'#8'lmNewGen'#3
-  +'Tag'#2#12#7'Caption'#6#20'Create New Generator'#7'OnClick'#7#13'lmNewGenCli'
-  +'ck'#0#0#9'TMenuItem'#15'lmCreateAutoInc'#3'Tag'#2#2#7'Caption'#6#29'Create '
-  +'Auto increment Trigger'#7'OnClick'#7#20'lmCreateAutoIncClick'#0#0#9'TMenuIt'
-  +'em'#14'lmDisplay1000V'#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'Caption'#6#16'Display View DDL'#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'lmCreateViewClick'#0#0#9'TMenuItem'#10'lmEditView'#3'Tag'#2
-  +#4#7'Caption'#6#9'Edit View'#7'OnClick'#7#15'lmEditViewClick'#0#0#9'TMenuIte'
-  +'m'#18'lmCreateStoredProc'#3'Tag'#2#15#7'Caption'#6#27'Create New Stored Pro'
-  +'cedure'#7'OnClick'#7#23'lmCreateStoredProcClick'#0#0#9'TMenuItem'#15'lmCall'
-  +'StoreProc'#3'Tag'#2#5#7'Caption'#6#14'Call procedure'#7'OnClick'#7#20'lmCal'
-  +'lStoreProcClick'#0#0#9'TMenuItem'#21'lmViewStoredProcedure'#3'Tag'#2#5#7'Ca'
-  +'ption'#6#21'View Stored Procedure'#7'OnClick'#7#26'lmViewStoredProcedureCli'
-  +'ck'#0#0#9'TMenuItem'#10'lmEditProc'#3'Tag'#2#5#7'Caption'#6#21'Edit Stored '
-  +'Procedure'#7'OnClick'#7#15'lmEditProcClick'#0#0#9'TMenuItem'#13'lmViewTrigg'
-  +'er'#3'Tag'#2#3#7'Caption'#6#12'View Trigger'#7'OnClick'#7#18'lmViewTriggerC'
-  +'lick'#0#0#9'TMenuItem'#15'lmCreateTrigger'#3'Tag'#2#13#7'Caption'#6#18'Crea'
-  +'te New Trigger'#7'OnClick'#7#20'lmCreateTriggerClick'#0#0#9'TMenuItem'#13'l'
-  +'mEditTrigger'#3'Tag'#2#3#7'Caption'#6#12'Edit Trigger'#7'OnClick'#7#18'lmEd'
-  +'itTriggerClick'#0#0#9'TMenuItem'#14'lmActivateTrig'#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'Caption'#6#18'DeActivate Trigger'#7'OnClick'
-  +#7#19'lmDeactiveTrigClick'#0#0#9'TMenuItem'#8'lmNewUDF'#3'Tag'#2#16#7'Captio'
-  +'n'#6#19'Create new 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'lmVi'
-  +'ewUDFClick'#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'Tag'#2#18#7'Caption'#6#10'New Domain'#7'OnClick'#7#16'lmNewD'
-  +'omainClick'#0#0#9'TMenuItem'#12'lmViewDomain'#3'Tag'#2#8#7'Caption'#6#11'Do'
-  +'main Info'#7'OnClick'#7#17'lmViewDomainClick'#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'lmRolePermissions'#3'Tag'#2#9#7'Caption'#6#16'Show permis'
-  +'sions'#7'OnClick'#7#22'lmRolePermissionsClick'#0#0#9'TMenuItem'#19'lmRolePe'
-  +'rManagement'#3'Tag'#2#9#7'Caption'#6#21'Permission Management'#11'Bitmap.Da'
-  +'ta'#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@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'lmRolePerManagement'
-  +'Click'#0#0#9'TMenuItem'#14'lmNewException'#3'Tag'#2#20#7'Caption'#6#17'Add '
-  +'New Exception'#7'OnClick'#7#19'lmNewExceptionClick'#0#0#9'TMenuItem'#17'lmS'
-  +'criptException'#3'Tag'#2#10#7'Caption'#6#6'Script'#7'OnClick'#7#22'lmScript'
-  +'ExceptionClick'#0#0#9'TMenuItem'#15'lmDropException'#3'Tag'#2#10#7'Caption'
-  +#6#4'Drop'#7'OnClick'#7#20'lmDropExceptionClick'#0#0#9'TMenuItem'#9'lmAddUse'
-  +'r'#3'Tag'#2#21#7'Caption'#6#15'Create New User'#7'OnClick'#7#14'lmAddUserCl'
-  +'ick'#0#0#9'TMenuItem'#16'lmChangePassword'#3'Tag'#2'o'#7'Caption'#6#15'Chan'
-  +'ge password'#7'OnClick'#7#21'lmChangePasswordClick'#0#0#9'TMenuItem'#13'lmP'
-  +'ermissions'#3'Tag'#2'o'#7'Caption'#6#16'Show Permissions'#7'OnClick'#7#18'l'
-  +'mPermissionsClick'#0#0#9'TMenuItem'#20'lmUserPermManagement'#3'Tag'#2'o'#7
-  +'Caption'#6#21'Permission Management'#11'Bitmap.Data'#10':'#3#0#0'6'#3#0#0'B'
-  +'M6'#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@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'vypwz'
-  +'q'#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'|qsmwysvx'
-  +'rz|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'TMenuI'
-  +'tem'#16'lmCopyPermission'#3'Tag'#2'o'#7'Caption'#6#18'Copy Permission To'#7
-  +'OnClick'#7#21'lmCopyPermissionClick'#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'mdsHistory'#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'Da'
-  +'taType'#7#8'ftString'#9'Precision'#2#0#4'Size'#2#6#0#1#4'Name'#6#12'SQLStat'
-  +'ement'#8'DataType'#7#8'ftString'#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
+  +#12'lmDisconnect'#7'Caption'#6' Disconnect and Close all windows'#7'OnClick'
+  +#7#17'lmDisconnectClick'#0#0#9'TMenuItem'#11'lmOpenQuery'#7'Caption'#6#17'Op'
+  +'en Query Window'#7'OnClick'#7#16'lmOpenQueryClick'#0#0#9'TMenuItem'#16'lmSc'
+  +'riptDatabase'#7'Caption'#6#16'Script Database '#7'OnClick'#7#21'lmScriptDat'
+  +'abaseClick'#0#0#9'TMenuItem'#8'lmBackup'#7'Caption'#6#23'Backup/Restore Dat'
+  +'abase'#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'lmDBIndo'#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'Caption'#6#17
+  +'Edit Registration'#7'OnClick'#7#14'lmEditRegClick'#0#0#9'TMenuItem'#20'lmUn'
+  +'registerDatabase'#7'Caption'#6#19'Unregister Database'#7'OnClick'#7#25'lmUn'
+  +'registerDatabaseClick'#0#0#9'TMenuItem'#15'lmViewFirst1000'#3'Tag'#2#1#7'Ca'
+  +'ption'#6#23'View First 1000 records'#7'OnClick'#7#20'lmViewFirst1000Click'#0
+  +#0#9'TMenuItem'#10'lmNewTable'#3'Tag'#2#11#7'Caption'#6#9'New Table'#7'OnCli'
+  +'ck'#7#15'lmNewTableClick'#0#0#9'TMenuItem'#11'lmEditTable'#3'Tag'#2#1#7'Cap'
+  +'tion'#6#16'Edit Data (Grid)'#7'OnClick'#7#16'lmEditTableClick'#0#0#9'TMenuI'
+  +'tem'#14'lmEditDataForm'#3'Tag'#2#1#7'Caption'#6#16'Edit Data (Form)'#7'OnCl'
+  +'ick'#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'r'
+  +'jj'#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'-//A5'
+  +'66'#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'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'MKK'#152';<<'#28'>@@'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0'?AA'#0
+  +'?AA'#0'?AA'#0#7'OnClick'#7#17'lmViewFieldsClick'#0#0#9'TMenuItem'#9'MenuIte'
+  +'m7'#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'BM'
+  +'6'#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'364'#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'GED'#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'O'
+  +'nClick'#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'TMenuI'
+  +'tem'#14'lmScriptInsert'#7'Caption'#6#6'Insert'#7'OnClick'#7#19'lmScriptInse'
+  +'rtClick'#0#0#9'TMenuItem'#14'lmScriptUpdate'#7'Caption'#6#6'Update'#7'OnCli'
+  +'ck'#7#19'lmScriptUpdateClick'#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'TMenuIt'
+  +'em'#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'lmNewGe'
+  +'n'#3'Tag'#2#12#7'Caption'#6#20'Create New Generator'#7'OnClick'#7#13'lmNewG'
+  +'enClick'#0#0#9'TMenuItem'#15'lmCreateAutoInc'#3'Tag'#2#2#7'Caption'#6#29'Cr'
+  +'eate Auto increment Trigger'#7'OnClick'#7#20'lmCreateAutoIncClick'#0#0#9'TM'
+  +'enuItem'#14'lmDisplay1000V'#3'Tag'#2#4#7'Caption'#6#23'View First 1000 reco'
+  +'rds'#7'OnClick'#7#19'lmDisplay1000VClick'#0#0#9'TMenuItem'#13'lmDisplayView'
+  +#3'Tag'#2#4#7'Caption'#6#16'Display View DDL'#7'OnClick'#7#18'lmDisplayViewC'
+  +'lick'#0#0#9'TMenuItem'#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'Caption'#6#9'Edit View'#7'OnClick'#7#15'lmEditViewClick'#0#0#9
+  +'TMenuItem'#18'lmCreateStoredProc'#3'Tag'#2#15#7'Caption'#6#27'Create New St'
+  +'ored 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
+  +'lmCallStoreProcClick'#0#0#9'TMenuItem'#21'lmViewStoredProcedure'#3'Tag'#2#5
+  +#7'Caption'#6#21'View Stored Procedure'#7'OnClick'#7#26'lmViewStoredProcedur'
+  +'eClick'#0#0#9'TMenuItem'#10'lmEditProc'#3'Tag'#2#5#7'Caption'#6#21'Edit Sto'
+  +'red Procedure'#7'OnClick'#7#15'lmEditProcClick'#0#0#9'TMenuItem'#13'lmViewT'
+  +'rigger'#3'Tag'#2#3#7'Caption'#6#12'View Trigger'#7'OnClick'#7#18'lmViewTrig'
+  +'gerClick'#0#0#9'TMenuItem'#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'Captio'
+  +'n'#6#16'Activate Trigger'#7'OnClick'#7#19'lmActivateTrigClick'#0#0#9'TMenuI'
+  +'tem'#14'lmDeactiveTrig'#3'Tag'#2#3#7'Caption'#6#18'DeActivate Trigger'#7'On'
+  +'Click'#7#19'lmDeactiveTrigClick'#0#0#9'TMenuItem'#8'lmNewUDF'#3'Tag'#2#16#7
+  +'Caption'#6#19'Create new function'#7'OnClick'#7#13'lmNewUDFClick'#0#0#9'TMe'
+  +'nuItem'#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'Capt'
+  +'ion'#6#10'Open Table'#7'OnClick'#7#22'lmOpenSystemTableClick'#0#0#9'TMenuIt'
+  +'em'#11'lmNewDomain'#3'Tag'#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'OnClick'#7#17'lmViewDomainClick'#0#0#9'TMenuItem'#9'lmNew'
+  +'Role'#3'Tag'#2#19#7'Caption'#6#12'Add New Role'#7'OnClick'#7#14'lmNewRoleCl'
+  +'ick'#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'l'
+  +'mRolePerManagement'#3'Tag'#2#9#7'Caption'#6#21'Permission Management'#11'Bi'
+  +'tmap.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'psj'
+  +'vyp'#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'|vx'
+  +'rqsmuwquwq'#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'lmR'
+  +'olePerManagementClick'#0#0#9'TMenuItem'#14'lmNewException'#3'Tag'#2#20#7'Ca'
+  +'ption'#6#17'Add New Exception'#7'OnClick'#7#19'lmNewExceptionClick'#0#0#9'T'
+  +'MenuItem'#17'lmScriptException'#3'Tag'#2#10#7'Caption'#6#6'Script'#7'OnClic'
+  +'k'#7#22'lmScriptExceptionClick'#0#0#9'TMenuItem'#15'lmDropException'#3'Tag'
+  +#2#10#7'Caption'#6#4'Drop'#7'OnClick'#7#20'lmDropExceptionClick'#0#0#9'TMenu'
+  +'Item'#9'lmAddUser'#3'Tag'#2#21#7'Caption'#6#15'Create New User'#7'OnClick'#7
+  +#14'lmAddUserClick'#0#0#9'TMenuItem'#16'lmChangePassword'#3'Tag'#2'o'#7'Capt'
+  +'ion'#6#15'Change password'#7'OnClick'#7#21'lmChangePasswordClick'#0#0#9'TMe'
+  +'nuItem'#13'lmPermissions'#3'Tag'#2'o'#7'Caption'#6#16'Show Permissions'#7'O'
+  +'nClick'#7#18'lmPermissionsClick'#0#0#9'TMenuItem'#20'lmUserPermManagement'#3
+  +'Tag'#2'o'#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'~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'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#25'lmUserPermManagementClick'#0#0#9'TM'
+  +'enuItem'#16'lmCopyPermission'#3'Tag'#2'o'#7'Caption'#6#18'Copy Permission T'
+  +'o'#7'OnClick'#7#21'lmCopyPermissionClick'#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'mdsHistory'#9'FieldDefs'#14#1#4'Name'#6#4'Time'#8'Data'
+  +'Type'#7#10'ftDateTime'#9'Precision'#2#0#4'Size'#2#0#0#1#4'Name'#6#7'SQLType'
+  +#8'DataType'#7#8'ftString'#9'Precision'#2#0#4'Size'#2#6#0#1#4'Name'#6#12'SQL'
+  +'Statement'#8'DataType'#7#8'ftString'#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
 ]);

+ 49 - 7
main.pas

@@ -371,10 +371,12 @@ var
   AType: string;
   ATab: TTabSheet;
   Title: string;
+  dbIndex: Integer;
 begin
   ProcessList:= TStringList.Create;
+  dbIndex:= tvMain.Selected.OverlayIndex;
   Title:= 'Database information for: ' + tvMain.Selected.Text;
-  if dmSysTables.GetDatabaseInfo(tvMain.Selected.OverlayIndex, dbName, ACharSet, CreationDate,
+  if dmSysTables.GetDatabaseInfo(dbIndex, dbName, ACharSet, CreationDate,
     MajorVer, MinorVer, Pages, PageSize, ProcessList) then
   with fmDBInfo do
   begin
@@ -396,6 +398,7 @@ begin
       ATab:= fmDBInfo.Parent as TTabSheet;
 
     PageControl1.ActivePage:= ATab;
+    ATab.Tag:= dbIndex;
     ATab.Caption:= Title;
     edName.Text:= dbName;
     edODSVer.Text:= IntToStr(MajorVer) + '.' + IntToStr(MinorVer);
@@ -435,8 +438,28 @@ begin
 end;
 
 procedure TfmMain.lmDisconnectClick(Sender: TObject);
+var
+  dbIndex: Integer;
+  i: Integer;
+  Form: TForm;
+  j: Integer;
+  TabSheet: TTabSheet;
 begin
-  RegisteredDatabases[tvMain.Selected.OverlayIndex].IBConnection.Close;
+  dbIndex:= tvMain.Selected.OverlayIndex;
+  RegisteredDatabases[dbIndex].IBConnection.Close;
+  for i:= PageControl1.PageCount - 1 downto 0 do
+    if (PageControl1.Pages[i] as TComponent).Tag = dbIndex then
+    begin
+      TabSheet:= PageControl1.Page[i] as TTabSheet;
+      for j:= 0 to TabSheet.ControlCount - 1 do
+      if TabSheet.Controls[j] is TForm then
+      begin
+        (TabSheet.Controls[j] as TForm).Close;
+        TabSheet.Free;
+        Break;
+      end;
+    end;
+  tvMain.Selected.Collapse(True);
 end;
 
 procedure TfmMain.lmEditFieldClick(Sender: TObject);
@@ -1539,6 +1562,7 @@ begin
   else
     ATab:= Form.Parent as TTabSheet;
 
+  ATab.Tag:= dbIndex;
   PageControl1.ActivePage:= ATab;
   Form.StringGrid1.RowCount:= 1;
   Form.laObject.Caption:= UserName;
@@ -1595,6 +1619,7 @@ var
   fmPermissions: TfmPermissionManage;
   ATab: TTabSheet;
   Title: string;
+  dbIndex: Integer;
 begin
   Title:= 'Permission management for: ' + tvMain.Selected.Text;
   fmPermissions:= FindCusomForm(Title, TfmPermissionManage) as TfmPermissionManage;
@@ -1613,7 +1638,9 @@ begin
   else
     ATab:= fmViewGen.Parent as TTabSheet;
   PageControl1.ActivePage:= ATab;
-  fmPermissions.Init(tvMain.Selected.Parent.Parent.OverlayIndex, '', tvMain.Selected.Text, 2);
+  dbIndex:= tvMain.Selected.Parent.Parent.OverlayIndex;
+  ATab.Tag:= dbIndex;
+  fmPermissions.Init(dbIndex, '', tvMain.Selected.Text, 2);
   fmPermissions.Show;
 end;
 
@@ -2176,6 +2203,7 @@ begin
     fmTableManage.Caption:= Title;
     ATab.Caption:= Title;
     dbIndex:= SelNode.Parent.Parent.OverlayIndex;
+    ATab.Tag:= dbIndex;
     fmTableManage.Init(dbIndex, SelNode.Text);
     fmTableManage.PageControl1.TabIndex:= 0;
     ViewTableFields(SelNode.Text, dbIndex, fmTableManage.sgFields);
@@ -2220,6 +2248,7 @@ var
   ADomainForm: TFmViewDomain;
   DefaultValue: string;
   ATab: TTabSheet;
+  dbIndex: Integer;
 begin
   SelNode:= tvMain.Selected;
   if (SelNode <> nil) and (SelNode.Parent <> nil) then
@@ -2239,7 +2268,9 @@ begin
       PageControl1.ActivePage:= ATab;
     end;
 
-    dmSysTables.GetDomainInfo(SelNode.Parent.Parent.OverlayIndex, ADomainName, DomainType, DomainSize, DefaultValue);
+    dbIndex:= SelNode.Parent.Parent.OverlayIndex;
+    dmSysTables.GetDomainInfo(dbIndex, ADomainName, DomainType, DomainSize, DefaultValue);
+    ATab.Tag:= dbIndex;
     if Pos('default', LowerCase(DefaultValue)) = 1 then
       DefaultValue:= Trim(Copy(DefaultValue, 8, Length(DefaultValue)));
     if Pos('CHAR', DomainType) > 0 then
@@ -2593,6 +2624,7 @@ begin
     Result.Align:= alClient;
   end;
   Result.Init(DatabaseIndex);
+  ATab.Tag:= DatabaseIndex;
   Result.Caption:= ACaption;
   Result.Parent.Show;
   Result.BorderStyle:= bsNone;
@@ -2936,7 +2968,9 @@ begin
     fmViewView.Caption:= 'View DDL: ' + AViewName;
     ATab.Caption:= fmViewView.Caption;
     fmViewView.edName.Caption:= AViewName;
-    GetViewInfo(SelNode.Parent.Parent.OverlayIndex, AViewName, Columns, ViewBody);
+    ATab.Tag:= dbIndex;
+
+    GetViewInfo(dbIndex, AViewName, Columns, ViewBody);
     fmViewView.seScript.Lines.Clear;
     fmViewView.seScript.Lines.Text:= 'create view "' + AviewName + '" (' + Columns + ')' + #13#10 + ViewBody;
     PageControl1.ActivePage:= ATab;
@@ -3055,6 +3089,7 @@ begin
     else
       ATab:= fmViewGen.Parent as TTabSheet;
     PageControl1.ActivePage:= ATab;
+    ATab.Tag:= dbIndex;
 
     with fmViewGen do
     begin
@@ -3109,6 +3144,7 @@ begin
       SynSQLSyn1.TableNames.CommaText:= GetTableNames(dbIndex);
       Caption:= Title;
       ATab.Caption:= Caption;
+      ATab.Tag:= dbIndex;
       edName.Caption:= AProcName;
       seScript.Lines.Clear;
       seScript.Lines.Add('create procedure ' + AProcName + '(');
@@ -3138,13 +3174,15 @@ var
   TriggerPosition: Integer;
   ATab: TTabSheet;
   Title: string;
+  dbIndex: Integer;
 begin
   SelNode:= tvMain.Selected;
   if (SelNode <> nil) and (SelNode.Parent <> nil) then
   begin
     ATriggerName:= SelNode.Text;
     Title:= 'Trigger : ' + ATriggerName;
-    dmSysTables.GetTriggerInfo(SelNode.Parent.Parent.OverlayIndex, ATriggerName, BeforeAfter, OnTable,
+    dbIndex:= SelNode.Parent.Parent.OverlayIndex;
+    dmSysTables.GetTriggerInfo(dbIndex, ATriggerName, BeforeAfter, OnTable,
       Event, Body, TriggerEnabled, TriggerPosition);
 
     // Fill ViewTrigger form
@@ -3164,6 +3202,7 @@ begin
       ATab:= fmViewTrigger.Parent as TTabSheet;
 
     PageControl1.ActivePage:= ATab;
+    ATab.Tag:= dbIndex;
     with fmViewTrigger do
     begin
       Caption:= Title;
@@ -3199,18 +3238,21 @@ var
   ModuleName, EntryPoint: string;
   Params: string;
   ATab: TTabSheet;
+  dbIndex: Integer;
 begin
   SelNode:= tvMain.Selected;
   if (SelNode <> nil) and (SelNode.Parent <> nil) then
   begin
     AFuncName:= SelNode.Text;
-    if GetUDFInfo(SelNode.Parent.Parent.OverlayIndex, AFuncName, ModuleName, EntryPoint, Params) then
+    dbIndex:= SelNode.Parent.Parent.OverlayIndex;
+    if GetUDFInfo(dbIndex, AFuncName, ModuleName, EntryPoint, Params) then
     with fmUDFINfo do
     begin
       fmUDFInfo:= TfmUDFInfo.Create(nil);
       ATab:= TTabSheet.Create(nil);
       ATab.Parent:= PageControl1;
       fmUDFInfo.Parent:= ATab;
+      ATab.Tag:= dbIndex;
       fmUDFInfo.Left:= 0;
       fmUDFInfo.Top:= 0;
       fmUDFInfo.BorderStyle:= bsNone;