字符串比较
用校验口令检验某用户输入密码是否正确，我用了两个文本框，第一个输入密码，第二个作为校验口令，但这两个字符串怎么比较呢？应该有这方面的函数吧？有哪位大侠知道，可以指点一下？不胜感激！ 问题点数：20、回复次数：17Top
1 楼zhuzhichao（竹之草）回复于 2001-08-29 15:17:30 得分 2
Trim(str1)=Trim(str2) --true or false ?Top
2 楼chen927（Deadwood）回复于 2001-08-29 15:48:33 得分 2
为什么要比较两个字符串呢????
用 select count(*) into :li_count from t_user where name=sle_1.text and pass=sle_2.text ;
if li_count>0 then
//打开程序
else
messagebox()
halt;
end if Top
3 楼vetica（丢了）回复于 2001-08-29 16:05:12 得分 16
2 chen927(朽木):hehe~
你这是判断用户的口令和密码输对了没有~
zfsusu应该是要确认用户输入的密码的~就象你在csdn注册时候应该让你输了两遍密码吧~两次要一致才能确认呀~~~
西西~~俺纯粹是来凑热闹的。。。。。。。
Top
4 楼chen927（Deadwood）回复于 2001-08-29 16:33:47 得分 0
to :vetica(丢了)hehe!:)对头!那也可以不用什么函数塞, if sle_1.text=sle_2.text then
....
else
....
end if
Top
5 楼vetica（丢了）回复于 2001-08-29 16:36:17 得分 0
呵呵~~是可以不用啊~~反正trim只是为了去掉字符串两头的空格的（如果有必要的话）Top
6 楼zfsusu（波斯猫）回复于 2001-08-30 08:43:28 得分 0
那到底怎么个解法呢？说得具体些，可以么？还有个问题，就是“非法操作”，在LIBRARY中删除窗口对象或者数据窗口对象，我在PB60/65时，可以右击然后选中删除命令，但在PB70里却是非法操作！是不是不按规范做就是“非法”？Top
7 楼vetica（丢了）回复于 2001-08-30 09:12:09 得分 0
啊？这个这个~~还要再详细呀~~:
if sle_pwd1.text<>sle_pwd2.text then
messagebox('错误','两次输入的密码不一致！请重新输入！')
return
end if
至于非法操作这个pb7出现非法操作的频率太高了........呵呵~Top
8 楼zfsusu（波斯猫）回复于 2001-08-30 10:08:49 得分 0
to vetica
我明白了，等会儿去试一试。不过我还有个问题，就是有选择的打印问题，我是这样考虑的，先检索出需要打印的型号，再打印，但问题是，有可能输入的型号是错误的，怎么判断呢？用SQLNROWS 么？我用 了不行。Top
9 楼dahaidao（dahaidao）回复于 2001-08-30 10:22:52 得分 0
型号是错误的，那么就不能得到应该得到的数据，这个是很正常的啊。再重新输入不是完了么！Top
10 楼vetica（丢了）回复于 2001-08-30 10:32:04 得分 0
如果只是检索的话~比如用select 语句~
那么如果要判断是否有符合where条件的记录的话要判断sqlcode的值
if sqlca.sqlcode=100 then //如果没有符合条件的记录则
......
end ifTop
11 楼vetica（丢了）回复于 2001-08-30 10:34:11 得分 0
sqlca.sqlnrows是检查诸如delete,update~这些sql语句是否找到符合条件的行~
因为这些语句即使没有找到符合要求的行sqlcode的返值仍为0，和select是不同的Top
12 楼zfsusu（波斯猫）回复于 2001-08-30 13:50:43 得分 0
非常感激大家的解答，我现在明白了许多，等我解决了问题再给分。Top
13 楼zfsusu（波斯猫）回复于 2001-08-30 14:04:38 得分 0
这好象不行，不知道怎么回事？我用了RETRIEVE 函数后，在用SQLCA。SQLCODE 的值判断的，若为100，则提示“没找到”，我输入一个不存在的型号后，它什么也没提示。那该什么写代码呢？望各位多多指教Top
14 楼vetica（丢了）回复于 2001-08-30 14:26:00 得分 0
啊？你用retrieve啊
那你直接判断数据窗口有没有检索出数据就行了
if dw_1.rowcount()=0 then
messagebox('提示','没找到符合条件的记录！')
end ifTop
15 楼zfsusu（波斯猫）回复于 2001-08-30 14:32:05 得分 0
to vetica
let me try on .thank you very much.Top
16 楼zfsusu（波斯猫）回复于 2001-08-30 14:37:27 得分 0
哈哈，行了，嘿，网上高手真是厉害！佩服佩服！来，来，领分，虽然分不多，请以后多多关照！Top
17 楼vetica（丢了）回复于 2001-08-30 14:39:20 得分 0
倒~~dd是你看书太少了..............Top
