examples/sqlparser/MainForm.lfm

object Form1: TForm1
  Left = 420
  Height = 619
  Top = 241
  Width = 854
  Caption = 'SQL Parser'
  ClientHeight = 619
  ClientWidth = 854
  DefaultMonitor = dmPrimary
  Position = poScreenCenter
  LCLVersion = '1.8.0.4'
  object Label1: TLabel
    Left = 14
    Height = 14
    Top = 24
    Width = 74
    Caption = 'Original SQL'
    ParentColor = False
  end
  object OriginalSQL: TMemo
    Left = 16
    Height = 160
    Top = 43
    Width = 400
    ScrollBars = ssAutoVertical
    TabOrder = 0
  end
  object Label2: TLabel
    Left = 16
    Height = 14
    Top = 208
    Width = 126
    Caption = 'Add to Where Clause'
    ParentColor = False
  end
  object WhereCondition: TEdit
    Left = 17
    Height = 24
    Top = 224
    Width = 400
    TabOrder = 1
  end
  object WhereConditionType: TRadioGroup
    Left = 17
    Height = 56
    Top = 264
    Width = 399
    AutoFill = True
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 54
    ClientWidth = 397
    ItemIndex = 0
    Items.Strings = (
      'AND with Existing Condition'
      'OR with Existing Condition'
    )
    TabOrder = 2
  end
  object Button1: TButton
    Left = 262
    Height = 30
    Top = 568
    Width = 152
    Caption = 'Generate Updated SQL'
    OnClick = Button1Click
    TabOrder = 3
  end
  object Label3: TLabel
    Left = 440
    Height = 14
    Top = 24
    Width = 91
    Caption = 'Generated SQL'
    ParentColor = False
  end
  object GeneratedSQL: TMemo
    Left = 440
    Height = 557
    Top = 43
    Width = 400
    Anchors = [akTop, akLeft, akRight, akBottom]
    ScrollBars = ssAutoVertical
    TabOrder = 4
  end
  object WhereAllUnions: TCheckBox
    Left = 24
    Height = 22
    Top = 328
    Width = 257
    Caption = 'Apply to each Union in SQL Statement'
    TabOrder = 5
  end
  object Label4: TLabel
    Left = 14
    Height = 14
    Top = 360
    Width = 129
    Caption = 'Add to Having Clause'
    ParentColor = False
  end
  object HavingCondition: TEdit
    Left = 15
    Height = 24
    Top = 376
    Width = 400
    TabOrder = 6
  end
  object HavingConditionType: TRadioGroup
    Left = 15
    Height = 56
    Top = 416
    Width = 399
    AutoFill = True
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 54
    ClientWidth = 397
    ItemIndex = 0
    Items.Strings = (
      'AND with Existing Condition'
      'OR with Existing Condition'
    )
    TabOrder = 7
  end
  object HavingAllUnions: TCheckBox
    Left = 22
    Height = 22
    Top = 480
    Width = 257
    Caption = 'Apply to each Union in SQL Statement'
    TabOrder = 8
  end
  object Label5: TLabel
    Left = 15
    Height = 14
    Top = 520
    Width = 178
    Caption = 'Replacement Order By Clause'
    ParentColor = False
  end
  object OrderBy: TEdit
    Left = 16
    Height = 24
    Top = 536
    Width = 398
    TabOrder = 9
  end
