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

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

# Line 35 | Line 35 | const
35   'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH '+
36   'From DEPARTMENT Where HEAD_DEPT is NULL '+
37   'UNION ALL '+
38 < 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'+
39 < 'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH '+
40 < 'From DEPARTMENT '+
41 < 'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO '+
38 > 'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'+
39 > 'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH '+
40 > 'From DEPARTMENT D '+
41 > 'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO '+
42   ')'+
43  
44   'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE,'+
# Line 70 | Line 70 | var i, rowno: integer;
70   begin
71    with TIBQuery.Create(self) do
72    try
73 +     AllowAutoActivateTransaction := true;
74       Database := FIBDatabase;
75       SQL.Text := sqlExample;
76       Active := true;
# Line 149 | Line 150 | begin
150    Application.Title:='IBX In Console Mode';
151    Application.Run;
152    {$IFDEF WINDOWS}
153 <  Sleep(1000); {Gives a chance to see the program output}
153 >  Readln; {Gives a chance to see the program output}
154    {$ENDIF}
155    Application.Free;
156   end.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines