ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/journaling/examples/ibtreeview/Unit1.lfm

Comparing ibx/trunk/examples/ibtreeview/Unit1.lfm (file contents):
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

#	Line 1 | Line 1
1		object Form1: TForm1
2	<	Left = 636
2	>	Left = 489
3		Height = 438
4	<	Top = 437
4	>	Top = 219
5		Width = 722
6		Caption = 'TIBTreeView Example'
7		ClientHeight = 438
8		ClientWidth = 722
9	+	DefaultMonitor = dmPrimary
10		OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '1.6.0.4'
12	>	Position = poScreenCenter
13	>	LCLVersion = '1.6.4.0'
14		object Panel1: TPanel
15		Left = 11
16		Height = 367
#	Line 27 | Line 29 | object Form1: TForm1
29		Align = alLeft
30		TextField = 'DEPARTMENT'
31		DataSource = DataSource1
32	<	DefaultItemHeight = 18
32	>	DefaultItemHeight = 16
33		DragMode = dmAutomatic
34		Images = ImageList1
35		HasChildField = 'CHILDCOUNT'
36	+	ImageIndexField = 'IMAGEINDEX'
37	+	SelectedIndexField = 'IMAGEINDEX'
38		KeyField = 'DEPT_NO'
39		ParentField = 'HEAD_DEPT'
40		PopupMenu = PopupMenu1
41		RelationName = 'A'
42		ScrollBars = ssAutoBoth
43		TabOrder = 0
40	–	OnAddition = IBTreeView1Addition
44		OnDragDrop = IBTreeView1DragDrop
45		OnDragOver = IBTreeView1DragOver
46		end
#	Line 70 | Line 73 | object Form1: TForm1
73		TabOrder = 0
74		object Label2: TLabel
75		Left = 11
76	<	Height = 15
76	>	Height = 13
77		Top = 16
78	<	Width = 25
78	>	Width = 20
79		Caption = 'Title'
80		ParentColor = False
81		end
82		object DBEdit1: TDBEdit
83		Left = 11
84	<	Height = 25
84	>	Height = 21
85		Top = 31
86		Width = 373
87		DataField = 'DEPARTMENT'
#	Line 90 | Line 93 | object Form1: TForm1
93		end
94		object Label3: TLabel
95		Left = 13
96	<	Height = 15
96	>	Height = 13
97		Top = 71
98	<	Width = 51
98	>	Width = 40
99		Caption = 'Location'
100		ParentColor = False
101		end
102		object DBEdit4: TDBEdit
103		Left = 13
104	<	Height = 25
104	>	Height = 21
105		Top = 86
106		Width = 179
107		DataField = 'LOCATION'
#	Line 109 | Line 112 | object Form1: TForm1
112		end
113		object Label4: TLabel
114		Left = 219
115	<	Height = 15
115	>	Height = 13
116		Top = 71
117	<	Width = 44
117	>	Width = 34
118		Caption = 'Budget'
119		ParentColor = False
120		end
121		object DBEdit2: TDBEdit
122		Left = 219
123	<	Height = 25
123	>	Height = 21
124		Top = 86
125		Width = 165
126		DataField = 'BUDGET'
#	Line 129 | Line 132 | object Form1: TForm1
132		end
133		object Label5: TLabel
134		Left = 219
135	<	Height = 15
135	>	Height = 13
136		Top = 121
137	<	Width = 61
137	>	Width = 50
138		Caption = 'Phone No.'
139		ParentColor = False
140		end
141		object DBEdit3: TDBEdit
142		Left = 219
143	<	Height = 25
143	>	Height = 21
144		Top = 136
145		Width = 165
146		DataField = 'PHONE_NO'
#	Line 149 | Line 152 | object Form1: TForm1
152		end
153		object Label6: TLabel
154		Left = 12
155	<	Height = 15
155	>	Height = 13
156		Top = 121
157	<	Width = 52
157	>	Width = 42
158		Caption = 'Manager'
159		ParentColor = False
160		end
161		object IBLookupComboEditBox1: TIBLookupComboEditBox
162		Left = 13
163	<	Height = 27
163	>	Height = 21
164		Top = 136
165		Width = 180
166		DataField = 'MNGR_NO'
#	Line 170 | Line 173 | object Form1: TForm1
173		TabOrder = 4
174		AutoInsert = False
175		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
176	<	ItemHeight = 0
176	>	ItemHeight = 13
177		end
178		object Label7: TLabel
179		Left = 12
180	<	Height = 15
180	>	Height = 13
181		Top = 172
182	<	Width = 115
182	>	Width = 92
183		Caption = 'Departmental Staff'
184		ParentColor = False
185		end
#	Line 248 | Line 251 | object Form1: TForm1
251		end
252		object Label1: TLabel
253		Left = 11
254	<	Height = 15
254	>	Height = 13
255		Top = 17
256	<	Width = 79
256	>	Width = 62
257		Caption = 'Departments'
258		ParentColor = False
259		end
#	Line 275 | Line 278 | object Form1: TForm1
278		TabOrder = 2
279		end
280		object IBDatabase1: TIBDatabase
281	<	Connected = False
281	>	Connected = True
282	>	CreateIfNotExists = False
283		AllowStreamedConnected = False
284		DatabaseName = 'localhost:employee'
285		Params.Strings = (
#	Line 286 | Line 290 | object Form1: TForm1
290		IdleTimer = 0
291		SQLHourGlass = False
292		TraceFlags = []
293	+	UseDefaultSystemCodePage = False
294		left = 24
295		top = 96
296		end
#	Line 300 | Line 305 | object Form1: TForm1
305		top = 136
306		end
307		object Departments: TIBDataSet
308	+	AllowAutoActivateTransaction = False
309		Database = IBDatabase1
310		Transaction = IBTransaction1
311		AfterDelete = DepartmentsAfterDelete
#	Line 317 | Line 323 | object Form1: TForm1
323		)
324		RefreshSQL.Strings = (
325		'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
326	<	'count(B.DEPT_NO) as ChildCount'
326	>	'count(B.DEPT_NO) as ChildCount,'
327	>	'case'
328	>	'  when A.Budget < 500000 then 0'
329	>	'  when A.Budget = 500000 then 2'
330	>	'  else 1 end as ImageIndex'
331		'From DEPARTMENT A'
332		'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
333		'Where A.DEPT_NO = :DEPT_NO'
#	Line 326 | Line 336 | object Form1: TForm1
336		)
337		SelectSQL.Strings = (
338		'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
339	<	'count(B.DEPT_NO) as ChildCount'
339	>	'count(B.DEPT_NO) as ChildCount,'
340	>	'case'
341	>	'  when A.Budget < 500000 then 0'
342	>	'  when A.Budget = 500000 then 2'
343	>	'  else 1 end as ImageIndex'
344		'From DEPARTMENT A'
345		'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
346		'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO'
#	Line 342 | Line 356 | object Form1: TForm1
356		GenerateParamNames = False
357		DataSetCloseAction = dcSaveChanges
358		AfterTransactionEnd = DepartmentsAfterTransactionEnd
359	<	left = 64
359	>	left = 144
360		top = 176
361		object DepartmentsDEPT_NO: TIBStringField
362		DisplayWidth = 3
#	Line 396 | Line 410 | object Form1: TForm1
410		ProviderFlags = [pfInUpdate, pfInWhere]
411		ReadOnly = False
412		Required = False
399	–	OnChange = DepartmentsBUDGETChange
413		OnGetText = DepartmentsBUDGETGetText
414		Precision = 18
415		Currency = False
#	Line 435 | Line 448 | object Form1: TForm1
448		ReadOnly = False
449		Required = True
450		end
451	+	object DepartmentsIMAGEINDEX: TIBIntegerField
452	+	FieldKind = fkData
453	+	FieldName = 'IMAGEINDEX'
454	+	Index = 8
455	+	LookupCache = False
456	+	ProviderFlags = [pfInUpdate, pfInWhere]
457	+	ReadOnly = False
458	+	Required = True
459	+	end
460		end
461		object DataSource1: TDataSource
462		DataSet = Departments
#	Line 447 | Line 469 | object Form1: TForm1
469		top = 48
470		end
471		object Managers: TIBQuery
472	+	AllowAutoActivateTransaction = False
473		Database = IBDatabase1
474		Transaction = IBTransaction1
475		BufferChunks = 1000
#	Line 459 | Line 482 | object Form1: TForm1
482		)
483		Params = <>
484		DataSetCloseAction = dcDiscardChanges
485	<	left = 64
486	<	top = 221
485	>	left = 144
486	>	top = 224
487		end
488		object DataSource2: TDataSource
489		DataSet = Managers
#	Line 468 | Line 491 | object Form1: TForm1
491		top = 221
492		end
493		object Staff: TIBQuery
494	+	AllowAutoActivateTransaction = False
495		Database = IBDatabase1
496		Transaction = IBTransaction1
497		BufferChunks = 1000
#	Line 486 | Line 510 | object Form1: TForm1
510		ParamType = ptInput
511		end>
512		DataSetCloseAction = dcDiscardChanges
513	<	left = 64
514	<	top = 264
513	>	left = 144
514	>	top = 272
515		ParamData = <
516		item
517		DataType = ftUnknown

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines