ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/local-employeedb/ConsoleModeExample.lpr
(Generate patch)

Comparing ibx/trunk/examples/local-employeedb/ConsoleModeExample.lpr (file contents):
Revision 44 by tony, Mon Feb 15 14:44:25 2016 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

# Line 28 | Line 28 | const
28   'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH '+
29   'From DEPARTMENT Where HEAD_DEPT is NULL '+
30   'UNION ALL '+
31 < 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'+
32 < 'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH '+
33 < 'From DEPARTMENT '+
34 < 'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO '+
31 > 'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'+
32 > 'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH '+
33 > 'From DEPARTMENT D '+
34 > 'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO '+
35   ')'+
36  
37   'Select First 2 A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE,'+
# Line 66 | Line 66 | begin
66    with TIBQuery.Create(self) do
67    try
68       Database := FIBDatabase;
69 +     AllowAutoActivateTransaction := true;
70       SQL.Text := sqlExample;
71       Active := true;
72       rowno := 1;
# Line 90 | Line 91 | procedure TMyApplication.HandleGetDBVers
91    var VersionNo: integer);
92   begin
93    VersionNo := 0;
94 <  with FIBTransaction do
94 <    if not InTransaction then StartTransaction;
94 >  FIBTransaction.Active := true;
95    try
96      with TIBSQL.Create(nil) do
97      try

Diff Legend

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