| 76 |
|
{$ELSE} |
| 77 |
|
baseunix, unix, |
| 78 |
|
{$ENDIF} |
| 79 |
< |
SysUtils, Classes, Forms, Controls, IBHeader, |
| 79 |
> |
SysUtils, Classes, IBHeader, |
| 80 |
|
IBErrorCodes, IBExternals, DB, IB, IBDatabase, IBUtils, IBXConst; |
| 81 |
|
|
| 82 |
|
const |
| 2159 |
|
FSQLRecord := TIBXSQLDA.Create(self,daOutput); |
| 2160 |
|
FSQLType := SQLUnknown; |
| 2161 |
|
FParamCheck := True; |
| 2162 |
< |
FCursor := Name + RandomString(8); |
| 2162 |
> |
FCursor := HexStr(self); //Name + RandomString(8); |
| 2163 |
|
if AOwner is TIBDatabase then |
| 2164 |
|
Database := TIBDatabase(AOwner) |
| 2165 |
|
else |
| 2311 |
|
FBOF := True; |
| 2312 |
|
FEOF := False; |
| 2313 |
|
FRecordCount := 0; |
| 2314 |
+ |
if not (csDesigning in ComponentState) then |
| 2315 |
+ |
MonitorHook.SQLExecute(Self); |
| 2316 |
|
if FGoToFirstRecordOnExecute then |
| 2317 |
|
Next; |
| 2318 |
|
end; |
| 2323 |
|
Database.SQLDialect, |
| 2324 |
|
FSQLParams.AsXSQLDA, |
| 2325 |
|
FSQLRecord.AsXSQLDA), True); |
| 2326 |
+ |
if not (csDesigning in ComponentState) then |
| 2327 |
+ |
MonitorHook.SQLExecute(Self); |
| 2328 |
|
(* if (fetch_res <> 0) and (fetch_res <> isc_deadlock) then |
| 2329 |
|
begin |
| 2330 |
|
{ Sometimes a prepared stored procedure appears to get |
| 2348 |
|
@FHandle, |
| 2349 |
|
Database.SQLDialect, |
| 2350 |
|
FSQLParams.AsXSQLDA), True); |
| 2351 |
+ |
if not (csDesigning in ComponentState) then |
| 2352 |
+ |
MonitorHook.SQLExecute(Self); |
| 2353 |
|
end; |
| 2348 |
– |
if not (csDesigning in ComponentState) then |
| 2349 |
– |
MonitorHook.SQLExecute(Self); |
| 2354 |
|
FBase.DoAfterExecQuery(self); |
| 2355 |
|
// writeln('Rows Affected = ',RowsAffected); |
| 2356 |
|
end; |
