?? 用戶管理程序.bak
字號:
**用戶管理程序
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 username=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 + -