1 |
|
object Form1: TForm1 |
2 |
< |
Left = 636 |
2 |
> |
Left = 552 |
3 |
|
Height = 438 |
4 |
|
Top = 437 |
5 |
|
Width = 722 |
6 |
|
Caption = 'TIBTreeView Example' |
7 |
|
ClientHeight = 438 |
8 |
|
ClientWidth = 722 |
9 |
+ |
DefaultMonitor = dmPrimary |
10 |
|
OnClose = FormClose |
11 |
|
OnShow = FormShow |
12 |
< |
LCLVersion = '1.4.0.1' |
12 |
> |
Position = poScreenCenter |
13 |
> |
LCLVersion = '1.8.0.4' |
14 |
|
object Panel1: TPanel |
15 |
|
Left = 11 |
16 |
|
Height = 367 |
29 |
|
Align = alLeft |
30 |
|
TextField = 'DEPARTMENT' |
31 |
|
DataSource = DataSource1 |
30 |
– |
DefaultItemHeight = 18 |
32 |
|
DragMode = dmAutomatic |
33 |
|
Images = ImageList1 |
34 |
|
HasChildField = 'CHILDCOUNT' |
71 |
|
TabOrder = 0 |
72 |
|
object Label2: TLabel |
73 |
|
Left = 11 |
74 |
< |
Height = 15 |
74 |
> |
Height = 14 |
75 |
|
Top = 16 |
76 |
|
Width = 25 |
77 |
|
Caption = 'Title' |
79 |
|
end |
80 |
|
object DBEdit1: TDBEdit |
81 |
|
Left = 11 |
82 |
< |
Height = 25 |
82 |
> |
Height = 24 |
83 |
|
Top = 31 |
84 |
|
Width = 373 |
85 |
|
DataField = 'DEPARTMENT' |
91 |
|
end |
92 |
|
object Label3: TLabel |
93 |
|
Left = 13 |
94 |
< |
Height = 15 |
94 |
> |
Height = 14 |
95 |
|
Top = 71 |
96 |
|
Width = 51 |
97 |
|
Caption = 'Location' |
99 |
|
end |
100 |
|
object DBEdit4: TDBEdit |
101 |
|
Left = 13 |
102 |
< |
Height = 25 |
102 |
> |
Height = 24 |
103 |
|
Top = 86 |
104 |
|
Width = 179 |
105 |
|
DataField = 'LOCATION' |
110 |
|
end |
111 |
|
object Label4: TLabel |
112 |
|
Left = 219 |
113 |
< |
Height = 15 |
113 |
> |
Height = 14 |
114 |
|
Top = 71 |
115 |
|
Width = 44 |
116 |
|
Caption = 'Budget' |
118 |
|
end |
119 |
|
object DBEdit2: TDBEdit |
120 |
|
Left = 219 |
121 |
< |
Height = 25 |
121 |
> |
Height = 24 |
122 |
|
Top = 86 |
123 |
|
Width = 165 |
124 |
|
DataField = 'BUDGET' |
130 |
|
end |
131 |
|
object Label5: TLabel |
132 |
|
Left = 219 |
133 |
< |
Height = 15 |
133 |
> |
Height = 14 |
134 |
|
Top = 121 |
135 |
|
Width = 61 |
136 |
|
Caption = 'Phone No.' |
138 |
|
end |
139 |
|
object DBEdit3: TDBEdit |
140 |
|
Left = 219 |
141 |
< |
Height = 25 |
141 |
> |
Height = 24 |
142 |
|
Top = 136 |
143 |
|
Width = 165 |
144 |
|
DataField = 'PHONE_NO' |
150 |
|
end |
151 |
|
object Label6: TLabel |
152 |
|
Left = 12 |
153 |
< |
Height = 15 |
153 |
> |
Height = 14 |
154 |
|
Top = 121 |
155 |
|
Width = 52 |
156 |
|
Caption = 'Manager' |
175 |
|
end |
176 |
|
object Label7: TLabel |
177 |
|
Left = 12 |
178 |
< |
Height = 15 |
178 |
> |
Height = 14 |
179 |
|
Top = 172 |
180 |
|
Width = 115 |
181 |
|
Caption = 'Departmental Staff' |
249 |
|
end |
250 |
|
object Label1: TLabel |
251 |
|
Left = 11 |
252 |
< |
Height = 15 |
252 |
> |
Height = 14 |
253 |
|
Top = 17 |
254 |
|
Width = 79 |
255 |
|
Caption = 'Departments' |
276 |
|
TabOrder = 2 |
277 |
|
end |
278 |
|
object IBDatabase1: TIBDatabase |
279 |
< |
Connected = True |
279 |
> |
Connected = False |
280 |
> |
CreateIfNotExists = False |
281 |
|
AllowStreamedConnected = False |
282 |
< |
DatabaseName = 'employee' |
282 |
> |
DatabaseName = 'localhost:employee' |
283 |
|
Params.Strings = ( |
284 |
< |
'lc_ctype=UTF-8' |
284 |
> |
'lc_ctype=UTF8' |
285 |
|
'user_name=SYSDBA' |
286 |
|
) |
287 |
|
DefaultTransaction = IBTransaction1 |
288 |
|
IdleTimer = 0 |
289 |
+ |
SQLHourGlass = False |
290 |
|
TraceFlags = [] |
291 |
+ |
UseDefaultSystemCodePage = False |
292 |
|
left = 24 |
293 |
|
top = 96 |
294 |
|
end |
295 |
|
object IBTransaction1: TIBTransaction |
296 |
|
Active = False |
297 |
+ |
Params.Strings = ( |
298 |
+ |
'read_committed' |
299 |
+ |
'rec_version' |
300 |
+ |
'nowait' |
301 |
+ |
) |
302 |
|
left = 24 |
303 |
|
top = 136 |
304 |
|
end |
305 |
|
object Departments: TIBDataSet |
306 |
+ |
AllowAutoActivateTransaction = False |
307 |
|
Database = IBDatabase1 |
308 |
|
Transaction = IBTransaction1 |
309 |
|
AfterDelete = DepartmentsAfterDelete |
310 |
|
AfterEdit = DepartmentsAfterDelete |
311 |
|
AfterInsert = DepartmentsAfterInsert |
302 |
– |
BeforeClose = DepartmentsBeforeScroll |
303 |
– |
BeforeScroll = DepartmentsBeforeScroll |
312 |
|
BufferChunks = 1000 |
313 |
|
CachedUpdates = False |
314 |
|
DeleteSQL.Strings = ( |
344 |
|
GeneratorField.Field = 'DEPT_NO' |
345 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
346 |
|
GenerateParamNames = False |
347 |
+ |
DataSetCloseAction = dcSaveChanges |
348 |
|
AfterTransactionEnd = DepartmentsAfterTransactionEnd |
349 |
|
left = 64 |
350 |
|
top = 176 |
451 |
|
top = 48 |
452 |
|
end |
453 |
|
object Managers: TIBQuery |
454 |
+ |
AllowAutoActivateTransaction = False |
455 |
|
Database = IBDatabase1 |
456 |
|
Transaction = IBTransaction1 |
457 |
|
BufferChunks = 1000 |
463 |
|
'order by 2' |
464 |
|
) |
465 |
|
Params = <> |
466 |
+ |
DataSetCloseAction = dcDiscardChanges |
467 |
|
left = 64 |
468 |
|
top = 221 |
469 |
|
end |
473 |
|
top = 221 |
474 |
|
end |
475 |
|
object Staff: TIBQuery |
476 |
+ |
AllowAutoActivateTransaction = False |
477 |
|
Database = IBDatabase1 |
478 |
|
Transaction = IBTransaction1 |
479 |
|
BufferChunks = 1000 |
491 |
|
Name = 'DEPT_NO' |
492 |
|
ParamType = ptInput |
493 |
|
end> |
494 |
+ |
DataSetCloseAction = dcDiscardChanges |
495 |
|
left = 64 |
496 |
|
top = 264 |
497 |
|
ParamData = < |