Subject | Re: [IBO] Saving and loading queries FieldIndex and FieldDisplayWidth values |
---|---|
Author | Andreas Pohl |
Post date | 2007-07-31T09:48:10Z |
Hallo Elmar,
4.3.Aa
Here is my declaration:
procedure TIBP_Query.DoBeforeOpen;
begin
inherited DoBeforeOpen;
if IB_Connection is TIBP_Connection then
with TIBP_Connection(IB_Connection) do
if Assigned(FBeforeIBPQueryOpen) and not FDisableProfiles then
FBeforeIBPQueryOpen(self);
end;
procedure TIBP_Query.DoBeforeClose;
begin
inherited DoBeforeClose;
if IB_Connection is TIBP_Connection then
with TIBP_Connection(IB_Connection) do
if Assigned(FBeforeIBPQueryClose) and not FDisableProfiles then
FBeforeIBPQueryClose(self);
end;
HTH.
--
Andreas
> I took a bigger project and changed a TIB_Query to my TIBGridQuery.maybe there is sth. changed in newer IBO versions. I still work with IBO
> Here in the doBeforeClose i get an error 335544374 "Internal Schema
> Cache Error" in IB_components line 14518.
4.3.Aa
Here is my declaration:
procedure TIBP_Query.DoBeforeOpen;
begin
inherited DoBeforeOpen;
if IB_Connection is TIBP_Connection then
with TIBP_Connection(IB_Connection) do
if Assigned(FBeforeIBPQueryOpen) and not FDisableProfiles then
FBeforeIBPQueryOpen(self);
end;
procedure TIBP_Query.DoBeforeClose;
begin
inherited DoBeforeClose;
if IB_Connection is TIBP_Connection then
with TIBP_Connection(IB_Connection) do
if Assigned(FBeforeIBPQueryClose) and not FDisableProfiles then
FBeforeIBPQueryClose(self);
end;
HTH.
--
Andreas