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 39 by tony, Tue May 17 08:14:52 2016 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 = 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 = '2.0.11.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
30 –      DefaultItemHeight = 18
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
40 –      OnAddition = IBTreeView1Addition
43        OnDragDrop = IBTreeView1DragDrop
44        OnDragOver = IBTreeView1DragOver
45      end
# Line 78 | Line 80 | object Form1: TForm1
80          end
81          object DBEdit1: TDBEdit
82            Left = 11
83 <          Height = 25
83 >          Height = 24
84            Top = 31
85            Width = 373
86            DataField = 'DEPARTMENT'
# Line 92 | Line 94 | object Form1: TForm1
94            Left = 13
95            Height = 15
96            Top = 71
97 <          Width = 51
97 >          Width = 50
98            Caption = 'Location'
99            ParentColor = False
100          end
101          object DBEdit4: TDBEdit
102            Left = 13
103 <          Height = 25
103 >          Height = 24
104            Top = 86
105            Width = 179
106            DataField = 'LOCATION'
# Line 117 | Line 119 | object Form1: TForm1
119          end
120          object DBEdit2: TDBEdit
121            Left = 219
122 <          Height = 25
122 >          Height = 24
123            Top = 86
124            Width = 165
125            DataField = 'BUDGET'
# Line 137 | Line 139 | object Form1: TForm1
139          end
140          object DBEdit3: TDBEdit
141            Left = 219
142 <          Height = 25
142 >          Height = 24
143            Top = 136
144            Width = 165
145            DataField = 'PHONE_NO'
# Line 276 | Line 278 | object Form1: TForm1
278    end
279    object IBDatabase1: TIBDatabase
280      Connected = False
281 +    CreateIfNotExists = False
282      AllowStreamedConnected = False
283      DatabaseName = 'localhost:employee'
284      Params.Strings = (
# Line 286 | Line 289 | object Form1: TForm1
289      IdleTimer = 0
290      SQLHourGlass = False
291      TraceFlags = []
292 +    UseDefaultSystemCodePage = False
293      left = 24
294      top = 96
295    end
# Line 300 | Line 304 | object Form1: TForm1
304      top = 136
305    end
306    object Departments: TIBDataSet
307 +    AllowAutoActivateTransaction = False
308      Database = IBDatabase1
309      Transaction = IBTransaction1
310      AfterDelete = DepartmentsAfterDelete
# Line 307 | 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 317 | 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 326 | 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 340 | 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 396 | Line 413 | object Form1: TForm1
413        ProviderFlags = [pfInUpdate, pfInWhere]
414        ReadOnly = False
415        Required = False
399 –      OnChange = DepartmentsBUDGETChange
416        OnGetText = DepartmentsBUDGETGetText
417        Precision = 18
418        Currency = False
# Line 425 | Line 441 | object Form1: TForm1
441        ReadOnly = False
442        Required = False
443      end
444 <    object DepartmentsCHILDCOUNT: TIntegerField
429 <      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 447 | Line 471 | object Form1: TForm1
471      top = 48
472    end
473    object Managers: TIBQuery
474 +    AllowAutoActivateTransaction = False
475      Database = IBDatabase1
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 468 | Line 497 | object Form1: TForm1
497      top = 221
498    end
499    object Staff: TIBQuery
500 +    AllowAutoActivateTransaction = False
501      Database = IBDatabase1
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 485 | 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