--- ibx/trunk/design/ibmodifysqleditor.lfm	2014/07/07 13:00:15	20
+++ ibx/trunk/design/ibmodifysqleditor.lfm	2015/02/26 10:33:34	21
@@ -3,28 +3,11 @@ object IBModifySQLEditorForm: TIBModifyS
   Height = 438
   Top = 250
   Width = 749
-  ActiveControl = TableNamesCombo
   Caption = 'Modify SQL Editor'
   ClientHeight = 438
   ClientWidth = 749
   OnShow = FormShow
-  LCLVersion = '1.2.2.0'
-  object Label1: TLabel
-    Left = 16
-    Height = 15
-    Top = 16
-    Width = 69
-    Caption = 'Table Name'
-    ParentColor = False
-  end
-  object Label2: TLabel
-    Left = 19
-    Height = 15
-    Top = 84
-    Width = 33
-    Caption = 'Fields'
-    ParentColor = False
-  end
+  LCLVersion = '1.2.6.0'
   object Label3: TLabel
     Left = 279
     Height = 15
@@ -33,14 +16,6 @@ object IBModifySQLEditorForm: TIBModifyS
     Caption = 'SQL'
     ParentColor = False
   end
-  object Label4: TLabel
-    Left = 23
-    Height = 15
-    Top = 285
-    Width = 77
-    Caption = 'Primary Keys'
-    ParentColor = False
-  end
   object SQLText: TMemo
     Left = 279
     Height = 328
@@ -72,30 +47,6 @@ object IBModifySQLEditorForm: TIBModifyS
     ModalResult = 2
     TabOrder = 2
   end
-  object TableNamesCombo: TComboBox
-    Left = 23
-    Height = 27
-    Top = 38
-    Width = 201
-    ItemHeight = 0
-    OnCloseUp = TableNamesComboCloseUp
-    TabOrder = 3
-  end
-  object FieldList: TListBox
-    Left = 21
-    Height = 146
-    Hint = 'Select Fields to include in Update Statement, or leave unselected to select all'
-    Top = 102
-    Width = 204
-    ItemHeight = 0
-    MultiSelect = True
-    OnDblClick = FieldListDblClick
-    ParentShowHint = False
-    ScrollWidth = 202
-    ShowHint = True
-    TabOrder = 4
-    TopIndex = -1
-  end
   object GenerateBtn: TButton
     Left = 280
     Height = 30
@@ -104,7 +55,7 @@ object IBModifySQLEditorForm: TIBModifyS
     Anchors = [akRight, akBottom]
     Caption = 'Generate SQL'
     OnClick = GenerateBtnClick
-    TabOrder = 5
+    TabOrder = 3
   end
   object TestBtn: TButton
     Left = 416
@@ -114,45 +65,183 @@ object IBModifySQLEditorForm: TIBModifyS
     Anchors = [akRight, akBottom]
     Caption = 'Test'
     OnClick = TestBtnClick
-    TabOrder = 6
+    TabOrder = 4
   end
   object QuoteFields: TCheckBox
     Left = 16
-    Height = 24
+    Height = 22
     Top = 400
-    Width = 127
+    Width = 125
     Caption = '&Quote Identifiers'
-    TabOrder = 7
-  end
-  object PrimaryKeyList: TListBox
-    Left = 23
-    Height = 59
-    Top = 304
-    Width = 200
-    ItemHeight = 0
-    OnDblClick = PrimaryKeyListDblClick
-    ScrollWidth = 198
-    TabOrder = 8
-    TopIndex = -1
-  end
-  object IncludePrimaryKeys: TCheckBox
-    Left = 19
-    Height = 24
-    Top = 256
-    Width = 223
-    Caption = 'Include Primary keys in Field List'
-    Checked = True
-    OnClick = TableNamesComboCloseUp
-    State = cbChecked
-    TabOrder = 9
+    TabOrder = 5
   end
   object GenerateParams: TCheckBox
     Left = 16
-    Height = 24
+    Height = 22
     Top = 376
-    Width = 173
+    Width = 171
     Caption = 'Allow DSQL Placeholders'
