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.
Revision 311 by tony, Mon Aug 24 09:32:58 2020 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 275 | Line 277 | object Form1: TForm1
277      TabOrder = 2
278    end
279    object IBDatabase1: TIBDatabase
280 <    Connected = False
280 >    Connected = True
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      AfterTransactionEnd = DepartmentsAfterTransactionEnd
361 <    left = 64
361 >    left = 144
362      top = 176
363      object DepartmentsDEPT_NO: TIBStringField
364        DisplayWidth = 3
# Line 396 | Line 412 | object Form1: TForm1
412        ProviderFlags = [pfInUpdate, pfInWhere]
413        ReadOnly = False
414        Required = False
399 –      OnChange = DepartmentsBUDGETChange
415        OnGetText = DepartmentsBUDGETGetText
416        Precision = 18
417        Currency = False
# Line 425 | Line 440 | object Form1: TForm1
440        ReadOnly = False
441        Required = False
442      end
443 <    object DepartmentsCHILDCOUNT: TIntegerField
429 <      DisplayWidth = 10
443 >    object DepartmentsIMAGEINDEX: TIBIntegerField
444        FieldKind = fkData
445 <      FieldName = 'CHILDCOUNT'
445 >      FieldName = 'IMAGEINDEX'
446        Index = 7
447        LookupCache = False
448        ProviderFlags = [pfInUpdate, pfInWhere]
449        ReadOnly = False
450        Required = True
451      end
452 +    object DepartmentsCHILDCOUNT: TIBLargeIntField
453 +      FieldKind = fkData
454 +      FieldName = 'CHILDCOUNT'
455 +      Index = 8
456 +      LookupCache = False
457 +      ProviderFlags = [pfInUpdate, pfInWhere]
458 +      ReadOnly = False
459 +      Required = True
460 +    end
461    end
462    object DataSource1: TDataSource
463      DataSet = Departments
# Line 447 | Line 470 | object Form1: TForm1
470      top = 48
471    end
472    object Managers: TIBQuery
473 +    AllowAutoActivateTransaction = False
474      Database = IBDatabase1
475      Transaction = IBTransaction1
476      BufferChunks = 1000
477      CachedUpdates = False
478 +    CaseSensitiveParameterNames = False
479 +    EnableStatistics = False
480      GenerateParamNames = False
481      GeneratorField.ApplyOnEvent = gaeOnNewRecord
482 +    MasterDetailDelay = 0
483      SQL.Strings = (
484        'Select A.EMP_NO, A.FULL_NAME From EMPLOYEE A'
485        'order by 2'
486      )
487      Params = <>
488      DataSetCloseAction = dcDiscardChanges
489 <    left = 64
490 <    top = 221
489 >    left = 144
490 >    top = 224
491    end
492    object DataSource2: TDataSource
493      DataSet = Managers
# Line 468 | Line 495 | object Form1: TForm1
495      top = 221
496    end
497    object Staff: TIBQuery
498 +    AllowAutoActivateTransaction = False
499      Database = IBDatabase1
500      Transaction = IBTransaction1
501      BufferChunks = 1000
502      CachedUpdates = False
503 +    CaseSensitiveParameterNames = False
504      DataSource = DataSource1
505 +    EnableStatistics = False
506      GenerateParamNames = False
507      GeneratorField.ApplyOnEvent = gaeOnNewRecord
508 +    MasterDetailDelay = 0
509      SQL.Strings = (
510        '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'
511        'Where A.DEPT_NO =:DEPT_NO'
# Line 486 | Line 517 | object Form1: TForm1
517          ParamType = ptInput
518        end>
519      DataSetCloseAction = dcDiscardChanges
520 <    left = 64
521 <    top = 264
520 >    left = 144
521 >    top = 272
522      ParamData = <    
523        item
524          DataType = ftUnknown

Diff Legend

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