Subject | [IBO] possible problem fix for IBO4.7.Beta 5 |
---|---|
Author | Hans |
Post date | 2006-11-27T04:25:05Z |
Hello Jason,
Found a working fix for IB_Components.pas, which solved the problem of
preventing
re-editing of existing table information in FB2.0.0. GetCanDoSearchedSQL
works fine
on FB1.5.3. This fix may not be acceptable, but it shows what the difference
is when
GetCanDoSearchedSQL works on a FB2.0.0 database.
Best Regards
Hans
==========================================================
function TIB_Dataset.GetCanDoSearchedSQL: boolean;
var
ii: integer;
tmpRelN,
tmpRelA,
tmpSKR: string;
begin
if SysKeyRelation = '' then
Result := false
else
begin
Result := true;
for ii := 0 to KeyFields.ColumnCount - 1 do
begin
//hans aded next 2 lines .. alike : GetFullFieldName (only required
if a FB2.0.0 is used)
if KeyFields[ ii ].FRelAliasName = '' then
KeyFields[ ii ].FRelAliasName := KeyFields[ ii ].RelName;
if ii = 0 then
begin
tmpRelN := KeyFields[ ii ].RelName;
tmpRelA := KeyFields[ ii ].RelAliasName;
end
Found a working fix for IB_Components.pas, which solved the problem of
preventing
re-editing of existing table information in FB2.0.0. GetCanDoSearchedSQL
works fine
on FB1.5.3. This fix may not be acceptable, but it shows what the difference
is when
GetCanDoSearchedSQL works on a FB2.0.0 database.
Best Regards
Hans
==========================================================
function TIB_Dataset.GetCanDoSearchedSQL: boolean;
var
ii: integer;
tmpRelN,
tmpRelA,
tmpSKR: string;
begin
if SysKeyRelation = '' then
Result := false
else
begin
Result := true;
for ii := 0 to KeyFields.ColumnCount - 1 do
begin
//hans aded next 2 lines .. alike : GetFullFieldName (only required
if a FB2.0.0 is used)
if KeyFields[ ii ].FRelAliasName = '' then
KeyFields[ ii ].FRelAliasName := KeyFields[ ii ].RelName;
if ii = 0 then
begin
tmpRelN := KeyFields[ ii ].RelName;
tmpRelA := KeyFields[ ii ].RelAliasName;
end