Ok, I see where this has a problem now.

Please try this and see if it works and confirm ASAP.

function TIB_Statement.IsTransactionStored: boolean;
begin
Result := Assigned( IB_Transaction ) and
( IB_Transaction <> FIB_Transaction );
if Result and Assigned( IB_Connection ) then
Result := IB_Transaction <> IB_Connection.DefaultTransaction;
end;

This code is in IBA_Statement.IMP.

Thanks,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com

----- Original Message -----
From: "G. Allen Casteran" <allen@...>
To: <IBObjects@yahoogroups.com>
Sent: Tuesday, November 13, 2001 2:22 PM
Subject: [IBO] TIBOQuery invalid properties stored in DFM


> Came across this yesterday and it looks like a bug to me. If I have
> aTIBODatabase on the main form of an application and add a TIBOQuery to a
> datamodule, then IB_Connection and IB_Transaction properties show up as
> <default> in the Obj Insp. When I try to save the DM after copying to a
new
> filename, Delphi reports that the for xxxDataModule is linked to form
> Database, do I want to remove or redirect the links.
>
> Looking at the DFM it has these properties set for the Query.
> IB_Connection = MainForm.Database
> IB_Transaction = Database.trDatabase
>
> Then Delphi thinks that Database is a form or something. Since these are
> shown as default in the Obj Insp. I did not expect these properties to
> appear in the dfm. I would expect the object to merely assign them when
> the object is instantiated at run-time.
>
> Can this be fixed, Jason?
>
> Thanks,
>
> Allen.