m程序设计 第8讲菜单设计及屏幕格式 FoxproForWindowshttp://cc.synu.edu.cn
FoxPro For Windows http://cc.synu.edu.cn 1 FoxPro程序设计 第8讲 菜单设计及屏幕格式
ah程序设计 学生管理系统程序 学生管理系统 主程序 子程序 数据录入 数据维护 数据查询 打印报表 子程序 按学号查询 按姓名查询 按组合条件查询 子程序 管理信息系统(MS):主控程序和功能模块(子程序)组成。 主控程序:由菜单程序完成。功能:控制程序流程。 FoxproForWindowshttp://cc.synu.edu.cn 2
FoxPro For Windows http://cc.synu.edu.cn 2 FoxPro程序设计 学生管理系统程序 数据录入 数据维护 按学号查询 按姓名查询 按组合条件查询 数据查询 打印报表 学生管理系统 主程序 子程序 子程序 子程序 管理信息系统（MIS) ：主控程序和功能模块（子程序）组成。 主控程序：由菜单程序完成。 功能：控制程序流程
【例1】利用非格式输出命令设计菜单程序 m程序设计 set talk off do whil.t clear ???? """ 米 菜单设计三步曲 开菜单 to xz 点菜选单) do case 上菜(模块调用) case xz=1 do sr case xz=2 do wh 主菜单 case xz=3 1.数据输入2.数据维护 3.数据统计4.报表打印 5.数据查询6.退回系统 请选择功能号 case xz=6 clear exit endc endd 简单、但不美观,如何在指定位置显示? set talk on retyproForWindowshttp://cc.synu.edu.cn 3
FoxPro For Windows http://cc.synu.edu.cn 3 【例1】利用非格式输出命令设计菜单程序 FoxPro程序设计 开菜单 点菜(选单) 上菜(模块调用) clear ? " ------- 主菜单 ------- " ? " 1.数据输入 2.数据维护" ? " 3.数据统计 4.报表打印" ? “ 5.数据查询 6.退出系统" wait " 请选择功能号:" to xz do case case xz="1" do sr case xz="2" do wh case xz="3" ……….. case xz="6" clear exit endc do whil .t. endd set talk off set talk on retu 菜单设计三步曲： 简单、但不美观，如何在指定位置显示？
开菜单一利用格式输出命令设计 m程序设计 例2】 =space(1) Clear set color to +w/rb -主菜单 6, 11 clear to 13, 60 数据输入 2.数据维护 @7,20say" 主菜单 se Record Progran Run Window Help @8,18say"1数据入2.数据维护" @9,18say"3 @10,18say"5 查询6退回系统 画12,15say"请选择功能号:" get XZ read 主菜单 1.数据 数据维护 数据统讠 报表打印 5.数据查询 请选择功能号 set colo to SET COLOR TO【标准<增强><边框Ⅲ retu 颜色对前景/景],w+/n*,+为高亮度(前景),*为闪烁(背景) color 黑蓝棕深蓝绿品红红白黄 Color code N B GR BG G RBR W GR+ 【例】 SET COLOR TO R+/GR,W+B*&&输出黄底红字,输入蓝底白字, FoxproForWindowshttp://cc.synu.edu.cn
FoxPro For Windows http://cc.synu.edu.cn 4 FoxPro程序设计 【例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 开菜单—利用格式输出命令设计 set color to +w/rb @ 6,11 clear to 13,60 set colo to retu SET COLOR TO [<标准>[,<增强>[,<边框>]]] • 颜色对[前景/背景]，w+/n*, +为高亮度（前景），*为闪烁（背景） color 黑 蓝 棕 深蓝 绿 品红 红 白 黄 Color code N B GR BG G RB R W GR+ 【例】 SET COLOR TO R+/GR,W+/B* &&输出黄底红字，输入蓝底白字
m程序设计 开菜单利用文本输出命令设计 【例3】 clear set color to +w/rb / Microsoft FoxPro text File Edit Database Record Program Run Text Window Help 主菜单* 2.数据维护 1.数据入2数据推护 3数据统计4报表打印 5数据查询6退回系统 5.数据查询6,退回系统 选择功能 endtext input"请选择功能号:"tox 小结:传统式菜单 a利用非格式输出命令? b利用格式输出命令@…SAY c.利用正文输出命令 FoxproForWindowshttp://cc.synu.edu.cn 5
FoxPro For Windows http://cc.synu.edu.cn 5 FoxPro程序设计 【例3】 clear set color to +w/rb text *** 主菜单 *** 1.数据输入 2.数据维护 3.数据统计 4.报表打印 5.数据查询 6.退回系统 endtext input " 请选择功能号:" to xz 小结： 传统式菜单 a.利用非格式输出命令？ b.利用格式输出命令 @……SAY c.利用正文输出命令 开菜单—利用文本输出命令设计