ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/local-employeedb/unit2.lfm
Revision: 37
Committed: Mon Feb 15 14:44:25 2016 UTC (8 years, 1 month ago) by tony
File size: 1908 byte(s)
Log Message:
Committing updates for Release R1-4-0

File Contents

# Content
1 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 LCLVersion = '1.2.6.0'
13 object Label1: TLabel
14 Left = 16
15 Height = 15
16 Top = 16
17 Width = 79
18 Caption = 'Departments'
19 ParentColor = False
20 end
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 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 Database = Form1.IBDatabase1
60 Transaction = Form1.IBTransaction1
61 BufferChunks = 1000
62 CachedUpdates = False
63 GenerateParamNames = False
64 GeneratorField.ApplyOnEvent = gaeOnNewRecord
65 SQL.Strings = (
66 '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 )
73 Params = <>
74 left = 432
75 top = 125
76 end
77 object DataSource1: TDataSource
78 DataSet = Depts
79 left = 392
80 top = 125
81 end
82 end