changepwd.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 67 行

unit ChangePWD;

interface

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

type
  TfrmChangePWD = class(TfrmDailogBase)
    bbtOk: TBitBtn;
    bbtCancel: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtOld: TEdit;
    edtNew: TEdit;
    edtValidate: TEdit;
    Bevel1: TBevel;
    procedure bbtOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChangePWD      : TfrmChangePWD;

implementation

uses DataModule,Login, Global;
{$R *.dfm}

procedure TfrmChangePWD.bbtOkClick(Sender: TObject);
begin
  inherited;
  if Uppercase(edtOld.text) <> G_SPWD then
    raise Exception.create('原密码不正确！');
  if Uppercase(edtNew.text) <> Uppercase(edtValidate.text) then
    raise Exception.create('验证密码与新密码不同！');
  try
    with dmClient.tUser do
      if Locate('fID', G_iUserID, []) then
      begin
        Edit;
        FieldbyName('fPWD').asString := edtValidate.text;
        Post;
      end;
  except
    on E: Exception do
      raise Exception.create('修改密码失败！' + #13#10 + E.Message);
  end;
  G_SPWD := Uppercase(edtValidate.text);
  Messagedlg('密码修改成功！', mtInformation, [mbOk], 0);
end;

procedure TfrmChangePWD.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmChangePWD := nil;
end;

end.