changepassword.pas

针对快餐店的会员管理系统.具有详细的分类及管理作用

unit ChangePassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, RzButton, ExtCtrls, RzEdit, StdCtrls, Mask, RzDBEdit;

type
  TPasswordForm = class(TForm)
    Label1: TLabel;
    RzDBEdit1: TRzDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    OldPas: TRzEdit;
    NewPas: TRzEdit;
    NewPass: TRzEdit;
    Bevel1: TBevel;
    SaveButton: TRzBitBtn;
    CancelButton: TRzBitBtn;
    Image1: TImage;
    procedure SaveButtonClick(Sender: TObject);
    procedure NewPassExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PasswordForm: TPasswordForm;

implementation

uses DM, Load;

{$R *.dfm}

procedure TPasswordForm.SaveButtonClick(Sender: TObject);
var
   Pin : String;
begin
//更改密码
  with DM1.ADODataSet11 do try
     Locate('用户名',LoadForm.LandingUser,[]);
     Pin:=FieldByName('密码').AsString;
     if OldPas.Text<>Pin then begin
        Messagebox(Handle,'您输入的旧密码有误，请重新输入！','错误',MB_OK+MB_ICONWARNING);
        OldPas.SetFocus;
     end else begin
        Edit;
        FieldByName('密码').AsString:=NewPas.Text;
        Post;
        Messagebox(Handle,'密码修改成功！','信息',MB_OK+MB_ICONINFORMATION);
        PasswordForm.Close;
     end;
  except
     Messagebox(Handle,'修改密码出现意外错误！','错误',MB_OK+MB_ICONERROR);
  end;
end;

procedure TPasswordForm.NewPassExit(Sender: TObject);
begin
//检测两次输入的密码是否一致
if NewPas.Text<>NewPass.Text then begin
   messagebox(Handle,'您两次输入的新密码不一致，请重新输入！','错误',MB_OK+MB_ICONWARNING);
   Newpass.SetFocus;
end;
end;

procedure TPasswordForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  OldPas.Clear;
  Newpas.Clear;
  NewPass.Clear;
end;

procedure TPasswordForm.FormShow(Sender: TObject);
begin
   DM1.ADODataSet11.Locate('用户名',LoadForm.LandingUser,[]);
end;

end.