密码登陆的问题

                            
with   datam.qrlogin   do   
      begin  
          close;  
          sql.Text   :=   'select   id,Username,password   from   login   where   Username=:Username';  
          Parameters.ParamByName('Username').Value:=trim(rzedit1.Text);  
          open;  
          if   eof   then  
          begin  
              messagebox(self.handle,'用户帐号错误!','信息',mb_ok+mb_iconinformation);  
              exit;  
          end;  
            if   fieldbyname('password').asstring<>RzMaskEdit1.text   then  
          begin  
              messagebox(self.handle,'密码错误!','信息',mb_ok+mb_iconinformation);  
            RzMaskEdit1.Text:='';  
              exit;  
          end;  
              if   rzedit1.Text='crystal'   then  
            begin  
            mail_form.RzToolButton3.Visible:=false;  
            end;  
            login_form.Hide;  
            Mail_Form.Enabled   :=   true;  
            end;  
  为什么我用这段代码登陆  
  我用CRYSTAL登陆时有时RzToolButton3可现有时不可现?  
  哪里写错了吗  
  应该怎么写呢

查看回复