ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/ibtable/Unit1.lfm
Revision: 112
Committed: Thu Jan 18 14:37:55 2018 UTC (6 years, 2 months ago) by tony
File size: 11656 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 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 107 LCLVersion = '1.8.1.0'
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 112 Connected = True
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     left = 232
176     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 107 GeneratorField.ApplyOnEvent = gaeOnNewRecord
189 tony 45 IndexFieldNames = 'DEPT_NO'
190     ReadOnly = True
191     TableName = 'DEPARTMENT'
192     left = 314
193     top = 24
194     object DeptsDEPT_NO: TIBStringField
195     DisplayWidth = 3
196     FieldKind = fkData
197     FieldName = 'DEPT_NO'
198     Index = 0
199     LookupCache = False
200     ProviderFlags = [pfInUpdate, pfInWhere]
201     ReadOnly = False
202     Required = True
203     Size = 3
204     end
205     object DeptsDEPARTMENT: TIBStringField
206     DisplayWidth = 25
207     FieldKind = fkData
208     FieldName = 'DEPARTMENT'
209     Index = 1
210     LookupCache = False
211     ProviderFlags = [pfInUpdate, pfInWhere]
212     ReadOnly = False
213     Required = True
214     Size = 25
215     end
216     object DeptsHEAD_DEPT: TIBStringField
217     DisplayWidth = 3
218     FieldKind = fkData
219     FieldName = 'HEAD_DEPT'
220     Index = 2
221     LookupCache = False
222     ProviderFlags = [pfInUpdate, pfInWhere]
223     ReadOnly = False
224     Required = False
225     Size = 3
226     end
227     object DeptsMNGR_NO: TSmallintField
228     DisplayWidth = 10
229     FieldKind = fkData
230     FieldName = 'MNGR_NO'
231     Index = 3
232     LookupCache = False
233     ProviderFlags = [pfInUpdate, pfInWhere]
234     ReadOnly = False
235     Required = False
236     end
237     object DeptsBUDGET: TIBBCDField
238     DisplayWidth = 18
239     FieldKind = fkData
240     FieldName = 'BUDGET'
241     Index = 4
242     LookupCache = False
243     ProviderFlags = [pfInUpdate, pfInWhere]
244     ReadOnly = False
245     Required = False
246     Precision = 18
247     Currency = False
248     MaxValue = 0
249     MinValue = 0
250     Size = 2
251     end
252     object DeptsLOCATION: TIBStringField
253     DisplayWidth = 15
254     FieldKind = fkData
255     FieldName = 'LOCATION'
256     Index = 5
257     LookupCache = False
258     ProviderFlags = [pfInUpdate, pfInWhere]
259     ReadOnly = False
260     Required = False
261     Size = 15
262     end
263     object DeptsPHONE_NO: TIBStringField
264     DisplayWidth = 20
265     FieldKind = fkData
266     FieldName = 'PHONE_NO'
267     Index = 6
268     LookupCache = False
269     ProviderFlags = [pfInUpdate, pfInWhere]
270     ReadOnly = False
271     Required = False
272     end
273     end
274     object DataSource2: TDataSource
275     DataSet = Depts
276     left = 272
277     top = 24
278     end
279     object Datasource1: TDataSource
280     DataSet = Employees
281     left = 368
282     top = 24
283     end
284     object Employees: TIBTable
285     AllowAutoActivateTransaction = False
286     Database = IBDatabase1
287     Transaction = IBTransaction1
288     AutoCommit = acCommitRetaining
289     BufferChunks = 1000
290     CachedUpdates = False
291     DataSetCloseAction = dcSaveChanges
292 tony 112 GeneratorField.Generator = 'EMP_NO_GEN '
293 tony 107 GeneratorField.Field = 'EMP_NO'
294     GeneratorField.ApplyOnEvent = gaeOnNewRecord
295 tony 45 IndexFieldNames = 'DEPT_NO'
296     MasterFields = 'DEPT_NO'
297     MasterSource = DataSource2
298     TableName = 'EMPLOYEE'
299     left = 416
300     top = 24
301     object EmployeesEMP_NO: TSmallintField
302     DisplayWidth = 10
303     FieldKind = fkData
304     FieldName = 'EMP_NO'
305     Index = 0
306     LookupCache = False
307     ProviderFlags = [pfInUpdate, pfInWhere]
308     ReadOnly = False
309     Required = True
310     end
311     object EmployeesFIRST_NAME: TIBStringField
312     DisplayWidth = 15
313     FieldKind = fkData
314     FieldName = 'FIRST_NAME'
315     Index = 1
316     LookupCache = False
317     ProviderFlags = [pfInUpdate, pfInWhere]
318     ReadOnly = False
319     Required = True
320     Size = 15
321     end
322     object EmployeesLAST_NAME: TIBStringField
323     DisplayWidth = 20
324     FieldKind = fkData
325     FieldName = 'LAST_NAME'
326     Index = 2
327     LookupCache = False
328     ProviderFlags = [pfInUpdate, pfInWhere]
329     ReadOnly = False
330     Required = True
331     end
332     object EmployeesPHONE_EXT: TIBStringField
333     DisplayWidth = 4
334     FieldKind = fkData
335     FieldName = 'PHONE_EXT'
336     Index = 3
337     LookupCache = False
338     ProviderFlags = [pfInUpdate, pfInWhere]
339     ReadOnly = False
340     Required = False
341     Size = 4
342     end
343     object EmployeesHIRE_DATE: TDateTimeField
344     DisplayWidth = 10
345     FieldKind = fkData
346     FieldName = 'HIRE_DATE'
347     Index = 4
348     LookupCache = False
349     ProviderFlags = [pfInUpdate, pfInWhere]
350     ReadOnly = False
351     Required = True
352     end
353     object EmployeesDEPT_NO: TIBStringField
354     DisplayWidth = 3
355     FieldKind = fkData
356     FieldName = 'DEPT_NO'
357     Index = 5
358     LookupCache = False
359     ProviderFlags = [pfInUpdate, pfInWhere]
360     ReadOnly = False
361     Required = True
362     Size = 3
363     end
364     object EmployeesJOB_CODE: TIBStringField
365     DisplayWidth = 5
366     FieldKind = fkData
367     FieldName = 'JOB_CODE'
368     Index = 6
369     LookupCache = False
370     ProviderFlags = [pfInUpdate, pfInWhere]
371     ReadOnly = False
372     Required = True
373     Size = 5
374     end
375     object EmployeesJOB_GRADE: TSmallintField
376     DisplayWidth = 10
377     FieldKind = fkData
378     FieldName = 'JOB_GRADE'
379     Index = 7
380     LookupCache = False
381     ProviderFlags = [pfInUpdate, pfInWhere]
382     ReadOnly = False
383     Required = True
384     end
385     object EmployeesJOB_COUNTRY: TIBStringField
386     DisplayWidth = 15
387     FieldKind = fkData
388     FieldName = 'JOB_COUNTRY'
389     Index = 8
390     LookupCache = False
391     ProviderFlags = [pfInUpdate, pfInWhere]
392     ReadOnly = False
393     Required = True
394     Size = 15
395     end
396     object EmployeesSALARY: TIBBCDField
397     DisplayWidth = 18
398     FieldKind = fkData
399     FieldName = 'SALARY'
400     Index = 9
401     LookupCache = False
402     ProviderFlags = [pfInUpdate, pfInWhere]
403     ReadOnly = False
404     Required = True
405     OnGetText = EmployeesSALARYGetText
406     Precision = 18
407     Currency = False
408     MaxValue = 0
409     MinValue = 0
410     Size = 2
411     end
412     object EmployeesFULL_NAME: TIBStringField
413     DisplayWidth = 37
414     FieldKind = fkData
415     FieldName = 'FULL_NAME'
416     Index = 10
417     LookupCache = False
418     ProviderFlags = [pfInUpdate, pfInWhere]
419     ReadOnly = True
420     Required = False
421     Size = 37
422     end
423     end
424     end