delphi高手进来修改一下

Question

当我运行时输入用户名和密码时总是出现密码不正确，各位高手帮我指出错误之处   不要帮我全都改掉  谢谢了procedure TForm1.Btn_loginClick(Sender: TObject);
begin
try
  adoconnection1.open;               
  adoquery1.close;
  adoquery1.Parameters.ParamByName('id').Value:=edit_user.Text; 
  adoquery1.Open;                                   
  Except
  Application.MessageBox('请与系统管理员联系。','数据库连接错误！',mb_ok);
  Application.Terminate;                       
  end;
if adoquery1.Fields[0].value=null then
begin
Application.MessageBox('请确认用户名是否正确！','用户名错误！',mb_ok);
exit;
end;
if adoquery1.Fields[0].value=edit_passwd.Text then
begin
if  adoquery1.Fields[1].value='2' then
begin
form_student.show;
end
else
Application.MessageBox('请选择合适的登录软件！','用户权限错误！',mb_ok);
end
else
Application.MessageBox('密码不正确，注意大小写！','密码错误！',mb_ok);
end ;procedure TForm1.btn_cancelClick(Sender: TObject);
begin
close;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
edit_user.Text:='';
edit_passwd.Text:='';
end;end.其中sql语句为：select passwd, authority from user  where id=:id
数据库中的user表是
id char(6)
passwd  char(15)
authority  char(1)

Answer 1

  字段passwd  char(15)
     改为-->varchar(15)
 或者
if adoquery1.Fields[0].value=edit_passwd.Text then 
   改为:if Trim(adoquery1.Fields[0].value)=Trim(edit_passwd.Text) then 惹要区别密码大小写,则改成:
   if Comparestr(Trim(adoquery1.Fields[0].value),Trim(edit_passwd.Text)=0 then 试试...

Answer 2

支持kaikai__kk的意见,这个问题首要还是出在你的数据库中Password的类型上

Answer 3

我按一楼的方法都试过一遍了 
第一种方法还是出现密码不正确；
第二种方法出现了list out of bound 的错误
三楼的设置断点跟踪怎么运用， 我不会啊  请各位高手再来帮帮忙吧！    我急用啊！ 谢谢了

Answer 4

问题好像是出在SQL语句上，主要是差一对单引号。select passwd, authority from user  where id=:id 
改成
select passwd, authority from user where rtrim(id) = rtrim(':id')

Answer 5

记忆中遇过同样的问题,记得当时是这样改的:
将select passwd, authority from user  where id=:id 
改为:select passwd, authority from user  where id=:i_d另:
adoquery1.Parameters.ParamByName('id').Value:=edit_user.Text; 
改为:
adoquery1.Parameters.ParamByName('i_d').Value:=edit_user.Text; 

Answer 6

我按照8楼的大哥改了一下   出现了 list out of bound(2)  

Answer 7

select passwd,authority from [user] where [id]=:i_d

Answer 8

问题好像是出在SQL语句上，主要是差一对单引号。 select passwd, authority from user  where id=:id  
改成 
select passwd, authority from user where rtrim(id) = rtrim(':id') 

Answer 9

其实是SQL关键字的问题,USER及id是SQL的关键字,将这句
select passwd, authority from user  where id
复到SQL查询分析器中就知道了

Answer 10

还有把你的edit.text前面都加上trim吧