谁能给我一个密码修改的源码！

Question

修改密码的源码，给我一个，谢谢！

Answer 1

procedure TForm4.Button1Click(Sender: TObject);
begin
  if (form4.Edit1.Text<>'') and (form4.Edit2.Text<>'') and (form4.Edit3.Text<>'') then
  begin
    form1.ADOTable2.Open;
    with form1.ADOTable2 do
    locate('id',form3.user,[]);
    if form1.ADOTable2.FieldValues['passwd']=form4.Edit1.Text then
    begin
      if form4.Edit2.Text=form4.Edit3.Text then
      begin
        if length(form4.Edit2.Text)<=6 then
        begin
          form1.ADOTable2.Edit;
          form1.ADOTable2.FieldValues['passwd']:=form4.Edit2.Text;
          form1.ADOTable2.Post;
          messagebox(form4.Handle,'密码修改成功','信息',mb_ok or mb_iconinformation);
        end
        else
        begin
          messagebox(form4.Handle,'输入的密码长度超出规定的范围','信息',mb_ok or mb_iconinformation);
          form4.Edit2.SelectAll;
          form4.Edit2.SetFocus;
        end;
      end
      else
      begin
        messagebox(form4.Handle,'两次输入的密码不一致','信息',mb_iconinformation);
        form4.Edit3.SelectAll;
        form4.Edit3.SetFocus;
      end;
    end
    else
    begin
      messagebox(form4.Handle,'输入的旧密码不正确','信息',mb_ok or mb_iconinformation);
      form4.Edit1.SelectAll;
      form4.Edit1.SetFocus;
    end;
  end
  else
  begin
    if form4.Edit1.Text='' then
    begin
      messagebox(form4.Handle,'旧密码必须填写','信息',mb_ok or mb_iconinformation);
      form4.Edit1.SetFocus;
    end;
    if (form4.Edit1.Text<>'') then
    begin
      messagebox(form4.Handle,'新密码必须输入','信息',mb_ok or mb_iconinformation);
      if form4.Edit2.Text='' then
        form4.Edit2.SetFocus;
      if form4.Edit2.Text<>'' then
        form4.Edit3.SetFocus;
    end;
  end;
end;

Answer 2

with dm.ADOQ_temp do
    begin
      Close;
      Sql.Clear;
      Sql.Add('select * from DictOperator where op_xm =:xm ');
      Parameters.ParamByName('xm').value :=UserName;
      Open;
      if Trim(Edit_password.text)<>FieldByName('op_password').AsString then
      begin
        Application.MessageBox('密码错误，请重新输入！',App_caption,MB_ICONINFORMATION+MB_OK);
        Edit_password.SetFocus;
        Exit;
      end;
   end;
end;