ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibmodifysqleditor.lfm
(Generate patch)

Comparing ibx/trunk/design/ibmodifysqleditor.lfm (file contents):
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC vs.
Revision 106 by tony, Thu Jan 18 14:37:35 2018 UTC

# Line 1 | Line 1
1 < object IBModifySQLEditorForm: TIBModifySQLEditorForm
2 <  Left = 508
3 <  Height = 438
4 <  Top = 250
5 <  Width = 749
6 <  ActiveControl = TableNamesCombo
1 > inherited IBModifySQLEditorForm: TIBModifySQLEditorForm
2 >  Left = 949
3 >  Height = 512
4    Caption = 'Modify SQL Editor'
5 <  ClientHeight = 438
6 <  ClientWidth = 749
7 <  OnShow = FormShow
8 <  LCLVersion = '1.2.2.0'
9 <  object Label1: TLabel
10 <    Left = 16
14 <    Height = 15
15 <    Top = 16
16 <    Width = 69
17 <    Caption = 'Table Name'
18 <    ParentColor = False
19 <  end
20 <  object Label2: TLabel
21 <    Left = 19
22 <    Height = 15
23 <    Top = 84
24 <    Width = 33
25 <    Caption = 'Fields'
26 <    ParentColor = False
27 <  end
28 <  object Label3: TLabel
29 <    Left = 279
30 <    Height = 15
31 <    Top = 16
32 <    Width = 24
33 <    Caption = 'SQL'
34 <    ParentColor = False
35 <  end
36 <  object Label4: TLabel
37 <    Left = 23
38 <    Height = 15
39 <    Top = 285
40 <    Width = 77
41 <    Caption = 'Primary Keys'
42 <    ParentColor = False
43 <  end
44 <  object SQLText: TMemo
45 <    Left = 279
46 <    Height = 328
47 <    Top = 36
48 <    Width = 439
49 <    Anchors = [akTop, akLeft, akRight, akBottom]
50 <    ScrollBars = ssAutoBoth
51 <    TabOrder = 0
5 >  ClientHeight = 512
6 >  inherited Button1: TButton
7 >    Top = 457
8 >  end
9 >  inherited Button2: TButton
10 >    Top = 457
11    end
12 <  object Button1: TButton
13 <    Left = 552
55 <    Height = 30
56 <    Top = 379
57 <    Width = 72
58 <    Anchors = [akRight, akBottom]
59 <    Caption = 'OK'
60 <    Default = True
61 <    ModalResult = 1
62 <    TabOrder = 1
63 <  end
64 <  object Button2: TButton
65 <    Left = 640
66 <    Height = 30
67 <    Top = 380
68 <    Width = 72
69 <    Anchors = [akRight, akBottom]
70 <    Cancel = True
71 <    Caption = 'Cancel'
72 <    ModalResult = 2
73 <    TabOrder = 2
74 <  end
75 <  object TableNamesCombo: TComboBox
76 <    Left = 23
77 <    Height = 27
78 <    Top = 38
79 <    Width = 201
80 <    ItemHeight = 0
81 <    OnCloseUp = TableNamesComboCloseUp
82 <    TabOrder = 3
83 <  end
84 <  object FieldList: TListBox
85 <    Left = 21
86 <    Height = 146
87 <    Hint = 'Select Fields to include in Update Statement, or leave unselected to select all'
88 <    Top = 102
89 <    Width = 204
90 <    ItemHeight = 0
91 <    MultiSelect = True
92 <    OnDblClick = FieldListDblClick
93 <    ParentShowHint = False
94 <    ScrollWidth = 202
95 <    ShowHint = True
96 <    TabOrder = 4
97 <    TopIndex = -1
98 <  end
99 <  object GenerateBtn: TButton
100 <    Left = 280
101 <    Height = 30
102 <    Top = 380
103 <    Width = 101
104 <    Anchors = [akRight, akBottom]
105 <    Caption = 'Generate SQL'
12 >  inherited GenerateBtn: TButton
13 >    Top = 457
14      OnClick = GenerateBtnClick
107    TabOrder = 5
15    end
16 <  object TestBtn: TButton
17 <    Left = 416
111 <    Height = 30
112 <    Top = 380
113 <    Width = 66
114 <    Anchors = [akRight, akBottom]
115 <    Caption = 'Test'
116 <    OnClick = TestBtnClick
117 <    TabOrder = 6
118 <  end
119 <  object QuoteFields: TCheckBox
120 <    Left = 16
121 <    Height = 24
122 <    Top = 400
123 <    Width = 127
124 <    Caption = '&Quote Identifiers'
125 <    TabOrder = 7
16 >  inherited TestBtn: TButton
17 >    Top = 457
18    end
19 <  object PrimaryKeyList: TListBox
20 <    Left = 23
21 <    Height = 59
22 <    Top = 304
23 <    Width = 200
24 <    ItemHeight = 0
25 <    OnDblClick = PrimaryKeyListDblClick
26 <    ScrollWidth = 198
19 >  inherited PageControl: TPageControl
20 >    inherited SelectPage: TTabSheet
21 >      inherited Label2: TLabel
22 >        Left = 7
23 >        Top = 224
24 >        Width = 106
25 >        Caption = 'Updateable Fields'
26 >      end
27 >      inherited Label4: TLabel
28 >        Left = 7
29 >      end
30 >      inherited FieldNamesGrid: TIBDynamicGrid
31 >        Height = 104
32 >        Top = 240
33 >      end
34 >      inherited PrimaryKeysGrid: TIBDynamicGrid
35 >        Height = 48
36 >      end
37 >      inherited SelectSelectAll: TCheckBox
38 >        Top = 344
39 >      end
40 >      object Label5: TLabel[8]
41 >        Left = 9
42 >        Height = 14
43 >        Top = 152
44 >        Width = 138
45 >        Caption = 'Computed By Columns'
46 >        ParentColor = False
47 >      end
48 >      object ReadOnlyGrid: TIBDynamicGrid[9]
49 >        Left = 9
50 >        Height = 48
51 >        Top = 168
52 >        Width = 209
53 >        Color = clWindow
54 >        Columns = <        
55 >          item
56 >            ButtonStyle = cbsCheckboxColumn
57 >            Title.Caption = 'SELECTED'
58 >            Width = 30
59 >            FieldName = 'SELECTED'
60 >            AutoSizeColumn = False
61 >            InitialSortColumn = False
62 >            DBLookupProperties.ItemHeight = 0
63 >            DBLookupProperties.ItemWidth = 0
64 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
65 >          end        
66 >          item
67 >            Title.Caption = 'COLUMNNAME'
68 >            Width = 64
69 >            FieldName = 'COLUMNNAME'
70 >            AutoSizeColumn = True
71 >            InitialSortColumn = False
72 >            DBLookupProperties.ItemHeight = 0
73 >            DBLookupProperties.ItemWidth = 0
74 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
75 >          end>
76 >        FixedCols = 0
77 >        Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
78 >        Scrollbars = ssAutoVertical
79 >        TabOrder = 5
80 >        ExpandEditorPanelBelowRow = False
81 >        Descending = False
82 >        EditorBorderStyle = bsSingle
83 >        DefaultPositionAtEnd = False
84 >      end
85 >    end
86 >    inherited ExecutePage: TTabSheet
87 >      inherited Label18: TLabel
88 >        Visible = False
89 >      end
90 >      inherited SelectProcedure: TLabel
91 >        Width = 81
92 >        Caption = 'Execute Only'
93 >      end
94 >      inherited InputProcGrid: TIBDynamicGrid
95 >        Height = 224
96 >      end
97 >      inherited OutputProcGrid: TIBDynamicGrid
98 >        Visible = False
99 >      end
100 >    end
101 >  end
102 >  inherited IBSQLEditFrame1: TIBSQLEditFrame
103 >    Left = 282
104 >    Height = 389
105 >    Top = 24
106 >    Width = 448
107 >    Anchors = [akTop, akLeft, akRight, akBottom]
108 >    ClientHeight = 389
109 >    ClientWidth = 448
110 >    TabOrder = 7
111 >    DesignLeft = 1974
112 >    DesignTop = 200
113 >    inherited SQLText: TSynEdit
114 >      Height = 363
115 >      Width = 448
116 >    end
117 >    inherited ToolBar1: TToolBar
118 >      Width = 448
119 >    end
120 >    inherited FieldNameList: TIBQuery
121 >      ParamData = <      
122 >        item
123 >          DataType = ftUnknown
124 >          Name = 'RDB$RELATION_NAME'
125 >          ParamType = ptInput
126 >        end>
127 >    end
128 >    inherited PrimaryKeys: TIBQuery
129 >      ParamData = <      
130 >        item
131 >          DataType = ftUnknown
132 >          Name = 'RDB$RELATION_NAME'
133 >          ParamType = ptInput
134 >        end>
135 >    end
136 >    inherited UserProcedures: TIBQuery
137 >      AfterScroll = UserProceduresAfterScroll
138 >    end
139 >    inherited ProcInputParams: TIBQuery
140 >      ParamData = <      
141 >        item
142 >          DataType = ftUnknown
143 >          Name = 'RDB$PROCEDURE_NAME'
144 >          ParamType = ptInput
145 >        end>
146 >    end
147 >    inherited ProcOutputParams: TIBQuery
148 >      ParamData = <      
149 >        item
150 >          DataType = ftUnknown
151 >          Name = 'RDB$PROCEDURE_NAME'
152 >          ParamType = ptInput
153 >        end>
154 >    end
155 >    inherited SQLTransaction: TIBTransaction
156 >      Params.Strings = (      )
157 >    end
158 >    inherited IdentityCols: TIBQuery
159 >      ParamData = <      
160 >        item
161 >          DataType = ftUnknown
162 >          Name = 'RDB$RELATION_NAME'
163 >          ParamType = ptInput
164 >        end>
165 >    end
166 >    inherited ReadOnlyFields: TIBQuery
167 >      ParamData = <      
168 >        item
169 >          DataType = ftUnknown
170 >          Name = 'RDB$RELATION_NAME'
171 >          ParamType = ptInput
172 >        end>
173 >    end
174 >    inherited ReadOnlyFieldsSource: TDataSource
175 >      left = 436
176 >      top = 203
177 >    end
178 >  end
179 >  object IncludePrimaryKeys: TCheckBox[9]
180 >    Left = 24
181 >    Height = 22
182 >    Top = 465
183 >    Width = 241
184 >    Caption = 'Include Primary keys in Update SQL'
185      TabOrder = 8
136    TopIndex = -1
137  end
138  object IncludePrimaryKeys: TCheckBox
139    Left = 19
140    Height = 24
141    Top = 256
142    Width = 223
143    Caption = 'Include Primary keys in Field List'
144    Checked = True
145    OnClick = TableNamesComboCloseUp
146    State = cbChecked
147    TabOrder = 9
148  end
149  object GenerateParams: TCheckBox
150    Left = 16
151    Height = 24
152    Top = 376
153    Width = 173
154    Caption = 'Allow DSQL Placeholders'
155    TabOrder = 10
156  end
157  object IBTransaction1: TIBTransaction
158    Active = False
159    left = 209
160    top = 388
186    end
187   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines