home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / database / oracle / 2509 < prev    next >
Encoding:
Internet Message Format  |  1992-12-15  |  2.3 KB
  1. Path: sparky!uunet!oracle!unrepliable!bounce
  2. Newsgroups: comp.databases.oracle
  3. From: smuench@oracle.com (Steven P. Muench)
  4. Subject: Re: Oracle's 'Working...' Message - Can it be simulated?
  5. In-Reply-To: kcameron@erc.cat.syr.edu's message of Fri, 11 Dec 92 09:35:59 EST
  6. Message-ID: <SMUENCH.92Dec15004145@hqsun4.oracle.com>
  7. Sender: usenet@oracle.us.oracle.com (Oracle News Poster)
  8. Nntp-Posting-Host: hqsun4.us.oracle.com
  9. Organization: Oracle Corp., Belmont CA
  10. References: <77875@hydra.gatech.EDU> <1992Dec11.093600.27070@newstand.syr.edu>
  11. Date: Tue, 15 Dec 1992 08:41:45 GMT
  12. X-Disclaimer: This message was written by an unauthenticated user
  13.               at Oracle Corporation.  The opinions expressed are those
  14.               of the user and not necessarily those of Oracle.
  15. Lines: 47
  16.  
  17.    >Has anyone ever tried to simulate the Oracle message 'Working...' which
  18.    >is automatically displayed when committing a transaction (on a form)?
  19.    >(Deleted...)
  20.    >Thank you for suggestions.
  21.    >-- 
  22.    >Michael Kustermann        |  Der Vogel kaempft sich aus dem Ei.
  23.    >Georgia Institute of Tech.|  Das Ei ist die Welt.
  24.    >Atlanta, GA 30332         |  Wer geboren werden will muss eine
  25.    >iadt3mk@prism.gatech.edu  |  Der Vogel fliegt zu Gott.  Gott ist Abraxas.
  26.  
  27.  
  28. Forms 4.0 adds the optional parameter NO_ACKNOWLEDGE to the Message()
  29. builtin procedure so that you can issue many messages that don't
  30. require user acknowledgement, even from within the same trigger. We
  31. also have a Clear_Message to programmatically clear the messaage line. 
  32.  
  33.         Message('Working...',NO_ACKNOWLEDGE);
  34.         /*
  35.         ** Do your thing here that's going to take
  36.         ** a while...
  37.         */
  38.         Clear_Message;
  39.  
  40. In fact, you could devise a routine to display a working message
  41. progress bar on the Message Line to show that a given percentage
  42. (pct) of a task is completed...
  43.  
  44.     procedure show_status (pct number) is
  45.        str VARCHAR2(80); 
  46.        bl  NUMBER;
  47.        wh  NUMBER;
  48.     begin
  49.        bl  := round(70*pct/100);
  50.        wh  := 70-bl;
  51.        str := 'Working ['||lpad('#',bl,'#')||lpad(' ',wh,' ')||']';
  52.            message(str,no_acknowledge);
  53.            synchronize;
  54.         end;
  55.  
  56. A glimpse of the not-to-distant future. :-)
  57.  
  58. _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
  59.   Steve Muench              Email: smuench@oracle.com
  60.   SQL*Forms Development
  61.   Product Manager
  62.  
  63.   
  64.