home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP11_8.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  3.5 KB  |  139 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP11_8.PRG                                          ⌐ª
  3. *⌐ª     Function: PUSH KEY,  POP KEY  ╡─╙ª╙├╖╢└².                      ⌐ª
  4. *⌐ª   DBF & File: CUSTOMER.DBF                                         ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET TEXTMERGE ON
  8. CLEAR ALL
  9. CLEAR
  10. ON KEY LABEL F2 DO subroute1
  11. ON KEY LABEL F3 DO subroute2
  12. ON KEY LABEL F4 DO subroute2
  13. ON KEY LABEL F5 DO subroute2
  14. @ 22,0 TO 24,79  DOUBLE COLOR /W+
  15. @ 23,8 SAY "[F2] ╩²╛▌┐Γ▒α╝¡  [F3] ╓╪╜¿╦≈╥²  [F4] ├▄┬δ╚¿╧▐╢¿  [F5] ╩²╛▌┐Γ▒╕╖▌"
  16.  
  17. DO WHILE .T.
  18.    @  5,29 TO 18,49 DOUBLE  COLOR /W+
  19.    @  6,30 PROMPT " \<1. ╚╦╩┬╗∙▒╛╩²╛▌   "
  20.    @  7,30 PROMPT " \<2. ╣ñ╫╩╡╚╝╢╔Φ╢¿   "
  21.    @  8,30 PROMPT " \<3. ┐╝╟┌╩²╛▌╩Σ╚δ   "
  22.    @  9,30 PROMPT " \<4. ╝╙░α╩²╛▌╩Σ╚δ   "
  23.    @ 10,30 PROMPT " \<5. ╗∙▒╛╣ñ╫╩       "
  24.    @ 11,30 PROMPT " \<6. ╣ñ╫╩╡Ñ         "
  25.    @ 12,30 PROMPT " \<7. ╡≈╨╜┤ª└φ       "
  26.    @ 13,30 PROMPT " \<8. ─Ω╜┌╜▒╜≡       "
  27.    @ 14,30 PROMPT " \<9. ┐█┐ε┤ª└φ       "
  28.    @ 15,30 PROMPT " \<A. ▒¿▒φ▓Θ╤»┤ª└φ   "
  29.    @ 16,30 PROMPT " \<B. ╧╡═│╬¼╗ñ       "
  30.    @ 17,30 PROMPT " \<E. ═╦│÷           "
  31.    MENU TO choice
  32.    IF choice = 12 .OR. choice = 0
  33.       * ╟σ│²╦∙╙╨╡▒╟░╫≈╙├╓╨║═╢╤╒╗╓╨╡─ ON KEY LABLE ├ⁿ┴ε
  34.       POP KEY ALL
  35.       CLEAR ALL
  36.       CLEAR
  37.       SET TALK ON
  38.       SET TEXTMERGE OFF
  39.       CANCEL
  40.    ELSE
  41.       DO subroute2
  42.    ENDIF
  43. ENDDO
  44. RETURN
  45.  
  46. PROCEDURE subroute1
  47. * ░╤╘¡╫≈╙├╓╨╡─ ON KEY LABLE ├ⁿ┴ε┤µ╚δ╢╤╒╗, ▓ó╟σ│²╒Γ╨⌐├ⁿ┴ε
  48. PUSH KEY CLEAR
  49.  
  50. USE (LOCFILE("CUSTOMER","DBF","╟δ╒╥╡╜ CUSTOMER.DBF ▓ó┤≥┐¬"))
  51. ON KEY LABEL F2 APPEND BLANK
  52. ON KEY LABEL F3 DO deleting
  53. ON KEY LABEL F4 GO TOP
  54. ON KEY LABEL F5 GO BOTTOM
  55. ON KEY LABEL F6 DO moving
  56. DEFINE WINDOW ok ;
  57. FROM INT((SROW()-20)/2),INT((SCOL()-70)/2) ;
  58. TO INT((SROW()-20)/2)+20,INT((SCOL()-70)/2)+70 ;
  59. TITLE "[F2] ╘÷╝╙╝╟┬╝  [F3] ╔╛│²╝╟┬╝  [F4] ╩╫╝╟┬╝  [F5] ─⌐╝╟┬╝  [F6] ╡┌ n║┼╝╟┬╝" ;
  60. DOUBLE ;
  61. CLOSE ;
  62. GROW ;
  63. FLOAT ;
  64. MINIMIZE ;
  65. SHADOW ;
  66. ZOOM ;
  67. COLOR SCHEME 6
  68.  
  69. CHANGE WINDOW ok
  70. RELEASE WINDOWS ok
  71. USE
  72. POP KEY
  73. * ░╤╧╚╟░┤µ╚δ╢╤╒╗╡─ ON KEY LABLE ├ⁿ┴ε╚í│÷
  74. RETURN
  75.  
  76. PROCEDURE subroute2
  77. DEFINE WINDOW notyet FROM 22,0 TO 24,79;
  78.        DOUBLE COLOR SCHEME 7
  79. ACTIVATE WINDOW notyet
  80. @ 0,25 SAY " ╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨°  "
  81. =INKEY(10,"HM")
  82. DEACTIVATE WINDOW notyet
  83. RELEASE WINDOWS notyet
  84.  
  85. PROCEDURE deleting
  86. IF DELETED()
  87.    RECALL
  88.    =telling("╝╟┬╝╥╤╗╓╕┤(RECALL),╟δ░┤╚╬╥╗╝ⁿ╝╠╨° ")
  89. ELSE
  90.    DELETE
  91.    =telling("╝╟┬╝╥╤╔╛│²(DELETE),╟δ░┤╚╬╥╗╝ⁿ╝╠╨° ")
  92. ENDIF
  93.  
  94. FUNCTION telling
  95. PARAMETER check1,check2
  96. PRIVATE check1,check2
  97. DEFINE WINDOW del ;
  98.    FROM INT((SROW()-5)/2),INT((SCOL()-57)/2) ;
  99.    TO INT((SROW()-20)/2)+10,INT((SCOL()-57)/2)+56 ;
  100.    TITLE " ╨┼╧ó┤░┐┌ " ;
  101.    FLOAT ;
  102.    SHADOW ;
  103.    COLOR SCHEME 7
  104. ACTIVATE WINDOW del
  105. IF EMPTY(check2)
  106.    \      <<check1>>
  107. ELSE
  108.    \              <<check1>> <<check2>>
  109. ENDIF
  110. =INKEY(10,"HM")
  111. DEACTIVATE WINDOW del
  112. RELEASE WINDOWS del
  113. RETURN
  114.  
  115. PROCEDURE moving
  116. ON READERROR =telling("=╩Σ╚δ╡─╩²╫╓╘┌ 1 ╓┴ ",RECCOUNT())
  117. DEFINE WINDOW pointer ;
  118.    FROM INT((SROW()-5)/2),INT((SCOL()-57)/2) ;
  119.    TO INT((SROW()-20)/2)+10,INT((SCOL()-57)/2)+56 ;
  120.    TITLE " ╣ª─▄┤░┐┌ " ;
  121.    SYSTEM ;
  122.    FLOAT ;
  123.    SHADOW ;
  124.    COLOR SCHEME 7
  125. ACTIVATE WINDOW pointer
  126. @ WROWS()-1,0 SAY "╙√╥╞╡╜╡┌╝╕║┼╝╟┬╝: " GET poisition PICTURE "9999" ;
  127.   DEFAULT 1 RANGE 1,RECCOUNT()
  128. READ
  129. IF LASTKEY()=27
  130.    DEACTIVATE WINDOW pointer
  131.    RELEASE WINDOWS pointer
  132.    RETURN
  133. ELSE
  134.    GO poisition
  135. ENDIF
  136. DEACTIVATE WINDOW pointer
  137. RELEASE WINDOWS pointer
  138. RETURN
  139.