1 |
object Form1: TForm1
|
2 |
Left = 566
|
3 |
Height = 619
|
4 |
Top = 241
|
5 |
Width = 854
|
6 |
Caption = 'SQL Parser'
|
7 |
ClientHeight = 619
|
8 |
ClientWidth = 854
|
9 |
LCLVersion = '1.4.0.3'
|
10 |
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
|