ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibupdatesqleditor.lfm
Revision: 21
Committed: Thu Feb 26 10:33:34 2015 UTC (9 years, 2 months ago) by tony
File size: 5916 byte(s)
Log Message:
Committing updates for Release R1-2-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.6.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 = 319
27 ClientWidth = 635
28 object GroupBox1: TGroupBox
29 Left = 8
30 Height = 314
31 Top = 4
32 Width = 617
33 Anchors = [akTop, akLeft, akRight, akBottom]
34 Caption = ' SQL Generation '
35 ClientHeight = 298
36 ClientWidth = 615
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 AutoComplete = True
71 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
72 ItemHeight = 0
73 OnCloseUp = TableNamesComboCloseUp
74 TabOrder = 0
75 end
76 object PrimaryKeyList: TListBox
77 Left = 300
78 Height = 237
79 Top = 36
80 Width = 136
81 Anchors = [akTop, akLeft, akBottom]
82 ItemHeight = 0
83 MultiSelect = True
84 ScrollWidth = 134
85 TabOrder = 3
86 TopIndex = -1
87 end
88 object FieldList: TListBox
89 Left = 443
90 Height = 237
91 Hint = 'Select Fields to include in Update Statements, or leave unselected to select all'
92 Top = 35
93 Width = 136
94 Anchors = [akTop, akLeft, akBottom]
95 ItemHeight = 0
96 MultiSelect = True
97 ParentShowHint = False
98 ScrollWidth = 134
99 ShowHint = True
100 TabOrder = 4
101 TopIndex = -1
102 end
103 object GenerateBtn: TButton
104 Left = 9
105 Height = 25
106 Top = 83
107 Width = 168
108 Caption = '&Generate SQL'
109 OnClick = GenerateBtnClick
110 TabOrder = 1
111 end
112 object QuoteFields: TCheckBox
113 Left = 8
114 Height = 22
115 Top = 168
116 Width = 125
117 Caption = '&Quote Identifiers'
118 TabOrder = 2
119 end
120 object IncludePrimaryKeys: TCheckBox
121 Left = 8
122 Height = 22
123 Top = 200
124 Width = 221
125 Caption = 'Include Primary keys in Field List'
126 Checked = True
127 OnClick = TableNamesComboCloseUp
128 State = cbChecked
129 TabOrder = 5
130 end
131 object GenerateParams: TCheckBox
132 Left = 9
133 Height = 22
134 Top = 136
135 Width = 171
136 Caption = 'Allow DSQL Placeholders'
137 TabOrder = 6
138 end
139 end
140 end
141 object SQLPage: TTabSheet
142 Caption = 'SQL'
143 ClientHeight = 319
144 ClientWidth = 635
145 OnShow = SQLPageShow
146 object Label2: TLabel
147 Left = 10
148 Height = 15
149 Top = 81
150 Width = 56
151 Caption = 'S&QL Text:'
152 FocusControl = SQLMemo
153 ParentColor = False
154 end
155 object SQLMemo: TMemo
156 Left = 9
157 Height = 203
158 Top = 105
159 Width = 613
160 Anchors = [akTop, akLeft, akRight, akBottom]
161 OnChange = SQLMemoChange
162 ScrollBars = ssAutoBoth
163 TabOrder = 0
164 end
165 object StatementType: TRadioGroup
166 Left = 10
167 Height = 53
168 Top = 9
169 Width = 276
170 AutoFill = True
171 AutoSize = True
172 Caption = 'Statement Type'
173 ChildSizing.LeftRightSpacing = 6
174 ChildSizing.TopBottomSpacing = 6
175 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
176 ChildSizing.EnlargeVertical = crsHomogenousChildResize
177 ChildSizing.ShrinkHorizontal = crsScaleChilds
178 ChildSizing.ShrinkVertical = crsScaleChilds
179 ChildSizing.Layout = cclLeftToRightThenTopToBottom
180 ChildSizing.ControlsPerLine = 4
181 ClientHeight = 37
182 ClientWidth = 274
183 Columns = 4
184 ItemIndex = 0
185 Items.Strings = (
186 '&Modify'
187 '&Insert'
188 '&Delete'
189 '&Refresh'
190 )
191 OnClick = StatementTypeClick
192 TabOrder = 1
193 end
194 object TestBtn: TButton
195 Left = 539
196 Height = 25
197 Top = 31
198 Width = 75
199 Anchors = [akTop, akRight]
200 Caption = 'Test'
201 OnClick = TestBtnClick
202 TabOrder = 2
203 end
204 end
205 end
206 object OkButton: TButton
207 Left = 480
208 Height = 25
209 Top = 376
210 Width = 75
211 Anchors = [akRight, akBottom]
212 Caption = '&OK'
213 Default = True
214 ModalResult = 1
215 TabOrder = 1
216 end
217 object CancelButton: TButton
218 Left = 573
219 Height = 25
220 Top = 376
221 Width = 75
222 Anchors = [akRight, akBottom]
223 Cancel = True
224 Caption = 'Cancel'
225 ModalResult = 2
226 TabOrder = 2
227 end
228 object IBTransaction1: TIBTransaction
229 Active = False
230 left = 51
231 top = 373
232 end
233 end