ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/employee/unit1.lfm
(Generate patch)

Comparing ibx/trunk/examples/employee/unit1.lfm (file contents):
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

# Line 1 | Line 1
1   object Form1: TForm1
2 <  Left = 439
2 >  Left = 453
3    Height = 482
4 <  Top = 350
4 >  Top = 336
5    Width = 932
6    Caption = 'Employee List'
7    ClientHeight = 482
# Line 517 | Line 517 | object Form1: TForm1
517    end
518    object IBDatabase1: TIBDatabase
519      Connected = False
520 +    CreateIfNotExists = False
521      AllowStreamedConnected = False
522 <    DatabaseName = 'employee'
522 >    DatabaseName = 'localhost:employee'
523      Params.Strings = (
524        'user_name=SYSDBA'
525        'lc_ctype=UTF8'
# Line 526 | Line 527 | object Form1: TForm1
527      DefaultTransaction = IBTransaction1
528      IdleTimer = 0
529      TraceFlags = []
530 <    UseDefaultSystemCodePage = True
530 >    UseDefaultSystemCodePage = False
531      left = 832
532      top = 168
533    end
# Line 584 | Line 585 | object Form1: TForm1
585      top = 296
586    end
587    object TotalsQuery: TIBQuery
588 +    AllowAutoActivateTransaction = False
589      Database = IBDatabase1
590      Transaction = IBTransaction1
591      BeforeOpen = EmployeesBeforeOpen
# Line 622 | Line 624 | object Form1: TForm1
624      top = 376
625    end
626    object Employees: TIBDataSet
627 +    AllowAutoActivateTransaction = False
628      Database = IBDatabase1
629      Transaction = IBTransaction1
630      AfterDelete = EmployeesAfterDelete
# Line 632 | Line 635 | object Form1: TForm1
635      AfterScroll = EmployeesAfterScroll
636      BeforeClose = EmployeesBeforeClose
637      BeforeOpen = EmployeesBeforeOpen
638 <    BufferChunks = 1000
638 >    BufferChunks = 5000
639      CachedUpdates = False
640      DeleteSQL.Strings = (
641        'Delete From EMPLOYEE A'
# Line 648 | Line 651 | object Form1: TForm1
651        'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
652        'From DEPARTMENT Where HEAD_DEPT is NULL '
653        'UNION ALL'
654 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
655 <      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
656 <      'From DEPARTMENT  '
657 <      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
654 >      'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
655 >      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
656 >      'From DEPARTMENT  D'
657 >      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
658        ')'
659        ''
660        'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
661        'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
662        'From EMPLOYEE A'
663        'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
664 +      ''
665        'Where A.EMP_NO = :EMP_NO'
666      )
667      SelectSQL.Strings = (
# Line 666 | Line 670 | object Form1: TForm1
670        'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
671        'From DEPARTMENT Where HEAD_DEPT is NULL '
672        'UNION ALL'
673 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
674 <      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
675 <      'From DEPARTMENT  '
676 <      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
673 >      'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
674 >      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
675 >      'From DEPARTMENT  D'
676 >      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
677        ')'
678        ''
679 <      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
679 >      'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
680        'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
681        'From EMPLOYEE A'
682        'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
# Line 839 | Line 843 | object Form1: TForm1
843      end
844    end
845    object Countries: TIBQuery
846 +    AllowAutoActivateTransaction = False
847      Database = IBDatabase1
848      Transaction = IBTransaction1
849      BeforeOpen = CountriesBeforeOpen
# Line 884 | Line 889 | object Form1: TForm1
889      top = 256
890    end
891    object JobCodes: TIBQuery
892 +    AllowAutoActivateTransaction = False
893      Database = IBDatabase1
894      Transaction = IBTransaction1
895      BeforeOpen = JobCodesBeforeOpen
# Line 923 | Line 929 | object Form1: TForm1
929        end>
930    end
931    object Depts: TIBQuery
932 +    AllowAutoActivateTransaction = False
933      Database = IBDatabase1
934      Transaction = IBTransaction1
935      BufferChunks = 1000

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines