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 (7 years, 1 month 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).
#	User	Rev	Content
1	tony	21	object Form1: TForm1
2	tony	68	Left = 420
3	tony	21	Height = 619
4	tony	27	Top = 241
5	tony	21	Width = 854
6			Caption = 'SQL Parser'
7			ClientHeight = 619
8			ClientWidth = 854
9	tony	68	DefaultMonitor = dmPrimary
10			Position = poScreenCenter
11			LCLVersion = '1.8.0.4'
12	tony	21	object Label1: TLabel
13			Left = 14
14	tony	68	Height = 14
15	tony	21	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	tony	68	Height = 14
31	tony	21	Top = 208
32			Width = 126
33			Caption = 'Add to Where Clause'
34			ParentColor = False
35			end
36			object WhereCondition: TEdit
37			Left = 17
38	tony	68	Height = 24
39	tony	21	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	tony	68	Height = 14
77	tony	21	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	tony	68	Height = 14
102	tony	21	Top = 360
103			Width = 129
104			Caption = 'Add to Having Clause'
105			ParentColor = False
106			end
107			object HavingCondition: TEdit
108			Left = 15
109	tony	68	Height = 24
110	tony	21	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	tony	68	Height = 14
147	tony	21	Top = 520
148			Width = 178
149			Caption = 'Replacement Order By Clause'
150			ParentColor = False
151			end
152			object OrderBy: TEdit
153			Left = 16
154	tony	68	Height = 24
155	tony	21	Top = 536
156			Width = 398
157			TabOrder = 9
158			end
159			end