问题描述

登录表单的click event 的代码问题

为什么登录表单的click event 代码用一下显示的无法登陆

inname=alltrim(thisform.text1.value)
inpswd=alltrim(thisform.text2.value)
set order to tms_user
seek inname
if !found()
    cMessageTitle='设备管理系统'
    cMessageText='用户名错误，请重新输入'
    nDialogType=4+32
    nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
   do case
       case nAnswer=6
          thisform.text1.value=''
          thisform.text1.setfocus
       case nAnswer=7
          messagebox("请勿偷窥他人资料",48,"警告")
          thisform.release
       endcase
else
        if tms_pswd!=inpswd
        cMessageTitle='设备管理系统'
        cMessageText='密码错误，请重新输入'
        nDialogType=4+32
        nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)
        do case
            case nAnswer=6
                if flag<2
                thisform.text2.value=''
                thisform.text2.setfocus
                flag=flag+1
                else
                messagebox("请勿偷窥他人资料",48,"警告")
                thisform.release
                endif
            case nAnswer=7
                messagebox("请勿偷窥他人资料",48,"警告")
                thisform.release
        endcase
        else
           thisform.release
           par1=inname
           do form salaryformgresult
        endif
 endif

解决方案

可以看看有啥错误没? 也可以在浏览器上面调试，IE用F12