ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtable/Unit1.lfm
Revision: 263
Committed: Thu Dec 6 15:55:01 2018 UTC (5 years, 3 months ago) by tony
Original Path: ibx/trunk/examples/ibtable/Unit1.lfm
File size: 11771 byte(s)
Log Message:
Release 2.3.2 committed

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