正在做期末作业的表单集

表单 修改密码
TEXT1 填 输入的新密码
TEXT2 填 确认所输入的密码

COMMAND1 是确认
代码全文:If thisform.text2.value!="" .and.thisform.text1.value=thisform.text2.value
  passw=upper(alltrim(thisform.text2.value))
  messagebox("密码修改成功！",0+64+0,"设置密码")
  use passw.dbf
  append blank
  replace password with passw
  replace changedate with date()
  use
  thisformset.release
else
   messagebox("密码有错，请重新输入！",0+16+0,"输入密码")
   thisform.refresh
   endif

果然如 啸凡 所说的，前两行代码应该是一行的。我修改后就没出现表单缺少操作数了。
新的问题就是运行的时候，它说 找不到 变量 passw 。

[ 本帖最后由 讨厌字符 于 2010-6-22 08:16 编辑 ]

上面的代码并不缺少操作数啊。

但这段代码问题很多：
一、If thisform.text2.value!="" .and.thisform.text1.value=thisform.text2.value 应该是整体一句，如果您在COMMAND1的Click事件中是分两行，且未用分号连接，就会出问题。
二、变量名称passw与保存密码的表passw.dbf同名，很容易引起混乱
三、use passw.dbf只是打开了表，并未把新密码存入表中
四、If 应该与Endif相匹配使用。

楼主的代码肯定不止这几句，出错的代码也许没有贴出来。

谢谢回帖的几位~
啸凡提出来的几点我只会改第一个。第二个第三个自己不知道怎么解决。第四个应该是代码没有贴完。我刚刚编辑帖子把它补充完了。

If thisform.text2.value!="" .and.thisform.text1.value=thisform.text2.value
  passwz=upper(alltrim(thisform.text2.value))
  use passw.dbf
  zap          &&防止用户多次修改就会保存多个密码。如果是多用户，就不能用zap。
  append blank
  replace password with passwz
  replace changedate with date()
  messagebox("密码修改成功！",0+64+0,"设置密码")
  use
  thisformset.release
else
   messagebox("密码有错，请重新输入！",0+16+0,"输入密码")
   thisform.refresh
endif


[ 本帖最后由 qjbzjp 于 2010-6-22 09:11 编辑 ]

command1.click 稍加改动，你看可以吗？(不用表单集)
  mm1=alltrim(thisform.text1.value)
  mm2=alltrim(thisform.text2.value)
 if mm1==mm2 and len(mm1)>0 and len(mm2)>0
  use passw excl
  zap
  append blank
  replace password with mm2,changedate with date()
  messagebox("密码修改成功！",0+64+0,"设置密码")
else
   messagebox("密码有错，请重新输入！",0+16+0,"输入密码")
   thisform.text1.setfocus
   return
endif
thisform.release
clear event


[ 本帖最后由 qingfameng 于 2010-6-22 12:25 编辑 ]

(1)我觉得应该有输入账号、旧密码的功能，分别放入文本框text3和text4
(2)在表单的Init事件中打开表，并做一些设置
close all
if file('passw.dbf')
  use passw.dbf
else
  create table passw (id c(12),password c(12),changedate d)  &&不一定是这些字段名和宽度
endif
thisform.text1.value=''
thisform.text2.value=''
thisform.text3.value=''
thisform.text4.value=''
thisform.text1.inputmask=replicate('x',len(passw.password))
thisform.text2.inputmask=replicate('x',len(passw.password))
thisform.text3.inputmask=replicate('x',len(passw.id))
thisform.text4.inputmask=replicate('x',len(passw.password))
(3)确定命令按钮的click事件代码
locate all for id=thisform.text3.value and password=thisform.text4.value
if eof()
  messagebox('需要修改密码的账号不存在')
else
  if empty(thisform.text1.value)
    messagebox('请输入密码')
  else
    if thisform.text1.value==thisform.text2.value
      replace password with thisform.text1.value,changedate with date()
      messagebox("密码修改成功！",0+64+0,"设置密码")
    else
      messagebox("密码有错，请重新输入！",0+16+0,"输入密码")
    endif
  endif
endif
(4)退出命令按钮的click事件代码
thisform.release

在我的习惯上，如果只有一个密码（也就是只有一个用户），那么就不用表来保存，而用一个内存变量文件（.MEM文件）就可以了。当然了，条条大路通VFP，各施各法，只要能达到目的就好。