实例14 创建一个代码型菜单.prg

VFP编程118例1.rar 是学习VFP编程好例子

note 代码输入型菜单
*set proce to 文本菜单
n=0
do while .t.
clea
text
----------------------------------------
: 图书借阅系统:
: :
: 1. 增加记录:
: 2. 查询借书情况:
: 3. 修改记录:
: 4. 删除记录:
: :
----------------------------------------
endtext
@ 12，20 say "请选择代码(1-4):" GET N pict "9" range 0，4
read
if n=0
exit
endif
spr="ts"+str(n，1)
do &sor
enddo
@ 14，20 say "再见！"
cancel