密码登陆的问题

Question

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可现有时不可现?
哪里写错了吗
应该怎么写呢

Answer 1

你将“     if rzedit1.Text='crystal' then
     begin
     mail_form.RzToolButton3.Visible:=false;
     end;”
这段代码放到所有判断之前试试看。