home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / database / 6442 < prev    next >
Encoding:
Internet Message Format  |  1992-08-30  |  2.2 KB
  1. Path: sparky!uunet!cs.utexas.edu!sun-barr!ames!pacbell.com!network.ucsd.edu!munnari.oz.au!mel.dit.csiro.au!yarra!pta!g2syd!michaelh
  2. From: michaelh@g2syd.genasys.com.au (Michael Haldey)
  3. Newsgroups: comp.databases
  4. Subject: Re: Help with Clipper5.01!!
  5. Keywords: Clipper, Read
  6. Message-ID: <1992Aug31.002345.14600@g2syd.genasys.com.au>
  7. Date: 31 Aug 92 00:23:45 GMT
  8. References: <1992Aug29.161928.1@cc.newcastle.edu.au>
  9. Organization: Genasys II, Sydney, Australia
  10. Lines: 58
  11.  
  12. In article <1992Aug29.161928.1@cc.newcastle.edu.au> john@pleiades.newcastle.edu.au writes:
  13. ...
  14. >    I am new to clipper and have one major question. How can I perform
  15. >  a multiple read and still be able to obtain the variables that are read?
  16. >
  17. >  Example:    @ 1,1 SAY "Enter first variable:" COLOR "w+/b"
  18. >          @ 1,20 GET M->var1 PICTURE "XXXX" COLOR "bg+/b"
  19.  
  20. Actually, you can not receive the value of var1 before 
  21. you 've issued a READ statement
  22.  
  23. >          
  24. >          IF M->var1 == "TEST"
  25.  
  26. You do not know the var1
  27.  
  28. >             @ 2,1 SAY "Enter second variable:" COLOR "w+/b"
  29. >             @ 2,20 GET M->var2 PICTURE "9999" COLOR "bg+/b"
  30. >              ENDIF
  31. >
  32.  
  33. >          READ
  34. ONLY READ STATEMENT (actually, readmodal() in GETSYS.PRG) input the 
  35. data. Before that you do not know what was input.
  36.  
  37. >
  38. >    All I want to do is to be able to check each variable as it is entered
  39. >  in the respective field. Is there an easy way?
  40. >
  41.  
  42. Use VALID clause with a codeblock.
  43.  
  44. >    I tried LOOPER() in the super.lib, but although it will give the effect
  45. >  of multiple reads with a single read statement, it still does not allow you
  46. >  to obtain the entered value before terminating the complete read.
  47. >
  48.  
  49. Why use something else? Standard Clipper lets you do all the things.
  50.  
  51. >    If anyone knows of an easy way of doing this I would appreciate it if
  52. >   they could tell me how, or even better show me some source code.
  53. >
  54.  
  55. May be I do not understand what do you really want but this is a
  56. standard thing in Clipper (look for GET description).
  57.  
  58. >    Thanks for any help.
  59. >
  60. >        Jonathan Coombes
  61.  
  62. My 0.02
  63. Michael
  64.  
  65. -- 
  66. Michael Haldey  |  Genasys II Pty Ltd
  67.                 |  13th Level, 33 Berry St, North Sydney, NSW, Australia
  68.                 |  Phone:    +61-2-954-2878 (-9930 FAX)
  69.                 |  Internet: michaelh@g2syd.genasys.com.au
  70.