home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_17.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  2.2 KB  |  71 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_17.PRG                                          ⌐ª
  3. *⌐ª     Function: ▓╦╡Ñ╤í╧ε╠⌡╝■╓┤╨╨╡─╖╢└².                              ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR ALL
  7. CLEAR
  8.  
  9. mydata=LOCFILE("customer","DBF"," ╟δ╒╥╡╜╩²╛▌┐Γ customer.dbf ▓ó╤í╚í╦ⁿ")
  10. USE (mydata)
  11.  
  12. DEFINE MENU mainmenu
  13. DEFINE PAD dataedit   OF mainmenu PROMPT "\<1.╩²╛▌┐Γ▒α╝¡"
  14. DEFINE PAD datareport OF mainmenu PROMPT "\<2.┤≥╙í▒¿▒φ  "
  15. DEFINE PAD datalabel  OF mainmenu PROMPT "\<3.┤≥╙í╙╩╝─▒Ω╟⌐"
  16. ON PAD dataedit   OF mainmenu ACTIVATE POPUP datapop
  17. ON PAD datareport OF mainmenu ACTIVATE POPUP dataprt
  18.  
  19. DEFINE POPUP datapop SHADOW
  20. DEFINE BAR 1 OF datapop PROMPT "\<1. ╘÷╝╙╝╟┬╝ "
  21. DEFINE BAR 2 OF datapop PROMPT "\<2. ╔╛│²╝╟┬╝ "
  22. DEFINE BAR 3 OF datapop PROMPT "\<3. ╨▐╕─╝╟┬╝ "
  23. ON SELECTION POPUP datapop DO subroute1 WITH BAR()
  24.  
  25. DEFINE POPUP dataprt SHADOW
  26. DEFINE BAR 1 OF dataprt PROMPT "\<1. ╫╩▓·╕║╒«▒φ "
  27. DEFINE BAR 2 OF dataprt PROMPT "\<2. ╦≡╥µ▒φ"
  28. DEFINE BAR 3 OF dataprt PROMPT "\<3. ┤½╞▒"
  29. ON SELECTION POPUP dataprt DO subroute2 WITH BAR()
  30.  
  31. * ╔Φ╢¿╓≈╤í╧ε dataedit ╓╗╙╨ CUSTOMER.DBF ╥╤┤≥┐¬▓┼┐╔╤í
  32. SET SKIP OF PAD dataedit  OF mainmenu !USED("customer")
  33.  
  34. * ╔Φ╢¿╓≈╤í╧ε datalabel ▓╗┐╔╤í
  35. SET SKIP OF PAD datalabel OF mainmenu .T.
  36.  
  37. * ╔Φ╢¿╫╙╤í╧ε dataprt ╓╗╙╨┤≥╙í╗·╥╤┤≥┐¬╟╥╘┌ ON-LINE ╫┤╠¼▓┼┐╔╤í
  38. SET SKIP OF POPUP dataprt SYS(13)="OFFLINE"
  39.  
  40. ACTIVATE MENU mainmenu
  41.  
  42. PROCEDURE subroute1
  43. PARAMETER mbar1
  44. DEFINE WINDOW mywin ;
  45.        FROM INT((SROW()-15)/2),INT((SCOL()-57)/2) ;
  46.        TO INT((SROW()-15)/2)+14,INT((SCOL()-57)/2)+56 ;
  47.        TITLE " ╩²╛▌┐ΓΣ»└└┤░┐┌ " ;
  48.        GROW ;
  49.        FLOAT ;
  50.        CLOSE;
  51.        MINIMIZE ;
  52.        SHADOW ;
  53.        ZOOM ;
  54.        COLOR SCHEME 8 DOUBLE
  55. DO CASE
  56.    CASE mbar1=1
  57.         CHANGE NODELETE NOEDIT WINDOW mywin
  58.    CASE mbar1=2
  59.         CHANGE NOAPPEND NODELETE WINDOW mywin
  60.    CASE mbar1=3
  61.         CHANGE NOAPPEND NOEDIT WINDOW mywin
  62. ENDCASE
  63. RELEASE WINDOWS mywin
  64.  
  65. PROCEDURE subroute2
  66. PARAMETER mbar2
  67. @ 24,24 SAY "<< ▒º╟╕! ╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° >>"
  68. =INKEY(10,"HM")
  69. @ 24,00 CLEAR
  70. RETURN
  71.