Re: Перед тем, как взяться за скальпель

Mon, 20 Feb 2006 03:00:32 -0800 

Horsun Vlad пишет:
> "Serge Buzadzhy" ...
> 
>> Елки.. Джеф действительно все унпрепарит по завершению транзакции. Не
>> ожидал.
> 
>     Где ? Я вижу только закрытие курсоров (IBX 6.08) :
> 
> procedure TIBSQL.BeforeTransactionEnd(Sender: TObject);
> begin
>   if (FOpen) then
>     Close;
> end;
> 
procedure TIBCustomDataSet.DoBeforeTransactionEnd(Sender: TObject);
begin
   if Active then
     Active := False;
   if FQSelect <> nil then
     FQSelect.FreeHandle;
   if FQDelete <> nil then
     FQDelete.FreeHandle;
   if FQInsert <> nil then
     FQInsert.FreeHandle;
   if FQModify <> nil then
     FQModify.FreeHandle;
   if FQRefresh <> nil then
     FQRefresh.FreeHandle;
   FInternalPrepared := false;
   if Assigned(FBeforeTransactionEnd) then
     FBeforeTransactionEnd(Sender);
end;

Ответить