| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1327 人关注过本帖
标题:菜鸟请教:vf软件登录问题
只看楼主 加入收藏
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:2 
很可能是您的代码有问题。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2023-02-14 08:47
tbk_lcy
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2022-12-30
收藏
得分:0 
回复 11楼 hu9jj
cn=0
sele 12
use kl
index on dh to kl
set index to kl
pdh=alltrim(thisform.text2.value)
set order to dh
seek pdh
if alltrim(dh)!=pdh
   cn=cn+1
   w=messagebox('密码错误,请重新输入!',4+32,'信息')
   do case
      case w=6
        thisform.text2.value=''
        thisform.text2.setfocus
      case w=7
        messagebox('慎重考虑,三次退出!',4+32,'警告')
        thisform.release
    endcase
    if cn=3
      thisform.release
      quit
    endif
else
    rank=yhm
    rank1=cc
    thisform.timer2.enabled=.t.
 do case
........

以上是登录代码的一部分

[此贴子已经被作者于2023-2-14 09:56编辑过]

2023-02-14 09:54
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:2 
cn=0 放在此处就是错误的

坚守VFP最后的阵地
2023-02-14 10:05
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
在启动程序中是否设置了系统输入法为全角字符?
或者是系统选择的字符集不一致?

[此贴子已经被作者于2023-2-14 16:32编辑过]


活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2023-02-14 10:43
快速回复:菜鸟请教:vf软件登录问题
数据加载中...
 
   



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

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