标题:这段代码。是验证登陆界面的。可是写入运行时不输密码也能登陆,哪里错了
只看楼主
clc82044520
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2011-9-1
结帖率:66.67%
已结贴  问题点数:10 回复次数:4 
这段代码。是验证登陆界面的。可是写入运行时不输密码也能登陆,哪里错了
sele 用户口令表  inname=alltrim(thisform.pageframe1.page1.text1.value) inpswd=alltrim(thisform.pageframe1.page1.text2.value) set order to 账号 seek inname if !found() cMessageTitle='设备管理系统' cMessageText='用户名错误,请重新输入' nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 thisform.pageframe1.page1.text1.value="" thisform.pageframe1.page1.text1.setfocus case nAnswer=7 messagebox("请勿偷窃他人资料",48,"警告") thisform.release endcase else if allt(密码)!=inpswd  cMessageTitle='设备管理系统' cMessageText='密码错误,请重新输入' nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 if flag<2 thisform.pageframe1.page1.text2.value="" thisform.pageframe1.page1.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 菜单2.mpr endif endif
搜索更多相关主题的帖子: 设备 管理系统 用户名 found order 
2011-09-07 21:18
scilent
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
帖 子:285
专家分:1399
注 册:2011-8-9
得分:3 
下次提问,请注意形式,请写成这样
sele 用户口令表  
inname=alltrim(thisform.pageframe1.page1.text1.value)
inpswd=alltrim(thisform.pageframe1.page1.text2.value)
set order to 账号
seek inname
if !found()
    cMessageTitle='设备管理系统'
    cMessageText='用户名错误,请重新输入'
    nDialogType=4+32
    nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
    do case
        case nAnswer=6
            thisform.pageframe1.page1.text1.value=""                  
    thisform.pageframe1.page1.text1.setfocus
        case nAnswer=7
            messagebox("请勿偷窃他人资料",48,"警告")
            thisform.release
    endcase
else   if allt(密码)!=inpswd  
    cMessageTitle='设备管理系统'
    cMessageText='密码错误,请重新输入'
    nDialogType=4+32
    nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)
    do case
        case nAnswer=6
            if flag<2
                thisform.pageframe1.page1.text2.value=""              
                thisform.pageframe1.page1.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 菜单2.mpr
    endif
endif

在没有路的地方走一条路,让别人有路可走
2011-09-08 09:28
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:3 
不输入密码,字符串为"",它与任何字符串=比较均为真。使用==比较吧。

授人以渔,不授人以鱼。
2011-09-08 10:55
scilent
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
帖 子:285
专家分:1399
注 册:2011-8-9
得分:0 
以下是引用scilent在2011-9-8 09:28:26的发言:

下次提问,请注意形式,请写成这样
sele 用户口令表  
inname=alltrim(thisform.pageframe1.page1.text1.value)
inpswd=alltrim(thisform.pageframe1.page1.text2.value)
set order to 账号
seek inname
if !found()
    cMessageTitle='设备管理系统'
    cMessageText='用户名错误,请重新输入'
    nDialogType=4+32
    nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
    do case
        case nAnswer=6
            thisform.pageframe1.page1.text1.value=""                  
    thisform.pageframe1.page1.text1.setfocus
        case nAnswer=7
            messagebox("请勿偷窃他人资料",48,"警告")
            thisform.release
    endcase
else   if allt(密码)!=inpswd  
    cMessageTitle='设备管理系统'
    cMessageText='密码错误,请重新输入'
    nDialogType=4+32
    nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)
    do case
        case nAnswer=6
            if flag<2
                thisform.pageframe1.page1.text2.value=""              
                thisform.pageframe1.page1.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 菜单2.mpr
    endif
endif
把这个
if allt(密码)!=inpswd  

改成
if empty(allt(密码)) or allt(密码)!=inpswd  
试试

在没有路的地方走一条路,让别人有路可走
2011-09-08 11:15
dapinetree
Rank: 2
等 级:论坛游民
帖 子:29
专家分:34
注 册:2011-9-11
得分:3 
同意二、三楼。
2011-09-11 15:08



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-349409-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.552003 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved