set exact on
if alltrim()="" or alltrim(thisform.text2.value)=""
    MESSAGEBOX("用户名或者密码不能为空",46+2,"验证失败")
else
   thisform.n=thisform.n+1
   locate for alltrim(用户名) == alltrim()
   if alltrim(密码)==alltrim(thisform.text2.value)   
      m.用户名 =用户名
      MESSAGEBOX("成功登陆,欢迎使用此系统",46+2,"登陆成功")
      do form 查询系统.scx
      thisform.release
  else
     if thisform.n<3
        MESSAGEBOX("密码错误,请重新输入",46+2,"错误")  
        thisform.text2.value=""
        thisform.text2.setfocus()
     else
        MESSAGEBOX("密码错误三次,系统无法启动",46+2,"不要侵入我的系统")
        thisform.release
        clear events
        quit
     endif
  endif
endif

locate for alltrim(用户名) == alltrim(thisform.combo1.value) if alltrim(密码)==alltrim(thisform.text2.value) 在这两行之间加一文件尾的判断: if eof() return endif 另外你的密码库在哪里,是不是有空记录.

畅想2008 2005-4-28 11:22:09

set exact on
if alltrim(thisform.combo1.value)="" or alltrim(thisform.text2.value)=""
    MESSAGEBOX("用户名或者密码不能为空",46+2,"验证失败")
你应该在这里加入：　retu
endif


else
   thisform.n=thisform.n+1
   locate for alltrim(用户名) == alltrim(thisform.combo1.value)
   if alltrim(密码)==alltrim(thisform.text2.value)   
      m.用户名 =用户名
      MESSAGEBOX("成功登陆,欢迎使用此系统",46+2,"登陆成功")
      do form 查询系统.scx
      thisform.release
  else
     if thisform.n<3
        MESSAGEBOX("密码错误,请重新输入",46+2,"错误")  
        thisform.text2.value=""
        thisform.text2.setfocus()
     else
        MESSAGEBOX("密码错误三次,系统无法启动",46+2,"不要侵入我的系统") 
        thisform.release
        clear events
        quit
     endif
  endif
endif

use c:\政工科\yonghu.dbf
loca for 用户代码=allt(thisform.text1.value)
if found()
  *****************解密
tempstr=''
password=thisform.text3.value
for i=1 to len(trim(password))
   tempchr=bitxor(asc(subs(password,i,1)),123)
   tempstr=tempstr+chr(tempchr)
endfor
***************
set exac on
 if yonghu.密码=tempstr
   
   
   
 else
   *******************允许登陆3次
   thisform.Tag=STR(VAL(thisform.tag)+1,1)
     IF VAL(thisform.tag)>=3
       =MESSAGEBOX("<<对不起，您不能登陆本系统，请与系统管理员联系！>>",0,"出错啦")
       thisform.Release
       quit
     endif
   ****************允许登陆3次
   aa=messagebox("对不起，您输入的密码不能通过验证，重新输入吗？",4+16+0,"登陆失败")  
   if aa=6
     thisform.text1.setfocus
     thisform.text3.value=''
*****************
      
   else
     thisform.release
     quit
   endif
 endif
 else
 messagebox("库中暂时没有此用户！",64,"登陆失败")
 quit
 endi
 set exac off

额.....
楼上的朋友可不可以解释一下"********************"是什么意思?
学艺不精,看不懂!请教!

以*号开始的行是注释行，多个*号一般用来为源程序代码分段，阅读起来更直观些。

呵呵!直接给你个程序了哦!

select 用户表
set exact on
if empty(thisform.combo1.value) or empty(thisform.text2.value)
MESSAGEBOX("用户名或者密码不能为空",46+2,"验证失败")
else
thisform.n=thisform.n+1
locate for alltrim(用户名) == alltrim(thisform.combo1.value) and alltrim(密码)==alltrim(thisform.text2.value)
if found()
m.用户名 =用户名
MESSAGEBOX("成功登陆,欢迎使用此系统",46+2,"登陆成功")
do form 查询系统.scx
thisform.release
else
if thisform.n<3
MESSAGEBOX("密码错误,请重新输入",46+2,"错误")
thisform.text2.value=""
thisform.text2.setfocus()
else
MESSAGEBOX("密码错误三次,系统无法启动",46+2,"不要侵入我的系统")
thisform.release
clear events
quit
endif
endif
endif

vfp的第1531个语法问题：
You have attempted to use the ALTER TABLE command where the result would render an existing index or filter expression invalid, even if it not explicitly modified by the ALTER TABLE command.
这是我在做公共模块时碰到的问题，如何解决呢！

set exact on
pcname=thisform.combo1.displayvalue
pcpwd=thisform.text1.value
dimension s(8)
for i=1 to 8 step 1
s(i)=""
endfor
select * from 表1;
where 表1.cusername==pcname.and.表1.cpassword==pcpwd into array s
if s(1)=""
messagebox('非法用户登陆',48,'登陆错误')
thisform.text1.value=""
thisform.text1.setfocus
thisform.refresh
else
thisform.release
do form f:\李\shanshuo1.scx

endif

我这个可以执行的啊
是我好不容易才改正确的啊 ！！！！！！！！！！！！