9 |
|
ClientWidth = 485 |
10 |
|
OnClose = FormClose |
11 |
|
OnShow = FormShow |
12 |
< |
LCLVersion = '1.4.0.4' |
12 |
> |
Position = poOwnerFormCenter |
13 |
> |
LCLVersion = '1.8.0.4' |
14 |
|
object Label1: TLabel |
15 |
|
Left = 16 |
16 |
< |
Height = 15 |
16 |
> |
Height = 14 |
17 |
|
Top = 16 |
18 |
|
Width = 79 |
19 |
|
Caption = 'Departments' |
26 |
|
Width = 359 |
27 |
|
TextField = 'DEPARTMENT' |
28 |
|
DataSource = DataSource1 |
28 |
– |
DefaultItemHeight = 18 |
29 |
|
HasChildField = 'CHILDCOUNT' |
30 |
|
KeyField = 'DEPT_NO' |
31 |
|
ParentField = 'HEAD_DEPT' |
56 |
|
TabOrder = 2 |
57 |
|
end |
58 |
|
object Depts: TIBQuery |
59 |
+ |
AllowAutoActivateTransaction = False |
60 |
|
Database = Form1.IBDatabase1 |
61 |
|
Transaction = Form1.IBTransaction1 |
62 |
|
BufferChunks = 1000 |