另一个问题
Application中的代码如下：
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=giginet'"//数据源为giginet
connect using sqlca;
open(w_denglu)
窗体w_denglu中代码为connect using sqlca;(这里还用不用写这条语句了？？)
w_denglu中有控件sle_1.text,sle_2.text,cb_1
数据库giginet中有一个名为denglu的表：
字段为user(主键),passwd
内容为 mxl 123456
giginet 123
然后我在cb_1的clicked事件中写如下的代码：
string aa
select passwd into :aa from denglu where user=:sle_1.text;
if sqlca.sqlcode=-1 then
messagebox("","")
elseif sqlca.sqlcode=100 then
messagebox("","没有用户"+sle_1.text)
else
if aa=sle_2.text then
open(w_main)
else
messagebox("提示","密码错误！")
end if
end if
然而，当我在sle_1.text中输入mxl时,总是说没有用户mxl,为什么？？
是我少写了哪些代码吗？急！！！！！！！！！！！！！
问题点数：20、回复次数：7Top
1 楼mxlmwl（飞星）回复于 2002-04-26 19:43:33 得分 0
都是char类型的。哥哥，我的QQ号是32498698,加为好友聊聊吧，我有好多不会的等着问您老人家哪！！！:-)Top
2 楼andyzq（小强）回复于 2002-04-27 00:19:10 得分 10
逻辑不是太好，建议改一下。
long ll_count
string ls_password
select count(user)
into :ll_count
from denglu
where user = :sle_1.text;
if ll_count = 0 then
messagebox('提示', “没有用户"+sle_1.text)
else
select passwd
into :ls_password
from denglu
where user = :sle_1.text;
if ls_password = sle_2.text then
open(w_main)
else
messagebox("提示","密码错误！")
end if
end if
Top
3 楼mr9（mr9）回复于 2002-04-27 01:17:58 得分 2
窗体w_denglu中代码为connect using sqlca;(这里不用写这条语句了!!)Top
4 楼Hanson_bati_zhu（欺世盗名之徒）回复于 2002-04-27 01:22:06 得分 3
试试
STRING ls_UserID
ls_UserID = Trim(sle_1.text)
select passwd into :aa from denglu where RTrim(user)=:sle_1.text;
Top
5 楼mr9（mr9）回复于 2002-04-27 01:30:46 得分 5
窗体w_denglu中代码为connect using sqlca;(这里不用写这条语句了!!)
另外，connect using sqlca;之后最好也加上 接受sqlca.sqlcode返回值的语句
而且sqlca.sqlerrtext也是很有用的参数。
至于找不到mxl,我可以很肯定的告诉你：你把sle_1和sle_2给搞混了，你把sle_1
当成sle_2了，或者是类似的问题，仔细检查一下吧。
编写代码要养成良好的习惯，这很重要
Top
6 楼njscorpio（潜水王）回复于 2002-04-27 08:58:33 得分 0
在你的另一个帖子中已经，把完整的代码贴给你了。嘻嘻，是一个1分的帖子Top
