ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/testsuite/Test4.pas
(Generate patch)

Comparing ibx/trunk/fbintf/testsuite/Test4.pas (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC

# Line 1 | Line 1
1   unit Test4;
2 + {$IFDEF MSWINDOWS}
3 + {$DEFINE WINDOWS}
4 + {$ENDIF}
5  
6 < {$mode objfpc}{$H+}
6 > {$IFDEF FPC}
7 > {$mode delphi}
8   {$codepage utf8}
9 + {$ENDIF}
10  
11   {Test 4: Update, Insert and Delete Queries}
12  
# Line 44 | Line 49 | type
49    private
50      procedure DoQuery(Attachment: IAttachment);
51    public
52 <    function TestTitle: string; override;
53 <    procedure RunTest(CharSet: string; SQLDialect: integer); override;
52 >    function TestTitle: AnsiString; override;
53 >    procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
54    end;
55  
56  
# Line 57 | Line 62 | procedure TTest4.DoQuery(Attachment: IAt
62   var Transaction, Transaction2, Transaction3: ITransaction;
63      Statement: IStatement;
64      Rows: IResultSet;
65 +    stats: TPerfCounters;
66   begin
67    Transaction := Attachment.StartTransaction([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],taRollback);
68    Statement := Attachment.Prepare(Transaction,'Update Employee Set Hire_Date = ? Where EMP_NO = ?',3);
# Line 68 | Line 74 | begin
74    Transaction.Start(TARollback);
75  
76    Statement := Attachment.PrepareWithNamedParameters(Transaction,'Select * from EMPLOYEE Where EMP_NO = :EMP_NO',3);
77 +  Statement.EnableStatistics(true);
78    Statement.GetSQLParams.ByName('EMP_NO').AsInteger := 8;
79    ReportResults(Statement);
80 +  if Statement.GetPerfStatistics(stats) then
81 +    WritePerfStats(stats);
82  
83    Statement := Attachment.PrepareWithNamedParameters(Transaction,'INSERT INTO EMPLOYEE (EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE,' +
84        'DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY) '+
# Line 81 | Line 90 | begin
90      ByName('FIRST_NAME').AsString := 'John';
91      ByName('LAST_NAME').AsString := 'Doe';
92      ByName('PHONE_EXT').AsString := '';
93 <    ByName('HIRE_DATE').AsDateTime := EncodeDate(2015,4,1);;
93 >    ByName('HIRE_DATE').AsDateTime := EncodeDate(2015,4,1);
94      ByName('DEPT_NO').AsString := '600';
95      ByName('JOB_CODE').AsString := 'Eng';
96      ByName('JOB_GRADE').AsInteger := 4;
# Line 187 | Line 196 | begin
196    ReportResults(Statement);
197   end;
198  
199 < function TTest4.TestTitle: string;
199 > function TTest4.TestTitle: AnsiString;
200   begin
201    Result := 'Test 4: Update, Insert and Delete Queries';
202   end;
203  
204 < procedure TTest4.RunTest(CharSet: string; SQLDialect: integer);
204 > procedure TTest4.RunTest(CharSet: AnsiString; SQLDialect: integer);
205   var Attachment: IAttachment;
206      DPB: IDPB;
207   begin

Diff Legend

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