1 |
|
object Form1: TForm1 |
2 |
< |
Left = 636 |
2 |
> |
Left = 489 |
3 |
|
Height = 438 |
4 |
< |
Top = 437 |
4 |
> |
Top = 219 |
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.6.4.0' |
14 |
|
object Panel1: TPanel |
15 |
|
Left = 11 |
16 |
|
Height = 367 |
29 |
|
Align = alLeft |
30 |
|
TextField = 'DEPARTMENT' |
31 |
|
DataSource = DataSource1 |
32 |
< |
DefaultItemHeight = 18 |
32 |
> |
DefaultItemHeight = 16 |
33 |
|
DragMode = dmAutomatic |
34 |
|
Images = ImageList1 |
35 |
|
HasChildField = 'CHILDCOUNT' |
36 |
+ |
ImageIndexField = 'IMAGEINDEX' |
37 |
+ |
SelectedIndexField = 'IMAGEINDEX' |
38 |
|
KeyField = 'DEPT_NO' |
39 |
|
ParentField = 'HEAD_DEPT' |
40 |
|
PopupMenu = PopupMenu1 |
41 |
|
RelationName = 'A' |
42 |
|
ScrollBars = ssAutoBoth |
43 |
|
TabOrder = 0 |
40 |
– |
OnAddition = IBTreeView1Addition |
44 |
|
OnDragDrop = IBTreeView1DragDrop |
45 |
|
OnDragOver = IBTreeView1DragOver |
46 |
|
end |
73 |
|
TabOrder = 0 |
74 |
|
object Label2: TLabel |
75 |
|
Left = 11 |
76 |
< |
Height = 15 |
76 |
> |
Height = 13 |
77 |
|
Top = 16 |
78 |
< |
Width = 25 |
78 |
> |
Width = 20 |
79 |
|
Caption = 'Title' |
80 |
|
ParentColor = False |
81 |
|
end |
82 |
|
object DBEdit1: TDBEdit |
83 |
|
Left = 11 |
84 |
< |
Height = 25 |
84 |
> |
Height = 21 |
85 |
|
Top = 31 |
86 |
|
Width = 373 |
87 |
|
DataField = 'DEPARTMENT' |
93 |
|
end |
94 |
|
object Label3: TLabel |
95 |
|
Left = 13 |
96 |
< |
Height = 15 |
96 |
> |
Height = 13 |
97 |
|
Top = 71 |
98 |
< |
Width = 51 |
98 |
> |
Width = 40 |
99 |
|
Caption = 'Location' |
100 |
|
ParentColor = False |
101 |
|
end |
102 |
|
object DBEdit4: TDBEdit |
103 |
|
Left = 13 |
104 |
< |
Height = 25 |
104 |
> |
Height = 21 |
105 |
|
Top = 86 |
106 |
|
Width = 179 |
107 |
|
DataField = 'LOCATION' |
112 |
|
end |
113 |
|
object Label4: TLabel |
114 |
|
Left = 219 |
115 |
< |
Height = 15 |
115 |
> |
Height = 13 |
116 |
|
Top = 71 |
117 |
< |
Width = 44 |
117 |
> |
Width = 34 |
118 |
|
Caption = 'Budget' |
119 |
|
ParentColor = False |
120 |
|
end |
121 |
|
object DBEdit2: TDBEdit |
122 |
|
Left = 219 |
123 |
< |
Height = 25 |
123 |
> |
Height = 21 |
124 |
|
Top = 86 |
125 |
|
Width = 165 |
126 |
|
DataField = 'BUDGET' |
132 |
|
end |
133 |
|
object Label5: TLabel |
134 |
|
Left = 219 |
135 |
< |
Height = 15 |
135 |
> |
Height = 13 |
136 |
|
Top = 121 |
137 |
< |
Width = 61 |
137 |
> |
Width = 50 |
138 |
|
Caption = 'Phone No.' |
139 |
|
ParentColor = False |
140 |
|
end |
141 |
|
object DBEdit3: TDBEdit |
142 |
|
Left = 219 |
143 |
< |
Height = 25 |
143 |
> |
Height = 21 |
144 |
|
Top = 136 |
145 |
|
Width = 165 |
146 |
|
DataField = 'PHONE_NO' |
152 |
|
end |
153 |
|
object Label6: TLabel |
154 |
|
Left = 12 |
155 |
< |
Height = 15 |
155 |
> |
Height = 13 |
156 |
|
Top = 121 |
157 |
< |
Width = 52 |
157 |
> |
Width = 42 |
158 |
|
Caption = 'Manager' |
159 |
|
ParentColor = False |
160 |
|
end |
161 |
|
object IBLookupComboEditBox1: TIBLookupComboEditBox |
162 |
|
Left = 13 |
163 |
< |
Height = 27 |
163 |
> |
Height = 21 |
164 |
|
Top = 136 |
165 |
|
Width = 180 |
166 |
|
DataField = 'MNGR_NO' |
173 |
|
TabOrder = 4 |
174 |
|
AutoInsert = False |
175 |
|
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
176 |
< |
ItemHeight = 0 |
176 |
> |
ItemHeight = 13 |
177 |
|
end |
178 |
|
object Label7: TLabel |
179 |
|
Left = 12 |
180 |
< |
Height = 15 |
180 |
> |
Height = 13 |
181 |
|
Top = 172 |
182 |
< |
Width = 115 |
182 |
> |
Width = 92 |
183 |
|
Caption = 'Departmental Staff' |
184 |
|
ParentColor = False |
185 |
|
end |
251 |
|
end |
252 |
|
object Label1: TLabel |
253 |
|
Left = 11 |
254 |
< |
Height = 15 |
254 |
> |
Height = 13 |
255 |
|
Top = 17 |
256 |
< |
Width = 79 |
256 |
> |
Width = 62 |
257 |
|
Caption = 'Departments' |
258 |
|
ParentColor = False |
259 |
|
end |
279 |
|
end |
280 |
|
object IBDatabase1: TIBDatabase |
281 |
|
Connected = True |
282 |
+ |
CreateIfNotExists = False |
283 |
|
AllowStreamedConnected = False |
284 |
< |
DatabaseName = 'employee' |
284 |
> |
DatabaseName = 'localhost:employee' |
285 |
|
Params.Strings = ( |
286 |
< |
'lc_ctype=UTF-8' |
286 |
> |
'lc_ctype=UTF8' |
287 |
|
'user_name=SYSDBA' |
288 |
|
) |
289 |
|
DefaultTransaction = IBTransaction1 |
290 |
|
IdleTimer = 0 |
291 |
+ |
SQLHourGlass = False |
292 |
|
TraceFlags = [] |
293 |
+ |
UseDefaultSystemCodePage = False |
294 |
|
left = 24 |
295 |
|
top = 96 |
296 |
|
end |
297 |
|
object IBTransaction1: TIBTransaction |
298 |
|
Active = False |
299 |
+ |
Params.Strings = ( |
300 |
+ |
'read_committed' |
301 |
+ |
'rec_version' |
302 |
+ |
'nowait' |
303 |
+ |
) |
304 |
|
left = 24 |
305 |
|
top = 136 |
306 |
|
end |
307 |
|
object Departments: TIBDataSet |
308 |
+ |
AllowAutoActivateTransaction = False |
309 |
|
Database = IBDatabase1 |
310 |
|
Transaction = IBTransaction1 |
311 |
|
AfterDelete = DepartmentsAfterDelete |
312 |
|
AfterEdit = DepartmentsAfterDelete |
313 |
|
AfterInsert = DepartmentsAfterInsert |
302 |
– |
BeforeClose = DepartmentsBeforeScroll |
303 |
– |
BeforeScroll = DepartmentsBeforeScroll |
314 |
|
BufferChunks = 1000 |
315 |
|
CachedUpdates = False |
316 |
|
DeleteSQL.Strings = ( |
323 |
|
) |
324 |
|
RefreshSQL.Strings = ( |
325 |
|
'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,' |
326 |
< |
'count(B.DEPT_NO) as ChildCount' |
326 |
> |
'count(B.DEPT_NO) as ChildCount,' |
327 |
> |
'case' |
328 |
> |
' when A.Budget < 500000 then 0' |
329 |
> |
' when A.Budget = 500000 then 2' |
330 |
> |
' else 1 end as ImageIndex' |
331 |
|
'From DEPARTMENT A' |
332 |
|
'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO' |
333 |
|
'Where A.DEPT_NO = :DEPT_NO' |
336 |
|
) |
337 |
|
SelectSQL.Strings = ( |
338 |
|
'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,' |
339 |
< |
'count(B.DEPT_NO) as ChildCount' |
339 |
> |
'count(B.DEPT_NO) as ChildCount,' |
340 |
> |
'case' |
341 |
> |
' when A.Budget < 500000 then 0' |
342 |
> |
' when A.Budget = 500000 then 2' |
343 |
> |
' else 1 end as ImageIndex' |
344 |
|
'From DEPARTMENT A' |
345 |
|
'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO' |
346 |
|
'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO' |
354 |
|
GeneratorField.Field = 'DEPT_NO' |
355 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
356 |
|
GenerateParamNames = False |
357 |
+ |
DataSetCloseAction = dcSaveChanges |
358 |
|
AfterTransactionEnd = DepartmentsAfterTransactionEnd |
359 |
< |
left = 64 |
359 |
> |
left = 144 |
360 |
|
top = 176 |
361 |
|
object DepartmentsDEPT_NO: TIBStringField |
362 |
|
DisplayWidth = 3 |
410 |
|
ProviderFlags = [pfInUpdate, pfInWhere] |
411 |
|
ReadOnly = False |
412 |
|
Required = False |
394 |
– |
OnChange = DepartmentsBUDGETChange |
413 |
|
OnGetText = DepartmentsBUDGETGetText |
414 |
|
Precision = 18 |
415 |
|
Currency = False |
448 |
|
ReadOnly = False |
449 |
|
Required = True |
450 |
|
end |
451 |
+ |
object DepartmentsIMAGEINDEX: TIBIntegerField |
452 |
+ |
FieldKind = fkData |
453 |
+ |
FieldName = 'IMAGEINDEX' |
454 |
+ |
Index = 8 |
455 |
+ |
LookupCache = False |
456 |
+ |
ProviderFlags = [pfInUpdate, pfInWhere] |
457 |
+ |
ReadOnly = False |
458 |
+ |
Required = True |
459 |
+ |
end |
460 |
|
end |
461 |
|
object DataSource1: TDataSource |
462 |
|
DataSet = Departments |
469 |
|
top = 48 |
470 |
|
end |
471 |
|
object Managers: TIBQuery |
472 |
+ |
AllowAutoActivateTransaction = False |
473 |
|
Database = IBDatabase1 |
474 |
|
Transaction = IBTransaction1 |
475 |
|
BufferChunks = 1000 |
481 |
|
'order by 2' |
482 |
|
) |
483 |
|
Params = <> |
484 |
< |
left = 64 |
485 |
< |
top = 221 |
484 |
> |
DataSetCloseAction = dcDiscardChanges |
485 |
> |
left = 144 |
486 |
> |
top = 224 |
487 |
|
end |
488 |
|
object DataSource2: TDataSource |
489 |
|
DataSet = Managers |
491 |
|
top = 221 |
492 |
|
end |
493 |
|
object Staff: TIBQuery |
494 |
+ |
AllowAutoActivateTransaction = False |
495 |
|
Database = IBDatabase1 |
496 |
|
Transaction = IBTransaction1 |
497 |
|
BufferChunks = 1000 |
509 |
|
Name = 'DEPT_NO' |
510 |
|
ParamType = ptInput |
511 |
|
end> |
512 |
< |
left = 64 |
513 |
< |
top = 264 |
512 |
> |
DataSetCloseAction = dcDiscardChanges |
513 |
> |
left = 144 |
514 |
> |
top = 272 |
515 |
|
ParamData = < |
516 |
|
item |
517 |
|
DataType = ftUnknown |