Delete permission script bug fixing

	modified:   TurboBird.lpi
	modified:   TurboBird.lpr
	modified:   scriptdb.pas

TurboBird.lpi

@@ -62,8 +62,8 @@
         <UnitName Value="TurboBird"/>
         <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="37"/>
-        <CursorPos X="42" Y="20"/>
+        <TopLine Value="1"/>
+        <CursorPos X="25" Y="5"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -73,11 +73,10 @@
         <ComponentName Value="fmMain"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="main"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="336"/>
-        <CursorPos X="1" Y="356"/>
+        <TopLine Value="341"/>
+        <CursorPos X="3" Y="348"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -544,10 +543,11 @@
         <Filename Value="scriptdb.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="Scriptdb"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="527"/>
-        <CursorPos X="3" Y="535"/>
+        <TopLine Value="433"/>
+        <CursorPos X="49" Y="453"/>
         <UsageCount Value="194"/>
         <Loaded Value="True"/>
       </Unit51>
@@ -994,7 +994,7 @@
       </Position2>
       <Position3>
         <Filename Value="main.pas"/>
-        <Caret Line="2613" Column="36" TopLine="2606"/>
+        <Caret Line="2615" Column="36" TopLine="2608"/>
       </Position3>
       <Position4>
         <Filename Value="main.pas"/>
@@ -1002,7 +1002,7 @@
       </Position4>
       <Position5>
         <Filename Value="main.pas"/>
-        <Caret Line="2613" Column="36" TopLine="2606"/>
+        <Caret Line="2615" Column="36" TopLine="2608"/>
       </Position5>
       <Position6>
         <Filename Value="main.pas"/>
@@ -1018,7 +1018,7 @@
       </Position8>
       <Position9>
         <Filename Value="main.pas"/>
-        <Caret Line="2615" Column="36" TopLine="2608"/>
+        <Caret Line="2613" Column="36" TopLine="2606"/>
       </Position9>
       <Position10>
         <Filename Value="main.pas"/>
@@ -1026,7 +1026,7 @@
       </Position10>
       <Position11>
         <Filename Value="main.pas"/>
-        <Caret Line="2615" Column="36" TopLine="2608"/>
+        <Caret Line="2613" Column="36" TopLine="2606"/>
       </Position11>
       <Position12>
         <Filename Value="main.pas"/>
@@ -1042,7 +1042,7 @@
       </Position14>
       <Position15>
         <Filename Value="main.pas"/>
-        <Caret Line="2613" Column="36" TopLine="2606"/>
+        <Caret Line="2615" Column="36" TopLine="2608"/>
       </Position15>
       <Position16>
         <Filename Value="main.pas"/>
@@ -1050,7 +1050,7 @@
       </Position16>
       <Position17>
         <Filename Value="main.pas"/>
-        <Caret Line="2613" Column="36" TopLine="2606"/>
+        <Caret Line="2615" Column="36" TopLine="2608"/>
       </Position17>
       <Position18>
         <Filename Value="main.pas"/>
@@ -1058,51 +1058,51 @@
       </Position18>
       <Position19>
         <Filename Value="main.pas"/>
-        <Caret Line="2615" Column="36" TopLine="2608"/>
+        <Caret Line="2613" Column="36" TopLine="2606"/>
       </Position19>
       <Position20>
-        <Filename Value="main.pas"/>
-        <Caret Line="2614" Column="36" TopLine="2607"/>
+        <Filename Value="about.pas"/>
+        <Caret Line="19" Column="37" TopLine="9"/>
       </Position20>
       <Position21>
         <Filename Value="main.pas"/>
-        <Caret Line="2615" Column="36" TopLine="2608"/>
+        <Caret Line="2609" Column="19" TopLine="2606"/>
       </Position21>
       <Position22>
         <Filename Value="main.pas"/>
-        <Caret Line="2614" Column="36" TopLine="2607"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position22>
       <Position23>
         <Filename Value="main.pas"/>
-        <Caret Line="2613" Column="36" TopLine="2606"/>
+        <Caret Line="2184" Column="1" TopLine="2179"/>
       </Position23>
       <Position24>
-        <Filename Value="about.pas"/>
-        <Caret Line="19" Column="37" TopLine="9"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="346" Column="39" TopLine="334"/>
       </Position24>
       <Position25>
         <Filename Value="main.pas"/>
-        <Caret Line="2609" Column="19" TopLine="2606"/>
+        <Caret Line="351" Column="1" TopLine="334"/>
       </Position25>
       <Position26>
         <Filename Value="main.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="358" Column="1" TopLine="341"/>
       </Position26>
       <Position27>
         <Filename Value="main.pas"/>
-        <Caret Line="2184" Column="1" TopLine="2179"/>
+        <Caret Line="356" Column="1" TopLine="336"/>
       </Position27>
       <Position28>
         <Filename Value="main.pas"/>
-        <Caret Line="346" Column="39" TopLine="334"/>
+        <Caret Line="338" Column="3" TopLine="336"/>
       </Position28>
       <Position29>
         <Filename Value="main.pas"/>
-        <Caret Line="351" Column="1" TopLine="334"/>
+        <Caret Line="348" Column="3" TopLine="341"/>
       </Position29>
       <Position30>
-        <Filename Value="main.pas"/>
-        <Caret Line="358" Column="1" TopLine="341"/>
+        <Filename Value="scriptdb.pas"/>
+        <Caret Line="535" Column="3" TopLine="527"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

TurboBird.lpr

@@ -2,7 +2,7 @@
 {  TurboBird: FireBird database administration and management tool          }
 {  Developed by: Motaz Abdel Azeem http://code.sd/                          }
 {  Start development:  5.Dec.2009                                           }
-{  Last updated     : 15.Apr.2012                                           }
+{  Last updated     : 19.Apr.2012                                           }
 {  License          : GPL for GUI, LGPL for Units                           }
 {***************************************************************************}
 

scriptdb.pas

@@ -444,10 +444,16 @@ begin
         PermissionList.Clear;
         if Pos('S', Permissions) > 0 then
           PermissionList.Add('Select');
+
         if Pos('U', Permissions) > 0 then
           PermissionList.Add('Update');
+
         if Pos('I', Permissions) > 0 then
           PermissionList.Add('Insert');
+
+        if Pos('D', Permissions) > 0 then
+          PermissionList.Add('Delete');
+
         if Pos('R', Permissions) > 0 then
           PermissionList.Add('References');
         Line:= 'Grant ' + PermissionList.CommaText + ' on ' + ObjName + ' to ' + NewUser;