关於VFP程序设计

来源:百度知道 编辑:UC知道 时间:2024/05/08 08:12:36
clear
?"删除记录操作"
?"1.员工信息 2.销售日记 3.返回"
do while .t.
input "请输入当前要删除的数据表编号:" to bh

do case
case bh=1
input"请输入删除触发器密码:" to a
select 1
input "要删除的员工姓名:" to xm
locate for 姓名=xm
if found()
delete
pack
else
?"查无此人"
endif

case bh=2
input"请输入删除触发器密码:" to a
select 2
input "要删除的记录号:" to jlh
if jlh>1 and jlh<13
go jlh
delete
pack
else
?"被删除记录号超界,不能执行删除!"
endif

case bh=3
wait "返回主功能菜单" windows at 30,40
return to 沈志豪main
endcase
enddo
return

麻烦大家看看 这个程序这样子写哪里有错?? 在第一个case那,我

员工姓名那,你输入字符内容要用accept

accept "要删除的员工姓名:" to xm

或者如果用input输入,输入的姓名要用引号(“”)引起来也可以

请确认
1、打开数据库
use XXXX excl
2、查看数据库中有无姓名字段

打开表````use mm