trunk/design/ibsqleditor.lfm

object IBSQLEditorForm: TIBSQLEditorForm
  Left = 402
  Height = 425
  Top = 369
  Width = 716
  ActiveControl = PageControl
  Caption = 'IBSQL Editor'
  ClientHeight = 425
  ClientWidth = 716
  OnShow = FormShow
  LCLVersion = '1.2.6.0'
  object Label3: TLabel
    Left = 288
    Height = 15
    Top = 8
    Width = 24
    Caption = 'SQL'
    ParentColor = False
  end
  object SQLText: TMemo
    Left = 288
    Height = 335
    Top = 27
    Width = 418
    Anchors = [akTop, akLeft, akRight, akBottom]
    ScrollBars = ssAutoBoth
    TabOrder = 0
  end
  object GenerateBtn: TButton
    Left = 267
    Height = 30
    Top = 374
    Width = 104
    Anchors = [akRight, akBottom]
    Caption = 'Generate SQL'
    OnClick = GenerateBtnClick
    TabOrder = 1
  end
  object Button2: TButton
    Left = 627
    Height = 30
    Top = 374
    Width = 72
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object QuoteFields: TCheckBox
    Left = 16
    Height = 24
    Top = 392
    Width = 127
    Caption = '&Quote Identifiers'
    TabOrder = 3
  end
  object Button1: TButton
    Left = 539
    Height = 30
    Top = 373
    Width = 72
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 4
  end
  object PageControl: TPageControl
    Left = 16
    Height = 337
    Top = 27
    Width = 251
    ActivePage = InsertPage
    TabIndex = 1
    TabOrder = 5
    object SelectPage: TTabSheet
      Caption = 'Select'
      ClientHeight = 300
      ClientWidth = 243
      OnShow = SelectPageShow
      object Label1: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 69
        Caption = 'Table Name'
        ParentColor = False
      end
      object Label2: TLabel
        Left = 7
        Height = 15
        Top = 53
        Width = 33
        Caption = 'Fields'
        ParentColor = False
      end
      object Label4: TLabel
        Left = 7
        Height = 15
        Top = 231
        Width = 77
        Caption = 'Primary Keys'
        ParentColor = False
      end
      object SelectTableNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 169
        AutoComplete = True
        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 0
        OnCloseUp = SelectTableNamesCloseUp
        TabOrder = 0
      end
      object SelectFieldsList: TListBox
        Left = 7
        Height = 136
        Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
        Top = 69
        Width = 169
        ItemHeight = 0
        MultiSelect = True
        OnDblClick = SelectFieldsListDblClick
        ParentShowHint = False
        ScrollWidth = 167
        ShowHint = True
        TabOrder = 1
        TopIndex = -1
      end
      object SelectPrimaryKeys: TListBox
        Left = 7
        Height = 46
        Top = 247
        Width = 159
        Anchors = [akTop, akLeft, akBottom]
        ItemHeight = 0
        ScrollWidth = 157
        TabOrder = 2
        TopIndex = -1
      end
    end
    object InsertPage: TTabSheet
      Caption = 'Insert'
      ClientHeight = 300
      ClientWidth = 243
      OnShow = InsertPageShow
      object Label8: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 69
        Caption = 'Table Name'
        ParentColor = False
      end
      object Label9: TLabel
        Left = 7
        Height = 15
        Top = 53
        Width = 33
        Caption = 'Fields'
        ParentColor = False
      end
      object InsertTableNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 169
        AutoComplete = True
        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 0
        OnCloseUp = InsertTableNamesCloseUp
        TabOrder = 0
      end
      object InsertFieldsList: TListBox
        Left = 7
        Height = 225
        Hint = 'Select Fields to include in Insert  Statement or leave unselected to select all'
        Top = 69
        Width = 169
        Anchors = [akTop, akLeft, akBottom]
        ItemHeight = 0
        MultiSelect = True
        OnDblClick = SelectFieldsListDblClick
        ParentShowHint = False
        ScrollWidth = 167
        ShowHint = True
        TabOrder = 1
        TopIndex = -1
      end
    end
    object ModifyPage: TTabSheet
      Caption = 'Modify'
      ClientHeight = 300
      ClientWidth = 243
      OnShow = ModifyPageShow
      object Label10: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 69
        Caption = 'Table Name'
        ParentColor = False
      end
      object Label11: TLabel
        Left = 7
        Height = 15
        Top = 53
        Width = 33
        Caption = 'Fields'
        ParentColor = False
      end
      object Label12: TLabel
        Left = 7
        Height = 15
        Top = 228
        Width = 77
        Caption = 'Primary Keys'
        ParentColor = False
      end
      object ModifyTableNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 169
        AutoComplete = True
        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 0
        OnCloseUp = ModifyTableNamesCloseUp
        TabOrder = 0
      end
      object ModifyFieldsList: TListBox
        Left = 7
        Height = 104
        Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
        Top = 69
        Width = 169
        ItemHeight = 0
        MultiSelect = True
        OnClick = SelectFieldsListDblClick
        ScrollWidth = 167
        TabOrder = 1
        TopIndex = -1
      end
      object ModifyPrimaryKeys: TListBox
        Left = 7
        Height = 46
        Top = 244
        Width = 159
        Anchors = [akTop, akLeft, akBottom]
        ItemHeight = 0
        OnClick = SelectFieldsListDblClick
        ScrollWidth = 157
        TabOrder = 2
        TopIndex = -1
      end
      object IncludePrimaryKeys: TCheckBox
        Left = 5
        Height = 24
        Top = 181
        Width = 152
        Caption = 'Include Primary keys'
        OnClick = IncludePrimaryKeysClick
        TabOrder = 3
      end
      object Label5: TLabel
        Left = 27
        Height = 15
        Top = 202
        Width = 67
        Caption = 'in Field List'
        ParentColor = False
      end
    end
    object DeletePage: TTabSheet
      Caption = 'Delete'
      ClientHeight = 300
      ClientWidth = 243
      OnShow = DeletePageShow
      object Label14: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 69
        Caption = 'Table Name'
        ParentColor = False
      end
      object Label15: TLabel
        Left = 7
        Height = 15
        Top = 66
        Width = 77
        Caption = 'Primary Keys'
        ParentColor = False
      end
      object DeleteTableNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 169
        AutoComplete = True
        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 0
        OnCloseUp = DeleteTableNamesCloseUp
        TabOrder = 0
      end
      object DeletePrimaryKeys: TListBox
        Left = 7
        Height = 55
        Top = 82
        Width = 159
        ItemHeight = 0
        OnDblClick = SelectFieldsListDblClick
        ScrollWidth = 157
        TabOrder = 1
        TopIndex = -1
      end
    end
    object ExecutePage: TTabSheet
      Caption = 'Execute'
      ClientHeight = 300
      ClientWidth = 243
      OnShow = ExecutePageShow
      object Label16: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 100
        Caption = 'Procedure Name'
        ParentColor = False
      end
      object Label17: TLabel
        Left = 10
        Height = 15
        Top = 61
        Width = 104
        Caption = 'Input Parameters'
        ParentColor = False
      end
      object Label18: TLabel
        Left = 11
        Height = 15
        Top = 181
        Width = 114
        Caption = 'Output Parameters'
        ParentColor = False
      end
      object ProcedureNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 169
        ItemHeight = 0
        OnCloseUp = ProcedureNamesCloseUp
        TabOrder = 0
      end
      object ProcInputList: TListBox
        Left = 6
        Height = 80
        Top = 82
        Width = 164
        IntegralHeight = True
        ItemHeight = 0
        ScrollWidth = 162
        TabOrder = 1
        TopIndex = -1
      end
      object ProcOutputList: TListBox
        Left = 10
        Height = 66
        Top = 201
        Width = 160
        Anchors = [akTop, akLeft, akBottom]
        IntegralHeight = True
        ItemHeight = 0
        ScrollWidth = 158
        TabOrder = 2
        TopIndex = -1
      end
      object SelectProcedure: TLabel
        Left = 7
        Height = 14
        Top = 279
        Width = 126
        Anchors = [akLeft, akBottom]
        Caption = 'Is ''Select Procedure'''
        Font.Height = -11
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Visible = False
      end
    end
  end
  object TestBtn: TButton
    Left = 403
    Height = 30
    Top = 374
    Width = 66
    Anchors = [akRight, akBottom]
    Caption = 'Test'
    OnClick = TestBtnClick
    TabOrder = 6
  end
  object GenerateParams: TCheckBox
    Left = 16
    Height = 24
    Top = 368
    Width = 173
    Caption = 'Allow DSQL Placeholders'
    TabOrder = 7
  end
  object IBTransaction1: TIBTransaction
    Active = False
    left = 200
    top = 391
  end
