谢谢楼上的两位老师，用了上面的方法，这个问题就解决了！！！！
但是现在还存在一个问题，我在表单中的“删除”按钮只能进行逻辑上的删除而不能进行物理删除，数据表中的记录还在，老师能告诉我要加入啥语句吗？

老师：

    照你说的做了，但是运行的时候出现了如图所示的错误，还望老师不吝赐教！

我使用的是表单向导生成的“删除”按钮，加了你给的语句之后运行时出现了如下的错误提示：

locate for 记录="???"

error:         12

找不到   变量 "记录"

method: cmddelete.click

line               5

      请老师不吝再赐教！

谢谢楼上老师们的赐教，我用了下面程序真的实现了物理上的删除
NODEFAULT
SET DELETE ON
USE 密码表  EXCLUSIVE
LOCATE FOR 帐户=thisform.txt帐户.value
DELETE
PACK
USE 密码表 SHARE
但是运行了之后，那个表单就一片空白了，下次进去的话就好了，请问咋解决这个问题？

用下面的程序也能实现物理删除但是出现的问题和上面的一样，还是表单上的表变成了一片空白
SET EXCLUSIVE ON
USE 密码表.DBF EXCLUSIVE
LOCATE FOR 帐户=thisform.txt帐户.value
DELETE
PACK
SET EXCLUSIVE OFF