📄 图书管理程序.prg
字号:
**图书管理程序
set talk off
clear
use 图书信息表
@ 10,15 say "1,--------查询图书"
@ 11,15 say "2.--------增加图书"
@ 12,15 say "3.--------删除图书"
@ 13,15 say "4.--------修改图书"
@ 14,15 say "5.--------返回上一目录"
accept "请输入选择的菜单项(1,2,3,4或5)"to s
do case
case s="1"
accept "请输入图书的名"to ming
list for bookname=ming
case s="2"
append
case s="3"
accept "请输入要删除的图书的名" to ming
dele all for username=ming
accept "确实要删除该图书的记录吗?(Y/N):" to yn
if yn="Y"
pack
endif
case s="4"
browse
case s="5"
do 程序1.prg
**调用 程序1.prg
otherwise
wait "请选择输入错误,按任意键退出"
endcase
return
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -