password.pas

文件加密发生法

unit Password;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  Tfrm_PassWord = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    procedure ChangePassWord(sPass, sPass1, sPass2:String);
    { Private declarations }
  public
    { Public declarations }
  end;

const
  Err_OrgPass='原密码错误';
  Err_PassSame='两次密码不一致';
  Msg_PassSuccess='密码修改成功';

var
  frm_PassWord: Tfrm_PassWord;

implementation

uses Func;

{$R *.DFM}

procedure Tfrm_Password.ChangePassWord(sPass, sPass1, sPass2:String);
begin
  if sPass<>GetPassWord then
  begin
    MessageBox(Handle,Err_OrgPass,'错误',MB_OK);
    Edit1.Text:='';
    Edit1.SetFocus;
    Exit;
  end;
  if sPass1<>sPass2 then
  begin
    MessageBox(Handle,Err_PassSame,'错误',MB_OK);
    Edit2.SetFocus;
    Exit
  end;
  PutPassWord(sPass1);
  MessageBox(Handle,Msg_PassSuccess,'信息',MB_OK);
  Close;
end;

procedure Tfrm_PassWord.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure Tfrm_PassWord.Button2Click(Sender: TObject);
begin
  ChangePassWord(Edit1.Text,Edit2.Text,Edit3.Text);
end;

end.