ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/ibtable/Unit1.lfm
Revision: 272
Committed: Mon Feb 4 13:34:37 2019 UTC (5 years, 1 month ago) by tony
File size: 12721 byte(s)
Log Message:
Fixes merged

File Contents

# User Rev Content
1 tony 45 object Form1: TForm1
2 tony 68 Left = 457
3 tony 45 Height = 453
4     Top = 397
5 tony 107 Width = 943
6 tony 272 Align = alTop
7 tony 45 Caption = 'IB Tables Example'
8     ClientHeight = 453
9 tony 107 ClientWidth = 943
10 tony 68 DefaultMonitor = dmPrimary
11 tony 45 OnShow = FormShow
12 tony 68 Position = poScreenCenter
13 tony 272 LCLVersion = '2.0.0.3'
14 tony 45 object Panel1: TPanel
15     Left = 0
16     Height = 453
17     Top = 0
18 tony 107 Width = 943
19 tony 45 Align = alClient
20     ClientHeight = 453
21 tony 107 ClientWidth = 943
22 tony 45 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 tony 272 object Panel3: TPanel
68 tony 45 Left = 176
69     Height = 451
70     Top = 1
71 tony 107 Width = 766
72 tony 45 Align = alClient
73 tony 272 BevelOuter = bvNone
74     ClientHeight = 451
75     ClientWidth = 766
76 tony 45 TabOrder = 2
77 tony 272 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 tony 45 end
182     end
183     object IBDatabase1: TIBDatabase
184 tony 118 Connected = False
185 tony 45 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 tony 272 top = 56
199 tony 45 end
200     object IBTransaction1: TIBTransaction
201     Active = False
202     DefaultDatabase = IBDatabase1
203     Params.Strings = (
204     'read_committed'
205     'rec_version'
206     'nowait'
207     )
208 tony 118 left = 272
209 tony 272 top = 56
210 tony 45 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 tony 209 EnableStatistics = False
222 tony 107 GeneratorField.ApplyOnEvent = gaeOnNewRecord
223 tony 45 IndexFieldNames = 'DEPT_NO'
224 tony 209 MasterDetailDelay = 500
225 tony 45 ReadOnly = True
226     TableName = 'DEPARTMENT'
227 tony 118 left = 424
228 tony 272 top = 56
229 tony 45 object DeptsDEPT_NO: TIBStringField
230     DisplayWidth = 3
231     FieldKind = fkData
232     FieldName = 'DEPT_NO'
233     Index = 0
234     LookupCache = False
235     ProviderFlags = [pfInUpdate, pfInWhere]
236     ReadOnly = False
237     Required = True
238     Size = 3
239     end
240     object DeptsDEPARTMENT: TIBStringField
241     DisplayWidth = 25
242     FieldKind = fkData
243     FieldName = 'DEPARTMENT'
244     Index = 1
245     LookupCache = False
246     ProviderFlags = [pfInUpdate, pfInWhere]
247     ReadOnly = False
248     Required = True
249     Size = 25
250     end
251     object DeptsHEAD_DEPT: TIBStringField
252     DisplayWidth = 3
253     FieldKind = fkData
254     FieldName = 'HEAD_DEPT'
255     Index = 2
256     LookupCache = False
257     ProviderFlags = [pfInUpdate, pfInWhere]
258     ReadOnly = False
259     Required = False
260     Size = 3
261     end
262     object DeptsMNGR_NO: TSmallintField
263     DisplayWidth = 10
264     FieldKind = fkData
265     FieldName = 'MNGR_NO'
266     Index = 3
267     LookupCache = False
268     ProviderFlags = [pfInUpdate, pfInWhere]
269     ReadOnly = False
270     Required = False
271     end
272     object DeptsBUDGET: TIBBCDField
273     DisplayWidth = 18
274     FieldKind = fkData
275     FieldName = 'BUDGET'
276     Index = 4
277     LookupCache = False
278     ProviderFlags = [pfInUpdate, pfInWhere]
279     ReadOnly = False
280     Required = False
281     Precision = 18
282     Currency = False
283     MaxValue = 0
284     MinValue = 0
285     Size = 2
286     end
287     object DeptsLOCATION: TIBStringField
288     DisplayWidth = 15
289     FieldKind = fkData
290     FieldName = 'LOCATION'
291     Index = 5
292     LookupCache = False
293     ProviderFlags = [pfInUpdate, pfInWhere]
294     ReadOnly = False
295     Required = False
296     Size = 15
297     end
298     object DeptsPHONE_NO: TIBStringField
299     DisplayWidth = 20
300     FieldKind = fkData
301     FieldName = 'PHONE_NO'
302     Index = 6
303     LookupCache = False
304     ProviderFlags = [pfInUpdate, pfInWhere]
305     ReadOnly = False
306     Required = False
307     end
308     end
309     object DataSource2: TDataSource
310     DataSet = Depts
311 tony 118 left = 360
312 tony 272 top = 56
313 tony 45 end
314     object Datasource1: TDataSource
315     DataSet = Employees
316 tony 118 left = 496
317 tony 272 top = 56
318 tony 45 end
319     object Employees: TIBTable
320     AllowAutoActivateTransaction = False
321     Database = IBDatabase1
322     Transaction = IBTransaction1
323     AutoCommit = acCommitRetaining
324     BufferChunks = 1000
325     CachedUpdates = False
326     DataSetCloseAction = dcSaveChanges
327 tony 209 EnableStatistics = False
328 tony 272 Filtered = True
329 tony 112 GeneratorField.Generator = 'EMP_NO_GEN '
330 tony 107 GeneratorField.Field = 'EMP_NO'
331     GeneratorField.ApplyOnEvent = gaeOnNewRecord
332 tony 45 IndexFieldNames = 'DEPT_NO'
333     MasterFields = 'DEPT_NO'
334     MasterSource = DataSource2
335 tony 209 MasterDetailDelay = 300
336 tony 45 TableName = 'EMPLOYEE'
337 tony 118 left = 576
338 tony 272 top = 56
339 tony 45 object EmployeesEMP_NO: TSmallintField
340     DisplayWidth = 10
341     FieldKind = fkData
342     FieldName = 'EMP_NO'
343     Index = 0
344     LookupCache = False
345     ProviderFlags = [pfInUpdate, pfInWhere]
346     ReadOnly = False
347     Required = True
348     end
349     object EmployeesFIRST_NAME: TIBStringField
350     DisplayWidth = 15
351     FieldKind = fkData
352     FieldName = 'FIRST_NAME'
353     Index = 1
354     LookupCache = False
355     ProviderFlags = [pfInUpdate, pfInWhere]
356     ReadOnly = False
357     Required = True
358     Size = 15
359     end
360     object EmployeesLAST_NAME: TIBStringField
361     DisplayWidth = 20
362     FieldKind = fkData
363     FieldName = 'LAST_NAME'
364     Index = 2
365     LookupCache = False
366     ProviderFlags = [pfInUpdate, pfInWhere]
367     ReadOnly = False
368     Required = True
369     end
370     object EmployeesPHONE_EXT: TIBStringField
371     DisplayWidth = 4
372     FieldKind = fkData
373     FieldName = 'PHONE_EXT'
374     Index = 3
375     LookupCache = False
376     ProviderFlags = [pfInUpdate, pfInWhere]
377     ReadOnly = False
378     Required = False
379     Size = 4
380     end
381     object EmployeesHIRE_DATE: TDateTimeField
382     DisplayWidth = 10
383     FieldKind = fkData
384     FieldName = 'HIRE_DATE'
385     Index = 4
386     LookupCache = False
387     ProviderFlags = [pfInUpdate, pfInWhere]
388     ReadOnly = False
389     Required = True
390     end
391     object EmployeesDEPT_NO: TIBStringField
392     DisplayWidth = 3
393     FieldKind = fkData
394     FieldName = 'DEPT_NO'
395     Index = 5
396     LookupCache = False
397     ProviderFlags = [pfInUpdate, pfInWhere]
398     ReadOnly = False
399     Required = True
400     Size = 3
401     end
402     object EmployeesJOB_CODE: TIBStringField
403     DisplayWidth = 5
404     FieldKind = fkData
405     FieldName = 'JOB_CODE'
406     Index = 6
407     LookupCache = False
408     ProviderFlags = [pfInUpdate, pfInWhere]
409     ReadOnly = False
410     Required = True
411     Size = 5
412     end
413     object EmployeesJOB_GRADE: TSmallintField
414     DisplayWidth = 10
415     FieldKind = fkData
416     FieldName = 'JOB_GRADE'
417     Index = 7
418     LookupCache = False
419     ProviderFlags = [pfInUpdate, pfInWhere]
420     ReadOnly = False
421     Required = True
422     end
423     object EmployeesJOB_COUNTRY: TIBStringField
424     DisplayWidth = 15
425     FieldKind = fkData
426     FieldName = 'JOB_COUNTRY'
427     Index = 8
428     LookupCache = False
429     ProviderFlags = [pfInUpdate, pfInWhere]
430     ReadOnly = False
431     Required = True
432     Size = 15
433     end
434     object EmployeesSALARY: TIBBCDField
435     DisplayWidth = 18
436     FieldKind = fkData
437     FieldName = 'SALARY'
438     Index = 9
439     LookupCache = False
440     ProviderFlags = [pfInUpdate, pfInWhere]
441     ReadOnly = False
442     Required = True
443     OnGetText = EmployeesSALARYGetText
444     Precision = 18
445     Currency = False
446     MaxValue = 0
447     MinValue = 0
448     Size = 2
449     end
450     object EmployeesFULL_NAME: TIBStringField
451     DisplayWidth = 37
452     FieldKind = fkData
453     FieldName = 'FULL_NAME'
454     Index = 10
455     LookupCache = False
456     ProviderFlags = [pfInUpdate, pfInWhere]
457     ReadOnly = True
458     Required = False
459     Size = 37
460     end
461     end
462     end