ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibupdatesqleditor.lfm
Revision: 19
Committed: Mon Jul 7 13:00:15 2014 UTC (10 years, 4 months ago) by tony
File size: 5796 byte(s)
Log Message:
Committing updates for Release R1-1-0

File Contents

# Content
1 object IBUpdateSQLEditorForm: TIBUpdateSQLEditorForm
2 Left = 448
3 Height = 410
4 Top = 419
5 Width = 662
6 ActiveControl = PageControl
7 BorderIcons = [biSystemMenu]
8 BorderStyle = bsDialog
9 Caption = 'UpdateSQL Editor'
10 ClientHeight = 410
11 ClientWidth = 662
12 OnClose = FormClose
13 OnShow = FormShow
14 LCLVersion = '1.2.2.0'
15 object PageControl: TPageControl
16 Left = 7
17 Height = 352
18 Top = 8
19 Width = 641
20 ActivePage = FieldsPage
21 Anchors = [akTop, akLeft, akRight, akBottom]
22 TabIndex = 0
23 TabOrder = 0
24 object FieldsPage: TTabSheet
25 Caption = 'Options'
26 ClientHeight = 315
27 ClientWidth = 633
28 object GroupBox1: TGroupBox
29 Left = 8
30 Height = 310
31 Top = 4
32 Width = 615
33 Anchors = [akTop, akLeft, akRight, akBottom]
34 Caption = ' SQL Generation '
35 ClientHeight = 293
36 ClientWidth = 611
37 TabOrder = 0
38 object Label1: TLabel
39 Left = 9
40 Height = 15
41 Top = 16
42 Width = 73
43 Caption = 'Table &Name:'
44 FocusControl = TableNamesCombo
45 ParentColor = False
46 end
47 object Label3: TLabel
48 Left = 300
49 Height = 15
50 Top = 18
51 Width = 62
52 Caption = '&Key Fields:'
53 FocusControl = PrimaryKeyList
54 ParentColor = False
55 end
56 object Label4: TLabel
57 Left = 443
58 Height = 15
59 Top = 18
60 Width = 85
61 Caption = 'Update &Fields:'
62 FocusControl = FieldList
63 ParentColor = False
64 end
65 object TableNamesCombo: TComboBox
66 Left = 9
67 Height = 27
68 Top = 35
69 Width = 171
70 ItemHeight = 0
71 OnCloseUp = TableNamesComboCloseUp
72 TabOrder = 0
73 end
74 object PrimaryKeyList: TListBox
75 Left = 300
76 Height = 232
77 Top = 36
78 Width = 136
79 Anchors = [akTop, akLeft, akBottom]
80 ItemHeight = 0
81 MultiSelect = True
82 ScrollWidth = 134
83 TabOrder = 3
84 TopIndex = -1
85 end
86 object FieldList: TListBox
87 Left = 443
88 Height = 232
89 Hint = 'Select Fields to include in Update Statements, or leave unselected to select all'
90 Top = 35
91 Width = 136
92 Anchors = [akTop, akLeft, akBottom]
93 ItemHeight = 0
94 MultiSelect = True
95 ParentShowHint = False
96 ScrollWidth = 134
97 ShowHint = True
98 TabOrder = 4
99 TopIndex = -1
100 end
101 object GenerateBtn: TButton
102 Left = 9
103 Height = 25
104 Top = 83
105 Width = 168
106 Caption = '&Generate SQL'
107 OnClick = GenerateBtnClick
108 TabOrder = 1
109 end
110 object QuoteFields: TCheckBox
111 Left = 8
112 Height = 24
113 Top = 168
114 Width = 127
115 Caption = '&Quote Identifiers'
116 TabOrder = 2
117 end
118 object IncludePrimaryKeys: TCheckBox
119 Left = 8
120 Height = 24
121 Top = 200
122 Width = 223
123 Caption = 'Include Primary keys in Field List'
124 Checked = True
125 OnClick = TableNamesComboCloseUp
126 State = cbChecked
127 TabOrder = 5
128 end
129 object GenerateParams: TCheckBox
130 Left = 9
131 Height = 24
132 Top = 136
133 Width = 173
134 Caption = 'Allow DSQL Placeholders'
135 TabOrder = 6
136 end
137 end
138 end
139 object SQLPage: TTabSheet
140 Caption = 'SQL'
141 ClientHeight = 315
142 ClientWidth = 633
143 OnShow = SQLPageShow
144 object Label2: TLabel
145 Left = 10
146 Height = 15
147 Top = 81
148 Width = 56
149 Caption = 'S&QL Text:'
150 FocusControl = SQLMemo
151 ParentColor = False
152 end
153 object SQLMemo: TMemo
154 Left = 9
155 Height = 203
156 Top = 105
157 Width = 613
158 Anchors = [akTop, akLeft, akRight, akBottom]
159 OnChange = SQLMemoChange
160 ScrollBars = ssAutoBoth
161 TabOrder = 0
162 end
163 object StatementType: TRadioGroup
164 Left = 10
165 Height = 53
166 Top = 9
167 Width = 276
168 AutoFill = True
169 AutoSize = True
170 Caption = 'Statement Type'
171 ChildSizing.LeftRightSpacing = 6
172 ChildSizing.TopBottomSpacing = 6
173 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
174 ChildSizing.EnlargeVertical = crsHomogenousChildResize
175 ChildSizing.ShrinkHorizontal = crsScaleChilds
176 ChildSizing.ShrinkVertical = crsScaleChilds
177 ChildSizing.Layout = cclLeftToRightThenTopToBottom
178 ChildSizing.ControlsPerLine = 4
179 ClientHeight = 36
180 ClientWidth = 272
181 Columns = 4
182 ItemIndex = 0
183 Items.Strings = (
184 '&Modify'
185 '&Insert'
186 '&Delete'
187 '&Refresh'
188 )
189 OnClick = StatementTypeClick
190 TabOrder = 1
191 end
192 object TestBtn: TButton
193 Left = 539
194 Height = 25
195 Top = 31
196 Width = 75
197 Anchors = [akTop, akRight]
198 Caption = 'Test'
199 OnClick = TestBtnClick
200 TabOrder = 2
201 end
202 end
203 end
204 object OkButton: TButton
205 Left = 480
206 Height = 25
207 Top = 376
208 Width = 75
209 Anchors = [akRight, akBottom]
210 Caption = '&OK'
211 Default = True
212 ModalResult = 1
213 TabOrder = 1
214 end
215 object CancelButton: TButton
216 Left = 573
217 Height = 25
218 Top = 376
219 Width = 75
220 Anchors = [akRight, akBottom]
221 Cancel = True
222 Caption = 'Cancel'
223 ModalResult = 2
224 TabOrder = 2
225 end
226 object IBTransaction1: TIBTransaction
227 Active = False
228 left = 51
229 top = 373
230 end
231 end