ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtreeview/Unit1.lfm
(Generate patch)

Comparing:
ibx/trunk/examples/ibtreeview/Unit1.lfm (file contents), Revision 68 by tony, Tue Oct 17 10:07:58 2017 UTC vs.
ibx/branches/journaling/examples/ibtreeview/Unit1.lfm (file contents), Revision 362 by tony, Tue Dec 7 13:27:39 2021 UTC

# Line 1 | Line 1
1   object Form1: TForm1
2 <  Left = 552
2 >  Left = 489
3    Height = 438
4 <  Top = 437
4 >  Top = 219
5    Width = 722
6    Caption = 'TIBTreeView Example'
7    ClientHeight = 438
# Line 10 | Line 10 | object Form1: TForm1
10    OnClose = FormClose
11    OnShow = FormShow
12    Position = poScreenCenter
13 <  LCLVersion = '1.8.0.4'
13 >  LCLVersion = '2.0.11.0'
14    object Panel1: TPanel
15      Left = 11
16      Height = 367
# Line 32 | Line 32 | object Form1: TForm1
32        DragMode = dmAutomatic
33        Images = ImageList1
34        HasChildField = 'CHILDCOUNT'
35 +      ImageIndexField = 'IMAGEINDEX'
36 +      SelectedIndexField = 'IMAGEINDEX'
37        KeyField = 'DEPT_NO'
38        ParentField = 'HEAD_DEPT'
39        PopupMenu = PopupMenu1
40        RelationName = 'A'
41        ScrollBars = ssAutoBoth
42        TabOrder = 0
41 –      OnAddition = IBTreeView1Addition
43        OnDragDrop = IBTreeView1DragDrop
44        OnDragOver = IBTreeView1DragOver
45      end
# Line 71 | Line 72 | object Form1: TForm1
72          TabOrder = 0
73          object Label2: TLabel
74            Left = 11
75 <          Height = 14
75 >          Height = 15
76            Top = 16
77            Width = 25
78            Caption = 'Title'
# Line 91 | Line 92 | object Form1: TForm1
92          end
93          object Label3: TLabel
94            Left = 13
95 <          Height = 14
95 >          Height = 15
96            Top = 71
97 <          Width = 51
97 >          Width = 50
98            Caption = 'Location'
99            ParentColor = False
100          end
# Line 110 | Line 111 | object Form1: TForm1
111          end
112          object Label4: TLabel
113            Left = 219
114 <          Height = 14
114 >          Height = 15
115            Top = 71
116            Width = 44
117            Caption = 'Budget'
# Line 130 | Line 131 | object Form1: TForm1
131          end
132          object Label5: TLabel
133            Left = 219
134 <          Height = 14
134 >          Height = 15
135            Top = 121
136            Width = 61
137            Caption = 'Phone No.'
# Line 150 | Line 151 | object Form1: TForm1
151          end
152          object Label6: TLabel
153            Left = 12
154 <          Height = 14
154 >          Height = 15
155            Top = 121
156            Width = 52
157            Caption = 'Manager'
# Line 175 | Line 176 | object Form1: TForm1
176          end
177          object Label7: TLabel
178            Left = 12
179 <          Height = 14
179 >          Height = 15
180            Top = 172
181            Width = 115
182            Caption = 'Departmental Staff'
# Line 249 | Line 250 | object Form1: TForm1
250    end
251    object Label1: TLabel
252      Left = 11
253 <    Height = 14
253 >    Height = 15
254      Top = 17
255      Width = 79
256      Caption = 'Departments'
# Line 311 | Line 312 | object Form1: TForm1
312      AfterInsert = DepartmentsAfterInsert
313      BufferChunks = 1000
314      CachedUpdates = False
315 +    CaseSensitiveParameterNames = False
316 +    EnableStatistics = False
317      DeleteSQL.Strings = (
318        'Delete From DEPARTMENT A'
319        'Where A.DEPT_NO = :DEPT_NO'
# Line 321 | Line 324 | object Form1: TForm1
324      )
325      RefreshSQL.Strings = (
326        'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
327 <      'count(B.DEPT_NO) as ChildCount'
327 >      'count(B.DEPT_NO) as ChildCount,'
328 >      'case'
329 >      '  when A.Budget < 500000 then 0'
330 >      '  when A.Budget = 500000 then 2'
331 >      '  else 1 end as ImageIndex'
332        'From DEPARTMENT A'
333        'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
334        'Where A.DEPT_NO = :DEPT_NO'
# Line 330 | Line 337 | object Form1: TForm1
337      )
338      SelectSQL.Strings = (
339        'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
340 <      'count(B.DEPT_NO) as ChildCount'
340 >      'count(B.DEPT_NO) as ChildCount,'
341 >      'case'
342 >      '  when A.Budget < 500000 then 0'
343 >      '  when A.Budget = 500000 then 2'
344 >      '  else 1 end as ImageIndex'
345        'From DEPARTMENT A'
346        'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
347        'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO'
# Line 344 | Line 355 | object Form1: TForm1
355      GeneratorField.Field = 'DEPT_NO'
356      GeneratorField.ApplyOnEvent = gaeOnNewRecord
357      GenerateParamNames = False
358 +    MasterDetailDelay = 0
359      DataSetCloseAction = dcSaveChanges
360 +    SQLFiltered = False
361      AfterTransactionEnd = DepartmentsAfterTransactionEnd
362 <    left = 64
362 >    left = 144
363      top = 176
364      object DepartmentsDEPT_NO: TIBStringField
365        DisplayWidth = 3
# Line 400 | Line 413 | object Form1: TForm1
413        ProviderFlags = [pfInUpdate, pfInWhere]
414        ReadOnly = False
415        Required = False
403 –      OnChange = DepartmentsBUDGETChange
416        OnGetText = DepartmentsBUDGETGetText
417        Precision = 18
418        Currency = False
# Line 429 | Line 441 | object Form1: TForm1
441        ReadOnly = False
442        Required = False
443      end
444 <    object DepartmentsCHILDCOUNT: TIntegerField
433 <      DisplayWidth = 10
444 >    object DepartmentsIMAGEINDEX: TIBIntegerField
445        FieldKind = fkData
446 <      FieldName = 'CHILDCOUNT'
446 >      FieldName = 'IMAGEINDEX'
447        Index = 7
448        LookupCache = False
449        ProviderFlags = [pfInUpdate, pfInWhere]
450        ReadOnly = False
451        Required = True
452      end
453 +    object DepartmentsCHILDCOUNT: TIBLargeIntField
454 +      FieldKind = fkData
455 +      FieldName = 'CHILDCOUNT'
456 +      Index = 8
457 +      LookupCache = False
458 +      ProviderFlags = [pfInUpdate, pfInWhere]
459 +      ReadOnly = False
460 +      Required = True
461 +    end
462    end
463    object DataSource1: TDataSource
464      DataSet = Departments
# Line 456 | Line 476 | object Form1: TForm1
476      Transaction = IBTransaction1
477      BufferChunks = 1000
478      CachedUpdates = False
479 +    CaseSensitiveParameterNames = False
480 +    EnableStatistics = False
481      GenerateParamNames = False
482      GeneratorField.ApplyOnEvent = gaeOnNewRecord
483 +    MasterDetailDelay = 0
484      SQL.Strings = (
485        'Select A.EMP_NO, A.FULL_NAME From EMPLOYEE A'
486        'order by 2'
487      )
488      Params = <>
489 +    SQLFiltered = False
490      DataSetCloseAction = dcDiscardChanges
491 <    left = 64
492 <    top = 221
491 >    left = 144
492 >    top = 224
493    end
494    object DataSource2: TDataSource
495      DataSet = Managers
# Line 478 | Line 502 | object Form1: TForm1
502      Transaction = IBTransaction1
503      BufferChunks = 1000
504      CachedUpdates = False
505 +    CaseSensitiveParameterNames = False
506      DataSource = DataSource1
507 +    EnableStatistics = False
508      GenerateParamNames = False
509      GeneratorField.ApplyOnEvent = gaeOnNewRecord
510 +    MasterDetailDelay = 0
511      SQL.Strings = (
512        'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
513        'Where A.DEPT_NO =:DEPT_NO'
# Line 491 | Line 518 | object Form1: TForm1
518          Name = 'DEPT_NO'
519          ParamType = ptInput
520        end>
521 +    SQLFiltered = False
522      DataSetCloseAction = dcDiscardChanges
523 <    left = 64
524 <    top = 264
523 >    left = 144
524 >    top = 272
525      ParamData = <    
526        item
527          DataType = ftUnknown

Diff Legend

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