--- ibx/trunk/examples/dbcontrolgrid/unit1.lfm	2016/09/22 17:10:15	44
+++ ibx/trunk/examples/dbcontrolgrid/unit1.lfm	2016/12/06 10:33:46	45
@@ -1,7 +1,7 @@
 object Form1: TForm1
-  Left = 248
+  Left = 495
   Height = 575
-  Top = 397
+  Top = 399
   Width = 1026
   Caption = 'Employee List'
   ClientHeight = 575
@@ -257,7 +257,7 @@ object Form1: TForm1
         end
         object JobGradeDBComboBox: TDBComboBox
           Left = 480
-          Height = 25
+          Height = 23
           Top = 0
           Width = 48
           AutoSize = False
@@ -422,11 +422,14 @@ object Form1: TForm1
   end
   object IBDatabase1: TIBDatabase
     Connected = False
+    CreateIfNotExists = False
     AllowStreamedConnected = False
     DatabaseName = 'localhost:employee'
     Params.Strings = (
       'user_name=SYSDBA'
       'lc_ctype=UTF8'
+      'user_name=SYSDBA'
+      'user_name=SYSDBA'
     )
     DefaultTransaction = IBTransaction1
     IdleTimer = 0
@@ -552,40 +555,50 @@ object Form1: TForm1
     )
     RefreshSQL.Strings = (
       'with recursive Depts As ('
-      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
+      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as '
+      'VarChar(256)) as DEPT_PATH,'
       'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
       'From DEPARTMENT Where HEAD_DEPT is NULL '
       'UNION ALL'
-      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
-      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
-      'From DEPARTMENT  '
-      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
+      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
+      '|| D.DEPARTMENT as DEPT_PATH,'
+      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
+      'From DEPARTMENT  D'
+      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
       ')'
       ''
-      'Select distinct 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, D.DEPT_PATH, D.DEPT_KEY_PATH, J.JOB_TITLE'
+      '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, D.DEPT_PATH, '
+      'D.DEPT_KEY_PATH, J.JOB_TITLE'
       'From EMPLOYEE A'
       'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
       'JOIN JOB J on J.JOB_CODE = A.JOB_CODE'
+      ''
       'Where A.EMP_NO = :EMP_NO'
     )
     SelectSQL.Strings = (
       'with recursive Depts As ('
-      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
+      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as '
+      'VarChar(256)) as DEPT_PATH,'
       'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
       'From DEPARTMENT Where HEAD_DEPT is NULL '
       'UNION ALL'
-      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
-      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
-      'From DEPARTMENT  '
-      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
+      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
+      '|| D.DEPARTMENT as DEPT_PATH,'
+      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
+      'From DEPARTMENT  D'
+      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
       ')'
       ''
-      'Select distinct 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, D.DEPT_PATH, D.DEPT_KEY_PATH, J.JOB_TITLE'
+      'Select distinct 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, D.DEPT_PATH, '
+      'D.DEPT_KEY_PATH, J.JOB_TITLE'
       'From EMPLOYEE A'
       'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
       'JOIN JOB J on J.JOB_CODE = A.JOB_CODE'
+      ''
       'Order by A.LAST_NAME'
     )
     ModifySQL.Strings = (