**圖書查詢程序
set talk off
clear
use 圖書信息表
@ 10,40 say "1,--------按編號查詢" font"宋體",12 style 'B'COLOR G/R
@ 12,40 say "2,--------按書名查詢" font"宋體",12 style 'B'COLOR G/R
@ 14,40 say "3,------按出版社查詢" font"宋體",12 style 'B'COLOR G/R
@ 16,40 say "4.----按書名模糊查詢" font"宋體",12 style 'B'COLOR G/R
@ 18,40 say "5.------返回上一目錄" font"宋體",12 style 'B'COLOR G/R
accept "請輸入選擇的菜單項(1,2,3,4或5)"to s
do case
case s="1"
accept "請輸入書的編號:"to hao
list for bookccode=hao
wait "返回登陸界面"
do 登陸界面.prg
case s="2"
accept "請輸入書的名字:"to ming
list for bookname=ming
wait "返回登陸界面"
do 登陸界面.prg
case s="3"
accept "請輸入書的出版社" to she
list for bookpublis=she
wait "返回登陸界面"
do 登陸界面.prg
case s="4"
accept "請輸入模糊查詢到" to mingzi
locat for "mingzi" $ bookname
list
 wait "返回登陸界面"
do 登陸界面.prg
 case s="5"
do 程序1.prg
**調用 程序1. 
wait "返回登陸界面"
do 登陸界面.prg
otherwise 
wait "請選擇輸入錯誤，按任意鍵退出"
endcase
return