【数据库应用基础】菜单设计及屏幕格式.pptVIP

第8讲 菜单设计及屏幕格式 学生管理系统程序 【例1】利用非格式输出命令设计菜单程序 开菜单—利用格式输出命令设计 【例2】 xz=space(1) Clear @ 7,20 say -----------主菜单--------- @ 8,18 say 1.数据输入 2.数据维护 @ 9,18 say 3.数据统计 4.报表打印 @ 10,18 say 5.数据查询 6.退回系统 @ 12,15 say 请选择功能号: get xz read 开菜单—利用文本输出命令设计 【例3】 clear set color to +w/rb text *** 主菜单 *** 1.数据输入 2.数据维护 3.数据统计 4.报表打印 5.数据查询 6.退回系统 endtext input 请选择功能号: to xz 开菜单—光带式菜单 【例】 clear @ 3,8,10,60 box @ 4,30 say 主菜单 @ 5,28 say repl(+,10) @ 6,18 prompt“1.数据输入” @ 6,38 prompt2.数据维护 @ 7,18 prompt“3.数据统计” @ 7,38 prompt4.报表打印 @ 8,18 prompt5.数据查询 @ 8,38 prompt6.退回系统 menu to xz 其他类型菜单 wait ‘请选择功能号 ：’ to xz inpu ‘ 请选择功能号 ：’ to xz acce “请选择功能号 ：” to xz do case case xz=1 do xg case xz=2 do cx …… endc 1、返回原选单 DO WHIL 条件 ENDD do whil .t. 选单显示 menu to xz if xz=6 exit endi 功能模块调用 endd 【例1】完善程序 SET TALK OFF DO WHILE .T. CLEAR @ 1, 16 PROMPT 1．输入 @ 2, 16 PROMPT 2．修改 @ 3, 16 PROMPT 3．打印 @ 4, 16 PROMPT “4．退出” ① DO CASE CASE xz=1 DO a1 输入 CASE xz=2 DO a2 修改 CASE xz=3 DO a3 打印 CASE xz=4 ② ENDCASE ENDDO 【例2】完善程序 SET TALK OFF DO WHILE .T. @ 4, 12 SAY 系统主菜单 @ 5, 10 SAY 1. 数据录入 @ 6, 10 SAY 2. 数据查询 @ 7, 10 SAY 0. 退出系统 ____________ @ 10, 5 SAY 请输入选择号：(0-2) GET choice READ DO CASE CASE choice=1 DO sjlr CASE choice=2 DO sjcx CASE choice=0 EXIT ENDCASE ENDDO SET TALK ON 【例3】程序改错 SET TALK OFF DO WHILE .T. TEXT 系统主菜单 1 数 据 录 入 2 数 据 查 询 0 退 出 系 统 ENDTEXT ACCEPT 请输入选择号：(0-2) TO k DO CASE CASE k=1 DO sjlr CASE k=2 DO sjcx CASE k=3 D