ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/employee/unit2.lfm
Revision: 21
Committed: Thu Feb 26 10:33:34 2015 UTC (9 years, 9 months ago) by tony
File size: 1908 byte(s)
Log Message:
Committing updates for Release R1-2-0

File Contents

# 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