Преглед на файлове

Surroundind tables with quotes in query
modified: TurboBird.lpi
modified: TurboBird.lpr
modified: main.lfm
modified: main.lrs
modified: main.pas

motaz преди 12 години
родител
ревизия
7c1dc274ea
променени са 5 файла, в които са добавени 47 реда и са изтрити 108 реда
  1. 42 103
      TurboBird.lpi
  2. 2 2
      TurboBird.lpr
  3. 1 1
      main.lfm
  4. 1 1
      main.lrs
  5. 1 1
      main.pas

+ 42 - 103
TurboBird.lpi

@@ -63,8 +63,8 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="30" Y="5"/>
+        <TopLine Value="13"/>
+        <CursorPos X="30" Y="29"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -75,10 +75,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="main"/>
-        <EditorIndex Value="8"/>
+        <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="3253"/>
-        <CursorPos X="3" Y="3504"/>
+        <TopLine Value="3470"/>
+        <CursorPos X="61" Y="3479"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -207,13 +207,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="NewTable"/>
-        <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
         <TopLine Value="183"/>
         <CursorPos X="56" Y="215"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit13>
       <Unit14>
         <Filename Value="newgen.pas"/>
@@ -233,13 +230,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EnterPass"/>
-        <EditorIndex Value="17"/>
         <WindowIndex Value="0"/>
         <TopLine Value="4"/>
         <CursorPos X="18" Y="22"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit15>
       <Unit16>
         <Filename Value="about.pas"/>
@@ -248,13 +242,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="About"/>
-        <EditorIndex Value="14"/>
         <WindowIndex Value="0"/>
         <TopLine Value="13"/>
         <CursorPos X="8" Y="19"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit16>
       <Unit17>
         <Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/interfaces/gtk2/interfaces.pas"/>
@@ -552,12 +543,10 @@
         <Filename Value="scriptdb.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="Scriptdb"/>
-        <EditorIndex Value="18"/>
         <WindowIndex Value="0"/>
         <TopLine Value="491"/>
         <CursorPos X="46" Y="518"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
       </Unit51>
       <Unit52>
         <Filename Value="connectas.pas"/>
@@ -594,13 +583,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TableManage"/>
-        <EditorIndex Value="13"/>
         <WindowIndex Value="0"/>
         <TopLine Value="304"/>
         <CursorPos X="39" Y="310"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit55>
       <Unit56>
         <Filename Value="/usr/lib/lazarus/0.9.29/lcl/grids.pas"/>
@@ -641,23 +627,18 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="BackupRestore"/>
-        <EditorIndex Value="10"/>
         <WindowIndex Value="0"/>
         <TopLine Value="92"/>
         <CursorPos X="3" Y="98"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit60>
       <Unit61>
         <Filename Value="unitfirebirdservices.pas"/>
         <UnitName Value="UnitFirebirdServices"/>
-        <EditorIndex Value="11"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="1" Y="1"/>
         <UsageCount Value="24"/>
-        <Loaded Value="True"/>
       </Unit61>
       <Unit62>
         <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-db/src/sqldb/interbase/ibconnection.pp"/>
@@ -728,13 +709,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="ChangePass"/>
-        <EditorIndex Value="15"/>
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="88" Y="14"/>
         <UsageCount Value="194"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit69>
       <Unit70>
         <Filename Value="permissionmanage.pas"/>
@@ -743,13 +721,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="PermissionManage"/>
-        <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
         <TopLine Value="432"/>
         <CursorPos X="25" Y="289"/>
         <UsageCount Value="192"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit70>
       <Unit71>
         <Filename Value="sqlhistory.pas"/>
@@ -758,13 +733,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="SQLHistory"/>
-        <EditorIndex Value="16"/>
         <WindowIndex Value="0"/>
         <TopLine Value="56"/>
         <CursorPos X="20" Y="89"/>
         <UsageCount Value="177"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit71>
       <Unit72>
         <Filename Value="../../lazarus/lazarus/lcl/include/menuitem.inc"/>
