ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/Test3.pas

Comparing ibx/trunk/fbintf/testsuite/Test3.pas (file contents):
Revision 69 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 70 by tony, Thu Oct 26 12:59:51 2017 UTC

#	Line 53 | Line 53 | var Transaction: ITransaction;
53		ResultSet: IResultSet;
54		Statement: IStatement;
55		TPB: ITPB;
56	+	us: UnicodeString;
57		begin
58		writeln(OutFile,'Employee Count = ',Attachment.OpenCursorAtStart('Select count(*) from EMPLOYEE')[0].AsInteger);
59
#	Line 101 | Line 102 | begin
102		Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit),
103		'Select count(*) As Counter from EMPLOYEE Where EMP_NO < ?',3,[8])[0].AsInteger);
104
105	+	writeln(OutFile,'"Johnson" Employee Count = ',Attachment.OpenCursorAtStart(
106	+	Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit),
107	+	'Select count(*) As Counter from EMPLOYEE Where LAST_NAME = ?',3,['Johnson'])[0].AsInteger);
108	+
109	+	us := UTF8Decode('Yanowski');   {Test a UnicodeString as a parameter}
110	+
111	+	writeln(OutFile,'"Yanowski" Employee Count = ',Attachment.OpenCursorAtStart(
112	+	Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit),
113	+	'Select count(*) As Counter from EMPLOYEE Where LAST_NAME = ?',3,[us])[0].AsInteger);
114	+
115		end;
116
117		function TTest3.TestTitle: AnsiString;

Diff Legend

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