菜鸟的问题——密码问题!

                            
我想用如下程序实现登陆密码,但是不成功,希望各位大侠给予指点,或给出其他的实现方法,小弟先谢谢了,一定给分的哦!   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
  s_user,s_pswd,sqlstr:string;  
  begin  
    s_user:=trim(edit1.Text);  
    s_pswd:=trim(edit2.Text);  
    query1.Close;  
    query1.SQL.Clear;  
    sqlstr:=inttostr(query1.SQL.Add('select   pswd   from   user   where   user=:s_user'));  
    query1.Open;  
    if   sqlstr=edit2.Text   then   showmessage('ok')  
    else   showmessage('error');  
  end;  
   
  end.

查看回复