很好拿的分，谁帮我把修改密码的代码写完，五钟结贴给100分

Question

if Edit1.Text<>ADODataSet1.FieldByName('mm_mm').AsString then
   begin
    ShowMessage('你的旧密码没有输正确！')
    end
    else if Edit2.Text='' then
   begin
    ShowMessage('为了你的安全，密码不能为空！')
   end
    else if Edit2.Text<>Edit3.Text then
   begin
    ShowMessage('两次输入的密码不一致！请重新输入你的新密码。')
   end
    else
   begin
      …… //怎样把新的密码赋到表里
   end

Answer 1

update set mm=:mm where

Answer 2

if Edit1.Text<>ADODataSet1.FieldByName('mm_mm').AsString then
   begin
    ShowMessage('你的旧密码没有输正确！')
    end
    else if Edit2.Text='' then
   begin
    ShowMessage('为了你的安全，密码不能为空！')
   end
    else if Edit2.Text<>Edit3.Text then
   begin
    ShowMessage('两次输入的密码不一致！请重新输入你的新密码。')
   end
    else
   begin
     ADODataSet1.insert;  //添加密码
     ADODataSet1.FieldByName('mm_mm').AsString:=edit2.text;
     ADODataSet1.post;
    ////////////////////////////////////
     ADODataSet1.edit;  //修改密码
     ADODataSet1.FieldByName('mm_mm').AsString:=edit2.text;
     ADODataSet1.post;
   end

Answer 3

if Edit1.Text<>ADODataSet1.FieldByName('mm_mm').AsString then
   begin
    ShowMessage('你的旧密码没有输正确！')
    end
    else if Edit2.Text='' then
   begin
    ShowMessage('为了你的安全，密码不能为空！')
   end
    else if Edit2.Text<>Edit3.Text then
   begin
    ShowMessage('两次输入的密码不一致！请重新输入你的新密码。')
   end
    else
   begin
     ADODataSet1.Edit;//怎样把新的密码赋到表里
     ADODataSet1.FieldByName('mm_mm').Value := Edit2.Text;
     ADODataSet1.Post
   end

Answer 4

if Edit1.Text<>ADODataSet1.FieldByName('mm_mm').AsString then
   begin
        ShowMessage('你的旧密码没有输正确！')
   end  else if Edit2.Text='' then
   begin
        ShowMessage('为了你的安全，密码不能为空！')
   end else if Edit2.Text<>Edit3.Text then
   begin
        ShowMessage('两次输入的密码不一致！请重新输入你的新密码。')
   end else
   begin
         ADODataSet1.Edit;//怎样把新的密码赋到表里
         ADODataSet1.FieldByName('mm_mm').AsString := Edit2.Text;
         ADODataSet1.Post
   end