-    TabOrder = 10
+    TabOrder = 6
+  end
+  object PageControl: TPageControl
+    Left = 18
+    Height = 346
+    Top = 18
+    Width = 238
+    ActivePage = ExecutePage
+    TabIndex = 1
+    TabOrder = 7
+    object ModifyPage: TTabSheet
+      Caption = 'Update'
+      ClientHeight = 313
+      ClientWidth = 232
+      OnShow = ModifyPageShow
+      object Label1: TLabel
+        Left = 8
+        Height = 15
+        Top = 8
+        Width = 69
+        Caption = 'Table Name'
+        ParentColor = False
+      end
+      object TableNamesCombo: TComboBox
+        Left = 8
+        Height = 27
+        Top = 22
+        Width = 201
+        AutoComplete = True
+        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
+        ItemHeight = 0
+        OnCloseUp = TableNamesComboCloseUp
+        TabOrder = 0
+      end
+      object Label2: TLabel
+        Left = 8
+        Height = 15
+        Top = 56
+        Width = 33
+        Caption = 'Fields'
+        ParentColor = False
+      end
+      object FieldList: TListBox
+        Left = 8
+        Height = 120
+        Hint = 'Select Fields to include in Update Statement, or leave unselected to select all'
+        Top = 72
+        Width = 200
+        ItemHeight = 0
+        MultiSelect = True
+        OnDblClick = FieldListDblClick
+        ParentShowHint = False
+        ScrollWidth = 198
+        ShowHint = True
+        TabOrder = 1
+        TopIndex = -1
+      end
+      object IncludePrimaryKeys: TCheckBox
+        Left = 8
+        Height = 22
+        Top = 200
+        Width = 221
+        Caption = 'Include Primary keys in Field List'
+        Checked = True
+        OnClick = TableNamesComboCloseUp
+        State = cbChecked
+        TabOrder = 2
+      end
+      object Label4: TLabel
+        Left = 8
+        Height = 15
+        Top = 229
+        Width = 77
+        Caption = 'Primary Keys'
+        ParentColor = False
+      end
+      object PrimaryKeyList: TListBox
+        Left = 8
+        Height = 59
+        Top = 248
+        Width = 200
+        ItemHeight = 0
+        OnDblClick = PrimaryKeyListDblClick
+        ScrollWidth = 198
+        TabOrder = 3
+        TopIndex = -1
+      end
+    end
+    object ExecutePage: TTabSheet
+      Caption = 'Execute'
+      ClientHeight = 313
+      ClientWidth = 232
+      OnShow = ExecutePageShow
+      object Label16: TLabel
+        Left = 7
+        Height = 15
+        Top = 8
+        Width = 100
+        Caption = 'Procedure Name'
+        ParentColor = False
+      end
+      object ProcedureNames: TComboBox
+        Left = 7
+        Height = 27
+        Top = 24
+        Width = 201
+        ItemHeight = 0
+        OnCloseUp = ProcedureNamesCloseUp
+        ParentColor = True
+        TabOrder = 0
+      end
+      object Label17: TLabel
+        Left = 7
+        Height = 15
+        Top = 56
+        Width = 104
+        Caption = 'Input Parameters'
+        ParentColor = False
+      end
+      object ProcInputList: TListBox
+        Left = 8
+        Height = 103
+        Top = 72
+        Width = 198
+        IntegralHeight = True
+        ItemHeight = 0
+        ScrollWidth = 196
+        TabOrder = 1
+        TopIndex = -1
+      end
+      object ProcOutputList: TListBox
+        Left = 7
+        Height = 80
+        Top = 200
+        Width = 198
+        IntegralHeight = True
+        ItemHeight = 0
+        ScrollWidth = 196
+        TabOrder = 2
+        TopIndex = -1
+      end
+      object Label18: TLabel
+        Left = 7
+        Height = 15
+        Top = 184
+        Width = 114
+        Caption = 'Output Parameters'
+        ParentColor = False
+      end
+      object ExecuteOnlyIndicator: TLabel
+        Left = 10
+        Height = 15
+        Top = 293
+        Width = 89
+        Caption = 'Execute Only'
+        Font.Style = [fsBold]
+        ParentColor = False
+        ParentFont = False
+        Visible = False
+      end
+    end
   end
   object IBTransaction1: TIBTransaction
     Active = False