ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/sqlparser/MainForm.lfm
Revision: 27
Committed: Tue Apr 14 13:10:23 2015 UTC (8 years, 11 months ago) by tony
File size: 3406 byte(s)
Log Message:
Committing updates for Release R1-2-3

File Contents

# Content
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