trunk/design/ibsqleditor.lfm

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