Get generator increment SQL

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

TurboBird.lpi

@@ -60,10 +60,11 @@
         <Filename Value="TurboBird.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TurboBird"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
-        <CursorPos X="26" Y="5"/>
+        <CursorPos X="19" Y="27"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -74,10 +75,13 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="main"/>
+        <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="407"/>
-        <CursorPos X="20" Y="419"/>
+        <TopLine Value="536"/>
+        <CursorPos X="83" Y="549"/>
         <UsageCount Value="200"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit1>
       <Unit2>
         <Filename Value="createdb.pas"/>
@@ -115,7 +119,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="QueryWindow"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
         <TopLine Value="944"/>
         <CursorPos X="53" Y="968"/>
@@ -220,7 +224,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EnterPass"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
         <TopLine Value="22"/>
         <CursorPos X="17" Y="46"/>
@@ -575,7 +579,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TableManage"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
         <TopLine Value="384"/>
         <CursorPos X="1" Y="405"/>
@@ -710,11 +714,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="PermissionManage"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="277"/>
-        <CursorPos X="27" Y="308"/>
+        <TopLine Value="270"/>
+        <CursorPos X="33" Y="284"/>
         <UsageCount Value="164"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -1021,7 +1024,7 @@
         <UsageCount Value="21"/>
       </Unit106>
     </Units>
-    <JumpHistory Count="18" HistoryIndex="17">
+    <JumpHistory Count="21" HistoryIndex="20">
       <Position1>
         <Filename Value="TurboBird.lpr"/>
         <Caret Line="24" Column="23" TopLine="13"/>
@@ -1094,6 +1097,18 @@
         <Filename Value="permissionmanage.pas"/>
         <Caret Line="318" Column="3" TopLine="314"/>
       </Position18>
+      <Position19>
+        <Filename Value="main.pas"/>
+        <Caret Line="419" Column="20" TopLine="407"/>
+      </Position19>
+      <Position20>
+        <Filename Value="main.pas"/>
+        <Caret Line="420" Column="20" TopLine="408"/>
+      </Position20>
+      <Position21>
+        <Filename Value="main.pas"/>
+        <Caret Line="2196" Column="1" TopLine="2170"/>
+      </Position21>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>

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      : 23.Sep.2012                                          }
+{  Last updated      : 11.Oct.2012                                          }
 {  License           : GPL for GUI, LGPL for Units                          }
 {***************************************************************************}
 
@@ -24,8 +24,8 @@ uses
   sysutils, Comparison;
 
 const
-  Version = '0.9.5';
-  VersionDate = '2010 - Sept 2012';
+  Version = '0.9.6';
+  VersionDate = '2010 - Oct 2012';
 {$IFDEF Unix}
 {$DEFINE extdecl:=cdecl}
     fbclib = 'libfbclient.' + sharedsuffix;

main.lfm

@@ -14,7 +14,7 @@ object fmMain: TfmMain
   OnClose = FormClose
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.0.2.0'
   object tvMain: TTreeView
     Left = 0
     Height = 617
@@ -2433,6 +2433,11 @@ object fmMain: TfmMain
       Caption = 'Create Auto increment Trigger'
       OnClick = lmCreateAutoIncClick
     end
+    object lmGetIncrementGen: TMenuItem
+      Tag = 2
+      Caption = 'Get increment SQL'
+      OnClick = lmGetIncrementGenClick
+    end
     object lmDisplay1000V: TMenuItem
       Tag = 4
       Caption = 'View First 1000 records'

main.pas

@@ -48,6 +48,7 @@ type
     lmDBIndo: TMenuItem;
     lmCopyRolePermission: TMenuItem;
     lmCompare: TMenuItem;
+    lmGetIncrementGen: TMenuItem;
     mnExit: TMenuItem;
     mnCreateDB: TMenuItem;
     mnRegDB: TMenuItem;
@@ -117,6 +118,7 @@ type
     procedure lmDBIndoClick(Sender: TObject);
     procedure lmDisconnectClick(Sender: TObject);
     procedure lmEditFieldClick(Sender: TObject);
+    procedure lmGetIncrementGenClick(Sender: TObject);
     procedure lmOpenSystemTableClick(Sender: TObject);
     procedure lmActivateTrigClick(Sender: TObject);
     procedure lmCallStoreProcClick(Sender: TObject);
@@ -531,6 +533,26 @@ begin
     ShowMessage('Unable to locate the field: ' + SelNode.Text);
 end;
 
+procedure TfmMain.lmGetIncrementGenClick(Sender: TObject);
+var
+  SelNode: TTreeNode;
+  AGenName: string;
+  dbIndex: Integer;
+begin
+  SelNode:= tvMain.Selected;
+  if (SelNode <> nil) and (SelNode.Parent <> nil) then
+  begin
+    dbIndex:= SelNode.Parent.Parent.OverlayIndex;
+
+    AGenName:= SelNode.Text;
+
+    ShowCompleteQueryWindow(dbIndex, 'get increment generator SQL for:' + AGenName,
+      'select GEN_ID(' + AGenName + ', 1) from RDB$Database;');
+  end;
+
+
+end;
+
 procedure TfmMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
   if Length(RegisteredDatabases) > 0 then