图书查询程序.prg

学校图书管理系统！包括学校图书的购进 入库 等等记录和管理

**图书查询程序
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