还没搞定啊?? 3楼和9楼都是正解~~~或者用下述代码~~~
loca for allt(用户名)==allt(thisform.text1.value).and.allt(密码)==allt(thisform.text2.value)
IF foun()
IF messagebox("你确定删除该记录吗?",4+64+256,"提示")=6
ls=recn()
copy to c:\ls for recn()<>ls
zap
appe from c:\ls
ENDIF
ELSE
=messagebox("此用户不存在或密码有误,请重新输入!",0+64,"警告;")
endif
go top
stor " " to thisform.text1.value, thisform.text2.value
thisform.grid1.columncount=1
thisform.refresh()
loca for allt(用户名)==allt(thisform.text1.value).and.allt(密码)==allt(thisform.text2.value)
IF foun()
IF messagebox("你确定删除该记录吗?",4+64+256,"提示")=6
ls=recn()
copy to c:\ls for recn()<>ls
zap
appe from c:\ls
ENDIF
ELSE
=messagebox("此用户不存在或密码有误,请重新输入!",0+64,"警告;")
endif
go top
stor " " to thisform.text1.value, thisform.text2.value
thisform.grid1.columncount=1
thisform.refresh()