程序1.prg

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

****管理员系统程序
set talk off
clear
do background
@ 15,30 say "1.---------------图书管理"
@ 16,30 say "2.---------------图书借还"
@ 17,30 say "3.---------------图书查询"
@ 18,30 say "4.---------------用户管理"
@ 19,30 say "5.---------------返回上一目录"
@ 20,30 say "6.---------------直接退出"
s=0
accept "请选择菜单选项（1,2,3,4,5或6）:"to s
do case 
 case s="1"
do 图书管理程序.prg
**调用 图书管理程序
 case s="2"
do 图书借还程序.prg
**调用 图书借还程序
 case s="3"
do 图书查询程序.prg
**调用 图书查询程序
 case s="4"
do 用户管理程序.prg
**调用 用户管理程序
 case s="5"
do 登陆界面.prg
**返回
 case s="6"
 return
 otherwise
 wait "请按任意键退出"
return 
 endcase
 return
 *****背景设计部分
procedure background
@ 1,10 to 1,100 double
@ 1,100 to 31,100 double
@ 31,10 to 31,100 double
@ 1,10 to 31,10 double
@ 12,15say "欢迎进入图书馆图书管理系统"color G/R size 1,31 font 'roman',27

 @ 20 ,60 say "爱恩国际学院软件工程03-7郭刚" color G/W font 'roman',10