@@ -980,13 +952,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="dbInfo"/>
-        <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
         <TopLine Value="64"/>
         <CursorPos X="16" Y="66"/>
         <UsageCount Value="116"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit98>
       <Unit99>
         <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60dyn.pp"/>
@@ -1092,12 +1061,10 @@
       </Unit110>
       <Unit111>
         <Filename Value="/usr/share/fpcsrc/2.6.0/packages/ibase/src/ibase60.inc"/>
-        <EditorIndex Value="12"/>
         <WindowIndex Value="0"/>
         <TopLine Value="2388"/>
         <CursorPos X="3" Y="2406"/>
         <UsageCount Value="12"/>
-        <Loaded Value="True"/>
       </Unit111>
       <Unit112>
         <Filename Value="/usr/share/fpcsrc/2.6.0/rtl/unix/dynlibs.inc"/>
@@ -1109,127 +1076,99 @@
         <Loaded Value="True"/>
       </Unit112>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="23" HistoryIndex="22">
       <Position1>
-        <Filename Value="dbinfo.pas"/>
-        <Caret Line="64" Column="21" TopLine="41"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="436" Column="24" TopLine="408"/>
       </Position1>
       <Position2>
-        <Filename Value="dbinfo.pas"/>
-        <Caret Line="43" Column="8" TopLine="33"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3504" Column="3" TopLine="3502"/>
       </Position2>
       <Position3>
-        <Filename Value="dbinfo.pas"/>
-        <Caret Line="81" Column="1" TopLine="73"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="1080" Column="61" TopLine="1074"/>
       </Position3>
       <Position4>
-        <Filename Value="dbinfo.pas"/>
-        <Caret Line="56" Column="21" TopLine="24"/>
+        <Filename Value="TurboBird.lpr"/>
+        <Caret Line="27" Column="1" TopLine="10"/>
       </Position4>
       <Position5>
-        <Filename Value="dbinfo.pas"/>
-        <Caret Line="129" Column="1" TopLine="99"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="1083" Column="52" TopLine="1072"/>
       </Position5>
       <Position6>
-        <Filename Value="main.pas"/>
-        <Caret Line="436" Column="24" TopLine="408"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="419" Column="3" TopLine="417"/>
       </Position6>
       <Position7>
-        <Filename Value="main.pas"/>
-        <Caret Line="3504" Column="3" TopLine="3502"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="788" Column="22" TopLine="762"/>
       </Position7>
       <Position8>
-        <Filename Value="backuprestore.pas"/>
-        <Caret Line="73" Column="3" TopLine="70"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="830" Column="38" TopLine="786"/>
       </Position8>
       <Position9>
-        <Filename Value="backuprestore.pas"/>
-        <Caret Line="98" Column="3" TopLine="92"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="823" Column="58" TopLine="635"/>
       </Position9>
       <Position10>
-        <Filename Value="unitfirebirdservices.pas"/>
-        <Caret Line="306" Column="3" TopLine="284"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="1087" Column="11" TopLine="1058"/>
       </Position10>
       <Position11>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1080" Column="61" TopLine="1074"/>
+        <Caret Line="419" Column="3" TopLine="416"/>
       </Position11>
       <Position12>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="27" Column="1" TopLine="10"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="1438" Column="3" TopLine="1435"/>
       </Position12>
       <Position13>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1083" Column="52" TopLine="1072"/>
+        <Caret Line="628" Column="3" TopLine="621"/>
       </Position13>
       <Position14>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="419" Column="3" TopLine="417"/>
+        <Caret Line="1086" Column="1" TopLine="1068"/>
       </Position14>
       <Position15>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="788" Column="22" TopLine="762"/>
+        <Caret Line="419" Column="3" TopLine="416"/>
       </Position15>
       <Position16>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="830" Column="38" TopLine="786"/>
+        <Caret Line="1438" Column="3" TopLine="1435"/>
       </Position16>
       <Position17>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="823" Column="58" TopLine="635"/>
