关于VFP的问题 高分悬赏~~

来源：百度知道 编辑：UC知道 时间：2024/06/01 01:24:04
1-5、查询子程序（姓名+loca.prg）
---------
清屏幕
显示：“查询表记录操作”
显示查询选项菜单“1按姓名查询员工信息 2按商品分类查询销售日记 3按姓名分类查询销售日记 4返回”
输入要查询编号
Do case
Case 查询编号=1
选择”员工信息”打开的工作1区
输入被查询的员工姓名
查找
if若找到
显示个人信息
else没找到
信息报告“查无此人”
endif
Case 查询编号=2
选择” 销售日记”打开的工作2区
输入被查询的商品名称
查找
if 找到
筛选显示指定的商品清单
Else没找到
信息报告“查无此类商品！”
endif
Case 查询编号=3
输入被查询的员工姓名
查找
if 找到
SQL筛选显示指定姓名销售的商品清单
Else没找到
信息报告“查无此人！”
endif
Case 查询编号=4
Wait “返回主功能菜单” to windows at 30,40
返回
endcase
return

==========

1-6、统计子程序（姓名+SQL.prg）
---------
清屏幕
显示：“统计操作”
显示统计选项菜单“1按姓名分类统计销售金额 2按商品分类统计销售金额 3按月份统计商品分类销售金额 4返回”
输入要统计编号
Do case
Case

* 你原来的注释看着眼花，我给去掉了，你自己对应吧
* 有些地方可以用多种方法实现，因为不知道他要求用什么方式，所以就用其中一种了。
* 还有一些字段和表的名称不确定，你自己确定

clear
?'查询表记录操作'
?'1按姓名查询员工信息 2按商品分类查询销售日记 3按姓名分类查询销售日记 4返回'
input '输入要查询编号:' to cxbh
Do case
Case cxbh=1
select 1 && 前提【员工信息】表在1区已经打开
accept'输入被查询的员工姓名：' to mxm
locate for allt(员工姓名)==allt(m.mxm)
if found()
display
else
?'查无此人'
endif
Case cxbh=2
select 2 && 前提【销售日记】表在2区已经打开
accept'输入被查询的商品名称：' to mmc
locate for allt(商品名称)==allt(m.mmc)
if found()
browse for allt(商品名称)==allt(m.mmc)
*或者：list for allt(商品名称)==allt(m.mmc)
*或者：set filter to allt(商品名称)==allt(m.mmc) / list(或browse)
else
?'查无此类商品！'
endif
Case cxbh=3
* 在sql之前要locate，从前面语句来看，所以这里应该+sele 1
acc