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 |