****管理員系統程序
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