关于密码的修改。

Question

if(旧密码不对）
echo 旧密码错
else if(新密码!=重复新密码)
echo 密码校验错
else
echo OK

Answer 1

IF 旧密码错误 then exit
else begin
     if 新密码 = 重复新密码 then 
         begin
          密码修改
         end
     else 
         begin
          重新输入新密码
         end     
     end;

Answer 2

if 旧密码不对 then showmessage('旧的不对') exit;
if 新密码<>重复密码 then showmessage(' 两个不一样')exit;
修改密码;

Answer 3

 begin
  while 旧密码错误 do  {次数刚开始初始化为0)
    begin
      错误提示;
      一共能输入的次数限制提示;
      次数:=次数+1;
      if 次数>预定数
         then close
         else 重新输入旧密码;
     end;     输入新密码和重复的新密码;   while 新密码 <> 重复新密码 do 
         begin
           错误提示; 
           重新输入新密码和重复的新密码;
        end;
   系统密码:=新密码;
    
    end; 

Answer 4

procedure TFSet.CheckPasswordIsValid;
begin
  if Trim(Edit1.Text) <> DecStr(Password) then  //edit1：原密码；decstr：解密函数
  begin
    Application.MessageBox(pchar('原密码输入错误!'),pchar('注意'),mb_ok);
    Edit1.SetFocus;
    Abort;
  end else if Trim(Edit2.Text) = '' then  //edit2：新密码
  begin
    Application.MessageBox(pchar('新密码为空!'),pchar('注意'),mb_ok);
    Edit2.SetFocus;
    Abort;
  end else if Trim(Edit3.Text) = '' then  //edit3：确认密码
  begin
    Application.MessageBox(pchar('确认密码为空!'),pchar('注意'),mb_ok);
    Edit3.SetFocus;
    Abort;
  end else if Trim(Edit2.Text) <> Trim(Edit3.Text) then  
  begin
    Application.MessageBox(pchar('确认密码与新密码不符!'),pchar('注意'),mb_ok);
    Edit3.SetFocus;
    Abort;
  end;
end;