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

Comparing ibx/trunk/examples/dbcontrolgrid/unit1.lfm (file contents):
Revision 44 by tony, Sat Jul 16 12:25:48 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 = 248
2 >  Left = 495
3    Height = 575
4 <  Top = 397
4 >  Top = 399
5    Width = 1026
6    Caption = 'Employee List'
7    ClientHeight = 575
# Line 257 | Line 257 | object Form1: TForm1
257          end
258          object JobGradeDBComboBox: TDBComboBox
259            Left = 480
260 <          Height = 25
260 >          Height = 23
261            Top = 0
262            Width = 48
263            AutoSize = False
# Line 422 | Line 422 | object Form1: TForm1
422    end
423    object IBDatabase1: TIBDatabase
424      Connected = False
425 +    CreateIfNotExists = False
426      AllowStreamedConnected = False
427      DatabaseName = 'localhost:employee'
428      Params.Strings = (
429        'user_name=SYSDBA'
430        'lc_ctype=UTF8'
431 +      'user_name=SYSDBA'
432 +      'user_name=SYSDBA'
433      )
434      DefaultTransaction = IBTransaction1
435      IdleTimer = 0
# Line 552 | Line 555 | object Form1: TForm1
555      )
556      RefreshSQL.Strings = (
557        'with recursive Depts As ('
558 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
558 >      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as '
559 >      'VarChar(256)) as DEPT_PATH,'
560        'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
561        'From DEPARTMENT Where HEAD_DEPT is NULL '
562        'UNION ALL'
563 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
564 <      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
565 <      'From DEPARTMENT  '
566 <      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
563 >      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
564 >      '|| D.DEPARTMENT as DEPT_PATH,'
565 >      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
566 >      'From DEPARTMENT  D'
567 >      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
568        ')'
569        ''
570 <      'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
571 <      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH, J.JOB_TITLE'
570 >      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
571 >      'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
572 >      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
573 >      'D.DEPT_KEY_PATH, J.JOB_TITLE'
574        'From EMPLOYEE A'
575        'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
576        'JOIN JOB J on J.JOB_CODE = A.JOB_CODE'
577 +      ''
578        'Where A.EMP_NO = :EMP_NO'
579      )
580      SelectSQL.Strings = (
581        'with recursive Depts As ('
582 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
582 >      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as '
583 >      'VarChar(256)) as DEPT_PATH,'
584        'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
585        'From DEPARTMENT Where HEAD_DEPT is NULL '
586        'UNION ALL'
587 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
588 <      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
589 <      'From DEPARTMENT  '
590 <      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
587 >      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
588 >      '|| D.DEPARTMENT as DEPT_PATH,'
589 >      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
590 >      'From DEPARTMENT  D'
591 >      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
592        ')'
593        ''
594 <      'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
595 <      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH, J.JOB_TITLE'
594 >      'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
595 >      'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
596 >      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
597 >      'D.DEPT_KEY_PATH, J.JOB_TITLE'
598        'From EMPLOYEE A'
599        'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
600        'JOIN JOB J on J.JOB_CODE = A.JOB_CODE'
601 +      ''
602        'Order by A.LAST_NAME'
603      )
604      ModifySQL.Strings = (

Diff Legend

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