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

Comparing ibx/trunk/runtime/IBQuery.pas (file contents):
Revision 35 by tony, Tue Jan 26 14:38:47 2016 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

# Line 56 | Line 56 | type
56      FPrepared: Boolean;
57      FParams: TParams;
58      FText: string;
59 –    FRowsAffected: Integer;
60 –    FCheckRowsAffected: Boolean;
59      FSQLUpdating: boolean;
60      FInQueryChanged: boolean;
61      function GetRowsAffected: Integer;
# Line 71 | Line 69 | type
69      procedure SetPrepared(Value: Boolean);
70      procedure SetPrepare(Value: Boolean);
71      procedure WriteParamData(Writer: TWriter);
72 <    function GetStmtHandle: TISC_STMT_HANDLE;
72 >    function GetStmtHandle: IStatement;
73      procedure UpdateSQL;
74  
75    protected
# Line 105 | Line 103 | type
103      procedure ResetParser; override;
104      property Prepared: Boolean read FPrepared write SetPrepare;
105      property ParamCount: Word read GetParamsCount;
106 <    property StmtHandle: TISC_STMT_HANDLE read GetStmtHandle;
106 >    property StmtHandle: IStatement read GetStmtHandle;
107      property StatementType;
108      property Text: string read FText;
109      property RowsAffected: Integer read GetRowsAffected;
# Line 141 | Line 139 | end;
139  
140   implementation
141  
142 + uses FBMessages;
143 +
144   { TIBQuery }
145  
146   constructor TIBQuery.Create(AOwner: TComponent);
# Line 150 | Line 150 | begin
150    TStringList(SQL).OnChange := QueryChanged;
151    FParams := TParams.Create(Self);
152    ParamCheck := True;
153 –  FRowsAffected := -1;
153   end;
154  
155   destructor TIBQuery.Destroy;
# Line 295 | Line 294 | begin
294    begin
295      if Value then
296      begin
298 –      FRowsAffected := -1;
299 –      FCheckRowsAffected := True;
297        if Length(Text) > 1 then PrepareSQL
298        else IBError(ibxeEmptySQLStatement, [nil]);
299      end
300      else
301      begin
305 –      if FCheckRowsAffected then
306 –        FRowsAffected := RowsAffected;
302        InternalUnPrepare;
303        FParams.Clear;
304      end;
# Line 376 | Line 371 | var
371   begin
372    CheckInActive;
373    if SQL.Count <= 0 then
379 –  begin
380 –    FCheckRowsAffected := False;
374      IBError(ibxeEmptySQLStatement, [nil]);
375 <  end;
375 >
376    ActivateConnection();
377    DidActivate := ActivateTransaction;
378    try
# Line 390 | Line 383 | begin
383    finally
384      if DidActivate then
385        DeactivateTransaction;
393 –    FCheckRowsAffected := True;
386    end;
387   end;
388  
# Line 399 | Line 391 | procedure TIBQuery.SetParams;
391   var
392   i : integer;
393   Buffer: Pointer;
394 < SQLParam: TIBXSQLVAR;
394 > SQLParam: ISQLParam;
395  
396   begin
397    for I := 0 to FParams.Count - 1 do
# Line 502 | Line 494 | begin
494          AddFieldToList(Params[i].Name, Self, DetailFields);
495   end;
496  
497 < function TIBQuery.GetStmtHandle: TISC_STMT_HANDLE;
497 > function TIBQuery.GetStmtHandle: IStatement;
498   begin
499    Result := SelectStmtHandle;
500   end;
501  
502   procedure TIBQuery.UpdateSQL;
503   begin
504 <  if not FSQLUpdating and not FInQueryChanged then
504 >  if not FSQLUpdating and not FInQueryChanged and (SQL.Text <> SelectSQL.Text) then
505    begin
506      FSQLUpdating := true;
507      try

Diff Legend

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