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

Comparing ibx/trunk/runtime/nongui/IBUpdate.pas (file contents):
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC vs.
Revision 402 by tony, Mon Aug 1 10:07:24 2022 UTC

# Line 60 | Line 60 | type
60  
61   implementation
62  
63 < uses variants, FmtBCD, DateUtils;
63 > uses variants, FmtBCD, DateUtils, FBNumeric;
64  
65   type
66  
# Line 89 | Line 89 | type
89      {ISQLParams}
90      function getCount: integer;
91      function getSQLParam(index: integer): ISQLParam;
92 +    function ParamExists(Idx: AnsiString): boolean;
93      function ByName(Idx: AnsiString): ISQLParam ;
94      function GetModified: Boolean;
95      function GetHasCaseSensitiveParams: Boolean;
96 +    function GetStatement: IStatement;
97 +    function GetTransaction: ITransaction;
98 +    function GetAttachment: IAttachment;
99 +    procedure Clear;
100    end;
101  
102    { TParamIntf }
# Line 137 | Line 142 | type
142      function GetAsBlob: IBlob;
143      function GetAsArray: IArray;
144      function GetAsBCD: tBCD;
145 +    function GetAsNumeric: IFBNumeric;
146      function GetStatement: IStatement;
147      function GetTransaction: ITransaction;
148 +    function GetAttachment: IAttachment;
149      procedure Clear;
150      function GetModified: boolean;
151      procedure SetAsBoolean(AValue: boolean);
# Line 167 | Line 174 | type
174      procedure SetAsQuad(aValue: TISC_QUAD);
175      procedure SetCharSetID(aValue: cardinal);
176      procedure SetAsBcd(aValue: tBCD);
177 +    procedure SetAsNumeric(Value: IFBNumeric);
178    end;
179  
180   { TParamIntf }
# Line 462 | Line 470 | begin
470    Result := VarToBCD(FOwner.FParams[FIndex].Value);
471   end;
472  
473 + function TParamIntf.GetAsNumeric: IFBNumeric;
474 + begin
475 +  IBError(ibxeNotSupported,[]);
476 + end;
477 +
478   function TParamIntf.GetStatement: IStatement;
479   begin
480    IBError(ibxeNotSupported,[]);
# Line 472 | Line 485 | begin
485    IBError(ibxeNotSupported,[]);
486   end;
487  
488 + function TParamIntf.GetAttachment: IAttachment;
489 + begin
490 +  IBError(ibxeNotSupported,[]);
491 + end;
492 +
493   procedure TParamIntf.Clear;
494   begin
495    FOwner.SetParam(FIndex,NULL);
# Line 638 | Line 656 | begin
656    FOwner.SetParam(FIndex,VarFmtBCDCreate(AValue));
657   end;
658  
659 + procedure TParamIntf.SetAsNumeric(Value: IFBNumeric);
660 + begin
661 +  IBError(ibxeNotSupported,[]);
662 + end;
663 +
664   { TParamListIntf }
665  
666   procedure TParamListIntf.SetParam(index: integer; aValue: variant);
# Line 697 | Line 720 | begin
720    Result := TParamIntf.Create(self,index);
721   end;
722  
723 + function TParamListIntf.ParamExists(Idx: AnsiString): boolean;
724 + begin
725 +  Result := ByName(Idx) <> nil;
726 + end;
727 +
728   function TParamListIntf.ByName(Idx: AnsiString): ISQLParam;
729   var i: integer;
730   begin
# Line 719 | Line 747 | begin
747    Result := false;
748   end;
749  
750 + function TParamListIntf.GetStatement: IStatement;
751 + begin
752 +  IBError(ibxeNotSupported,[]);
753 + end;
754 +
755 + function TParamListIntf.GetTransaction: ITransaction;
756 + begin
757 +  IBError(ibxeNotSupported,[]);
758 + end;
759 +
760 + function TParamListIntf.GetAttachment: IAttachment;
761 + begin
762 +  Result := Database.Attachment;
763 + end;
764 +
765 + procedure TParamListIntf.Clear;
766 + var i: integer;
767 + begin
768 +  for i := 0 to getCount - 1 do
769 +    getSQLParam(i).Clear;
770 + end;
771 +
772   { TIBUpdate }
773  
774   function TIBUpdate.GetSQL(UpdateKind: TUpdateKind): TStrings;

Diff Legend

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