home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP8_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  2.4 KB  |  97 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP8_2.PRG                                           ⌐ª
  3. *⌐ª     Function: ╕─╜° EXP8_1.PRG ╣ª─▄╡─╖╢└².                          ⌐ª
  4. *⌐ª   DBF & File: CUSTOMER.DBF                                         ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. CLOSE ALL
  8.  
  9. DEFINE WINDOW cust FROM 2,3 TO 12,57 ;
  10.        FLOAT SHADOW COLOR SCHEME 5
  11. DEFINE WINDOW panel2 FROM 2, 61 TO 14,78 ;
  12.      FLOAT SHADOW COLOR SCHEME 9
  13. USE CUSTOMER
  14. ACTIVATE WINDOW cust NOSHOW
  15.  
  16. m.saverecno = RECNO()
  17. GO TOP
  18. m.toprec = RECNO()
  19. GO BOTTOM
  20. m.bottomrec = RECNO()
  21. GO m.saverecno
  22. ACTIVATE WINDOW cust NOSHOW
  23.  
  24. @ 3, 3 SAY "╣½╦╛├√│╞"
  25. @ 3,14 GET customer.company SIZE 1,36
  26. @ 5, 3 SAY "  ┴¬┬τ╚╦"
  27. @ 5,14 GET customer.contact SIZE 1,36
  28. @ 7, 2 SAY "│╟╩╨/╣·╝╥"
  29. @ 7,14 GET customer.city SIZE 1,21
  30. @ 7,39 SAY "╙╩▒α"
  31. @ 7,45 GET customer.zip
  32. @ 0, 3 SAY "┐═╗º▒α║┼ #: "
  33. @ 0,15 SAY cno SIZE 1,6
  34. @ 0,36 SAY "╝╟┬╝▒α║┼ #: "
  35. @ 0,46 SAY RECNO() SIZE 1,3
  36.  
  37. ACTIVATE WINDOW panel2
  38. @ 1,2 GET act PICTURE "@*VN \<1.╡┌╥╗╧ε;\<2.╟░╥╗╧ε;"+;
  39.                       "\<3.╧┬╥╗╧ε;\<4.╫ε║≤╧ε;\?\<5.═╦  │÷" ;
  40.     SIZE 1,12,1 DEFAULT 0 VALID actvalid()
  41.  
  42.  
  43. READ CYCLE SHOW refresh()
  44. RELEASE WINDOWS cust,panel2
  45.  
  46. FUNCTION actvalid
  47. DO CASE
  48. CASE act = 1
  49.      GO TOP
  50.      SHOW GET act, 1 DISABLE
  51.      SHOW GET act, 2 DISABLE
  52.      SHOW GET act, 3 ENABLE
  53.      SHOW GET act, 4 ENABLE
  54. CASE ACT = 2
  55.      SHOW GETS ENABLE
  56.      SKIP -1
  57.      IF RECNO() = m.toprec
  58.         SHOW GET act, 1 DISABLE
  59.         SHOW GET act, 2 DISABLE
  60.         SHOW GET act, 3 ENABLE
  61.         SHOW GET act, 4 ENABLE
  62.         GO TOP
  63.      ENDIF
  64. CASE ACT = 3
  65.      SHOW GETS ENABLE
  66.      SKIP 1
  67.      IF RECNO() = m.bottomrec
  68.         SHOW GET act, 1 ENABLE
  69.         SHOW GET act, 2 ENABLE
  70.         SHOW GET act, 3 DISABLE
  71.         SHOW GET act, 4 DISABLE
  72.         GO BOTTOM
  73.      ENDIF
  74. CASE act = 4
  75.      GO BOTTOM
  76.      SHOW GET act, 1 ENABLE
  77.      SHOW GET act, 2 ENABLE
  78.      SHOW GET act, 3 DISABLE
  79.      SHOW GET act, 4 DISABLE
  80. CASE act = 5
  81.      CLEAR READ
  82. ENDCASE
  83. SHOW GETS
  84. RETURN 0
  85.  
  86. FUNCTION refresh
  87. STORE WOUTPUT() TO currwind
  88. IF SYS(2016) = "cust" OR SYS(2016) = "*"
  89.     ACTIVATE WINDOW cust SAME
  90.     @ 0,15 SAY cno SIZE 1,6
  91.     @ 0,46 SAY RECNO() SIZE 1,3
  92. ENDIF
  93. IF NOT EMPTY(currwind)
  94.    ACTIVATE WINDOW (currwind) SAME
  95. ENDIF
  96. RETURN .T.
  97.