**圖書(shū)管理程序
set talk off
clear
use 圖書(shū)信息表
@ 10,15 say "1,--------查詢(xún)圖書(shū)"
@ 11,15 say "2.--------增加圖書(shū)"
@ 12,15 say "3.--------刪除圖書(shū)"
@ 13,15 say "4.--------修改圖書(shū)"
@ 14,15 say "5.--------返回上一目錄"
accept "請(qǐng)輸入選擇的菜單項(xiàng)(1,2,3,4或5)"to s
do case
case s="1"
accept "請(qǐng)輸入圖書(shū)的名"to ming
list for bookname=ming
case s="2"
append
case s="3"
accept "請(qǐng)輸入要?jiǎng)h除的圖書(shū)的名" to ming
dele all for username=ming
accept "確實(shí)要?jiǎng)h除該圖書(shū)的記錄嗎?(Y/N):" to yn
if yn="Y"
pack
endif
case s="4"
browse 
case s="5"
do 程序1.prg
**調(diào)用 程序1.prg
otherwise 
wait "請(qǐng)選擇輸入錯(cuò)誤，按任意鍵退出"
endcase
return