ORACLE FORMS Progress Bar Solution

[mes...@my-deja.com]

Here is a way to implement a Progress Bar using ORACLE FORMS 6.0. I
also heard that it works fine with FORMS 4.5 but I haven't tried it.

------------------------------------------------------------------
-- Block5.Item8 is a white empty text item
-- Block5.Item9 is a blue empty text item that grows over Block5.Item8.
-- c1 is a cursor. This piece of code has to perform a given action
-- (PROCESS) for every cursor's record.

DECLARE
record_count INTEGER;
total_number_record INTEGER;

CURSOR c1 IS SELECT... ; --
c1_rec c1%ROWTYPE;

BEGIN
OPEN c1;
FETCH c1 INTO c1_rec;
total_number_record := SELECT COUNT(*) FROM ...; --same table then
the cursor.
WHILE c1%FOUND LOOP
PROCESS(c1_rec); -- The action to monitor;
record_count := record_count + 1;
set_item_property('Item9',width, 200 * record_count /
total_number_record );
synchronize;
FETCH C1 INTO c1_rec;
END LOOP ;
END;
------------------------------------------------------------------

Cheers
Patrick Messier
Ottawa, Canada

Sent via Deja.com http://www.deja.com/
Before you buy.