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