home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / MEMBERS.ARC / MDMODQRY.PRG < prev    next >
Text File  |  1986-10-16  |  1KB  |  49 lines
  1. *----------------------------------------------------------------------
  2. * Program : Membership Database Package
  3. * File    : MDMODQRY
  4. * Function: Create/Modify Query Files
  5. * Author  : J. North        
  6. * Version : (AT contest)
  7. * Date    : 10/15/86
  8. *----------------------------------------------------------------------
  9. *
  10. call curson
  11. clear
  12. @  1,  1  to  5, 79    double
  13. @  3,  2  to  3, 78  
  14. @  2,  3  say "Enter Query File Name >>           .QRY"
  15. @  4,  4  say "Choose from the existing files below, or enter a new name to create one."
  16. @  6,  0  say ""
  17. dir *.qry
  18. fn="        "
  19. clear gets
  20. do while .T.
  21.     @ 2,28 get fn picture "!!!!!!!!"
  22.     read 
  23.     if len(trim(fn))=0
  24.         call cursoff
  25.         return
  26.     endif
  27.     ffn=trim(fn)+".QRY"
  28.     if file(ffn)    
  29.         exit
  30.     endif    
  31.     @ 2, 43 say "<< Create new file? (Y/N)"
  32.     set console off
  33.     clear typeahead
  34.     wait "" to yn
  35.     set console on
  36.     if upper(yn) = "Y"
  37.         exit
  38.     endif
  39.     fn="        "
  40.     @ 2, 43 say "                         "
  41. enddo
  42. select 1
  43. use members
  44. clear
  45. modify query &fn
  46. call cursoff
  47. use
  48. return
  49.