+        <Caret Line="1438" Column="3" TopLine="1435"/>
       </Position17>
       <Position18>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1087" Column="11" TopLine="1058"/>
+        <Caret Line="649" Column="15" TopLine="633"/>
       </Position18>
       <Position19>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="419" Column="3" TopLine="416"/>
+        <Caret Line="648" Column="1" TopLine="633"/>
       </Position19>
       <Position20>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="1438" Column="3" TopLine="1435"/>
+        <Caret Line="629" Column="9" TopLine="584"/>
       </Position20>
       <Position21>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="628" Column="3" TopLine="621"/>
+        <Caret Line="147" Column="10" TopLine="138"/>
       </Position21>
       <Position22>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="1086" Column="1" TopLine="1068"/>
+        <Filename Value="TurboBird.lpr"/>
+        <Caret Line="29" Column="28" TopLine="10"/>
       </Position22>
       <Position23>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="419" Column="3" TopLine="416"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="3504" Column="3" TopLine="3479"/>
       </Position23>
-      <Position24>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="1438" Column="3" TopLine="1435"/>
-      </Position24>
-      <Position25>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="1438" Column="3" TopLine="1435"/>
-      </Position25>
-      <Position26>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="649" Column="15" TopLine="633"/>
-      </Position26>
-      <Position27>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="648" Column="1" TopLine="633"/>
-      </Position27>
-      <Position28>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="629" Column="9" TopLine="584"/>
-      </Position28>
-      <Position29>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="147" Column="10" TopLine="138"/>
-      </Position29>
-      <Position30>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="29" Column="28" TopLine="10"/>
-      </Position30>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>

+ 2 - 2
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      : 14.Feb.2013                                          }
+{  Last updated      : 17.Mar.2013                                          }
 {  License           : GPL for GUI, LGPL for Units                          }
 {***************************************************************************}
 
@@ -26,7 +26,7 @@ uses
 
 const
   Version = '0.9.9';
-  VersionDate = '2010 - Feb 2013';
+  VersionDate = '2010 - March 2013';
 {$IFDEF Unix}
 {$DEFINE extdecl:=cdecl}
     fbclib = 'libfbclient.' + sharedsuffix;

+ 1 - 1
main.lfm

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

+ 1 - 1
main.lrs

@@ -6,7 +6,7 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +'for FireBird'#12'ClientHeight'#3'i'#2#11'ClientWidth'#3#0#4#5'Color'#7#7'cl'
   +'White'#9'Font.Name'#6#4'Sans'#4'Menu'#7#9'MainMenu1'#10'OnActivate'#7#12'Fo'
   +'rmActivate'#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10'FormCreate'#8'Positi'
-  +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.4.0'#0#9'TTreeView'#6'tvMai'
+  +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.6.0'#0#9'TTreeView'#6'tvMai'
   +'n'#4'Left'#2#0#6'Height'#3'i'#2#3'Top'#2#0#5'Width'#3'h'#1#5'Align'#7#6'alL'
   +'eft'#15'BackgroundColor'#7#7'clWhite'#5'Color'#7#7'clCream'#13'HideSelectio'
   +'n'#8#6'Images'#7#10'ImageList1'#6'Indent'#2#25#8'ReadOnly'#9#16'RightClickS'

+ 1 - 1
main.pas

@@ -3476,7 +3476,7 @@ begin
   if (SelNode <> nil) and (SelNode.Parent <> nil) then
   begin
     QWindow:= ShowQueryWindow(SelNode.Parent.Parent.OverlayIndex, 'Select first 1000 from ' + SelNode.Text);
-    QWindow.meQuery.Lines.Text:= 'select first 1000 * from ' + SelNode.Text;
+    QWindow.meQuery.Lines.Text:= 'select first 1000 * from "' + SelNode.Text + '"';
     QWindow.bbRunClick(nil);
     QWindow.Show;
   end;