HI Jason

I was really hoping I was doing something wrong with IBO. The code is used in conjunction with a IBOQuery that displays items in a multi select grid. As each item is selected the code goes and checks all other items to see if they are for the same client, if not it disables a group of buttons. On my machine (Athalon XP 24000, with database) the performance slows down noticeably as more and more rows are selected. On out test machine (Celeron 400, networked to the Database) the performance slows down so much after 3 rows are selected that it appears the machine has frozen!


I am open to other easily implemented solutions :)

Rob Martin
Software Engineer

phone 03 377 0495
fax 03 377 0496
web www.chreos.com

----- Original Message -----
From: Jason Wharton
To: IBObjects@yahoogroups.com
Sent: Thursday, July 22, 2004 1:21 PM
Subject: RE: [IBO] Bookmarks


I don't see anything off hand here.
Have you looked at what the SQL trace monitor is doing?
Where do you suspect the difference stems from?

Jason Wharton

-----Original Message-----
From: Robert martin [mailto:rob@...]
Sent: Monday, July 19, 2004 4:50 PM
To: IBObjects@yahoogroups.com
Subject: [IBO] Bookmarks


Hi All

I am having performance problems with the following code using an IBOQuery
component. Can anybody see something obvious I am doing wrong (worked great
with the BDE unfortunately).



var
MyBookmark : TBookMark;
EntityRef : Integer;
Counter : Integer;
begin
Result := True;
EntityRef := -1;

with zClientOrderStatusDM.OrderInQuery do begin
DisableControls;
MyBookMark := GetBookmark;
try

Counter := 0;
while (Counter < OrdersDBGrid.SelectedRows.Count)
and (Result = True) do begin

GotoBookmark(Pointer(OrdersDBGrid.SelectedRows.Items[Counter]));

if (EntityRef = -1) then begin
//First instance of client
EntityRef := FieldByName('EntityRef').AsInteger;
end
else if (EntityRef <> FieldByName('EntityRef').AsInteger)
then begin
//Row Select for another client
Result := False;
end;
Inc(Counter);
end;
finally
GotoBookmark(MyBookMark);
FreeBookmark(MyBookMark);
EnableControls;
end;
end;




Rob Martin
Software Engineer

phone 03 377 0495
fax 03 377 0496
web www.chreos.com




___________________________________________________________________________
IB Objects - direct, complete, custom connectivity to Firebird or InterBase
without the need for BDE, ODBC or any other layer.
___________________________________________________________________________
http://www.ibobjects.com - your IBO community resource for Tech Info papers,
keyword-searchable FAQ, community code contributions and more !


Yahoo! Groups Sponsor
ADVERTISEMENT





------------------------------------------------------------------------------
Yahoo! Groups Links

a.. To visit your group on the web, go to:
http://groups.yahoo.com/group/IBObjects/

b.. To unsubscribe from this group, send an email to:
IBObjects-unsubscribe@yahoogroups.com

c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.



[Non-text portions of this message have been removed]