home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / database / informix / 2454 < prev    next >
Encoding:
Text File  |  1992-11-17  |  2.5 KB  |  89 lines
  1. Newsgroups: comp.databases.informix
  2. Path: sparky!uunet!charon.amdahl.com!pacbell.com!ames!kronos.arc.nasa.gov!iscnvx!netcomsv!firewall!mlee
  3. From: mlee@adaclabs.com (Mike Lee )
  4. Subject: Re: Informix 4GL arrays
  5. Message-ID: <1992Nov17.193900.6379@adaclabs.com>
  6. Sender: usenet@adaclabs.com
  7. Nntp-Posting-Host: 192.153.52.149
  8. Organization: Adac Laboratories, Milpitas Ca
  9. References: <1do0gjINNilu@emory.mathcs.emory.edu>
  10. Date: Tue, 17 Nov 1992 19:39:00 GMT
  11. Lines: 76
  12.  
  13. Aaron Pelton writes:
  14. > 
  15. >     In my quest for the answer to Informix vs Progress I've come across
  16. > a particular area, scrolling data on the screen, that Informix doesn't
  17. > seem to handle well.
  18. Not true! Not true I say 8^)
  19.  
  20. >    Given that I have a set of data that may be anywhere from 0 to n records
  21. > that I want to place in a scrolling region on the screen, can it be done
  22. > without a LOT of code to accomplish this?
  23.  
  24. There are few different ways to display scrolling information...
  25. Assuming all you want to do is select information from a table and display
  26. in a window that allows a user to scroll through and see the choices, this
  27. is what I would do. 
  28.  
  29. Define an array to the size you want.
  30.     DEFINE
  31.         test_arr ARRAY[50] OF RECORD
  32.             last_name
  33.         END RECORD
  34.  
  35. Open your window with a form that has been defined as an array. Something
  36. like this:
  37.     [f1        ]
  38.     [f1        ]
  39.     [f1        ]
  40.     [f1        ]
  41.     [f1        ]
  42.     [f1        ]
  43.     .
  44.     .
  45.     .
  46.     
  47.     INSTRUCTIONS
  48.         SCREEN RECORD scr_array[10]
  49.             (
  50.             FORMONLY.last_name
  51.             )
  52.     
  53.  
  54. Declare and Foreach each record into your array incrementing x
  55.  
  56.     DECLARE c1 CURSOR FOR
  57.         SELECT last_name
  58.         FROM names
  59.         ORDER BY last_name
  60.  
  61.     FOREACH c1 INTO test_arr[x].last_name
  62.         let x = x + 1
  63.     END FOREACH
  64.  
  65.     LET x = x - 1
  66.     CALL set_count(x)
  67.  
  68.     DISPLAY ARRAY test_arr TO scr_array.*
  69.  
  70. That's all you need to display scrolling information.  The user can scroll
  71. down the information. If they want to select a value they can press the
  72. ESC key to select the value by adding the following code.
  73.  
  74.     IF (int_flag = FALSE) THEN
  75.         let choice = arr_curr()
  76.         RETURN pop_phy_arr[choice].last_name
  77.     END IF
  78.         
  79. I hope I read the question correctly, if not, send me some email...
  80.  
  81. Good Luck...
  82.  
  83.          ________________________________________________________
  84. ________| Mike Lee           | I like pigs. Dogs look up to us.  |_______
  85. \       | ADAC Laboratories  | Cats look down on us. Pigs treat  |      /
  86.  \      | mlee@adaclabs.com  | us as equals. - Churchill         |     /
  87.  /      |________________________________________________________|     \
  88. /__________)                                                  (_________\
  89.