标题:谁能把我的程序错误说的更清楚一点!!!
取消只看楼主
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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-21744-1-1.html




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

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