opwdalter_unit.pas

仓库管理系统 貌似是ACCESS的数据库

unit OPwdAlter_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,DB;

type
  TfrmOPwdAlter = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    EdtOldPass: TEdit;
    EdtNewPass1: TEdit;
    EdtNewPass2: TEdit;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure EdtOldPassKeyPress(Sender: TObject; var Key: Char);
    procedure EdtNewPass1KeyPress(Sender: TObject; var Key: Char);
    procedure EdtNewPass2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    foundRS:boolean;            //返回值
    PassWord:string;
  public
    { Public declarations }
  end;

var
  frmOPwdAlter: TfrmOPwdAlter;

implementation

uses DM_Unit;

{$R *.dfm}

procedure TfrmOPwdAlter.EdtOldPassKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    EdtNewPass1.SetFocus;
end;

procedure TfrmOPwdAlter.EdtNewPass1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
    EdtNewPass2.SetFocus;
end;

procedure TfrmOPwdAlter.EdtNewPass2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
    BtnOK.SetFocus;
end;

procedure TfrmOPwdAlter.FormShow(Sender: TObject);
begin
  EdtNewPass1.Text:='';
  EdtNewPass2.Text:='';
  EdtOldPass.Text:='';
  EdtOldPass.SetFocus;
end;

procedure TfrmOPwdAlter.btnOKClick(Sender: TObject);
begin
  try
    foundrs:=DM.OfferStaff(DM.OperatorID,PassWord);
    if EdtOldPass.Text<>password then
    begin
      Application.MessageBox('用户密码错！请重新输入.',
       '密码修改错误',MB_OK + MB_ICONSTOP);

      EdtoldPass.Text:='';
      EdtOldPass.setfocus;
      abort;
    end
    else
    if EDtNewPass1.Text=EDtNewPass2.Text then
     begin
       DM.UpdateStaff(DM.OperatorID,EdtNewPass2.text);
       Application.MessageBox('密码修改成功！',
         '密码修改',MB_OK + MB_ICONINFORMATION);
       close;
     end
     else
      begin
       Application.MessageBox('新密码输入不一致！请重新输入.',
       '密码修改错误',MB_OK + MB_ICONSTOP);

       EdtNewPass2.text:='';
       EdtNewPass2.setfocus;
       abort;
      end;

  except
  on E : EDatabaseError do
  begin
    Application.MessageBox(pchar('错误:数据库读取失败,错误信息:' + #10 + #13 + E.Message),
                           '连接错误',MB_OK+MB_ICONWARNING);
    raise;
  end;
  end;
end;

procedure TfrmOPwdAlter.btnCancelClick(Sender: TObject);
begin
  Close;
end;

end.