在考生文件夹下有数据库“9c”,包括如下所示两个表文件:
stock(仓库编号C(4),地点C(8),面积N(4))
zgk(仓库编号C(4),职工编号c(4),工资N(4))
设计一个名为“CX”的菜单,菜单中有两个菜单项“统计”‘和“退出”。
程序运行时,单击“统计”菜单项应完成下列操作:检索出所有职工的工资都大于1100元(不包括1100元)的职工所管理的仓库信息,将结果保存在“cxj9”数据表文件中,该文件的结构和“stock”数据表文件的结构一致,并按面积升序排序。
单击“退出”菜单项,程序终止运行。
注意:相关数据表文件存在于考生文件夹下。
【操作步骤】
①选择【文件】一【新建】命令,选择“菜单”,单击“新建文件”按钮,再单击“菜单”按钮,打开菜单设计器,在“菜单名称”中输入“统计”,在“结果”下拉列表框中选择“过程”,单击下一行,在“菜单名称”中输入“退出”,在“结果”下拉列表框中选择“命令”,在右边的文本框中编写命令:SET SYSMENU TO DEFAULT。
②在菜单设计器中单击选定菜单名称下刚创建的“统计”行,单击“创建”按钮创建“统计”过程。输入以下代码:
SET TALK CIFF
SET SAFETY OFF
0PEN DATABASE gc.dbc
USE stock
SELECT stock.*INTO TABLE cxjg FROM stock,
zgk WHERE stock.仓库编号=zgk.仓库编号AND
zgk.工资>1100 0RDER BY面积
CL0SE ALL
SET SAFETY ON
SET TALK ON
③在“退出”菜单项的“命令”文本框中编写程序代码:SET SYSMENU TO DEFAULT。
④选择【菜单】→【生成】命令,将菜单保存为“CX”,生成一个菜单文件“CX.mpr”。关闭菜单设计窗口,在命令窗口输入命令:DO CX.mpr,看到Visual FoxPro的菜单栏被新建的菜单所代替,单击“退出”菜单命令将恢复系统菜单。