ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibdataseteditor.lfm
Revision: 21
Committed: Thu Feb 26 10:33:34 2015 UTC (9 years, 1 month ago) by tony
File size: 5937 byte(s)
Log Message:
Committing updates for Release R1-2-0

File Contents

# Content
1 object IBDataSetEditorForm: TIBDataSetEditorForm
2 Left = 475
3 Height = 410
4 Top = 327
5 Width = 662
6 ActiveControl = PageControl
7 BorderIcons = [biSystemMenu]
8 BorderStyle = bsDialog
9 Caption = 'DataSet 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 = 8
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 = 12
40 Height = 15
41 Top = 18
42 Width = 73
43 Caption = 'Table &Name:'
44 FocusControl = TableNamesCombo
45 ParentColor = False
46 end
47 object Label3: TLabel
48 Left = 315
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 = 458
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 = 315
78 Height = 232
79 Top = 35
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 = 458
90 Height = 232
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 GenerateButton: TButton
104 Left = 9
105 Height = 25
106 Top = 83
107 Width = 168
108 Caption = '&Generate SQL'
109 OnClick = GenerateButtonClick
110 TabOrder = 1
111 end
112 object QuoteFields: TCheckBox
113 Left = 9
114 Height = 24
115 Top = 160
116 Width = 127
117 Caption = '&Quote Identifiers'
118 TabOrder = 2
119 end
120 object IncludePrimaryKeys: TCheckBox
121 Left = 9
122 Height = 24
123 Top = 192
124 Width = 223
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 = 24
134 Top = 128
135 Width = 173
136 Caption = 'Allow DSQL Placeholders'
137 TabOrder = 6
138 end
139 end
140 end
141 object SQLPage: TTabSheet
142 Caption = 'SQL'
143 ClientHeight = 315
144 ClientWidth = 633
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 = 339
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 = 5
181 ClientHeight = 36
182 ClientWidth = 335
183 Columns = 5
184 ItemIndex = 0
185 Items.Strings = (
186 '&Select'
187 '&Modify'
188 '&Insert'
189 '&Delete'
190 '&Refresh'
191 )
192 OnClick = StatementTypeClick
193 TabOrder = 1
194 end
195 object TestBtn: TButton
196 Left = 539
197 Height = 25
198 Top = 31
199 Width = 75
200 Anchors = [akTop, akRight]
201 Caption = 'Test'
202 OnClick = TestBtnClick
203 TabOrder = 2
204 end
205 end
206 end
207 object OkButton: TButton
208 Left = 480
209 Height = 25
210 Top = 376
211 Width = 75
212 Anchors = [akRight, akBottom]
213 Caption = '&OK'
214 Default = True
215 ModalResult = 1
216 TabOrder = 1
217 end
218 object CancelButton: TButton
219 Left = 573
220 Height = 25
221 Top = 376
222 Width = 75
223 Anchors = [akRight, akBottom]
224 Cancel = True
225 Caption = 'Cancel'
226 ModalResult = 2
227 TabOrder = 2
228 end
229 object IBTransaction1: TIBTransaction
230 Active = False
231 left = 32
232 top = 368
233 end
234 end