| 9 |
|
ClientWidth = 485 |
| 10 |
|
OnClose = FormClose |
| 11 |
|
OnShow = FormShow |
| 12 |
< |
LCLVersion = '1.2.6.0' |
| 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 |
| 72 |
|
'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT' |
| 73 |
|
) |
| 74 |
|
Params = <> |
| 75 |
+ |
DataSetCloseAction = dcDiscardChanges |
| 76 |
|
left = 432 |
| 77 |
|
top = 125 |
| 78 |
|
end |
