examples/sqlparser/MainForm.lfm

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