ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/ibtable/Unit1.lfm
Revision: 45
Committed: Tue Dec 6 10:33:46 2016 UTC (7 years, 3 months ago) by tony
File size: 10856 byte(s)
Log Message:
Committing updates for Release R2-0-0

File Contents

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