在visual foxpro能够给用户自己修改秘密的程序代码

这应该属于表操作的基础吧，看下相关的内容就明白了，VFP9帮助文件中有示例。

什么密码？

先在表单上建两个text文本框
再在表单上建一个command命令按钮，并在命令按钮的click()中输入以下代码：

if !used('purview')    &&保存密码的数据表
 use purview in 0
endif
sele purview
go top

  if allt(thisform.text1.value) # allt(密码)
   = MESSAGEBOX("原密码不符！")
   thisform.text1.setfocus
   return
  endif
  if allt(thisform.text2.value) # allt(thisform.text3.value)
   = MESSAGEBOX("新密码两次输入不符！")
   thisform.text3.setfocus
   return
  endif
  
      repl 密码 with allt(thisform.text2.value)
      = MESSAGEBOX("修改成功！")

      thisform.release