end
Revision:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (6 years, 6 months ago) by tony
File size:	3463 byte(s)
Log Message:	IBX: Editor Positioning tidy up FBINTF: Trap uninitialised SQL parameters on SQL Exec. Avoids Unknown SQL Type errors. Consistent setting of Modified (SQLParam).
#	Content
1	object Form1: TForm1
2	Left = 420
3	Height = 619
4	Top = 241
5	Width = 854
6	Caption = 'SQL Parser'
7	ClientHeight = 619
8	ClientWidth = 854
9	DefaultMonitor = dmPrimary
10	Position = poScreenCenter
11	LCLVersion = '1.8.0.4'
12	object Label1: TLabel
13	Left = 14
14	Height = 14
15	Top = 24
16	Width = 74
17	Caption = 'Original SQL'
18	ParentColor = False
19	end
20	object OriginalSQL: TMemo
21	Left = 16
22	Height = 160
23	Top = 43
24	Width = 400
25	ScrollBars = ssAutoVertical
26	TabOrder = 0
27	end
28	object Label2: TLabel
29	Left = 16
30	Height = 14
31	Top = 208
32	Width = 126
33	Caption = 'Add to Where Clause'
34	ParentColor = False
35	end
36	object WhereCondition: TEdit
37	Left = 17
38	Height = 24
39	Top = 224
40	Width = 400
41	TabOrder = 1
42	end
43	object WhereConditionType: TRadioGroup
44	Left = 17
45	Height = 56
46	Top = 264
47	Width = 399
48	AutoFill = True
49	ChildSizing.LeftRightSpacing = 6
50	ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
51	ChildSizing.EnlargeVertical = crsHomogenousChildResize
52	ChildSizing.ShrinkHorizontal = crsScaleChilds
53	ChildSizing.ShrinkVertical = crsScaleChilds
54	ChildSizing.Layout = cclLeftToRightThenTopToBottom
55	ChildSizing.ControlsPerLine = 1
56	ClientHeight = 54
57	ClientWidth = 397
58	ItemIndex = 0
59	Items.Strings = (
60	'AND with Existing Condition'
61	'OR with Existing Condition'
62	)
63	TabOrder = 2
64	end
65	object Button1: TButton
66	Left = 262
67	Height = 30
68	Top = 568
69	Width = 152
70	Caption = 'Generate Updated SQL'
71	OnClick = Button1Click
72	TabOrder = 3
73	end
74	object Label3: TLabel
75	Left = 440
76	Height = 14
77	Top = 24
78	Width = 91
79	Caption = 'Generated SQL'
80	ParentColor = False
81	end
82	object GeneratedSQL: TMemo
83	Left = 440
84	Height = 557
85	Top = 43
86	Width = 400
87	Anchors = [akTop, akLeft, akRight, akBottom]
88	ScrollBars = ssAutoVertical
89	TabOrder = 4
90	end
91	object WhereAllUnions: TCheckBox
92	Left = 24
93	Height = 22
94	Top = 328
95	Width = 257
96	Caption = 'Apply to each Union in SQL Statement'
97	TabOrder = 5
98	end
99	object Label4: TLabel
100	Left = 14
101	Height = 14
102	Top = 360
103	Width = 129
104	Caption = 'Add to Having Clause'
105	ParentColor = False
106	end
107	object HavingCondition: TEdit
108	Left = 15
109	Height = 24
110	Top = 376
111	Width = 400
112	TabOrder = 6
113	end
114	object HavingConditionType: TRadioGroup
115	Left = 15
116	Height = 56
117	Top = 416
118	Width = 399
119	AutoFill = True
120	ChildSizing.LeftRightSpacing = 6
121	ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
122	ChildSizing.EnlargeVertical = crsHomogenousChildResize
123	ChildSizing.ShrinkHorizontal = crsScaleChilds
124	ChildSizing.ShrinkVertical = crsScaleChilds
125	ChildSizing.Layout = cclLeftToRightThenTopToBottom
126	ChildSizing.ControlsPerLine = 1
127	ClientHeight = 54
128	ClientWidth = 397
129	ItemIndex = 0
130	Items.Strings = (
131	'AND with Existing Condition'
132	'OR with Existing Condition'
133	)
134	TabOrder = 7
135	end
136	object HavingAllUnions: TCheckBox
137	Left = 22
138	Height = 22
139	Top = 480
140	Width = 257
141	Caption = 'Apply to each Union in SQL Statement'
142	TabOrder = 8
143	end
144	object Label5: TLabel
145	Left = 15
146	Height = 14
147	Top = 520
148	Width = 178
149	Caption = 'Replacement Order By Clause'
150	ParentColor = False
151	end
152	object OrderBy: TEdit
153	Left = 16
154	Height = 24
155	Top = 536
156	Width = 398
157	TabOrder = 9
158	end
159	end