四个edit分别是用户名，密码，旧密码，确认密码
代码：procedure TForm3.BitBtn1Click(Sender: TObject);
var c,d,e,f,g:string;
begin
  c:=trim(edit1.Text);
  d:=trim(edit2.Text);
  e:=trim(edit3.Text);
if length(e)<3 then
    begin
      showmessage('密码由3~20个字符组成!');
      exit;
    end;
f:=trim(edit4.Text);
  if length(f)<3 then
    begin
      showmessage('密码由3~20个字符组成!');
      exit;
    end;
  if e<>f then
    begin
      showmessage('确认密码不相同，请确认!');
      exit;
    end;
  ADOQuery1.SQL.Clear;
  g:='select * from YHXX where 用户姓名='+quotedstr(edit1.Text)
     +'and 用户密码='+quotedstr(edit2.Text);
  ADOQuery1.SQL.Add(g);
  ADOQuery1.Open;
    if ADOQuery1.RecordCount<1 then
     begin
     showmessage('用户姓名或密码错误，请确认!');
     exit;
     end
    else
   g:='update YHXX set 用户密码='+e+' where (用户姓名='+c+')';
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(g);
   ADOQuery1.ExecSQL;
   showmessage('密码修改成功!');
   close


end;


希望大家能指出哪错了，菜鸟水平，网上的一些说法都看不大懂