home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP4_3.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.2 KB  |  40 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª       Program: EXP4_3.PRG                                          ⌐ª
  3. *⌐ª      Function: ╫ε┤≤íó╫ε╨í╗»╥╗╕÷┤░┐┌▓ó╕┤╘¡╖╢└².                     ⌐ª
  4. *⌐ª    DBF & File: CUSTOMER.DBF                                        ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. CLOSE DATABASE
  8. CLEAR ALL
  9. CLEAR
  10.  
  11. USE CUSTOMER
  12. BROWSE NORMAL NOWAIT
  13.  
  14. ZOOM WINDOW CUSTOMER MIN
  15. WAIT WINDOW TIMEOUT 3;
  16.      '╩╣╙├ MIN ╫╙╛Σ ╫ε╨í╗»┤░┐┌, ╘▌═ú╟δ╡╚┤²íú'
  17.  
  18. ZOOM WINDOW CUSTOMER NORMAL
  19. WAIT WINDOW TIMEOUT 3;
  20.      '╩╣╙├ NORMAL ╫╙╛Σ╕┤╘¡╒Γ╥╗┤░┐┌, ╘▌═ú╟δ╡╚┤²íú'
  21.  
  22. ZOOM WINDOW CUSTOMER MIN AT 10,10
  23. WAIT WINDOW TIMEOUT 3;
  24.      '╩╣╙├ MIN AT 10,10 ╫╙╛Σ ╫ε╨í╗»┤░┐┌, ╘▌═ú╟δ╡╚┤²íú'
  25.  
  26. ZOOM WINDOW CUSTOMER NORMAL AT 1,1 SIZE 22,25
  27. WAIT WINDOW TIMEOUT 3;
  28.      '╩╣╙├ NORMAL & SIZE ╫╙╛Σ╘┌╓╕╢¿╬╗╓├íó┤≤╨í╕┤╘¡┤░┐┌, ╘▌═ú╟δ╡╚┤²íú'
  29.  
  30. ZOOM WINDOW CUSTOMER NORMAL FROM 10,10 TO 22,70
  31. WAIT WINDOW TIMEOUT 3;
  32.      '╩╣╙├ NORMAL & TO ╫╙╛Σ╘┌╓╕╢¿╬╗╓├íó┤≤╨í╕┤╘¡┤░┐┌, ╘▌═ú╟δ╡╚┤²íú'
  33.  
  34. ZOOM WINDOW CUSTOMER MAX
  35. WAIT WINDOW TIMEOUT 3;
  36.      '╩╣╙├ MAX ╫╙╛Σ ╫ε┤≤╗»┤░┐┌, ╘▌═ú╟δ╡╚┤²íú'
  37.  
  38. CLEAR ALL
  39. RETURN
  40.