回 帖 发 新 帖 刷新版面

主题:帮帮忙啊!!

[em18]
不好意思,已经发过帖子了,可是大家都看不懂,就厚脸皮再发一次了。
我们在做一个成绩查询系统,可是弄的用户修改密码表单老是不管用,写的代码老出错,不知道该怎么弄,帮帮忙哈!!
ymm=1
xmm1=allt(thisform.container1.text3.value)
xmm2=allt(thisform.container1.text4.value)


if found()
  if xmm1==xmm2
     messagebox("你的密码将被修改,请注意保存新的密码!!!",0+64+0,"提示信息")
     repl 密码 with xmm1
     else
     messagebox("原密码不正确或新密码不一致!!!!"+chr(13)+"你的密码修改不成功,继续使用原密码!!",0+64+0,"提示信息")
     endif
  else 
     messagebox("你输入或选择的用户名不存在",0+64+0,"提示信息")
  endif
看看哪不对?该怎么做?

回复列表 (共5个回复)

沙发

把这个表单附上

板凳

你的程序,
xmm1=allt(thisform.container1.text3.value)
xmm2=allt(thisform.container1.text4.value)

*这里是不是应该有一个查找的语句呢!!
*如:
sele user
loca for allt(姓名) == allt(thisform.container1.text1.value )

if found()
  if xmm1==xmm2
........

剩下的应该没什么问题

3 楼

ymm=1
xmm1=allt(thisform.container1.text3.value)
xmm2=allt(thisform.container1.text4.value)

LOCATE FOR TRIM(输入的用户名)==TRIM(用户名字段)
IF FOUND()
  if xmm1==xmm2
     messagebox("你的密码将被修改,请注意保存新的密码!!!",0+64+0,"提示信息")
     repl 密码 with xmm1
  ELSE 
     messagebox("两次输入的原密码不一致!!!!"+chr(13)+"你的密码修改不成功,继续使用原密码!!",0+64+0,"提示信息")
  ENDIF
ELSE   
     messagebox("你输入或选择的用户名不存在",0+64+0,"提示信息")
ENDIF

4 楼


是不是还要建一张只有用户名和密码的表?

5 楼

当然要建一个存有,用户名和密码的表!

我来回复

您尚未登录,请登录后再回复。点此登录或注册