FOXBASE程序设计实习教1.doc免费

FOXBASE程序设计实习教案 第一章 FOXBASE＋程序屏幕菜单的设计技巧 【教学目的】通过本节的学习使同学们掌握FOXBASE＋系统下屏幕菜单的设计技巧，为今后学习程序设计奠定基础。 【教学重点】1、用“？”命令设计屏幕菜单 2、用TEXT…ENDTEXT命令设计屏幕菜单 3、用@…SAY命令设计屏幕菜单 4、用@…PROMPT命令设计屏幕菜单 5、生成弹出式菜单 6、生成下拉式菜单 7、组合菜单的设计技巧 【教学难点】1、用@…PROMPT命令设计屏幕菜单 2、生成弹出式菜单 3、生成下拉式菜单 4、组合菜单的设计技巧 【教学方法】讲解、实践相结合 【教学过程】 第一讲 用“？”命令设计屏幕菜单 程序1： SET TALK OFF DO WHILE ·T· CLEAR ？“ ＊＊＊学生成绩管理系统＊＊＊” ？ ？“ 1、数据录入 2、数据查询” ？“ 3、数据修改 4、数据删除” ？“ 5、统计汇总 6、报表打印” ？“ 0、退出系统” ？ WAIT“ 请选择（0－6）：” TO CH DO CASE CASE CH＝“1” DO P11 CASE CH＝“2” DO P12 ………… CASE CH＝“6” DO P16 CASE CH＝“0” EXIT ENDCASE ENDDO SET TALK ON RETURN ＊＊＊＊＊ 该目录中有子程序P11、P12、…、P16，以便于主菜单程序的调用。 此外，程序中的容错能力是由DO CASE命令来实现的，排除了用户非法的键入。 第二讲 用TEXT…ENDTEXT命令设计屏幕菜单 程序2： SET TALK OFF DO WHILE ·T· CLEAR TEXT ＊＊＊学生成绩管理系统＊＊＊” 1、数据录入 2、数据查询” 3、数据修改 4、数据删除” 5、统计汇总 6、报表打印” 0、退出系统” ENDTEXT WAIT“ 请选择（0－6）：” TO CH DO CASE CASE CH＝“1” DO P11 CASE CH＝“2” DO P12 ………… CASE CH＝“6” DO P16 CASE CH＝“0” EXIT ENDCASE ENDDO SET TALK ON RETURN ＊＊＊＊＊ 该目录中有子程序P11、P12、…、P16，以便于主菜单程序的调用。 此外，程序中的容错能力是由DO CASE命令来实现的，排除了用户非法的键入。 程序3： SET TALK OFF XT＝·F· DO WHILE ·NOT·XT CLEAR TEXT D 编辑文书文件 N 编辑非文书文件 P 打印文书文件 H 帮助信息 F 文件服务功能 X 退出 ENDTEXT WAIT “请选择功能项（D、N、P、H、F、X）” TO F DO CASE CASE UPPER（F）＝“D” DO P11 CASE UPPER（F）＝“N” DO P12 CASE UPPER（F）＝“P” …… CSAE UPPER（F）＝“X” XT＝·T· OTHERWISE ？“按键错误，按任意键继续” CAEAR ENDCASE ENDDO SET TALK ON RETURN 程序4： SET TALK OFF DO WHILE ·T· CLEAR TEXT 查询学籍管理库文件 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 1、输入学号查询 2、输入姓名查询 3、单项排序查询 4、条件选择查询 5、退出 ENDTEX K＝1 N＝“1” WS＝“XHXMPXTJ” WAIT “ 请选择（1－5）：” TO N N＝VAL（N） IF N＝5 EXIT ENDIF IF N＞＝1·AND·N＜＝4 XF＝SUBSTR（WS，N＊2－1，2） XG＝XF＋“CX” DO ＆XG ELSE @15，28 SAY“输入数据不符合要求，请重新输入！” ENDIF DO WHILE K＜100 K＝K＋1 ENDDO ENDDO SET TALK O