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
  Position = poMainFormCenter
  LCLVersion = '1.8.1.0'
  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:	86
Committed:	Mon Jan 1 11:31:23 2018 UTC (6 years, 10 months ago) by tony
File size:	1994 byte(s)
Log Message:	Updated example form layouts
#	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	86	Position = poMainFormCenter
13			LCLVersion = '1.8.1.0'
14	tony	7	object Label1: TLabel
15	tony	21	Left = 16
16	tony	86	Height = 14
17	tony	21	Top = 16
18	tony	7	Width = 79
19	tony	21	Caption = 'Departments'
20	tony	7	ParentColor = False
21			end
22	tony	21	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	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	tony	86	AllowAutoActivateTransaction = False
60	tony	7	Database = Form1.IBDatabase1
61			Transaction = Form1.IBTransaction1
62			BufferChunks = 1000
63			CachedUpdates = False
64	tony	21	GenerateParamNames = False
65	tony	7	GeneratorField.ApplyOnEvent = gaeOnNewRecord
66			SQL.Strings = (
67	tony	21	'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	tony	7	)
74			Params = <>
75	tony	86	DataSetCloseAction = dcDiscardChanges
76	tony	21	left = 432
77			top = 125
78	tony	7	end
79	tony	21	object DataSource1: TDataSource
80	tony	7	DataSet = Depts
81	tony	21	left = 392
82			top = 125
83	tony	7	end
84			end