| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 766 人关注过本帖
标题:谁能把我的程序错误说的更清楚一点!!!
取消只看楼主 加入收藏
spring
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2005-6-4
收藏
 问题点数:0 回复次数:0 
谁能把我的程序错误说的更清楚一点!!!
clos all
use database_1.dbc
use longin_1
if len(alltrim(thisform.edit1.text))=0         &&删除字符串前后的空格  len字符串长度函数
 messagebox('用户名不能为空。',64,'提示')
  thisform.edit1.Setfocus                      &&获得焦点
  return
  else
select longin_1
locate for alltrim( 用户名)==alltrim(thisform.edit1.text)
if found()
if alltrim(密码)==alltrim(thisform.edit2.text)
   messagebox("欢迎使用本系统!",48)
   thisform.release
   do maimmenu.mpr
  else
  messagebox("你不是本系统的合法用户!禁止进入本系统!",48)
  quit
  endif
  ELSE
 MESSAGEBOX('没有此用户!')
 thisform.edit1.Setfocus   
  endif
        endif
这段程序运行的时候无论你输入的对还是不对,都可以进入系统。

大家无论如何也要帮帮我,我己经搞了几天了一个小程序也搞不好。
搜索更多相关主题的帖子: 程序错误 
2005-06-28 15:47
快速回复:谁能把我的程序错误说的更清楚一点!!!
数据加载中...
 
   



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

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