?? 程序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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -