home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / database / informix / 2763 < prev    next >
Encoding:
Internet Message Format  |  1992-12-21  |  1.9 KB
  1. Path: sparky!uunet!spool.mu.edu!sdd.hp.com!swrinde!emory!emory!not-for-mail
  2. From: dave.snyder@snide.com (Dave Snyder)
  3. Newsgroups: comp.databases.informix
  4. Subject: Re: Entering "invisible" data in a form
  5. Date: 19 Dec 1992 10:58:07 -0500
  6. Organization: Mailing List Gateway
  7. Lines: 38
  8. Sender: walt@mathcs.emory.edu
  9. Distribution: world
  10. Message-ID: <1gvgqfINNpa2@emory.mathcs.emory.edu>
  11. Reply-To: dave.snyder@snide.com (Dave Snyder)
  12. NNTP-Posting-Host: emory.mathcs.emory.edu
  13. X-Informix-List-ID: <list.1727>
  14.  
  15. Quoting Cecilia Jaeger...
  16. } 
  17. } I couldn't think of a better way to phase this. I have a form that
  18. } is basically an opening screen that asks for Employee Id and password.
  19. } 
  20. } In 4gl 4.0 how do I make it so the user DOESN'T see what they type as the enter
  21. } their password. I like to be able to do it in the form. 
  22. } 
  23. } I try setting color attribute = invisible. I think I am may be confused as
  24. } to what that attribute does. What does invisible mean? It is available
  25. } attribute for display and prompt.
  26. } 
  27. I sat on this one for a day now...  Everyone seems to be dwelling on INVISIBLE
  28. and terminal attributes.  Technotes "Spring 1990" provided this little gem:
  29.  
  30. Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip
  31. MAIN
  32.     DEFINE  c CHAR(1)           # Get character
  33.     DEFINE  psw CHAR(8)         # Store the password
  34.     DEFINE  i SMALLINT          # Counter
  35.  
  36.     OPTIONS PROMPT LINE 22
  37.     FOR i = 1 TO 8
  38.         PROMPT "Enter password: " FOR CHAR c
  39.         IF (c IS NULL) THEN     # Check for space or return
  40.             EXIT FOR
  41.         ELSE
  42.             LET psw = psw CLIPPED, c
  43.         END IF
  44.     END FOR
  45. END MAIN
  46. Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip
  47.  
  48. DAS
  49. -- 
  50. David Snyder @ Snide Computer Services - Folcroft, PA          Current Release
  51.                                                                is db4glgen-3.9
  52. UUCP:  ..!uunet!das13!dave   INTERNET:  dave.snyder@snide.com
  53.