| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 768 人关注过本帖
标题:谁能把我的程序错误说的更清楚一点!!!
只看楼主 加入收藏
spring
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2005-6-4
收藏
 问题点数:0 回复次数:4 
谁能把我的程序错误说的更清楚一点!!!
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
Tailor
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2005-6-26
收藏
得分:0 
打开数据库不是用USE 是用OPEN DATA呀。再看一下你的逻辑上有没有错误

2005-06-28 17:52
tzhtang
Rank: 1
等 级:新手上路
帖 子:888
专家分:0
注 册:2004-8-30
收藏
得分:0 
locate的结果不是用found()来判断的.

2005-07-11 18:07
tzhtang
Rank: 1
等 级:新手上路
帖 子:888
专家分:0
注 册:2004-8-30
收藏
得分:0 
locate         eof()是到文件尾
seek           found()是否找到!

2005-07-11 18:08
jhcwk
Rank: 1
等 级:新手上路
帖 子:17
专家分:5
注 册:2010-2-22
收藏
得分: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



查看红色字体部分
2010-03-18 08:57
快速回复:谁能把我的程序错误说的更清楚一点!!!
数据加载中...
 
   



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

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