examples/lookupcombobox/Unit2.lfm

object SelectDeptDlg: TSelectDeptDlg
  Left = 1195
  Height = 449
  Top = 507
  Width = 485
  BorderStyle = bsDialog
  Caption = 'Select Department'
  ClientHeight = 449
  ClientWidth = 485
  OnClose = FormClose
  OnShow = FormShow
  Position = poOwnerFormCenter
  LCLVersion = '2.0.0.2'
  object Label1: TLabel
    Left = 16
    Height = 14
    Top = 16
    Width = 79
    Caption = 'Departments'
    ParentColor = False
  end
  object DeptsTreeView: TIBTreeView
    Left = 19
    Height = 399
    Top = 37
    Width = 359
    TextField = 'DEPARTMENT'
    DataSource = DataSource1
    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
    AllowAutoActivateTransaction = False
    Database = Form1.IBDatabase1
    Transaction = Form1.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    EnableStatistics = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    MasterDetailDelay = 0
    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
Revision:	263
Committed:	Thu Dec 6 15:55:01 2018 UTC (5 years, 4 months ago) by tony
File size:	2051 byte(s)
Log Message:	Release 2.3.2 committed
#	User	Rev	Content
1	tony	21	object SelectDeptDlg: TSelectDeptDlg
2	tony	263	Left = 1195
3	tony	21	Height = 449
4	tony	263	Top = 507
5	tony	21	Width = 485
6			BorderStyle = bsDialog
7			Caption = 'Select Department'
8			ClientHeight = 449
9			ClientWidth = 485
10			OnClose = FormClose
11			OnShow = FormShow
12	tony	68	Position = poOwnerFormCenter
13	tony	263	LCLVersion = '2.0.0.2'
14	tony	21	object Label1: TLabel
15			Left = 16
16	tony	68	Height = 14
17	tony	21	Top = 16
18			Width = 79
19			Caption = 'Departments'
20			ParentColor = False
21			end
22			object DeptsTreeView: TIBTreeView
23			Left = 19
24			Height = 399
25			Top = 37
26			Width = 359
27			TextField = 'DEPARTMENT'
28			DataSource = DataSource1
29			HasChildField = 'CHILDCOUNT'
30			KeyField = 'DEPT_NO'
31			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			end
38			object Button1: TButton
39			Left = 394
40			Height = 30
41			Top = 37
42			Width = 75
43			Caption = 'OK'
44			Default = True
45			ModalResult = 1
46			TabOrder = 1
47			end
48			object Button2: TButton
49			Left = 394
50			Height = 30
51			Top = 72
52			Width = 75
53			Cancel = True
54			Caption = 'Cancel'
55			ModalResult = 2
56			TabOrder = 2
57			end
58			object Depts: TIBQuery
59	tony	68	AllowAutoActivateTransaction = False
60	tony	21	Database = Form1.IBDatabase1
61			Transaction = Form1.IBTransaction1
62			BufferChunks = 1000
63			CachedUpdates = False
64	tony	263	EnableStatistics = False
65	tony	21	GenerateParamNames = False
66			GeneratorField.ApplyOnEvent = gaeOnNewRecord
67	tony	263	MasterDetailDelay = 0
68	tony	21	SQL.Strings = (
69			'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT,count(B.DEPT_NO)'
70			'as ChildCount '
71			'From DEPARTMENT A'
72			'Left Outer JOIN DEPARTMENT B '
73			' On B.HEAD_DEPT = A.DEPT_NO'
74			'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT'
75			)
76			Params = <>
77	tony	68	DataSetCloseAction = dcDiscardChanges
78	tony	21	left = 432
79			top = 125
80			end
81			object DataSource1: TDataSource
82			DataSet = Depts
83			left = 392
84			top = 125
85			end
86			end