ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/design/ibdataseteditor.lfm

Comparing ibx/trunk/design/ibdataseteditor.lfm (file contents):
Revision 21 by tony, Thu Feb 26 10:33:34 2015 UTC vs.
Revision 105 by tony, Thu Jan 18 14:37:32 2018 UTC

#	Line 1 | Line 1
1		object IBDataSetEditorForm: TIBDataSetEditorForm
2	<	Left = 475
2	>	Left = 701
3		Height = 410
4	<	Top = 327
4	>	Top = 533
5		Width = 662
6		ActiveControl = PageControl
7		BorderIcons = [biSystemMenu]
#	Line 11 | Line 11 | object IBDataSetEditorForm: TIBDataSetEd
11		ClientWidth = 662
12		OnClose = FormClose
13		OnShow = FormShow
14	<	LCLVersion = '1.2.6.0'
14	>	Position = poScreenCenter
15	>	LCLVersion = '1.8.1.0'
16		object PageControl: TPageControl
17		Left = 8
18		Height = 352
#	Line 23 | Line 24 | object IBDataSetEditorForm: TIBDataSetEd
24		TabOrder = 0
25		object FieldsPage: TTabSheet
26		Caption = 'Options'
27	<	ClientHeight = 315
28	<	ClientWidth = 633
27	>	ClientHeight = 320
28	>	ClientWidth = 635
29		object GroupBox1: TGroupBox
30		Left = 8
31	<	Height = 310
31	>	Height = 315
32		Top = 4
33	<	Width = 615
33	>	Width = 617
34		Anchors = [akTop, akLeft, akRight, akBottom]
35		Caption = ' SQL Generation '
36	<	ClientHeight = 293
37	<	ClientWidth = 611
36	>	ClientHeight = 300
37	>	ClientWidth = 615
38		TabOrder = 0
39		object Label1: TLabel
40		Left = 12
41	<	Height = 15
41	>	Height = 14
42		Top = 18
43		Width = 73
44		Caption = 'Table &Name:'
44	–	FocusControl = TableNamesCombo
45		ParentColor = False
46		end
47		object Label3: TLabel
48	<	Left = 315
49	<	Height = 15
48	>	Left = 289
49	>	Height = 14
50		Top = 18
51		Width = 62
52		Caption = '&Key Fields:'
53	–	FocusControl = PrimaryKeyList
53		ParentColor = False
54		end
55		object Label4: TLabel
56		Left = 458
57	<	Height = 15
57	>	Height = 14
58		Top = 18
59	<	Width = 85
60	<	Caption = 'Update &Fields:'
62	<	FocusControl = FieldList
59	>	Width = 110
60	>	Caption = 'Updateable &Fields:'
61		ParentColor = False
62		end
65	–	object TableNamesCombo: TComboBox
66	–	Left = 9
67	–	Height = 27
68	–	Top = 35
69	–	Width = 171
70	–	AutoComplete = True
71	–	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
72	–	ItemHeight = 0
73	–	OnCloseUp = TableNamesComboCloseUp
74	–	TabOrder = 0
75	–	end
76	–	object PrimaryKeyList: TListBox
77	–	Left = 315
78	–	Height = 232
79	–	Top = 35
80	–	Width = 136
81	–	Anchors = [akTop, akLeft, akBottom]
82	–	ItemHeight = 0
83	–	MultiSelect = True
84	–	ScrollWidth = 134
85	–	TabOrder = 3
86	–	TopIndex = -1
87	–	end
88	–	object FieldList: TListBox
89	–	Left = 458
90	–	Height = 232
91	–	Hint = 'Select Fields to include in Update Statements, or leave unselected to select all'
92	–	Top = 35
93	–	Width = 136
94	–	Anchors = [akTop, akLeft, akBottom]
95	–	ItemHeight = 0
96	–	MultiSelect = True
97	–	ParentShowHint = False
98	–	ScrollWidth = 134
99	–	ShowHint = True
100	–	TabOrder = 4
101	–	TopIndex = -1
102	–	end
63		object GenerateButton: TButton
64		Left = 9
65		Height = 25
#	Line 107 | Line 67 | object IBDataSetEditorForm: TIBDataSetEd
67		Width = 168
68		Caption = '&Generate SQL'
69		OnClick = GenerateButtonClick
70	<	TabOrder = 1
70	>	TabOrder = 0
71		end
72		object QuoteFields: TCheckBox
73		Left = 9
74	<	Height = 24
74	>	Height = 22
75		Top = 160
76	<	Width = 127
76	>	Width = 125
77		Caption = '&Quote Identifiers'
78	<	TabOrder = 2
78	>	TabOrder = 1
79		end
80		object IncludePrimaryKeys: TCheckBox
81		Left = 9
82	<	Height = 24
82	>	Height = 22
83		Top = 192
84	<	Width = 223
85	<	Caption = 'Include Primary keys in Field List'
86	<	Checked = True
127	<	OnClick = TableNamesComboCloseUp
128	<	State = cbChecked
129	<	TabOrder = 5
84	>	Width = 241
85	>	Caption = 'Include Primary keys in Update SQL'
86	>	TabOrder = 2
87		end
88		object GenerateParams: TCheckBox
89		Left = 9
90	<	Height = 24
90	>	Height = 22
91		Top = 128
92	<	Width = 173
92	>	Width = 171
93		Caption = 'Allow DSQL Placeholders'
94	+	TabOrder = 3
95	+	end
96	+	object SelectTableNames: TIBLookupComboEditBox
97	+	Left = 12
98	+	Height = 27
99	+	Top = 32
100	+	Width = 209
101	+	KeyField = 'RDB$RELATION_ID'
102	+	ListField = 'RDB$RELATION_NAME'
103	+	ListFieldIndex = 0
104	+	LookupCache = False
105	+	ScrollListDataset = True
106	+	TabOrder = 4
107	+	AutoInsert = False
108	+	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
109	+	ItemHeight = 0
110	+	end
111	+	object IncludeSysTables: TCheckBox
112	+	Left = 13
113	+	Height = 22
114	+	Top = 59
115	+	Width = 158
116	+	Caption = 'Include System Tables'
117	+	OnChange = IncludeSysTablesChange
118	+	TabOrder = 5
119	+	end
120	+	object PrimaryKeysGrid: TIBDynamicGrid
121	+	Left = 288
122	+	Height = 61
123	+	Top = 35
124	+	Width = 144
125	+	Color = clWindow
126	+	Columns = <
127	+	item
128	+	ButtonStyle = cbsCheckboxColumn
129	+	Title.Caption = 'SELECTED'
130	+	Width = 30
131	+	FieldName = 'SELECTED'
132	+	AutoSizeColumn = False
133	+	InitialSortColumn = False
134	+	DBLookupProperties.ItemHeight = 0
135	+	DBLookupProperties.ItemWidth = 0
136	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
137	+	end
138	+	item
139	+	Title.Caption = 'COLUMNNAME'
140	+	Width = 64
141	+	FieldName = 'COLUMNNAME'
142	+	AutoSizeColumn = True
143	+	InitialSortColumn = False
144	+	DBLookupProperties.ItemHeight = 0
145	+	DBLookupProperties.ItemWidth = 0
146	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
147	+	end>
148	+	FixedCols = 0
149	+	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
150	+	Scrollbars = ssAutoVertical
151		TabOrder = 6
152	+	ExpandEditorPanelBelowRow = False
153	+	Descending = False
154	+	EditorBorderStyle = bsSingle
155	+	DefaultPositionAtEnd = False
156	+	end
157	+	object FieldNamesGrid: TIBDynamicGrid
158	+	Left = 458
159	+	Height = 216
160	+	Top = 32
161	+	Width = 144
162	+	Color = clWindow
163	+	Columns = <
164	+	item
165	+	ButtonStyle = cbsCheckboxColumn
166	+	Title.Caption = 'SELECTED'
167	+	Width = 30
168	+	FieldName = 'SELECTED'
169	+	AutoSizeColumn = False
170	+	InitialSortColumn = False
171	+	DBLookupProperties.ItemHeight = 0
172	+	DBLookupProperties.ItemWidth = 0
173	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
174	+	end
175	+	item
176	+	Title.Caption = 'COLUMNNAME'
177	+	Width = 64
178	+	FieldName = 'COLUMNNAME'
179	+	AutoSizeColumn = True
180	+	InitialSortColumn = False
181	+	DBLookupProperties.ItemHeight = 0
182	+	DBLookupProperties.ItemWidth = 0
183	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
184	+	end>
185	+	DataSource = IBSQLEditFrame.FieldsSource
186	+	FixedCols = 0
187	+	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
188	+	Scrollbars = ssAutoVertical
189	+	TabOrder = 7
190	+	ExpandEditorPanelBelowRow = False
191	+	Descending = False
192	+	EditorBorderStyle = bsSingle
193	+	DefaultPositionAtEnd = False
194	+	end
195	+	object SelectSelectAll: TCheckBox
196	+	Left = 456
197	+	Height = 22
198	+	Top = 256
199	+	Width = 134
200	+	Caption = 'Select/Deselect All'
201	+	OnClick = SelectSelectAllClick
202	+	TabOrder = 8
203	+	end
204	+	object Label5: TLabel
205	+	Left = 288
206	+	Height = 14
207	+	Top = 104
208	+	Width = 138
209	+	Caption = '&Computed By Columns'
210	+	ParentColor = False
211	+	end
212	+	object ReadOnlyGrid: TIBDynamicGrid
213	+	Left = 289
214	+	Height = 48
215	+	Top = 119
216	+	Width = 143
217	+	Color = clWindow
218	+	Columns = <
219	+	item
220	+	ButtonStyle = cbsCheckboxColumn
221	+	Title.Caption = 'SELECTED'
222	+	Width = 30
223	+	FieldName = 'SELECTED'
224	+	AutoSizeColumn = False
225	+	InitialSortColumn = False
226	+	DBLookupProperties.ItemHeight = 0
227	+	DBLookupProperties.ItemWidth = 0
228	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
229	+	end
230	+	item
231	+	Title.Caption = 'COLUMNNAME'
232	+	Width = 64
233	+	FieldName = 'COLUMNNAME'
234	+	AutoSizeColumn = True
235	+	InitialSortColumn = False
236	+	DBLookupProperties.ItemHeight = 0
237	+	DBLookupProperties.ItemWidth = 0
238	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
239	+	end>
240	+	FixedCols = 0
241	+	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
242	+	Scrollbars = ssAutoVertical
243	+	TabOrder = 9
244	+	ExpandEditorPanelBelowRow = False
245	+	Descending = False
246	+	EditorBorderStyle = bsSingle
247	+	DefaultPositionAtEnd = False
248	+	end
249	+	object Label6: TLabel
250	+	Left = 289
251	+	Height = 14
252	+	Top = 176
253	+	Width = 103
254	+	Caption = '&Identity Columns'
255	+	ParentColor = False
256	+	end
257	+	object IdentityGrid: TIBDynamicGrid
258	+	Left = 288
259	+	Height = 56
260	+	Top = 192
261	+	Width = 143
262	+	Color = clWindow
263	+	Columns = <
264	+	item
265	+	ButtonStyle = cbsCheckboxColumn
266	+	Title.Caption = 'SELECTED'
267	+	Width = 30
268	+	FieldName = 'SELECTED'
269	+	AutoSizeColumn = False
270	+	InitialSortColumn = False
271	+	DBLookupProperties.ItemHeight = 0
272	+	DBLookupProperties.ItemWidth = 0
273	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
274	+	end
275	+	item
276	+	Title.Caption = 'COLUMNNAME'
277	+	Width = 64
278	+	FieldName = 'COLUMNNAME'
279	+	AutoSizeColumn = True
280	+	InitialSortColumn = False
281	+	DBLookupProperties.ItemHeight = 0
282	+	DBLookupProperties.ItemWidth = 0
283	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
284	+	end>
285	+	DataSource = IBSQLEditFrame.IdentityColsSource
286	+	FixedCols = 0
287	+	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
288	+	Scrollbars = ssAutoVertical
289	+	TabOrder = 10
290	+	ExpandEditorPanelBelowRow = False
291	+	Descending = False
292	+	EditorBorderStyle = bsSingle
293	+	DefaultPositionAtEnd = False
294		end
295		end
296		end
297		object SQLPage: TTabSheet
298		Caption = 'SQL'
299	<	ClientHeight = 315
300	<	ClientWidth = 633
299	>	ClientHeight = 320
300	>	ClientWidth = 635
301		OnShow = SQLPageShow
302		object Label2: TLabel
303		Left = 10
304	<	Height = 15
304	>	Height = 14
305		Top = 81
306		Width = 56
307		Caption = 'S&QL Text:'
152	–	FocusControl = SQLMemo
308		ParentColor = False
309		end
155	–	object SQLMemo: TMemo
156	–	Left = 9
157	–	Height = 203
158	–	Top = 105
159	–	Width = 613
160	–	Anchors = [akTop, akLeft, akRight, akBottom]
161	–	OnChange = SQLMemoChange
162	–	ScrollBars = ssAutoBoth
163	–	TabOrder = 0
164	–	end
310		object StatementType: TRadioGroup
311		Left = 10
312	<	Height = 53
312	>	Height = 49
313		Top = 9
314	<	Width = 339
314	>	Width = 327
315		AutoFill = True
316		AutoSize = True
317		Caption = 'Statement Type'
#	Line 178 | Line 323 | object IBDataSetEditorForm: TIBDataSetEd
323		ChildSizing.ShrinkVertical = crsScaleChilds
324		ChildSizing.Layout = cclLeftToRightThenTopToBottom
325		ChildSizing.ControlsPerLine = 5
326	<	ClientHeight = 36
327	<	ClientWidth = 335
326	>	ClientHeight = 34
327	>	ClientWidth = 325
328		Columns = 5
329		ItemIndex = 0
330		Items.Strings = (
#	Line 190 | Line 335 | object IBDataSetEditorForm: TIBDataSetEd
335		'&Refresh'
336		)
337		OnClick = StatementTypeClick
338	<	TabOrder = 1
338	>	TabOrder = 0
339		end
340		object TestBtn: TButton
341		Left = 539
#	Line 200 | Line 345 | object IBDataSetEditorForm: TIBDataSetEd
345		Anchors = [akTop, akRight]
346		Caption = 'Test'
347		OnClick = TestBtnClick
348	+	TabOrder = 1
349	+	end
350	+	inline IBSQLEditFrame1: TIBSQLEditFrame
351	+	Left = 12
352	+	Height = 217
353	+	Top = 95
354	+	Width = 616
355	+	Anchors = [akTop, akLeft, akRight, akBottom]
356	+	ClientHeight = 217
357	+	ClientWidth = 616
358		TabOrder = 2
359	+	inherited SQLText: TSynEdit
360	+	Height = 191
361	+	Width = 616
362	+	OnChange = SQLMemoChange
363	+	end
364	+	inherited ToolBar1: TToolBar
365	+	Width = 616
366	+	inherited ToolButton3: TToolButton
367	+	Height = 8
368	+	end
369	+	inherited ToolButton7: TToolButton
370	+	Height = 8
371	+	end
372	+	end
373	+	inherited FieldNameList: TIBQuery
374	+	ParamData = <
375	+	item
376	+	DataType = ftUnknown
377	+	Name = 'RDB$RELATION_NAME'
378	+	ParamType = ptInput
379	+	end>
380	+	end
381	+	inherited PrimaryKeys: TIBQuery
382	+	ParamData = <
383	+	item
384	+	DataType = ftUnknown
385	+	Name = 'RDB$RELATION_NAME'
386	+	ParamType = ptInput
387	+	end>
388	+	end
389	+	inherited ProcInputParams: TIBQuery
390	+	ParamData = <
391	+	item
392	+	DataType = ftUnknown
393	+	Name = 'RDB$PROCEDURE_NAME'
394	+	ParamType = ptInput
395	+	end>
396	+	end
397	+	inherited ProcOutputParams: TIBQuery
398	+	ParamData = <
399	+	item
400	+	DataType = ftUnknown
401	+	Name = 'RDB$PROCEDURE_NAME'
402	+	ParamType = ptInput
403	+	end>
404	+	end
405	+	inherited IdentityCols: TIBQuery
406	+	ParamData = <
407	+	item
408	+	DataType = ftUnknown
409	+	Name = 'RDB$RELATION_NAME'
410	+	ParamType = ptInput
411	+	end>
412	+	end
413	+	inherited ReadOnlyFields: TIBQuery
414	+	ParamData = <
415	+	item
416	+	DataType = ftUnknown
417	+	Name = 'RDB$RELATION_NAME'
418	+	ParamType = ptInput
419	+	end>
420	+	end
421		end
422		end
423		end
#	Line 226 | Line 443 | object IBDataSetEditorForm: TIBDataSetEd
443		ModalResult = 2
444		TabOrder = 2
445		end
229	–	object IBTransaction1: TIBTransaction
230	–	Active = False
231	–	left = 32
232	–	top = 368
233	–	end
446		end

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines