ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtable/Unit1.lfm
Revision: 312
Committed: Tue Aug 25 15:40:58 2020 UTC (3 years, 7 months ago) by tony
Original Path: ibx/trunk/examples/ibtable/Unit1.lfm
File size: 12745 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 312 LCLVersion = '2.0.11.0'
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 312 Connected = True
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 312 SQLFiltered = False
223 tony 107 GeneratorField.ApplyOnEvent = gaeOnNewRecord
224 tony 45 IndexFieldNames = 'DEPT_NO'
225 tony 209 MasterDetailDelay = 500
226 tony 45 ReadOnly = True
227     TableName = 'DEPARTMENT'
228 tony 118 left = 424
229 tony 272 top = 56
230 tony 45 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 tony 118 left = 360
313 tony 272 top = 56
314 tony 45 end
315     object Datasource1: TDataSource
316     DataSet = Employees
317 tony 118 left = 496
318 tony 272 top = 56
319 tony 45 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 tony 209 EnableStatistics = False
329 tony 272 Filtered = True
330 tony 312 SQLFiltered = False
331 tony 112 GeneratorField.Generator = 'EMP_NO_GEN '
332 tony 107 GeneratorField.Field = 'EMP_NO'
333     GeneratorField.ApplyOnEvent = gaeOnNewRecord
334 tony 45 IndexFieldNames = 'DEPT_NO'
335     MasterFields = 'DEPT_NO'
336     MasterSource = DataSource2
337 tony 209 MasterDetailDelay = 300
338 tony 45 TableName = 'EMPLOYEE'
339 tony 118 left = 576
340 tony 272 top = 56
341 tony 45 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