examples/lookupcombobox/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
  Position = poOwnerFormCenter
  LCLVersion = '1.8.0.4'
  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
    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
Revision:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (7 years, 1 month ago) by tony
File size:	1995 byte(s)
Log Message:	IBX: Editor Positioning tidy up FBINTF: Trap uninitialised SQL parameters on SQL Exec. Avoids Unknown SQL Type errors. Consistent setting of Modified (SQLParam).
#	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			OnClose = FormClose
11			OnShow = FormShow
12	tony	68	Position = poOwnerFormCenter
13			LCLVersion = '1.8.0.4'
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			GenerateParamNames = False
65			GeneratorField.ApplyOnEvent = gaeOnNewRecord
66			SQL.Strings = (
67			'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT,count(B.DEPT_NO)'
68			'as ChildCount '
69			'From DEPARTMENT A'
70			'Left Outer JOIN DEPARTMENT B '
71			' On B.HEAD_DEPT = A.DEPT_NO'
72			'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT'
73			)
74			Params = <>
75	tony	68	DataSetCloseAction = dcDiscardChanges
76	tony	21	left = 432
77			top = 125
78			end
79			object DataSource1: TDataSource
80			DataSet = Depts
81			left = 392
82			top = 125
83			end
84			end