examples/employee/unit2.lfm

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.2.6.0'
  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 = <>
    left = 432
    top = 125
  end
  object DataSource1: TDataSource
    DataSet = Depts
    left = 392
    top = 125
  end
end
Revision:	21
Committed:	Thu Feb 26 10:33:34 2015 UTC (9 years, 2 months ago) by tony
File size:	1908 byte(s)
Log Message:	Committing updates for Release R1-2-0
#	User	Rev	Content
1	tony	21	object SelectDeptDlg: TSelectDeptDlg
2			Left = 677
3			Height = 449
4			Top = 296
5			Width = 485
6			BorderStyle = bsDialog
7			Caption = 'Select Department'
8			ClientHeight = 449
9			ClientWidth = 485
10	tony	7	OnClose = FormClose
11			OnShow = FormShow
12	tony	21	LCLVersion = '1.2.6.0'
13	tony	7	object Label1: TLabel
14	tony	21	Left = 16
15			Height = 15
16			Top = 16
17	tony	7	Width = 79
18	tony	21	Caption = 'Departments'
19	tony	7	ParentColor = False
20			end
21	tony	21	object DeptsTreeView: TIBTreeView
22			Left = 19
23			Height = 399
24			Top = 37
25			Width = 359
26			TextField = 'DEPARTMENT'
27			DataSource = DataSource1
28			DefaultItemHeight = 18
29			HasChildField = 'CHILDCOUNT'
30	tony	7	KeyField = 'DEPT_NO'
31	tony	21	ParentField = 'HEAD_DEPT'
32			ReadOnly = True
33			RelationName = 'A'
34			TabOrder = 0
35			OnDblClick = DeptsTreeViewDblClick
36			Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
37	tony	7	end
38			object Button1: TButton
39	tony	21	Left = 394
40			Height = 30
41			Top = 37
42	tony	7	Width = 75
43			Caption = 'OK'
44			Default = True
45			ModalResult = 1
46	tony	21	TabOrder = 1
47	tony	7	end
48			object Button2: TButton
49	tony	21	Left = 394
50			Height = 30
51			Top = 72
52	tony	7	Width = 75
53			Cancel = True
54			Caption = 'Cancel'
55			ModalResult = 2
56	tony	21	TabOrder = 2
57	tony	7	end
58			object Depts: TIBQuery
59			Database = Form1.IBDatabase1
60			Transaction = Form1.IBTransaction1
61			BufferChunks = 1000
62			CachedUpdates = False
63	tony	21	GenerateParamNames = False
64	tony	7	GeneratorField.ApplyOnEvent = gaeOnNewRecord
65			SQL.Strings = (
66	tony	21	'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT,count(B.DEPT_NO)'
67			'as ChildCount '
68			'From DEPARTMENT A'
69			'Left Outer JOIN DEPARTMENT B '
70			' On B.HEAD_DEPT = A.DEPT_NO'
71			'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT'
72	tony	7	)
73			Params = <>
74	tony	21	left = 432
75			top = 125
76	tony	7	end
77	tony	21	object DataSource1: TDataSource
78	tony	7	DataSet = Depts
79	tony	21	left = 392
80			top = 125
81	tony	7	end
82			end