changepwd.~pa

来自「Barcode And LabelPrint」· ~PA 代码 · 共 68 行

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 Global, StockDataModel;
{$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 StockDM.QUser 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.