Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : MEMBER.ZIP
Filename : MDMODQRY.PRG

*----------------------------------------------------------------------
* Program : Membership Database Package
* File : MDMODQRY
* Function: Create/Modify Query Files
* Author : J. North
* Version : (AT contest)
* Date : 10/15/86
*----------------------------------------------------------------------
*
call curson
clear
@ 1, 1 to 5, 79 double
@ 3, 2 to 3, 78
@ 2, 3 say "Enter Query File Name >> .QRY"
@ 4, 4 say "Choose from the existing files below, or enter a new name to create one."
@ 6, 0 say ""
dir *.qry
fn=" "
clear gets
do while .T.
@ 2,28 get fn picture "!!!!!!!!"
read
if len(trim(fn))=0
call cursoff
return
endif
ffn=trim(fn)+".QRY"
if file(ffn)
exit
endif
@ 2, 43 say "<< Create new file? (Y/N)"
set console off
clear typeahead
wait "" to yn
set console on
if upper(yn) = "Y"
exit
endif
fn=" "
@ 2, 43 say " "
enddo
select 1
use members
clear
modify query &fn
call cursoff
use
return