| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 487 人关注过本帖
标题:关于 找不到别名的问题 求解答 非常感谢
取消只看楼主 加入收藏
钟西西
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2013-5-27
结帖率:83.33%
收藏
已结贴  问题点数:5 回复次数:0 
关于 找不到别名的问题 求解答 非常感谢
我在command1中的click输入


if empty(thisform.text1.value) or empty(thisform.text2.value)
    messagebox("输入的信息不完整,请重新输入!",48,"警告")
    inpswd1=inpswd1+1
    if inpswd1>=3
        messagebox("请不要乱来!!",64,"警告")
        thisform.release
    else
        thisform.text1.value=""
        thisform.text2.value=""
        thisform.text1.setfocus
    endif
else
    sele 口令
    locate for 用户名=alltrim(thisform.text1.value)
    if 密码=alltrim(thisform.text2.value)
        thisform.release
        do case
        case mm=3
            do form 数据输入维护选择表
        case mm=4
            do form 删除界面
        endcase
    else
        messagebox("输入的信息有误,请重新输入!",64,"警告")
        inpswd1=inpswd1+1
        if inpswd1>=3
            messagebox("请不要乱来!!",64,"警告")
            thisform.release
        else
            thisform.text1.value=""
            thisform.text2.value=""
            thisform.text1.setfocus
        endif
    endif
endif

command2是退出 click是  thisform.release

口令 是我的一个表,  数据删除维护选择表 和 删除界面 是我做的表单

可是我一运行  它就报错 说 找不到别名 口令

我把口令 改成 kouling 还是不行   ,求解答  

 
搜索更多相关主题的帖子: 用户名 密码 信息 
2013-06-30 08:08
快速回复:关于 找不到别名的问题 求解答 非常感谢
数据加载中...
 
   



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

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