| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 507 人关注过本帖
标题:求助!如何才能检测用户名是否存在
只看楼主 加入收藏
lf8276858
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2011-8-20
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
求助!如何才能检测用户名是否存在
刚入门,菜鸟一个,请大家帮帮忙
一个新增用户名的表单,确定按钮的代码为

    select mmb    &&密码表
    if  len(allt(thisform.pageframe1.page1.text5.value))=0
        messagebox("请输入用户名!",0+48,"系统提示")
        thisform.pageframe1.page1.text5.setfocus
        return
     endif
  select mmb      
   append blank
   replace yhm with thisform.pageframe1.page1.text5.value   
   replace mm with thisform.pageframe1.page1.text6.value
   messagebox("添加用户成功",48,"系统信息")
   thisform.pageframe1.page1. text5.value=""
   thisform.pageframe1.page1. text6.value=""
   thisform.pageframe1.page1.text5.setfocus
   thisform.refresh
如何在append前可检测用户名是否存在
搜索更多相关主题的帖子: mmb 检测 blank replace 用户名 
2011-08-20 13:52
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:5 
以下是引用lf8276858在2011-8-20 13:52:28的发言:

刚入门,菜鸟一个,请大家帮帮忙
一个新增用户名的表单,确定按钮的代码为

    select mmb    &&密码表
    if  len(allt(thisform.pageframe1.page1.text5.value))=0
        messagebox("请输入用户名!",0+48,"系统提示")
        thisform.pageframe1.page1.text5.setfocus
        return
     endif
  select mmb      
   append blank
   replace yhm with thisform.pageframe1.page1.text5.value   
   replace mm with thisform.pageframe1.page1.text6.value
   messagebox("添加用户成功",48,"系统信息")
   thisform.pageframe1.page1. text5.value=""
   thisform.pageframe1.page1. text6.value=""
   thisform.pageframe1.page1.text5.setfocus
   thisform.refresh
如何在append前可检测用户名是否存在

    select mmb    &&密码表
    if  len(allt(thisform.pageframe1.page1.text5.value))=0
        messagebox("请输入用户名!",0+48,"系统提示")
        thisform.pageframe1.page1.text5.setfocus
        return
     endif
  select mmb
  loca for lowe(allt(yhm)) ==lowe(allt(thisform.pageframe1.page1.text5.value))
  if eof() .and.6=messageb("该用户名不存在, 是否添加?? ",4+48,"")
     append blank
     replace yhm with thisform.pageframe1.page1.text5.value   
     replace mm with thisform.pageframe1.page1.text6.value
     messagebox("添加用户成功",48,"系统信息")
  endif
   thisform.pageframe1.page1. text5.value=""
   thisform.pageframe1.page1. text6.value=""
   thisform.pageframe1.page1.text5.setfocus
   thisform.refresh
2011-08-20 14:46
lf8276858
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2011-8-20
收藏
得分:0 
不行呀,
运行完,相同的用户名还是可以添加,出错,YHM索引不是唯一
2011-08-20 15:12
scilent
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
帖 子:285
专家分:1399
注 册:2011-8-9
收藏
得分:15 
把这一段添替换红色部分试试
C_yhm=allt(thisform.pageframe1.page1.text5.value)
sele count(yhm) as n_yhm from mmb where yhm=C_yhm into cursor tmp_d
if n_yhm=0
sele mmb
     append blank
     replace yhm with thisform.pageframe1.page1.text5.value   
     replace mm with thisform.pageframe1.page1.text6.value
     messagebox("添加用户成功",48,"系统信息")
else
messagebox("用户已经存在",48,"系统信息")
endif

[ 本帖最后由 scilent 于 2011-8-20 15:35 编辑 ]

在没有路的地方走一条路,让别人有路可走
2011-08-20 15:29
lf8276858
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2011-8-20
收藏
得分:0 

可以了,谢谢
2011-08-20 16:19
快速回复:求助!如何才能检测用户名是否存在
数据加载中...
 
   



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

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