十万火急！！！！！！ADO用法

procedure Tfrmpasswordedit.Button1Click(Sender: TObject);
var
  str: string;
  str1: string;
begin
  if edit1.Text = '' then
  begin
    showmessage('请输入用户名');
    edit1.SetFocus;
  end
  else
  begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    str := 'select * from yhb where 用户名=''' + trim(edit1.text) + ''' and 密码=''' + trim(edit2.text) + '''';
    adoquery1.SQL.Add(str);
    adoquery1.Open;
//query1.ExecSQL;
//query1.active:=true;
    if adoQuery1.RecordCount = 0 then
    begin
      showmessage('用户名或密码错误');
      edit2.Text := '';
      edit3.Text := '';
      edit4.Text := '';
      edit1.SetFocus;
    end
    else
      if edit3.text <> edit4.Text then
      begin
        showmessage('请重新输入新密码');
        edit4.Text := '';
        edit3.SetFocus;
      end
      else
      begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        str := 'update yhb set 密码=''' + trim(edit3.Text) + ''' where 用户名=''' + trim(edit1.text) + ''' and 密码=''' + trim(edit2.text) + '''';
        adoquery1.SQL.Add(str);
        adoquery1.ExecSQL;
        showmessage('密码修改成功');
      end;
    //showmessage('pp');
  end;
end;