ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/ibtable/Unit1.lfm
Revision: 312
Committed: Tue Aug 25 15:40:58 2020 UTC (6 months ago) by tony
File size: 12745 byte(s)
Log Message:
Fixes Merged
Line File contents
1 object Form1: TForm1
2 Left = 457
3 Height = 453
4 Top = 397
5 Width = 943
6 Align = alTop
7 Caption = 'IB Tables Example'
8 ClientHeight = 453
9 ClientWidth = 943
10 DefaultMonitor = dmPrimary
11 OnShow = FormShow
12 Position = poScreenCenter
13 LCLVersion = '2.0.11.0'
14 object Panel1: TPanel
15 Left = 0
16 Height = 453
17 Top = 0
18 Width = 943
19 Align = alClient
20 ClientHeight = 453
21 ClientWidth = 943
22 TabOrder = 0
23 object Panel2: TPanel
24 Left = 1
25 Height = 451
26 Top = 1
27 Width = 170
28 Align = alLeft
29 BevelInner = bvLowered
30 ClientHeight = 451
31 ClientWidth = 170
32 TabOrder = 0
33 object IBDynamicGrid1: TIBDynamicGrid
34 Left = 2
35 Height = 447
36 Top = 2
37 Width = 166
38 Align = alClient
39 Color = clWindow
40 Columns = <
41 item
42 Title.Alignment = taCenter
43 Title.Caption = 'Dept'
44 Width = 80
45 FieldName = 'DEPARTMENT'
46 AutoSizeColumn = True
47 InitialSortColumn = False
48 DBLookupProperties.ItemHeight = 0
49 DBLookupProperties.ItemWidth = 0
50 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
51 end>
52 DataSource = DataSource2
53 Scrollbars = ssAutoVertical
54 TabOrder = 0
55 ExpandEditorPanelBelowRow = False
56 Descending = False
57 EditorBorderStyle = bsSingle
58 DefaultPositionAtEnd = False
59 end
60 end
61 object Splitter1: TSplitter
62 Left = 171
63 Height = 451
64 Top = 1
65 Width = 5
66 end
67 object Panel3: TPanel
68 Left = 176
69 Height = 451
70 Top = 1
71 Width = 766
72 Align = alClient
73 BevelOuter = bvNone
74 ClientHeight = 451
75 ClientWidth = 766
76 TabOrder = 2
77 object Panel4: TPanel
78 Left = 0
79 Height = 20
80 Top = 0
81 Width = 766
82 Align = alTop
83 BevelOuter = bvNone
84 ClientHeight = 20
85 ClientWidth = 766
86 TabOrder = 0
87 object CheckBox1: TCheckBox
88 Left = 517
89 Height = 22
90 Top = 0
91 Width = 239
92 Anchors = [akTop, akRight]
93 Caption = 'Show only Salaries Below $100,000'
94 OnChange = CheckBox1Change
95 TabOrder = 0
96 end
97 end
98 object IBDynamicGrid2: TIBDynamicGrid
99 Left = 0
100 Height = 431
101 Top = 20
102 Width = 766
103 Align = alClient
104 Color = clWindow
105 Columns = <
106 item
107 Title.Alignment = taCenter
108 Title.Caption = 'Last Name'
109 Width = 150
110 FieldName = 'LAST_NAME'
111 AutoSizeColumn = True
112 InitialSortColumn = False
113 DBLookupProperties.ItemHeight = 0
114 DBLookupProperties.ItemWidth = 0
115 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
116 end
117 item
118 Title.Alignment = taCenter
119 Title.Caption = 'First Name'
120 Width = 150
121 FieldName = 'FIRST_NAME'
122 AutoSizeColumn = False
123 InitialSortColumn = False
124 DBLookupProperties.ItemHeight = 0
125 DBLookupProperties.ItemWidth = 0
126 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
127 end
128 item
129 ReadOnly = True
130 Title.Alignment = taCenter
131 Title.Caption = 'Full Name'
132 Width = 120
133 FieldName = 'FULL_NAME'
134 AutoSizeColumn = True
135 InitialSortColumn = False
136 DBLookupProperties.ItemHeight = 0
137 DBLookupProperties.ItemWidth = 0
138 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
139 end
140 item
141 Title.Alignment = taCenter
142 Title.Caption = 'Emp No.'
143 Width = 80
144 FieldName = 'EMP_NO'
145 AutoSizeColumn = False
146 InitialSortColumn = False
147 DBLookupProperties.ItemHeight = 0
148 DBLookupProperties.ItemWidth = 0
149 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
150 end
151 item
152 Title.Alignment = taCenter
153 Title.Caption = 'Hire Date'
154 Width = 120
155 FieldName = 'HIRE_DATE'
156 AutoSizeColumn = False
157 InitialSortColumn = False
158 DBLookupProperties.ItemHeight = 0
159 DBLookupProperties.ItemWidth = 0
160 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
161 end
162 item
163 Title.Alignment = taCenter
164 Title.Caption = 'Salary'
165 Width = 100
166 FieldName = 'SALARY'
167 AutoSizeColumn = False
168 InitialSortColumn = False
169 DBLookupProperties.ItemHeight = 0
170 DBLookupProperties.ItemWidth = 0
171 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
172 end>
173 DataSource = Datasource1
174 Scrollbars = ssAutoVertical
175 TabOrder = 1
176 ExpandEditorPanelBelowRow = False
177 Descending = False
178 EditorBorderStyle = bsSingle
179 DefaultPositionAtEnd = False
180 end
181 end
182 end
183 object IBDatabase1: TIBDatabase
184 Connected = True
185 AfterConnect = IBDatabase1AfterConnect
186 CreateIfNotExists = False
187 AllowStreamedConnected = False
188 DatabaseName = 'employee'
189 Params.Strings = (
190 'user_name=SYSDBA'
191 'lc_ctype=UTF-8'
192 )
193 DefaultTransaction = IBTransaction1
194 IdleTimer = 0
195 TraceFlags = []
196 UseDefaultSystemCodePage = False
197 left = 184
198 top = 56
199 end
200 object IBTransaction1: TIBTransaction
201 Active = False
202 DefaultDatabase = IBDatabase1
203 Params.Strings = (
204 'read_committed'
205 'rec_version'
206 'nowait'
207 )
208 left = 272
209 top = 56
210 end
211 object Depts: TIBTable
212 AllowAutoActivateTransaction = True
213 Database = IBDatabase1
214 Transaction = IBTransaction1
215 AutoCalcFields = False
216 AfterOpen = DeptsAfterOpen
217 AutoCommit = acCommitRetaining
218 BufferChunks = 1000
219 CachedUpdates = False
220 DataSetCloseAction = dcSaveChanges
221 EnableStatistics = False
222 SQLFiltered = False
223 GeneratorField.ApplyOnEvent = gaeOnNewRecord
224 IndexFieldNames = 'DEPT_NO'
225 MasterDetailDelay = 500
226 ReadOnly = True
227 TableName = 'DEPARTMENT'
228 left = 424
229 top = 56
230 object DeptsDEPT_NO: TIBStringField
231 DisplayWidth = 3
232 FieldKind = fkData
233 FieldName = 'DEPT_NO'
234 Index = 0
235 LookupCache = False
236 ProviderFlags = [pfInUpdate, pfInWhere]
237 ReadOnly = False
238 Required = True
239 Size = 3
240 end
241 object DeptsDEPARTMENT: TIBStringField
242 DisplayWidth = 25
243 FieldKind = fkData
244 FieldName = 'DEPARTMENT'
245 Index = 1
246 LookupCache = False
247 ProviderFlags = [pfInUpdate, pfInWhere]
248 ReadOnly = False
249 Required = True
250 Size = 25
251 end
252 object DeptsHEAD_DEPT: TIBStringField
253 DisplayWidth = 3
254 FieldKind = fkData
255 FieldName = 'HEAD_DEPT'
256 Index = 2
257 LookupCache = False
258 ProviderFlags = [pfInUpdate, pfInWhere]
259 ReadOnly = False
260 Required = False
261 Size = 3
262 end
263 object DeptsMNGR_NO: TSmallintField
264 DisplayWidth = 10
265 FieldKind = fkData
266 FieldName = 'MNGR_NO'
267 Index = 3
268 LookupCache = False
269 ProviderFlags = [pfInUpdate, pfInWhere]
270 ReadOnly = False
271 Required = False
272 end
273 object DeptsBUDGET: TIBBCDField
274 DisplayWidth = 18
275 FieldKind = fkData
276 FieldName = 'BUDGET'
277 Index = 4
278 LookupCache = False
279 ProviderFlags = [pfInUpdate, pfInWhere]
280 ReadOnly = False
281 Required = False
282 Precision = 18
283 Currency = False
284 MaxValue = 0
285 MinValue = 0
286 Size = 2
287 end
288 object DeptsLOCATION: TIBStringField
289 DisplayWidth = 15
290 FieldKind = fkData
291 FieldName = 'LOCATION'
292 Index = 5
293 LookupCache = False
294 ProviderFlags = [pfInUpdate, pfInWhere]
295 ReadOnly = False
296 Required = False
297 Size = 15
298 end
299 object DeptsPHONE_NO: TIBStringField
300 DisplayWidth = 20
301 FieldKind = fkData
302 FieldName = 'PHONE_NO'
303 Index = 6
304 LookupCache = False
305 ProviderFlags = [pfInUpdate, pfInWhere]
306 ReadOnly = False
307 Required = False
308 end
309 end
310 object DataSource2: TDataSource
311 DataSet = Depts
312 left = 360
313 top = 56
314 end
315 object Datasource1: TDataSource
316 DataSet = Employees
317 left = 496
318 top = 56
319 end
320 object Employees: TIBTable
321 AllowAutoActivateTransaction = False
322 Database = IBDatabase1
323 Transaction = IBTransaction1
324 AutoCommit = acCommitRetaining
325 BufferChunks = 1000
326 CachedUpdates = False
327 DataSetCloseAction = dcSaveChanges
328 EnableStatistics = False
329 Filtered = True
330 SQLFiltered = False
331 GeneratorField.Generator = 'EMP_NO_GEN '
332 GeneratorField.Field = 'EMP_NO'
333 GeneratorField.ApplyOnEvent = gaeOnNewRecord
334 IndexFieldNames = 'DEPT_NO'
335 MasterFields = 'DEPT_NO'
336 MasterSource = DataSource2
337 MasterDetailDelay = 300
338 TableName = 'EMPLOYEE'
339 left = 576
340 top = 56
341 object EmployeesEMP_NO: TSmallintField
342 DisplayWidth = 10
343 FieldKind = fkData
344 FieldName = 'EMP_NO'
345 Index = 0
346 LookupCache = False
347 ProviderFlags = [pfInUpdate, pfInWhere]
348 ReadOnly = False
349 Required = True
350 end
351 object EmployeesFIRST_NAME: TIBStringField
352 DisplayWidth = 15
353 FieldKind = fkData
354 FieldName = 'FIRST_NAME'
355 Index = 1
356 LookupCache = False
357 ProviderFlags = [pfInUpdate, pfInWhere]
358 ReadOnly = False
359 Required = True
360 Size = 15
361 end
362 object EmployeesLAST_NAME: TIBStringField
363 DisplayWidth = 20
364 FieldKind = fkData
365 FieldName = 'LAST_NAME'
366 Index = 2
367 LookupCache = False
368 ProviderFlags = [pfInUpdate, pfInWhere]
369 ReadOnly = False
370 Required = True
371 end
372 object EmployeesPHONE_EXT: TIBStringField
373 DisplayWidth = 4
374 FieldKind = fkData
375 FieldName = 'PHONE_EXT'
376 Index = 3
377 LookupCache = False
378 ProviderFlags = [pfInUpdate, pfInWhere]
379 ReadOnly = False
380 Required = False
381 Size = 4
382 end
383 object EmployeesHIRE_DATE: TDateTimeField
384 DisplayWidth = 10
385 FieldKind = fkData
386 FieldName = 'HIRE_DATE'
387 Index = 4
388 LookupCache = False
389 ProviderFlags = [pfInUpdate, pfInWhere]
390 ReadOnly = False
391 Required = True
392 end
393 object EmployeesDEPT_NO: TIBStringField
394 DisplayWidth = 3
395 FieldKind = fkData
396 FieldName = 'DEPT_NO'
397 Index = 5
398 LookupCache = False
399 ProviderFlags = [pfInUpdate, pfInWhere]
400 ReadOnly = False
401 Required = True
402 Size = 3
403 end
404 object EmployeesJOB_CODE: TIBStringField
405 DisplayWidth = 5
406 FieldKind = fkData
407 FieldName = 'JOB_CODE'
408 Index = 6
409 LookupCache = False
410 ProviderFlags = [pfInUpdate, pfInWhere]
411 ReadOnly = False
412 Required = True
413 Size = 5
414 end
415 object EmployeesJOB_GRADE: TSmallintField
416 DisplayWidth = 10
417 FieldKind = fkData
418 FieldName = 'JOB_GRADE'
419 Index = 7
420 LookupCache = False
421 ProviderFlags = [pfInUpdate, pfInWhere]
422 ReadOnly = False
423 Required = True
424 end
425 object EmployeesJOB_COUNTRY: TIBStringField
426 DisplayWidth = 15
427 FieldKind = fkData
428 FieldName = 'JOB_COUNTRY'
429 Index = 8
430 LookupCache = False
431 ProviderFlags = [pfInUpdate, pfInWhere]
432 ReadOnly = False
433 Required = True
434 Size = 15
435 end
436 object EmployeesSALARY: TIBBCDField
437 DisplayWidth = 18
438 FieldKind = fkData
439 FieldName = 'SALARY'
440 Index = 9
441 LookupCache = False
442 ProviderFlags = [pfInUpdate, pfInWhere]
443 ReadOnly = False
444 Required = True
445 OnGetText = EmployeesSALARYGetText
446 Precision = 18
447 Currency = False
448 MaxValue = 0
449 MinValue = 0
450 Size = 2
451 end
452 object EmployeesFULL_NAME: TIBStringField
453 FieldKind = fkData
454 FieldName = 'FULL_NAME'
455 Index = 10
456 LookupCache = False
457 ProviderFlags = [pfInUpdate, pfInWhere]
458 ReadOnly = True
459 Required = False
460 Size = 37
461 end
462 end
463 end