ViewVC Help

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

root/public/ibx/trunk/testsuite/Test05.pas

Comparing ibx/trunk/testsuite/Test05.pas (file contents):
Revision 318 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 319 by tony, Thu Feb 25 12:05:40 2021 UTC

#	Line 58 | Line 58 | begin
58		FieldByName('F3').AsCurrency := 12345678912.12;
59		FieldByName('f4').AsBCD := StrToBCD('64100000000.011');
60		FieldByName('F5').AsBCD := StrToBCD('123456123456123456123456.123456');
61	+	FieldByName('F6').AsBCD := StrToBCD('123456789123456789');
62		end;
63		end;
64
#	Line 70 | Line 71 | begin
71		Database := IBDatabase;
72		SelectSQL.Text := 'Select * From IBXTEST A';
73		InsertSQL.Text :=
74	<	'Insert Into IBXTEST(TABLEKEY, F1, F2, F3, F4, F5) Values(:TABLEKEY, :F1, :F2, :F3, :F4, :F5)';
74	>	'Insert Into IBXTEST(TABLEKEY, F1, F2, F3, F4, F5, F6) Values(:TABLEKEY, :F1, :F2, :F3, :F4, :F5, :F6)';
75		RefreshSQL.Text :=
76		'Select * From IBXTEST A '+
77		'Where A.TABLEKEY = :TABLEKEY';
#	Line 80 | Line 81 | begin
81		'  A.F2 = :F2,' +
82		'  A.F3 = :F3,' +
83		'  A.F4 = :F4,' +
84	<	'  A.F5 = :F5 ' +
84	>	'  A.F5 = :F5,' +
85	>	'  A.F6 = :F6 ' +
86		'Where A.TABLEKEY = :OLD_TABLEKEY';
87		DeleteSQL.Text :=
88		'Delete From IBXTEST A '+

Diff Legend

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