home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP8_5.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  2.7 KB  |  94 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP8_5.PRG                                           ⌐ª
  3. *⌐ª     Function: ╩╣╙├╧┬└¡▒φ, ┤░┐┌, SHOW GETS ║═ READ├ⁿ┴ε╡─╖╢└²        ⌐ª
  4. *⌐ª   DBF & File: CUSTOMER.DBF                                         ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. DEFINE WINDOW example1 FROM 0, 0 TO 21,22 ;
  8.        FLOAT CLOSE SHADOW  COLOR SCHEME 5;
  9.        TITLE " ╧┬└¡▒φ╥╗ "
  10. DEFINE WINDOW example2 FROM 0,24 TO 21,52 ;
  11.        FLOAT CLOSE SHADOW  COLOR SCHEME 7;
  12.        TITLE " ╧┬└¡▒φ╢■ "
  13. DEFINE WINDOW example3 FROM 0,54 TO 21,76 ;
  14.        FLOAT CLOSE SHADOW  COLOR SCHEME 8;
  15.        TITLE " ╧┬└¡▒φ╚² "
  16.  
  17. SELECT DISTINCT city FROM customer INTO ARRAY cityarray
  18.  
  19. DEFINE POPUP poparray SCROLL MARGIN MARK CHR(251)
  20. FOR I=1 TO ALEN(cityarray)
  21.     DEFINE BAR I OF poparray PROMPT (cityarray(I,1))
  22. ENDFOR
  23. SELECT customer
  24.  
  25. DEFINE POPUP popstru PROMPT STRUCTURE ;
  26.        MARGIN ;
  27.        MARK CHR(251) ;
  28.        SCROLL
  29.  
  30. DEFINE POPUP popfield PROMPT FIELD company ;
  31.        MARGIN ;
  32.        MARK CHR(251) ;
  33.        SCROLL
  34. ACTIVATE WINDOW example1
  35. @ 1,0 SAY PADC("╩²╛▌╜ß╣╣:",WCOLS())
  36.  
  37. @ 2, 2 GET liststructure POPUP popstru SIZE 11,20 ;
  38.        DEFAULT FIELD(1,"customer") WHEN refresh() ;
  39.        VALID dispitem(liststructure) COLOR SCHEME 5
  40. @ 13,2 SAY liststructure SIZE 1,18
  41.  
  42. ACTIVATE WINDOW example2
  43.  
  44. @ 1, 0 SAY PADC("╫╓╢╬─┌╚▌:",WCOLS())
  45. @ 2, 2 GET listfield POPUP popfield SIZE 11,20 ;
  46.        DEFAULT company WHEN refresh() VALID dispitem(listfield) ;
  47.        COLOR SCHEME 7
  48. @ 13,2 SAY listfield SIZE 1,18
  49.  
  50.  
  51. ACTIVATE WINDOW example3
  52. @ 1,0  SAY PADC("│╟╩╨├√│╞:",WCOLS())
  53. @ 2,2  GET arrayitem POPUP poparray SIZE 11,20 ;
  54.        DEFAULT cityarray(1);
  55.        WHEN refresh() VALID dispitem(arrayitem);
  56.        COLOR SCHEME 9
  57. @ 13,2 SAY arrayitem SIZE 1,18
  58. @ 17,2 GET ok FUNCTION ;
  59.        "*HT \!\<OK;\?\<Cancel" DEFAULT 1 SIZE 1,6
  60.  
  61. READ CYCLE SHOW popshow()
  62.  
  63. RELEASE WINDOW example1,example2, example3
  64. RELEASE POPUPS popstru, popfield, poparray
  65.  
  66. FUNCTION refresh
  67. SHOW GETS OFF
  68.  
  69. FUNCTION dispitem
  70. PARAMETER item
  71. PRIVATE item,string
  72. string = "<< ─π╤í╘±╡─╩╟: "+ALLTRIM(item)+" ╟δ░┤╚╬╥╗╝ⁿ╗≥╩≤▒Ω╫≤░┤┼ñ╝╠╨° >>"
  73. DEFINE WINDOW mywin FROM 18,2 TO 22,77 ;
  74.        TITLE " ╨┼╧ó┤░┐┌ " ;
  75.        SHADOW ;
  76.        COLOR SCHEME 7
  77. ACTIVATE WINDOW mywin
  78. @ 1,0 SAY PADC(string,WCOLS())
  79. =INKEY(10,"HM")
  80. DEACTIVATE WINDOW mywin
  81. RELEASE WINDOWS   mywin
  82.  
  83. FUNCTION popshow
  84. STORE WOUTPUT() TO currwind
  85. DO CASE
  86.    CASE WOUTPUT() = "EXAMPLE1"
  87.         @ 13,2 SAY liststructure SIZE 1,18
  88.    CASE WOUTPUT() = "EXAMPLE2"
  89.         @ 13,2 SAY listfield SIZE 1,18
  90.    CASE WOUTPUT() = "EXAMPLE3"
  91.         @ 13,2 SAY arrayitem SIZE 1,18
  92. ENDCASE
  93. RETURN .T.
  94.