passwordchange.pas

delphi7.0+ACCESS,是以前做过的一个档案资料管理信息系统

unit PasswordChange;

interface

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

type
  TPasswordChangeFrm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PasswordChangeFrm: TPasswordChangeFrm;

implementation
   uses DataModule;
{$R *.dfm}

procedure TPasswordChangeFrm.Button1Click(Sender: TObject);
begin
     DM.A_User.Locate('User_ID',Edit1.Text,[]);
     if DM.A_User['User_Password']=Edit2.Text then
         begin
          if  Edit3.Text=Edit4.Text  then
          begin
           DM.A_User.Edit;
           DM.A_User['User_Password']:=Edit3.Text;
           DM.A_User.Post;
           showmessage('密码修改成功！');
           Edit1.Clear;
           Edit2.Clear;
           Edit3.Clear;
           Edit4.Clear;
           close;
           end
           else
           begin
           Application.MessageBox('两次新密码不一致，请重新输入','对不起',MB_YESNO+MB_ICONQUESTION);
           Edit2.Clear;
           Edit3.Clear;
           Edit4.Clear;
           end
         end
    else
        begin
        showmessage('原始密码不对！');
        Edit1.Clear;
        Edit2.Clear;
        Edit3.Clear;
        Edit4.Clear;
        end;
end;

procedure TPasswordChangeFrm.Button2Click(Sender: TObject);
begin
   PasswordChangeFrm.close;
end;

end.