end
Revision:	21
Committed:	Thu Feb 26 10:33:34 2015 UTC (9 years, 2 months ago) by tony
File size:	9831 byte(s)
Log Message:	Committing updates for Release R1-2-0
#	Content
1	object IBSQLEditorForm: TIBSQLEditorForm
2	Left = 402
3	Height = 425
4	Top = 369
5	Width = 716
6	ActiveControl = PageControl
7	Caption = 'IBSQL Editor'
8	ClientHeight = 425
9	ClientWidth = 716
10	OnShow = FormShow
11	LCLVersion = '1.2.6.0'
12	object Label3: TLabel
13	Left = 288
14	Height = 15
15	Top = 8
16	Width = 24
17	Caption = 'SQL'
18	ParentColor = False
19	end
20	object SQLText: TMemo
21	Left = 288
22	Height = 335
23	Top = 27
24	Width = 418
25	Anchors = [akTop, akLeft, akRight, akBottom]
26	ScrollBars = ssAutoBoth
27	TabOrder = 0
28	end
29	object GenerateBtn: TButton
30	Left = 267
31	Height = 30
32	Top = 374
33	Width = 104
34	Anchors = [akRight, akBottom]
35	Caption = 'Generate SQL'
36	OnClick = GenerateBtnClick
37	TabOrder = 1
38	end
39	object Button2: TButton
40	Left = 627
41	Height = 30
42	Top = 374
43	Width = 72
44	Anchors = [akRight, akBottom]
45	Cancel = True
46	Caption = 'Cancel'
47	ModalResult = 2
48	TabOrder = 2
49	end
50	object QuoteFields: TCheckBox
51	Left = 16
52	Height = 24
53	Top = 392
54	Width = 127
55	Caption = '&Quote Identifiers'
56	TabOrder = 3
57	end
58	object Button1: TButton
59	Left = 539
60	Height = 30
61	Top = 373
62	Width = 72
63	Anchors = [akRight, akBottom]
64	Caption = 'OK'
65	Default = True
66	ModalResult = 1
67	TabOrder = 4
68	end
69	object PageControl: TPageControl
70	Left = 16
71	Height = 337
72	Top = 27
73	Width = 251
74	ActivePage = InsertPage
75	TabIndex = 1
76	TabOrder = 5
77	object SelectPage: TTabSheet
78	Caption = 'Select'
79	ClientHeight = 300
80	ClientWidth = 243
81	OnShow = SelectPageShow
82	object Label1: TLabel
83	Left = 7
84	Height = 15
85	Top = 3
86	Width = 69
87	Caption = 'Table Name'
88	ParentColor = False
89	end
90	object Label2: TLabel
91	Left = 7
92	Height = 15
93	Top = 53
94	Width = 33
95	Caption = 'Fields'
96	ParentColor = False
97	end
98	object Label4: TLabel
99	Left = 7
100	Height = 15
101	Top = 231
102	Width = 77
103	Caption = 'Primary Keys'
104	ParentColor = False
105	end
106	object SelectTableNames: TComboBox
107	Left = 7
108	Height = 27
109	Top = 19
110	Width = 169
111	AutoComplete = True
112	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
113	ItemHeight = 0
114	OnCloseUp = SelectTableNamesCloseUp
115	TabOrder = 0
116	end
117	object SelectFieldsList: TListBox
118	Left = 7
119	Height = 136
120	Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
121	Top = 69
122	Width = 169
123	ItemHeight = 0
124	MultiSelect = True
125	OnDblClick = SelectFieldsListDblClick
126	ParentShowHint = False
127	ScrollWidth = 167
128	ShowHint = True
129	TabOrder = 1
130	TopIndex = -1
131	end
132	object SelectPrimaryKeys: TListBox
133	Left = 7
134	Height = 46
135	Top = 247
136	Width = 159
137	Anchors = [akTop, akLeft, akBottom]
138	ItemHeight = 0
139	ScrollWidth = 157
140	TabOrder = 2
141	TopIndex = -1
142	end
143	end
144	object InsertPage: TTabSheet
145	Caption = 'Insert'
146	ClientHeight = 300
147	ClientWidth = 243
148	OnShow = InsertPageShow
149	object Label8: TLabel
150	Left = 7
151	Height = 15
152	Top = 3
153	Width = 69
154	Caption = 'Table Name'
155	ParentColor = False
156	end
157	object Label9: TLabel
158	Left = 7
159	Height = 15
160	Top = 53
161	Width = 33
162	Caption = 'Fields'
163	ParentColor = False
164	end
165	object InsertTableNames: TComboBox
166	Left = 7
167	Height = 27
168	Top = 19
169	Width = 169
170	AutoComplete = True
171	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
172	ItemHeight = 0
173	OnCloseUp = InsertTableNamesCloseUp
174	TabOrder = 0
175	end
176	object InsertFieldsList: TListBox
177	Left = 7
178	Height = 225
179	Hint = 'Select Fields to include in Insert Statement or leave unselected to select all'
180	Top = 69
181	Width = 169
182	Anchors = [akTop, akLeft, akBottom]
183	ItemHeight = 0
184	MultiSelect = True
185	OnDblClick = SelectFieldsListDblClick
186	ParentShowHint = False
187	ScrollWidth = 167
188	ShowHint = True
189	TabOrder = 1
190	TopIndex = -1
191	end
192	end
193	object ModifyPage: TTabSheet
194	Caption = 'Modify'
195	ClientHeight = 300
196	ClientWidth = 243
197	OnShow = ModifyPageShow
198	object Label10: TLabel
199	Left = 7
200	Height = 15
201	Top = 3
202	Width = 69
203	Caption = 'Table Name'
204	ParentColor = False
205	end
206	object Label11: TLabel
207	Left = 7
208	Height = 15
209	Top = 53
210	Width = 33
211	Caption = 'Fields'
212	ParentColor = False
213	end
214	object Label12: TLabel
215	Left = 7
216	Height = 15
217	Top = 228
218	Width = 77
219	Caption = 'Primary Keys'
220	ParentColor = False
221	end
222	object ModifyTableNames: TComboBox
223	Left = 7
224	Height = 27
225	Top = 19
226	Width = 169
227	AutoComplete = True
228	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
229	ItemHeight = 0
230	OnCloseUp = ModifyTableNamesCloseUp
231	TabOrder = 0
232	end
233	object ModifyFieldsList: TListBox
234	Left = 7
235	Height = 104
236	Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
237	Top = 69
238	Width = 169
239	ItemHeight = 0
240	MultiSelect = True
241	OnClick = SelectFieldsListDblClick
242	ScrollWidth = 167
243	TabOrder = 1
244	TopIndex = -1
245	end
246	object ModifyPrimaryKeys: TListBox
247	Left = 7
248	Height = 46
249	Top = 244
250	Width = 159
251	Anchors = [akTop, akLeft, akBottom]
252	ItemHeight = 0
253	OnClick = SelectFieldsListDblClick
254	ScrollWidth = 157
255	TabOrder = 2
256	TopIndex = -1
257	end
258	object IncludePrimaryKeys: TCheckBox
259	Left = 5
260	Height = 24
261	Top = 181
262	Width = 152
263	Caption = 'Include Primary keys'
264	OnClick = IncludePrimaryKeysClick
265	TabOrder = 3
266	end
267	object Label5: TLabel
268	Left = 27
269	Height = 15
270	Top = 202
271	Width = 67
272	Caption = 'in Field List'
273	ParentColor = False
274	end
275	end
276	object DeletePage: TTabSheet
277	Caption = 'Delete'
278	ClientHeight = 300
279	ClientWidth = 243
280	OnShow = DeletePageShow
281	object Label14: TLabel
282	Left = 7
283	Height = 15
284	Top = 3
285	Width = 69
286	Caption = 'Table Name'
287	ParentColor = False
288	end
289	object Label15: TLabel
290	Left = 7
291	Height = 15
292	Top = 66
293	Width = 77
294	Caption = 'Primary Keys'
295	ParentColor = False
296	end
297	object DeleteTableNames: TComboBox
298	Left = 7
299	Height = 27
300	Top = 19
301	Width = 169
302	AutoComplete = True
303	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
304	ItemHeight = 0
305	OnCloseUp = DeleteTableNamesCloseUp
306	TabOrder = 0
307	end
308	object DeletePrimaryKeys: TListBox
309	Left = 7
310	Height = 55
311	Top = 82
312	Width = 159
313	ItemHeight = 0
314	OnDblClick = SelectFieldsListDblClick
315	ScrollWidth = 157
316	TabOrder = 1
317	TopIndex = -1
318	end
319	end
320	object ExecutePage: TTabSheet
321	Caption = 'Execute'
322	ClientHeight = 300
323	ClientWidth = 243
324	OnShow = ExecutePageShow
325	object Label16: TLabel
326	Left = 7
327	Height = 15
328	Top = 3
329	Width = 100
330	Caption = 'Procedure Name'
331	ParentColor = False
332	end
333	object Label17: TLabel
334	Left = 10
335	Height = 15
336	Top = 61
337	Width = 104
338	Caption = 'Input Parameters'
339	ParentColor = False
340	end
341	object Label18: TLabel
342	Left = 11
343	Height = 15
344	Top = 181
345	Width = 114
346	Caption = 'Output Parameters'
347	ParentColor = False
348	end
349	object ProcedureNames: TComboBox
350	Left = 7
351	Height = 27
352	Top = 19
353	Width = 169
354	ItemHeight = 0
355	OnCloseUp = ProcedureNamesCloseUp
356	TabOrder = 0
357	end
358	object ProcInputList: TListBox
359	Left = 6
360	Height = 80
361	Top = 82
362	Width = 164
363	IntegralHeight = True
364	ItemHeight = 0
365	ScrollWidth = 162
366	TabOrder = 1
367	TopIndex = -1
368	end
369	object ProcOutputList: TListBox
370	Left = 10
371	Height = 66
372	Top = 201
373	Width = 160
374	Anchors = [akTop, akLeft, akBottom]
375	IntegralHeight = True
376	ItemHeight = 0
377	ScrollWidth = 158
378	TabOrder = 2
379	TopIndex = -1
380	end
381	object SelectProcedure: TLabel
382	Left = 7
383	Height = 14
384	Top = 279
385	Width = 126
386	Anchors = [akLeft, akBottom]
387	Caption = 'Is ''Select Procedure'''
388	Font.Height = -11
389	Font.Style = [fsBold]
390	ParentColor = False
391	ParentFont = False
392	Visible = False
393	end
394	end
395	end
396	object TestBtn: TButton
397	Left = 403
398	Height = 30
399	Top = 374
400	Width = 66
401	Anchors = [akRight, akBottom]
402	Caption = 'Test'
403	OnClick = TestBtnClick
404	TabOrder = 6
405	end
406	object GenerateParams: TCheckBox
407	Left = 16
408	Height = 24
409	Top = 368
410	Width = 173
411	Caption = 'Allow DSQL Placeholders'
412	TabOrder = 7
413	end
414	object IBTransaction1: TIBTransaction
415	Active = False
416	left = 200
417	top = 391
418	end
419	end