object SelectDeptDlg: TSelectDeptDlg Left = 677 Height = 449 Top = 296 Width = 485 BorderStyle = bsDialog Caption = 'Select Department' ClientHeight = 449 ClientWidth = 485 OnClose = FormClose OnShow = FormShow LCLVersion = '1.4.0.4' object Label1: TLabel Left = 16 Height = 15 Top = 16 Width = 79 Caption = 'Departments' ParentColor = False end object DeptsTreeView: TIBTreeView Left = 19 Height = 399 Top = 37 Width = 359 TextField = 'DEPARTMENT' DataSource = DataSource1 DefaultItemHeight = 18 HasChildField = 'CHILDCOUNT' KeyField = 'DEPT_NO' ParentField = 'HEAD_DEPT' ReadOnly = True RelationName = 'A' TabOrder = 0 OnDblClick = DeptsTreeViewDblClick Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] end object Button1: TButton Left = 394 Height = 30 Top = 37 Width = 75 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 1 end object Button2: TButton Left = 394 Height = 30 Top = 72 Width = 75 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object Depts: TIBQuery Database = Form1.IBDatabase1 Transaction = Form1.IBTransaction1 BufferChunks = 1000 CachedUpdates = False GenerateParamNames = False GeneratorField.ApplyOnEvent = gaeOnNewRecord SQL.Strings = ( 'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT,count(B.DEPT_NO)' 'as ChildCount ' 'From DEPARTMENT A' 'Left Outer JOIN DEPARTMENT B ' ' On B.HEAD_DEPT = A.DEPT_NO' 'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT' ) Params = <> DataSetCloseAction = dcDiscardChanges left = 432 top = 125 end object DataSource1: TDataSource DataSet = Depts left = 392 top = 125 end end